In [ ]:
. ./nbs_header.ps1
. ./core.ps1
In [ ]:
{ pwsh ../apps/builder/build.ps1 } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DibParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsec.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsecCS.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
── fsharp - import ─────────────────────────────────────────────────────────────
Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
TextWriter)->fprintfn writer "%120A" x)
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fabl...2, v3, v4)
US5_1
and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
let v3 : (unit -> US4) = closure5(v0, v1, v2)
let v4 : (US4 -> US5) = closure6()
let v5 : (exn -> US5) = closure7(v2)
let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
match v6 with
| US5_1 -> (* None *)
let v8 : int32 = v2 + 1
method6(v0, v1, v8)
| US5_0(v7) -> (* Some *)
v7
and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
let v2 : int32 = 0
let v3 : US4 = method6(v0, v1, v2)
match v3 with
| US4_1 -> (* None *)
let v5 : unit option = None
v5
| US4_0 -> (* Some *)
let v4 : unit option = Some ()
v4
and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
closure4(v0)
and method12 (v0 : (unit -> unit)) : (unit -> unit) =
v0
and closure13 (v0 : Lazy<unit>) () : unit =
v0.Value
()
and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
let v1 : (unit -> unit) = method12(v0)
let v2 : Lazy<unit> = lazy v1 ()
closure13(v2)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
let new_disposable x = v2 x
let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
let retry_fn x = v3 x
let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
let memoize x = v4 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
let replace x = v4 x
let v5 : (string -> (string -> (string -> string))) = closure13()
let replace_regex x = v5 x
let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
let slice x = v6 x
let v7 : (string -> (string -> (string [[]]))) = closure19()
let split x = v7 x
let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
let split_string x = v8 x
let v9 : (string -> (string -> bool)) = closure23()
let starts_with x = v9 x
let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
let substring x = v10 x
let v11 : (string -> string) = closure28()
let to_lower x = v11 x
let v12 : (string -> string) = closure29()
let to_upper x = v12 x
let v13 : (string -> string) = closure30()
let trim x = v13 x
let v14 : ((char [[]]) -> (string -> string)) = closure31()
let trim_end x = v14 x
let v15 : ((char [[]]) -> (string -> string)) = closure33()
let trim_start x = v15 x
let v16 : (int32 -> (string -> string)) = closure35()
let ellipsis x = v16 x
let v17 : (int64 -> (string -> string)) = closure37()
let ellipsis_end x = v17 x
let v18 : (exn -> string) = closure39()
let format_exception x = v18 x
let v19 : (string -> ((string [[]]) -> string)) = closure40()
let concat_array_trailing x = v19 x
let v20 : (string -> (string seq -> string)) = closure42()
let concat x = v20 x
let v21 : (string -> ((string [[]]) -> string)) = closure44()
let join' x = v21 x
let v22 : (string -> (char [[]])) = closure46()
let to_char_array x = v22 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v28 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v28
()
#endif
#if FABLE_COMPILER_TYPESCRIPT
System.Console.WriteLine v24
()
#endif
#if FABLE_COMPILER_PYTHON
System.Console.WriteLine v24
()
#endif
#else
System.Console.WriteLine v24
()
#endif
|> fun x -> _v25 <- Some x
match _v25 with Some x -> x | None -> failwith "base.run_target /
_v25=None"
let v29 : (string -> unit) = v8.l0
v29 v24
and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
let v3 : (unit -> string) = closure5(v0, v1, v2)
method11(v0, v3)
and closure1 () (v0 : string) : uint16 =
let v1 : char = v0.[[int 0]]
let v2 : (char -> int32) = int32
let v3 : int32 = v2 v1
let v4 : string = v0.[[int 0..int 7]]
let v5 : int32 = System.Convert.ToInt32 (v4, 16)
let v6 : int32 = v5 + v3
let v7 : (int32 -> uint16) = uint16
let v8 : uint16 = v7 v6
let v9 : US0 = US0_0
let v10 : (unit -> string) = closure2()
let v11 : (unit -> string) = closure3(v3, v4, v8)
method3(v9, v10, v11)
let v12 : uint16 = v8 % 48128us
let v13 : uint16 = v12 + 1024us
v13
let v0 : (string -> string) = closure0()
let hash_text x = v0 x
let v1 : (string -> uint16) = closure1()
let hash_to_port x = v1 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C...64) : System.Guid =
let v1 : (unit -> System.Guid) = System.Guid.NewGuid
let v2 : System.Guid = v1 ()
let v3 : (System.Guid -> string) = _.ToString()
let v4 : string = v3 v2
let v5 : (int64 -> string) = _.ToString()
let v6 : string = v5 v0
let v7 : string = v6.PadLeft (18, '0')
let v8 : System.Guid = System.Guid
$"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
v8
and closure12 (v0 : string) (v1 : System.DateTime) : string =
let v2 : (string -> string) = v1.ToString
v2 v0
and closure11 () (v0 : string) : (System.DateTime -> string) =
closure12(v0)
and closure13 () (v0 : System.DateTime) : string =
let v1 : (string -> string) = v0.ToString
let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
v1 v2
let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
let date_time_guid_from_date_time x = v0 x
let v1 : (System.Guid -> System.DateTime) = closure2()
let date_time_from_guid x = v1 x
let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
let timestamp_guid_from_timestamp x = v2 x
let v3 : (System.Guid -> int64) = closure8()
let timestamp_from_guid x = v3 x
let v4 : (System.DateTime -> System.Guid) = closure9()
let new_guid_from_date_time x = v4 x
let v5 : (int64 -> System.Guid) = closure10()
let new_guid_from_timestamp x = v5 x
let v6 : (string -> (System.DateTime -> string)) = closure11()
let format x = v6 x
let v7 : (System.DateTime -> string) = closure13()
let format_iso8601 x = v7 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
#endif
type futures_future_JoinAll<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
#endif
type futures_future_TryJoinAll<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
#endif
type rayon_iter_Map<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
#endif
type rayon_vec_IntoIter<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
#endif
type std_future_Future<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
#endif
type futures_future_Fuse<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
#endif
type tokio_task_JoinHandle<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
#endif
type tokio_stream_StreamExt = class end
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : bool = true
let mutable _v1 : Async<System.Threading.CancellationToken> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.Canc...eading.CancellationToken>>
v12
#endif
#else
let v13 : Async<System.Threading.CancellationToken> option = None
let mutable _v13 = v13
async {
let v14 : Async<System.Threading.CancellationToken> =
Async.CancellationToken
let! v14 = v14
let v15 : System.Threading.CancellationToken = v14
let v16 : System.Threading.CancellationToken =
Async.DefaultCancellationToken
let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
let v18 : ((System.Threading.CancellationToken [[]]) ->
System.Threading.CancellationTokenSource) =
System.Threading.CancellationTokenSource.CreateLinkedTokenSource
let v19 : System.Threading.CancellationTokenSource = v18 v17
let v20 : System.Threading.CancellationToken = v19.Token
return v20
}
|> fun x -> _v13 <- Some x
let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
-> x | None -> failwith "async.new_async_unit / _v13=None"
v21
#endif
|> fun x -> _v7 <- Some x
let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
-> x | None -> failwith "base.run_target / _v7=None"
v22
#endif
|> fun x -> _v1 <- Some x
let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
-> x | None -> failwith "base.run_target / _v1=None"
v23
let v0 : (System.Threading.CancellationToken ->
Async<System.Threading.CancellationToken>) = closure0()
let merge_cancellation_token_with_default_async x = v0 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
#endif
type std_thread_JoinHandle<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
#endif
type std_sync_Arc<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
#endif
type std_sync_Mutex<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
#endif
type std_sync_MutexGuard<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
#endif
type std_sync_PoisonError<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
#endif
type std_sync_mpsc_Receiver<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
#endif
type std_sync_mpsc_SendError<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
#endif
type std_sync_mpsc_Sender<'T> = class end
type Disposable (f : unit -> unit) = interface System.IDisposable with member
_.Dispose () = f ()
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : bool = true
let mutable _v1 : unit option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
"$0()" )
v28
#endif
#if FABLE_COMPILER_RUST && WASM
let v29 : (unit -> unit) = method0(v25)
let v30 : System.IDisposable = new Disposable (fun () ->
Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
v30
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v31 : (unit -> unit) = method0(v25)
let v32 : System.IDisposable = new Disposable (fun () ->
Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
v32
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v33 : System.IDisposable = null |> unbox<System.IDisposable>
v33
#endif
#if FABLE_COMPILER_PYTHON
let v34 : System.IDisposable = null |> unbox<System.IDisposable>
v34
#endif
#else
let v35 : (unit -> unit) = method1(v25)
let v36 : System.IDisposable = { new System.IDisposable with member
_.Dispose () = v35 () }
v36
#endif
|> fun x -> _v26 <- Some x
let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
failwith "base.run_target / _v26=None"
let v38 : System.Threading.CancellationToken = v25.Token
struct (v38, v37)
#endif
|> fun x -> _v1 <- Some x
let struct (v39 : System.Threading.CancellationToken, v40 :
System.IDisposable) = match _v1 with Some x -> x | None -> failwith
"base.run_target / _v1=None"
struct (v39, v40)
let v0 : (System.Threading.CancellationToken option -> struct
(System.Threading.CancellationToken * System.IDisposable)) = closure0()
let new_disposable_token x = v0 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
#endif
type reqwest_Error = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
#endif
type reqwest_RequestBuilder = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
#endif
type reqwest_Response = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
... v212 = v212
let v213 : bool = v212
let v214 : bool = v213 = false
if v214 then
return v2
(*
()
else
*) else
let v215 : int32 = v2 + 1
let v216 : Async<int32> = method10(v0, v1, v215)
return! v216
(*
()
*)
}
|> fun x -> _v9 <- Some x
let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
"async.new_async_unit / _v9=None"
v217
#endif
|> fun x -> _v3 <- Some x
let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
"base.run_target / _v3=None"
v218
and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
method10(v0, v1, v2)
and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
closure23(v0, v1)
and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
closure22(v0)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (string -> (int32 -> Async<bool>)) = closure2()
let test_port_open x = v2 x
let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
let test_port_open_timeout x = v3 x
let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
closure15()
let wait_for_port_access x = v4 x
let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
let get_available_port x = v5 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1 of f1_0 : US0
| US1_2 of f2_0 : US0
| US1_3 of f3_0 : US0
| US1_4 of f4_0 : US0
let rec closure0 () () : bool =
let v0 : bool = true
let mutable _v0 : bool option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : string = "cfg!(windows)"
let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = "cfg!(windows)"
let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = "cfg!(windows)"
let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : US0 = US0_0
let v8 : US1 = US1_3(v7)
let v9 : string = $"platform.is_windows / target: {v8}"
let v10 : bool = failwith<bool> v9
v10
#endif
#if FABLE_COMPILER_PYTHON
let v11 : US0 = US0_0
let v12 : US1 = US1_4(v11)
let v13 : string = $"platform.is_windows / target: {v12}"
let v14 : bool = failwith<bool> v13
v14
#endif
#else
let v15 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v17 : b...: string = "cfg!(windows)"
let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = "cfg!(windows)"
let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = "cfg!(windows)"
let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : US0 = US0_0
let v8 : US1 = US1_3(v7)
let v9 : string = $"platform.is_windows / target: {v8}"
let v10 : bool = failwith<bool> v9
v10
#endif
#if FABLE_COMPILER_PYTHON
let v11 : US0 = US0_0
let v12 : US1 = US1_4(v11)
let v13 : string = $"platform.is_windows / target: {v12}"
let v14 : bool = failwith<bool> v13
v14
#endif
#else
let v15 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v17 : bool = v16 v15
v17
#endif
|> fun x -> _v0 <- Some x
let v18 : bool = match _v0 with Some x -> x | None -> failwith
"base.run_target / _v0=None"
if v18 then
let v19 : string = ".exe"
v19
else
let v20 : string = ""
v20
let v0 : (unit -> bool) = closure0()
let is_windows () = v0 ()
let v1 : (unit -> string) = closure1()
let get_executable_suffix () = v1 ()
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
#endif
type clap_Arg = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
#endif
type clap_ArgAction = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
#endif
type clap_Command = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
#endif
type clap_ArgMatches = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
#endif
type clap_builder_ValueRange = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
#endif
type clap_builder_ValueParser = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
#endif
type clap_builder_PossibleValue = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
#endif
type std_process_Child = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
#endif
type std_process_ChildStderr = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
#endif
type std_process_ChildStdout = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
#endif
type std_process_ChildStdin = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
#endif
type std_process_Command = class...9 : (string list -> (string [[]])) =
List.toArray
let v20 : (string [[]]) = v19 v18
US8_0(v20)
and closure21 () (v0 : string) : Result<(string [[]]), string> =
let v1 : US8 = method16(v0)
match v1 with
| US8_1(v4) -> (* Error *)
let v5 : Result<(string [[]]), string> = Error v4
v5
| US8_0(v2) -> (* Ok *)
let v3 : Result<(string [[]]), string> = Ok v2
v3
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (unit -> unit) = closure2()
let current_process_kill () = v2 ()
let v3 : (string -> Async<struct (int32 * string)>) = closure9()
let execute_async x = v3 x
let v4 : (struct (System.Threading.CancellationToken option * string * (struct
(string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
* (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
string option) -> Async<struct (int32 * string)>) = closure19()
let execute_with_options_async x = v4 x
let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
* string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
unit) option * bool * string option)) = closure20()
let execution_options x = v5 x
let v6 : (string -> Result<(string [[]]), string>) = closure21()
let split_args x = v6 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
#endif
type std_fs_File = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
#endif
type std_fs_FileType = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
#endif
type std_path_Display = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
#endif
type std_path_Path = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
#endif
type std_path_PathBuf = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
#endif
type async_walkdir_DirEntry = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
#endif
type async_walkdir_Filtering = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
#endif
type async_walkdir_WalkDir = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = cla...ng -> Async<int64>)) = closure8()
let wait_for_file_access x = v3 x
let v4 : (string -> Async<int64>) = closure12()
let wait_for_file_access_read x = v4 x
let v5 : (string -> Async<string>) = closure13()
let read_all_text_async x = v5 x
let v6 : (string -> (string -> bool)) = closure14()
let file_exists_content x = v6 x
let v7 : (string -> (string -> Async<unit>)) = closure16()
let write_all_text_async x = v7 x
let v8 : (string -> (string -> Async<unit>)) = closure18()
let write_all_text_exists x = v8 x
let v9 : (string -> Async<int64>) = closure20()
let delete_file_async x = v9 x
let v10 : (string -> (string -> Async<int64>)) = closure23()
let move_file_async x = v10 x
let v11 : (string -> Async<string option>) = closure27()
let read_all_text_retry_async x = v11 x
let v12 : (unit -> string) = closure35()
let create_temp_path () = v12 ()
let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
let create_temp_dir () = v13 ()
let v14 : (string -> struct (string * System.IDisposable)) = closure48()
let create_temp_dir' x = v14 x
let v15 : (unit -> string) = closure49()
let get_source_directory () = v15 ()
let v16 : (string -> string) = closure50()
let normalize_path x = v16 x
let v17 : (string -> string) = closure51()
let new_file_uri x = v17 x
let v18 : (unit -> string) = closure52()
let get_workspace_root () = v18 ()
let v19 : (bool -> unit) = closure56()
let init_trace_file x = v19 x
let v20 : (string -> (string -> string)) = closure58()
let (</>) x = v20 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C... #endif
#if FABLE_COMPILER_RUST && WASM
let v27 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v27
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v28 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v28
()
#endif
#if FABLE_COMPILER_TYPESCRIPT
System.Console.WriteLine v24
()
#endif
#if FABLE_COMPILER_PYTHON
System.Console.WriteLine v24
()
#endif
#else
System.Console.WriteLine v24
()
#endif
|> fun x -> _v25 <- Some x
match _v25 with Some x -> x | None -> failwith "base.run_target /
_v25=None"
let v29 : (string -> unit) = v8.l0
v29 v24
and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
let v3 : (unit -> string) = closure5(v0, v1, v2)
method8(v0, v3)
and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
method4(v0, v1, v2)
and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
closure4(v0, v1)
and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
closure3(v0)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
let trace x = v2 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
let hash_to_port x =
#if !INTERACTIVE
Crypto.hash_to_port x
#else
hash_to_port x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module SpiralNetworking =
let test_port_open x =
#if !INTERACTIVE
Networking.test_port_open x
#else
test_port_open x
#endif
let test_port_open_timeout x =
#if !INTERACTIVE
Networking.test_port_open_timeout x
#else
test_port_open_timeout x
#endif
let wait_for_port_access x =
#if !INTERACTIVE
Networking.wait_for_port_access x
#else
wait_for_port_access x
#endif
let get_available_port x =
#if !INTERACTIVE
Networking.get_available_port x
#else
get_available_port x
#endif
module SpiralPlatform =
let get_executable_suffix () =
#if !INTERACTIVE
Platform.g...e.trace_state
|> Option.iter (fun struct (_, _, level, _, _) ->
level.l0 <-
match new_level with
| Trace.US0_0 -> File_system.US0_0
| Trace.US0_1 -> File_system.US0_1
| Trace.US0_2 -> File_system.US0_2
| Trace.US0_3 -> File_system.US0_3
| Trace.US0_4 -> File_system.US0_4
)
Runtime.State.trace_state
|> Option.iter (fun struct (_, _, level, _, _) ->
level.l0 <-
match new_level with
| Trace.US0_0 -> Runtime.US0_0
| Trace.US0_1 -> Runtime.US0_1
| Trace.US0_2 -> Runtime.US0_2
| Trace.US0_3 -> Runtime.US0_3
| Trace.US0_4 -> Runtime.US0_4
)
Common.State.trace_state
|> Option.iter (fun struct (_, _, level, _, _) ->
level.l0 <-
match new_level with
| Trace.US0_0 -> Common.US0_0
| Trace.US0_1 -> Common.US0_1
| Trace.US0_2 -> Common.US0_2
| Trace.US0_3 -> Common.US0_3
| Trace.US0_4 -> Common.US0_4
)
Trace.State.trace_state
#else
State.trace_state
#endif
|> Option.iter (fun (struct (_, _, level, _, _)) ->
level.l0 <- new_level
)
let get_trace_level () =
#if !INTERACTIVE
Trace.State.trace_state
#else
State.trace_state
#endif
|> Option.map (fun struct (_, _, level, _, _) ->
level.l0
)
|> Option.defaultWith (fun () -> failwith "lib.get_trace_level /
trace_state=None")
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log expected actual
let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
let inline __isGreaterThanOrEqual log expected actual = __expect
Expecto.Expect.isGreaterThanOrEqual log expected actual
let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
expected actual
let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
log expected actual
let inline _isLessThan expected actual = __isLessThan true expected actual
let inline __isLessThanOrEqual log expected actual = __expect
Expecto.Expect.isLessThanOrEqual log expected actual
let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
expected actual
let inline __sequenceEqual log expected actual = __expect
Expecto.Expect.sequenceEqual log expected actual
let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
let inline __stringContains log expected actual = __expect
Expecto.Expect.stringContains log expected actual
let inline _stringContains expected actual = __stringContains true expected
actual
let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
log expected actual
let inline _stringEnds expected actual = __stringEnds true expected actual
let inline __stringStarts log expected actual = __expect
Expecto.Expect.stringStarts log expected actual
let inline _stringStarts expected actual = __stringStarts true expected actual
let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
expected actual
let inline _throwsC expected actual = __throwsC true expected actual
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── pwsh ────────────────────────────────────────────────────────────────────────
ls ~/.nuget/packages/argu
╭─[ 610.16ms - stdout ]────────────────────────────────────────────────────────╮
│ │
│ Directory: C:\Users\i574n\.nuget\packages\argu │
│ │
│ Mode LastWriteTime Length[ │
│ 32;1m Name │
│ ---- ------------- ------ [ │
│ 32;1m---- │
│ d---- 2023-05-17 3:38 PM 6.1.1 │
│ d---- 2024-03-12 8:22 PM 6.1.4 │
│ d---- 2024-01-29 5:12 PM 6.1.5 │
│ d---- 2024-03-12 8:20 PM 6.2.0 │
│ d---- 2024-02-23 6:50 PM 6.2.1 │
│ d---- 2024-03-12 8:15 PM 6.2.2 │
│ d---- 2024-05-14 8:20 PM 6.2.3 │
│ d---- 2024-06-06 7:37 PM 6.2.4 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> SpiralTrace.TraceLevel.US0_4
let trace level fn locals =
let level = level |> to_trace_level
SpiralTrace.trace level fn locals
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
a
|> Async.Catch
|> map (function
| Choice1Of2 result -> Ok result
| Choice2Of2 ex -> Error ex
)
/// ## runWithTimeoutChoiceAsync
let inline runWithTimeoutChoiceAsync (timeout : int) fn =
let _locals () = $"timeout: {timeout} / {_locals ()}"
let timeoutTask = async {
do! Async.Sleep timeout
trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
return None
}
let task = async {
try
let! result = fn
return Some result
with
| :? System.AggregateException as ex when
ex.InnerExceptions
|> Seq.exists (function :? Sy... None
/// ## awaitValueTask
let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
task.AsTask () |> Async.AwaitTask
let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
task.AsTask () |> Async.AwaitTask
/// ## init
let inline init x = async {
return x
}
/// ## withCancellationToken
let inline withCancellationToken (ct : System.Threading.CancellationToken)
fn =
Async.StartImmediateAsTask (fn, ct)
|> Async.AwaitTask
/// ## retryAsync
let inline retryAsync retries fn =
let rec loop retry lastError = async {
try
return!
if retry <= retries
then fn |> map Ok
else lastError |> Error |> init
with ex ->
trace Debug (fun () -> $"Async.retryAsync / retry:
{retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
do! Async.Sleep 1
return! loop (retry + 1) (ex |> SpiralSm.format_exception)
}
loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
/// ## fold
let fold folder state array =
let rec loop acc i =
async {
if i < Array.length array then
let! newAcc = folder acc array.[[i]]
return! loop newAcc (i + 1)
else
return acc
}
loop state 0
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.AsyncSeq.unfoldAsync
(fun () -> async {
do! tcs.Task |> Async.AwaitTask
return Some (System.DateTime.Now.Ticks - start, ())
})
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.Red)
let parser =
Argu.ArgumentParser.Create<'T> (
programName =
$"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
errorHandler = errorHandler
)
parser.ParseCommandLine args
let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
args
|> parseArgs<'T>
|> fun results -> results.GetAllResults ()
let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
args
|> parseAllArgs<'T>
|> List.groupBy CommonFSharp.getUnionCaseName<'T>
|> Map.ofList
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> System.IO.Path.GetFullPath
let _locals () = $"filter: {filter} / {_locals ()}"
let watcher =
new System.IO.FileSystemWatcher (
Path = fullPath,
NotifyFilter = filter,
EnableRaisingEvents = true,
IncludeSubdirectories = true
)
let inline getEventPath (path : string) =
path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
SpiralSm.trim_start [[| '/'; '\\' |]]
let inline ticks () =
System.DateTime.UtcNow.Ticks
let changedStream =
AsyncSeq.subscribeEvent
watcher.Changed
(fun event ->
ticks (),
[[ FileSystemChang...d_all_text_retry_async
return t, FileSystemChange.Changed (path, content)
| true, FileSystemChange.Created (path, _) ->
do! Async.Sleep 5
let! content = fullPath </> path |>
SpiralFileSystem.read_all_text_retry_async
return t, FileSystemChange.Created (path, content)
| true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
let! content = fullPath </> newPath |>
SpiralFileSystem.read_all_text_retry_async
return t, FileSystemChange.Renamed (oldPath, (newPath,
content))
| _ -> return t, event
})
let disposable =
new_disposable (fun () ->
trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
watch stream") _locals
watcher.EnableRaisingEvents <- false
watcher.Dispose ()
)
stream, disposable
let inline watchDirectory path =
watchDirectoryWithFilter
(System.IO.NotifyFilters.FileName
// ||| System.IO.NotifyFilters.DirectoryName
// ||| System.IO.NotifyFilters.Attributes
//// ||| System.IO.NotifyFilters.Size
||| System.IO.NotifyFilters.LastWrite
//// ||| System.IO.NotifyFilters.LastAccess
// ||| System.IO.NotifyFilters.CreationTime
// ||| System.IO.NotifyFilters.Security
)
path
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open FParsec
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## escapeCell (test) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline escapeCell input =
input
|> SpiralSm.split "\n"
|> Array.map (function
| line when line |> SpiralSm.starts_with "\\#!" || line |>
SpiralSm.starts_with "\\#r" ->
System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#")
| line -> line
)
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
$"a{nl}\\#!magic{nl}b{nl}"
|> escapeCell
|> _assertEqual (
$"a{nl}#!magic{nl}b{nl}"
)
╭─[ 79.02ms - stdout ]─────────────────────────────────────────────────────────╮
│ "a │
│ #!magic │
│ b │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicMarker │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicMarker : Parser<string, unit> = pstring "#!"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic"
|> run magicMarker
|> _assertEqual (
Success ("#!", (), Position ("", 2, 1, 3))
)
╭─[ 48.81ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: "#!" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"##!magic"
|> run magicMarker
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 69.06ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure: │
│ Error in Ln: 1 Col: 1 │
│ ##!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicCommand │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicCommand =
magicMarker
>>. manyTill anyChar newline
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a"
|> run magicCommand
|> _assertEqual (
Success ("magic", (), Position ("", 8, 2, 1))
)
╭─[ 36.56ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: "magic" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
" #!magic
a"
|> run magicCommand
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 36.79ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure: │
│ Error in Ln: 1 Col: 1 │
│ #!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## content │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let content =
(newline >>. magicMarker) <|> (eof >>. preturn "")
|> attempt
|> lookAhead
|> manyTill anyChar
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run content
|> _assertEqual (
Success ("#!magic
a", (), Position ("", 14, 7, 1))
)
╭─[ 33.83ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: "#!magic │
│ │
│ │
│ a" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Block =
{
magic : string
content : string
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let block =
pipe2
magicCommand
content
(fun magic content ->
{
magic = magic
content = content
})
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run block
|> _assertEqual (
Success (
{ magic = "magic"; content = "a" },
(),
Position ("", 14, 7, 1)
)
)
╭─[ 46.81ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: { magic = "magic" │
│ content = "a" } │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## blocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let blocks =
skipMany newline
>>. sepEndBy block (skipMany1 newline)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic1
a
\#!magic2
b
"
|> escapeCell
|> run blocks
|> _assertEqual (
Success (
[[
{ magic = "magic1"; content = "a" }
{ magic = "magic2"; content = "b" }
]],
(),
Position ("", 26, 9, 1)
)
)
╭─[ 56.19ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: [{ magic = "magic1" │
│ content = "a" }; { magic = "magic2" │
│ content = "b" }] │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Output │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Output =
| Fs
| Md
| Spi
| Spir
let inline kernelOutputs magic =
match magic with
| "fsharp" -> [[ Fs ]]
| "markdown" -> [[ Md ]]
| "spiral" -> [[ Spi; Spir ]]
| _ -> [[]]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlock │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlock output (block : Block) =
match output, block with
| output, { magic = "markdown"; content = content } ->
let markdownComment =
match output with
| Spi | Spir -> "/// "
| Fs -> "/// "
| _ -> ""
content
|> SpiralSm.split "\n"
|> Array.map (SpiralSm.trim_end [[||]])
|> Array.filter (SpiralSm.ends_with " (test)" >> not)
|> Array.map (function
| "" -> markdownComment
| line -> System.Text.RegularExpressions.Regex.Replace (line,
"^\\s*", $"$&{markdownComment}")
)
|> SpiralSm.concat "\n"
| Fs, { magic = "fsharp"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else
content
|> SpiralSm.split "\n"
|> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with
"#r" >> not)
|> SpiralSm.concat "\n"
| (Spi | Spir), { magic = "spiral"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else content
| _ -> ""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
c
\#!markdown
c
\#!fsharp
let a = 1"
|> escapeCell
|> run block
|> function
| Success (block, _, _) -> formatBlock Fs block
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
///
/// c"
╭─[ 68.99ms - stdout ]─────────────────────────────────────────────────────────╮
│ "/// a │
│ /// │
│ /// b │
│ /// │
│ /// c" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlocks output blocks =
blocks
|> List.map (fun block ->
block, formatBlock output block
)
|> List.filter (snd >> (<>) "")
|> fun list ->
(list, (None, [[]]))
||> List.foldBack (fun (block, content) (lastMagic, acc) ->
let lineBreak =
if block.magic = "markdown" && lastMagic <> Some "markdown" &&
lastMagic <> None
then ""
else "\n"
Some block.magic, $"{content}{lineBreak}" :: acc
)
|> snd
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
\#!markdown
c
\#!fsharp
let a = 1
\#!markdown
d (test)
\#!fsharp
//// test
let a = 2
\#!markdown
e
\#!fsharp
let a = 3"
|> escapeCell
|> run blocks
|> function
| Success (blocks, _, _) -> formatBlocks Fs blocks
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
/// c
let a = 1
/// e
let a = 3
"
╭─[ 73.39ms - stdout ]─────────────────────────────────────────────────────────╮
│ "/// a │
│ /// │
│ /// b │
│ │
│ /// c │
│ let a = 1 │
│ │
│ /// e │
│ let a = 3 │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parse │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parse output input =
match run blocks input with
| Success (blocks, _, _) ->
let blocks =
blocks
|> List.filter (fun block ->
block.magic |> kernelOutputs |> List.contains output ||
block.magic = "markdown"
)
match blocks with
| { magic = "markdown"; content = content } :: _
when output = Fs
&& content |> SpiralSm.starts_with "# "
&& content |> SpiralSm.ends_with ")"
->
let inline indentBlock (block : Block) =
{ block with
content =
block.content
|> SpiralSm.split "\n"
|> Array.fold
(fun (lines, isMultiline) line ->
let trimmedLine = line |> SpiralSm.trim
if trimmedLine = ""
then "" :: lines, isMultiline
else
let inline singleQuoteLine () =
trimmedLine |> Seq.sumBy ((=) '"' >>
System.Convert.ToInt32) = 1
&& trimmedLine |> SpiralSm.contains
@"'""'" |> not
&& trimmedLine |> SpiralSm.ends_with "{"
|> not
&& trimmedLine |> SpiralSm.ends_with
"{|" |> not
&& trimmedLine |> SpiralSm.starts_with
"}" |> not
&& trimmedLine |> SpiralSm.starts_with
"|}" |> not
match isMultiline, trimmedLine |>
SpiralSm.split_string [[| $"{q}{q}{q}" |]] with
| false, [[| _; _ |]] ->
$" {line}" :: lines, true
| true, [[| _; _ |]] ->
line :: lines, false
| false, _ when singleQuoteLine () ->
$" {line}" :: lines, true
| false, _ when line |> SpiralSm.starts_with
"#" && block.magic = "fsharp" ->
line :: lines, false
| false, _ ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () && line |>
SpiralSm.starts_with " " ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () ->
line :: lines, false
| true, _ ->
line :: lines, true
)
([[]], false)
|> fst
|> List.rev
|> SpiralSm.concat "\n"
}
let moduleName, namespaceName =
System.Text.RegularExpressions.Regex.Match (content, @"# (.*)
\((.*)\)$")
|> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value
let moduleBlock =
{
magic = "fsharp"
content =
$"#if !INTERACTIVE
namespace {namespaceName}
#endif
module {moduleName} ="
}
blocks
|> List.indexed
|> List.fold
(fun blocks (index, block) ->
match index with
| 0 -> blocks
| 1 -> indentBlock block :: moduleBlock :: blocks
| _ -> indentBlock block :: blocks
)
[[]]
|> List.rev
| _ -> blocks
|> Result.Ok
| Failure (errorMsg, _, _) -> Result.Error errorMsg
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 =
$"""#!meta
{{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name":
"fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}}
\#!markdown
# TestModule (TestNamespace)
\#!fsharp
\#!import file.dib
\#!fsharp
\#r "nuget:Expecto"
\#!markdown
## ParserLibrary
\#!fsharp
open System
\#!markdown
## x (test)
\#!fsharp
//// ignore
let x = 1
\#!spiral
//// test
inl x = 0i32
\#!spiral
inl x = 0i32
\#!markdown
### TextInput
\#!fsharp
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
\#!fsharp
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}"""
|> escapeCell
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Fs
|> Result.toOption
|> Option.get
|> (formatBlocks Fs)
|> _assertEqual $"""#if !INTERACTIVE
namespace TestNamespace
#endif
module TestModule =
/// ## ParserLibrary
open System
/// ### TextInput
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}
"""
╭─[ 189.66ms - stdout ]────────────────────────────────────────────────────────╮
│ "#if !INTERACTIVE │
│ namespace TestNamespace │
│ #endif │
│ │
│ module TestModule = │
│ │
│ /// ## ParserLibrary │
│ open System │
│ │
│ /// ### TextInput │
│ let str1 = "abc │
│ def" │
│ │
│ let str2 = │
│ "abc\ │
│ def" │
│ │
│ let str3 = │
│ $"1{ │
│ 1 │
│ }1" │
│ │
│ let str4 = │
│ $"1{({| │
│ a = 1 │
│ |}).a}1" │
│ │
│ let str5 = │
│ "abc \ │
│ def" │
│ │
│ let x = │
│ match '"' with │
│ | '"' -> true │
│ | _ -> false │
│ │
│ let long1 = """a""" │
│ │
│ let long2 = │
│ """ │
│ a │
│ """ │
│ │
│ type Position = │
│ { │
│ #if INTERACTIVE │
│ line : string │
│ #else │
│ line : int │
│ #endif │
│ column : int │
│ } │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Md
|> Result.toOption
|> Option.get
|> (formatBlocks Md)
|> _assertEqual "# TestModule (TestNamespace)
## ParserLibrary
### TextInput
"
╭─[ 199.14ms - stdout ]────────────────────────────────────────────────────────╮
│ "# TestModule (TestNamespace) │
│ │
│ ## ParserLibrary │
│ │
│ ### TextInput │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Spi
|> Result.toOption
|> Option.get
|> (formatBlocks Spi)
|> _assertEqual "/// # TestModule (TestNamespace)
/// ## ParserLibrary
inl x = 0i32
/// ### TextInput
"
╭─[ 184.02ms - stdout ]────────────────────────────────────────────────────────╮
│ "/// # TestModule (TestNamespace) │
│ │
│ /// ## ParserLibrary │
│ inl x = 0i32 │
│ │
│ /// ### TextInput │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parseDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parseDibCode output file = async {
trace Debug
(fun () -> "parseDibCode")
(fun () -> $"output: {output} / file: {file} / {_locals ()}")
let! input = file |> SpiralFileSystem.read_all_text_async
match parse output input with
| Result.Ok blocks -> return blocks |> formatBlocks output
| Result.Error msg -> return failwith msg
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## writeDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline writeDibCode output path = async {
trace Debug
(fun () -> "writeDibCode")
(fun () -> $"output: {output} / path: {path} / {_locals ()}")
let! result = parseDibCode output path
let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |>
SpiralSm.to_lower}"
do! result |> SpiralFileSystem.write_all_text_async outputPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]]
File of file : string * Output
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| File _ -> nameof File
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 109.54ms - return value ]──────────────────────────────────────────────────╮
│ "USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │
│ │
│ FILE: │
│ │
│ <file> <fs|md|spi|spir> │
│ File │
│ │
│ OPTIONS: │
│ │
│ --help display this list of options. │
│ " │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let files =
argsMap.[[nameof Arguments.File]]
|> List.map (function
| Arguments.File (path, output) -> path, output
)
files
|> List.map (fun (path, output) -> path |> writeDibCode output)
|> Async.Parallel
|> Async.Ignore
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> SpiralRuntime.split_args
|> Result.toArray
|> Array.collect id
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 223.68ms - return value ]──────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0 │
│ </pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 225.85ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:08 debug #1 writeDibCode / output: Fs / path: Builder.dib │
│ 00:00:08 debug #2 parseDibCode / output: Fs / file: Builder.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Builder.dib"])
00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/builder/Builder.dib", "--output-path", "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/builder/Builder.dib" --output-path "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ # Builder (Polyglot) │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #r
> @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
> dard2.1/FSharp.Control.AsyncSeq.dll"
> #r
> @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
> 0/System.Reactive.dll"
> #r
> @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
> netstandard2.0/System.Reactive.Linq.dll"
> #r
> @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll"
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
> spNetCore.Html.Abstractions.dll"
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.dll"
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.FSharp.dll"
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.Formatting.dll"
> open System
> open System.IO
> open System.Text
> open Microsoft.DotNet.Interactive.Formatting
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.FSharp.dll"
> open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.dll"
> open type Microsoft.DotNet.Interactive.Kernel
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
> TextWriter)->fprintfn writer "%120A" x)
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #!import ../../lib/fsharp/Notebooks.dib
> #!import ../../lib/fsharp/Testing.dib
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> Formatter.ListExpansionLimit <- 100
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
> #endif
> type std_env_VarError = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fabl...2, v3, v4)
> US5_1
> and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
> let v3 : (unit -> US4) = closure5(v0, v1, v2)
> let v4 : (US4 -> US5) = closure6()
> let v5 : (exn -> US5) = closure7(v2)
> let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
> match v6 with
> | US5_1 -> (* None *)
> let v8 : int32 = v2 + 1
> method6(v0, v1, v8)
> | US5_0(v7) -> (* Some *)
> v7
> and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
> let v2 : int32 = 0
> let v3 : US4 = method6(v0, v1, v2)
> match v3 with
> | US4_1 -> (* None *)
> let v5 : unit option = None
> v5
> | US4_0 -> (* Some *)
> let v4 : unit option = Some ()
> v4
> and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
> closure4(v0)
> and method12 (v0 : (unit -> unit)) : (unit -> unit) =
> v0
> and closure13 (v0 : Lazy<unit>) () : unit =
> v0.Value
> ()
> and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
> let v1 : (unit -> unit) = method12(v0)
> let v2 : Lazy<unit> = lazy v1 ()
> closure13(v2)
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
> let new_disposable x = v2 x
> let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
> let retry_fn x = v3 x
> let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
> let memoize x = v4 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
> let replace x = v4 x
> let v5 : (string -> (string -> (string -> string))) = closure13()
> let replace_regex x = v5 x
> let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
> let slice x = v6 x
> let v7 : (string -> (string -> (string [[]]))) = closure19()
> let split x = v7 x
> let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
> let split_string x = v8 x
> let v9 : (string -> (string -> bool)) = closure23()
> let starts_with x = v9 x
> let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
> let substring x = v10 x
> let v11 : (string -> string) = closure28()
> let to_lower x = v11 x
> let v12 : (string -> string) = closure29()
> let to_upper x = v12 x
> let v13 : (string -> string) = closure30()
> let trim x = v13 x
> let v14 : ((char [[]]) -> (string -> string)) = closure31()
> let trim_end x = v14 x
> let v15 : ((char [[]]) -> (string -> string)) = closure33()
> let trim_start x = v15 x
> let v16 : (int32 -> (string -> string)) = closure35()
> let ellipsis x = v16 x
> let v17 : (int64 -> (string -> string)) = closure37()
> let ellipsis_end x = v17 x
> let v18 : (exn -> string) = closure39()
> let format_exception x = v18 x
> let v19 : (string -> ((string [[]]) -> string)) = closure40()
> let concat_array_trailing x = v19 x
> let v20 : (string -> (string seq -> string)) = closure42()
> let concat x = v20 x
> let v21 : (string -> ((string [[]]) -> string)) = closure44()
> let join' x = v21 x
> let v22 : (string -> (char [[]])) = closure46()
> let to_char_array x = v22 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
> ()
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v28 : string = @"println!(""{}"", $0)"
> Fable.Core.RustInterop.emitRustExpr v24 v28
> ()
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> System.Console.WriteLine v24
> ()
> #endif
> #if FABLE_COMPILER_PYTHON
> System.Console.WriteLine v24
> ()
> #endif
> #else
> System.Console.WriteLine v24
> ()
> #endif
> |> fun x -> _v25 <- Some x
> match _v25 with Some x -> x | None -> failwith "base.run_target /
> _v25=None"
> let v29 : (string -> unit) = v8.l0
> v29 v24
> and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
> let v3 : (unit -> string) = closure5(v0, v1, v2)
> method11(v0, v3)
> and closure1 () (v0 : string) : uint16 =
> let v1 : char = v0.[[int 0]]
> let v2 : (char -> int32) = int32
> let v3 : int32 = v2 v1
> let v4 : string = v0.[[int 0..int 7]]
> let v5 : int32 = System.Convert.ToInt32 (v4, 16)
> let v6 : int32 = v5 + v3
> let v7 : (int32 -> uint16) = uint16
> let v8 : uint16 = v7 v6
> let v9 : US0 = US0_0
> let v10 : (unit -> string) = closure2()
> let v11 : (unit -> string) = closure3(v3, v4, v8)
> method3(v9, v10, v11)
> let v12 : uint16 = v8 % 48128us
> let v13 : uint16 = v12 + 1024us
> v13
> let v0 : (string -> string) = closure0()
> let hash_text x = v0 x
> let v1 : (string -> uint16) = closure1()
> let hash_to_port x = v1 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
> let v1 : (unit -> System.Guid) = System.Guid.NewGuid
> let v2 : System.Guid = v1 ()
> let v3 : (System.Guid -> string) = _.ToString()
> let v4 : string = v3 v2
> let v5 : (int64 -> string) = _.ToString()
> let v6 : string = v5 v0
> let v7 : string = v6.PadLeft (18, '0')
> let v8 : System.Guid = System.Guid
> $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
> v8
> and closure12 (v0 : string) (v1 : System.DateTime) : string =
> let v2 : (string -> string) = v1.ToString
> v2 v0
> and closure11 () (v0 : string) : (System.DateTime -> string) =
> closure12(v0)
> and closure13 () (v0 : System.DateTime) : string =
> let v1 : (string -> string) = v0.ToString
> let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
> v1 v2
> let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
> let date_time_guid_from_date_time x = v0 x
> let v1 : (System.Guid -> System.DateTime) = closure2()
> let date_time_from_guid x = v1 x
> let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
> let timestamp_guid_from_timestamp x = v2 x
> let v3 : (System.Guid -> int64) = closure8()
> let timestamp_from_guid x = v3 x
> let v4 : (System.DateTime -> System.Guid) = closure9()
> let new_guid_from_date_time x = v4 x
> let v5 : (int64 -> System.Guid) = closure10()
> let new_guid_from_timestamp x = v5 x
> let v6 : (string -> (System.DateTime -> string)) = closure11()
> let format x = v6 x
> let v7 : (System.DateTime -> string) = closure13()
> let format_iso8601 x = v7 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
> #endif
> type futures_future_JoinAll<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
> #endif
> type futures_future_TryJoinAll<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
> #endif
> type rayon_iter_Map<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
> #endif
> type rayon_vec_IntoIter<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
> #endif
> type std_future_Future<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
> #endif
> type futures_future_Fuse<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
> #endif
> type tokio_task_JoinHandle<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
> #endif
> type tokio_stream_StreamExt = class end
> let rec closure0 () (v0 : System.Threading.CancellationToken) :
> Async<System.Threading.CancellationToken> =
> let v1 : bool = true
> let mutable _v1 : Async<System.Threading.CancellationToken> option = None
>
> #if FABLE_COMPILER || WASM || CONTRACT
>
> #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
> let v2 : Async<System.Threading.CancellationToken> = null |>
> unbox<Async<System.Threading.Canc...eading.CancellationToken>>
> v12
> #endif
> #else
> let v13 : Async<System.Threading.CancellationToken> option = None
> let mutable _v13 = v13
> async {
> let v14 : Async<System.Threading.CancellationToken> =
> Async.CancellationToken
> let! v14 = v14
> let v15 : System.Threading.CancellationToken = v14
> let v16 : System.Threading.CancellationToken =
> Async.DefaultCancellationToken
> let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
> let v18 : ((System.Threading.CancellationToken [[]]) ->
> System.Threading.CancellationTokenSource) =
> System.Threading.CancellationTokenSource.CreateLinkedTokenSource
> let v19 : System.Threading.CancellationTokenSource = v18 v17
> let v20 : System.Threading.CancellationToken = v19.Token
> return v20
> }
> |> fun x -> _v13 <- Some x
> let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
> -> x | None -> failwith "async.new_async_unit / _v13=None"
> v21
> #endif
> |> fun x -> _v7 <- Some x
> let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
> -> x | None -> failwith "base.run_target / _v7=None"
> v22
> #endif
> |> fun x -> _v1 <- Some x
> let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
> -> x | None -> failwith "base.run_target / _v1=None"
> v23
> let v0 : (System.Threading.CancellationToken ->
> Async<System.Threading.CancellationToken>) = closure0()
> let merge_cancellation_token_with_default_async x = v0 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
> #endif
> type std_thread_JoinHandle<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
> #endif
> type std_sync_Arc<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
> #endif
> type std_sync_Mutex<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
> #endif
> type std_sync_MutexGuard<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
> #endif
> type std_sync_PoisonError<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
> #endif
> type std_sync_mpsc_Receiver<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
> #endif
> type std_sync_mpsc_SendError<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
> #endif
> type std_sync_mpsc_Sender<'T> = class end
> type Disposable (f : unit -> unit) = interface System.IDisposable with member
> _.Dispose () = f ()
> type [[<Struct>]] US0 =
> | US0_0 of f0_0 : System.Threading.CancellationToken
> | US0_1
> let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
> let v1 : bool = true
> let mutable _v1 : unit option = None
>
> #if FABLE_COMPILER || WASM || CONTRACT
>
> #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
> "$0()" )
> v28
> #endif
> #if FABLE_COMPILER_RUST && WASM
> let v29 : (unit -> unit) = method0(v25)
> let v30 : System.IDisposable = new Disposable (fun () ->
> Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
> v30
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v31 : (unit -> unit) = method0(v25)
> let v32 : System.IDisposable = new Disposable (fun () ->
> Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
> v32
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> let v33 : System.IDisposable = null |> unbox<System.IDisposable>
> v33
> #endif
> #if FABLE_COMPILER_PYTHON
> let v34 : System.IDisposable = null |> unbox<System.IDisposable>
> v34
> #endif
> #else
> let v35 : (unit -> unit) = method1(v25)
> let v36 : System.IDisposable = { new System.IDisposable with member
> _.Dispose () = v35 () }
> v36
> #endif
> |> fun x -> _v26 <- Some x
> let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
> failwith "base.run_target / _v26=None"
> let v38 : System.Threading.CancellationToken = v25.Token
> struct (v38, v37)
> #endif
> |> fun x -> _v1 <- Some x
> let struct (v39 : System.Threading.CancellationToken, v40 :
> System.IDisposable) = match _v1 with Some x -> x | None -> failwith
> "base.run_target / _v1=None"
> struct (v39, v40)
> let v0 : (System.Threading.CancellationToken option -> struct
> (System.Threading.CancellationToken * System.IDisposable)) = closure0()
> let new_disposable_token x = v0 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
> #endif
> type reqwest_Error = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
> #endif
> type reqwest_RequestBuilder = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
> #endif
> type reqwest_Response = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
> #endif
> type std_env_VarError = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> ... v212 = v212
> let v213 : bool = v212
> let v214 : bool = v213 = false
> if v214 then
> return v2
> (*
> ()
> else
> *) else
> let v215 : int32 = v2 + 1
> let v216 : Async<int32> = method10(v0, v1, v215)
> return! v216
> (*
> ()
> *)
> }
> |> fun x -> _v9 <- Some x
> let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
> "async.new_async_unit / _v9=None"
> v217
> #endif
> |> fun x -> _v3 <- Some x
> let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
> "base.run_target / _v3=None"
> v218
> and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
> method10(v0, v1, v2)
> and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
> closure23(v0, v1)
> and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
> closure22(v0)
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : (string -> (int32 -> Async<bool>)) = closure2()
> let test_port_open x = v2 x
> let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
> let test_port_open_timeout x = v3 x
> let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
> closure15()
> let wait_for_port_access x = v4 x
> let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
> let get_available_port x = v5 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> type [[<Struct>]] US0 =
> | US0_0
> | US0_1
> | US0_2
> and [[<Struct>]] US1 =
> | US1_0 of f0_0 : US0
> | US1_1 of f1_0 : US0
> | US1_2 of f2_0 : US0
> | US1_3 of f3_0 : US0
> | US1_4 of f4_0 : US0
> let rec closure0 () () : bool =
> let v0 : bool = true
> let mutable _v0 : bool option = None
>
> #if FABLE_COMPILER || WASM || CONTRACT
>
> #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
> let v1 : string = "cfg!(windows)"
> let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
> v2
> #endif
> #if FABLE_COMPILER_RUST && WASM
> let v3 : string = "cfg!(windows)"
> let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
> v4
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v5 : string = "cfg!(windows)"
> let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
> v6
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> let v7 : US0 = US0_0
> let v8 : US1 = US1_3(v7)
> let v9 : string = $"platform.is_windows / target: {v8}"
> let v10 : bool = failwith<bool> v9
> v10
> #endif
> #if FABLE_COMPILER_PYTHON
> let v11 : US0 = US0_0
> let v12 : US1 = US1_4(v11)
> let v13 : string = $"platform.is_windows / target: {v12}"
> let v14 : bool = failwith<bool> v13
> v14
> #endif
> #else
> let v15 : System.Runtime.InteropServices.OSPlatform =
> System.Runtime.InteropServices.OSPlatform.Windows
> let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
> System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
> let v17 : b...: string = "cfg!(windows)"
> let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
> v2
> #endif
> #if FABLE_COMPILER_RUST && WASM
> let v3 : string = "cfg!(windows)"
> let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
> v4
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v5 : string = "cfg!(windows)"
> let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
> v6
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> let v7 : US0 = US0_0
> let v8 : US1 = US1_3(v7)
> let v9 : string = $"platform.is_windows / target: {v8}"
> let v10 : bool = failwith<bool> v9
> v10
> #endif
> #if FABLE_COMPILER_PYTHON
> let v11 : US0 = US0_0
> let v12 : US1 = US1_4(v11)
> let v13 : string = $"platform.is_windows / target: {v12}"
> let v14 : bool = failwith<bool> v13
> v14
> #endif
> #else
> let v15 : System.Runtime.InteropServices.OSPlatform =
> System.Runtime.InteropServices.OSPlatform.Windows
> let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
> System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
> let v17 : bool = v16 v15
> v17
> #endif
> |> fun x -> _v0 <- Some x
> let v18 : bool = match _v0 with Some x -> x | None -> failwith
> "base.run_target / _v0=None"
> if v18 then
> let v19 : string = ".exe"
> v19
> else
> let v20 : string = ""
> v20
> let v0 : (unit -> bool) = closure0()
> let is_windows () = v0 ()
> let v1 : (unit -> string) = closure1()
> let get_executable_suffix () = v1 ()
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
> #endif
> type clap_Arg = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
> #endif
> type clap_ArgAction = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
> #endif
> type clap_Command = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
> #endif
> type clap_ArgMatches = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
> #endif
> type clap_builder_ValueRange = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
> #endif
> type clap_builder_ValueParser = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
> #endif
> type clap_builder_PossibleValue = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
> #endif
> type std_process_Child = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
> #endif
> type std_process_ChildStderr = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
> #endif
> type std_process_ChildStdout = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
> #endif
> type std_process_ChildStdin = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
> #endif
> type std_process_Command = class...9 : (string list -> (string [[]])) =
> List.toArray
> let v20 : (string [[]]) = v19 v18
> US8_0(v20)
> and closure21 () (v0 : string) : Result<(string [[]]), string> =
> let v1 : US8 = method16(v0)
> match v1 with
> | US8_1(v4) -> (* Error *)
> let v5 : Result<(string [[]]), string> = Error v4
> v5
> | US8_0(v2) -> (* Ok *)
> let v3 : Result<(string [[]]), string> = Ok v2
> v3
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : (unit -> unit) = closure2()
> let current_process_kill () = v2 ()
> let v3 : (string -> Async<struct (int32 * string)>) = closure9()
> let execute_async x = v3 x
> let v4 : (struct (System.Threading.CancellationToken option * string * (struct
> (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
> * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
> string option) -> Async<struct (int32 * string)>) = closure19()
> let execute_with_options_async x = v4 x
> let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
> * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
> Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
> unit) option * bool * string option)) = closure20()
> let execution_options x = v5 x
> let v6 : (string -> Result<(string [[]]), string>) = closure21()
> let split_args x = v6 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
> #endif
> type std_fs_File = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
> #endif
> type std_fs_FileType = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
> #endif
> type std_path_Display = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
> #endif
> type std_path_Path = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
> #endif
> type std_path_PathBuf = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
> #endif
> type async_walkdir_DirEntry = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
> #endif
> type async_walkdir_Filtering = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
> #endif
> type async_walkdir_WalkDir = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = cla...ng -> Async<int64>)) = closure8()
> let wait_for_file_access x = v3 x
> let v4 : (string -> Async<int64>) = closure12()
> let wait_for_file_access_read x = v4 x
> let v5 : (string -> Async<string>) = closure13()
> let read_all_text_async x = v5 x
> let v6 : (string -> (string -> bool)) = closure14()
> let file_exists_content x = v6 x
> let v7 : (string -> (string -> Async<unit>)) = closure16()
> let write_all_text_async x = v7 x
> let v8 : (string -> (string -> Async<unit>)) = closure18()
> let write_all_text_exists x = v8 x
> let v9 : (string -> Async<int64>) = closure20()
> let delete_file_async x = v9 x
> let v10 : (string -> (string -> Async<int64>)) = closure23()
> let move_file_async x = v10 x
> let v11 : (string -> Async<string option>) = closure27()
> let read_all_text_retry_async x = v11 x
> let v12 : (unit -> string) = closure35()
> let create_temp_path () = v12 ()
> let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
> let create_temp_dir () = v13 ()
> let v14 : (string -> struct (string * System.IDisposable)) = closure48()
> let create_temp_dir' x = v14 x
> let v15 : (unit -> string) = closure49()
> let get_source_directory () = v15 ()
> let v16 : (string -> string) = closure50()
> let normalize_path x = v16 x
> let v17 : (string -> string) = closure51()
> let new_file_uri x = v17 x
> let v18 : (unit -> string) = closure52()
> let get_workspace_root () = v18 ()
> let v19 : (bool -> unit) = closure56()
> let init_trace_file x = v19 x
> let v20 : (string -> (string -> string)) = closure58()
> let (</>) x = v20 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C... #endif
> #if FABLE_COMPILER_RUST && WASM
> let v27 : string = @"println!(""{}"", $0)"
> Fable.Core.RustInterop.emitRustExpr v24 v27
> ()
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v28 : string = @"println!(""{}"", $0)"
> Fable.Core.RustInterop.emitRustExpr v24 v28
> ()
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> System.Console.WriteLine v24
> ()
> #endif
> #if FABLE_COMPILER_PYTHON
> System.Console.WriteLine v24
> ()
> #endif
> #else
> System.Console.WriteLine v24
> ()
> #endif
> |> fun x -> _v25 <- Some x
> match _v25 with Some x -> x | None -> failwith "base.run_target /
> _v25=None"
> let v29 : (string -> unit) = v8.l0
> v29 v24
> and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
> let v3 : (unit -> string) = closure5(v0, v1, v2)
> method8(v0, v3)
> and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
> method4(v0, v1, v2)
> and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
> closure4(v0, v1)
> and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
> closure3(v0)
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
> let trace x = v2 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> module SpiralTrace =
> let trace x =
> #if !INTERACTIVE
> Trace.trace x
> #else
> trace x
> #endif
>
> type TraceLevel =
> #if !INTERACTIVE
> Trace.US0
> #else
> US0
> #endif
>
> module SpiralCrypto =
> let hash_text x =
> #if !INTERACTIVE
> Crypto.hash_text x
> #else
> hash_text x
> #endif
>
> let hash_to_port x =
> #if !INTERACTIVE
> Crypto.hash_to_port x
> #else
> hash_to_port x
> #endif
>
> #if !FABLE_COMPILER && !WASM && !CONTRACT
>
> module SpiralAsync =
> let merge_cancellation_token_with_default_async x =
> #if !INTERACTIVE
> Async_.merge_cancellation_token_with_default_async x
> #else
> merge_cancellation_token_with_default_async x
> #endif
>
> module SpiralThreading =
> let new_disposable_token x =
> #if !INTERACTIVE
> Threading.new_disposable_token x
> #else
> new_disposable_token x
> #endif
>
> module SpiralNetworking =
> let test_port_open x =
> #if !INTERACTIVE
> Networking.test_port_open x
> #else
> test_port_open x
> #endif
>
> let test_port_open_timeout x =
> #if !INTERACTIVE
> Networking.test_port_open_timeout x
> #else
> test_port_open_timeout x
> #endif
>
> let wait_for_port_access x =
> #if !INTERACTIVE
> Networking.wait_for_port_access x
> #else
> wait_for_port_access x
> #endif
>
> let get_available_port x =
> #if !INTERACTIVE
> Networking.get_available_port x
> #else
> get_available_port x
> #endif
>
> module SpiralPlatform =
> let get_executable_suffix () =
> #if !INTERACTIVE
> Platform.g...e.trace_state
> |> Option.iter (fun struct (_, _, level, _, _) ->
> level.l0 <-
> match new_level with
> | Trace.US0_0 -> File_system.US0_0
> | Trace.US0_1 -> File_system.US0_1
> | Trace.US0_2 -> File_system.US0_2
> | Trace.US0_3 -> File_system.US0_3
> | Trace.US0_4 -> File_system.US0_4
> )
>
> Runtime.State.trace_state
> |> Option.iter (fun struct (_, _, level, _, _) ->
> level.l0 <-
> match new_level with
> | Trace.US0_0 -> Runtime.US0_0
> | Trace.US0_1 -> Runtime.US0_1
> | Trace.US0_2 -> Runtime.US0_2
> | Trace.US0_3 -> Runtime.US0_3
> | Trace.US0_4 -> Runtime.US0_4
> )
>
> Common.State.trace_state
> |> Option.iter (fun struct (_, _, level, _, _) ->
> level.l0 <-
> match new_level with
> | Trace.US0_0 -> Common.US0_0
> | Trace.US0_1 -> Common.US0_1
> | Trace.US0_2 -> Common.US0_2
> | Trace.US0_3 -> Common.US0_3
> | Trace.US0_4 -> Common.US0_4
> )
>
> Trace.State.trace_state
> #else
> State.trace_state
> #endif
> |> Option.iter (fun (struct (_, _, level, _, _)) ->
> level.l0 <- new_level
> )
>
> let get_trace_level () =
> #if !INTERACTIVE
> Trace.State.trace_state
> #else
> State.trace_state
> #endif
> |> Option.map (fun struct (_, _, level, _, _) ->
> level.l0
> )
> |> Option.defaultWith (fun () -> failwith "lib.get_trace_level /
> trace_state=None")
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> type AssertExceptionFormatter (ex) =
> member _.Text =
> ex.ToString()
> .Replace("32m", "<span style=\"color: green;\">")
> .Replace("36m", "</span>")
> .Replace("31m", "<span style=\"color: red;\">")
> .Replace("\n", "<br/>\n")
>
>
> Formatter.Register<AssertExceptionFormatter> ((fun (x :
> AssertExceptionFormatter) -> x.Text), "text/html")
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> let inline __expect fn log expected actual =
> if log then printfn $"{actual.ToDisplayString ()}"
> try
> "Testing.__expect" |> fn actual expected
> with :? Expecto.AssertException as ex ->
> AssertExceptionFormatter(ex).Display () |> ignore
> failwith (ex.GetType().FullName)
>
> let inline __contains log expected actual = __expect Expecto.Expect.contains log
> expected actual
> let inline _contains expected actual = __contains true expected actual
>
> let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
> expected actual
> let inline _assertEqual expected actual = __assertEqual true expected actual
>
> let inline __isGreaterThan log expected actual = __expect
> Expecto.Expect.isGreaterThan log expected actual
> let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
>
> let inline __isGreaterThanOrEqual log expected actual = __expect
> Expecto.Expect.isGreaterThanOrEqual log expected actual
> let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
> expected actual
>
> let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
> log expected actual
> let inline _isLessThan expected actual = __isLessThan true expected actual
>
> let inline __isLessThanOrEqual log expected actual = __expect
> Expecto.Expect.isLessThanOrEqual log expected actual
> let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
> expected actual
>
> let inline __sequenceEqual log expected actual = __expect
> Expecto.Expect.sequenceEqual log expected actual
> let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
>
> let inline __stringContains log expected actual = __expect
> Expecto.Expect.stringContains log expected actual
> let inline _stringContains expected actual = __stringContains true expected
> actual
>
> let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
> log expected actual
> let inline _stringEnds expected actual = __stringEnds true expected actual
>
> let inline __stringStarts log expected actual = __expect
> Expecto.Expect.stringStarts log expected actual
> let inline _stringStarts expected actual = __stringStarts true expected actual
>
> let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
> expected actual
> let inline _throwsC expected actual = __throwsC true expected actual
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> let inline __isBetween log a b actual =
> let inline isBetween actual (a, b) _ =
> __isGreaterThanOrEqual log a actual
> __isLessThanOrEqual log b actual
> __expect isBetween log (a, b) actual
> let inline _isBetween a b actual = __isBetween true a b actual
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #!import ../../lib/fsharp/Common.fs
> #!import ../../lib/fsharp/CommonFSharp.fs
> #!import ../../lib/fsharp/Async.fs
> #!import ../../lib/fsharp/AsyncSeq.fs
> #!import ../../lib/fsharp/Runtime.fs
> #!import ../../lib/fsharp/FileSystem.fs
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module Common =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> let nl = System.Environment.NewLine
> let q = @""""
>
> let inline cons head tail = head :: tail
>
> /// ## memoize
> let inline memoize fn =
> let result = lazy fn ()
> fun () -> result.Value
>
> /// ## TraceLevel
> type TraceLevel =
> | Verbose
> | Debug
> | Info
> | Warning
> | Critical
>
> let inline _locals () = ""
>
> /// ## trace
> let to_trace_level = function
> | Verbose -> SpiralTrace.TraceLevel.US0_0
> | Debug -> SpiralTrace.TraceLevel.US0_1
> | Info -> SpiralTrace.TraceLevel.US0_2
> | Warning -> SpiralTrace.TraceLevel.US0_3
> | Critical -> SpiralTrace.TraceLevel.US0_4
>
> let trace level fn locals =
> let level = level |> to_trace_level
> SpiralTrace.trace level fn locals
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module CommonFSharp =
>
> open Common
>
> /// ## getUnionCaseName
> let inline getUnionCaseName<'T> (x: 'T) =
> match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
> | case, _ -> case.Name
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module Async =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
>
> /// ## choice
> let inline choice asyncs = async {
> let e = Event<_> ()
> use cts = new System.Threading.CancellationTokenSource ()
> let fn =
> asyncs
> |> Seq.map (fun a -> async {
> let! x = a
> e.Trigger x
> })
> |> Async.Parallel
> |> Async.Ignore
> Async.Start (fn, cts.Token)
> let! result = Async.AwaitEvent e.Publish
> cts.Cancel ()
> return result
> }
>
> /// ## map
> let inline map fn a = async {
> let! x = a
> return fn x
> }
>
> /// ## catch
> let inline catch a =
> a
> |> Async.Catch
> |> map (function
> | Choice1Of2 result -> Ok result
> | Choice2Of2 ex -> Error ex
> )
>
> /// ## runWithTimeoutChoiceAsync
> let inline runWithTimeoutChoiceAsync (timeout : int) fn =
> let _locals () = $"timeout: {timeout} / {_locals ()}"
>
> let timeoutTask = async {
> do! Async.Sleep timeout
> trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
> return None
> }
>
> let task = async {
> try
> let! result = fn
> return Some result
> with
> | :? System.AggregateException as ex when
> ex.InnerExceptions
> |> Seq.exists (function :? Sy... None
>
> /// ## awaitValueTask
> let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
> task.AsTask () |> Async.AwaitTask
>
> let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
> task.AsTask () |> Async.AwaitTask
>
> /// ## init
> let inline init x = async {
> return x
> }
>
> /// ## withCancellationToken
> let inline withCancellationToken (ct : System.Threading.CancellationToken)
> fn =
> Async.StartImmediateAsTask (fn, ct)
> |> Async.AwaitTask
>
> /// ## retryAsync
> let inline retryAsync retries fn =
> let rec loop retry lastError = async {
> try
> return!
> if retry <= retries
> then fn |> map Ok
> else lastError |> Error |> init
> with ex ->
> trace Debug (fun () -> $"Async.retryAsync / retry:
> {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
> do! Async.Sleep 1
> return! loop (retry + 1) (ex |> SpiralSm.format_exception)
> }
> loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
>
> /// ## fold
> let fold folder state array =
> let rec loop acc i =
> async {
> if i < Array.length array then
> let! newAcc = folder acc array.[[i]]
> return! loop newAcc (i + 1)
> else
> return acc
> }
> loop state 0
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module AsyncSeq =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
>
> /// ## subscribeEvent
> let inline subscribeEvent (event: IEvent<'H, 'A>) map =
> let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
> 'A>(event.AddHandler, event.RemoveHandler)
> System.Reactive.Linq.Observable.Select (observable, fun event -> map
> event.EventArgs)
> |> FSharp.Control.AsyncSeq.ofObservableBuffered
>
> /// ## subscribeToken
> let subscribeToken (token : System.Threading.CancellationToken) =
> let tcs = new System.Threading.Tasks.TaskCompletionSource ()
> System.Action tcs.SetResult |> token.Register |> ignore
> let start = System.DateTime.Now.Ticks
> FSharp.Control.AsyncSeq.unfoldAsync
> (fun () -> async {
> do! tcs.Task |> Async.AwaitTask
> return Some (System.DateTime.Now.Ticks - start, ())
> })
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module Runtime =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
>
> /// ## parseArgs
> let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
> let assemblyName =
> System.Reflection.Assembly.GetEntryAssembly().GetName().Name
> let errorHandler : Argu.IExiter =
> if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
> List.contains assemblyName
> then Argu.ExceptionExiter ()
> else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
> _ -> Some System.ConsoleColor.Red)
>
> let parser =
> Argu.ArgumentParser.Create<'T> (
> programName =
> $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
> errorHandler = errorHandler
> )
>
> parser.ParseCommandLine args
>
> let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
> args
> |> parseArgs<'T>
> |> fun results -> results.GetAllResults ()
>
> let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
> args
> |> parseAllArgs<'T>
> |> List.groupBy CommonFSharp.getUnionCaseName<'T>
> |> Map.ofList
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module FileSystem =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
> open SpiralFileSystem.Operators
>
> /// ## watchDirectory
> [[<RequireQualifiedAccess>]]
> type FileSystemChangeType =
> | Failure
> | Changed
> | Created
> | Deleted
> | Renamed
>
> [[<RequireQualifiedAccess>]]
> type FileSystemChange =
> | Failure of exn: exn
> | Changed of path: string * content: string option
> | Created of path: string * content: string option
> | Deleted of path: string
> | Renamed of oldPath: string * (string * string option)
>
>
> let inline watchDirectoryWithFilter filter shouldReadContent path =
> let fullPath = path |> System.IO.Path.GetFullPath
> let _locals () = $"filter: {filter} / {_locals ()}"
>
> let watcher =
> new System.IO.FileSystemWatcher (
> Path = fullPath,
> NotifyFilter = filter,
> EnableRaisingEvents = true,
> IncludeSubdirectories = true
> )
>
> let inline getEventPath (path : string) =
> path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
> SpiralSm.trim_start [[| '/'; '\\' |]]
>
> let inline ticks () =
> System.DateTime.UtcNow.Ticks
>
> let changedStream =
> AsyncSeq.subscribeEvent
> watcher.Changed
> (fun event ->
> ticks (),
> [[ FileSystemChang...d_all_text_retry_async
> return t, FileSystemChange.Changed (path, content)
> | true, FileSystemChange.Created (path, _) ->
> do! Async.Sleep 5
> let! content = fullPath </> path |>
> SpiralFileSystem.read_all_text_retry_async
> return t, FileSystemChange.Created (path, content)
> | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
> let! content = fullPath </> newPath |>
> SpiralFileSystem.read_all_text_retry_async
> return t, FileSystemChange.Renamed (oldPath, (newPath,
> content))
> | _ -> return t, event
> })
>
> let disposable =
> new_disposable (fun () ->
> trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
> watch stream") _locals
> watcher.EnableRaisingEvents <- false
> watcher.Dispose ()
> )
>
> stream, disposable
>
> let inline watchDirectory path =
> watchDirectoryWithFilter
> (System.IO.NotifyFilters.FileName
> // ||| System.IO.NotifyFilters.DirectoryName
> // ||| System.IO.NotifyFilters.Attributes
> //// ||| System.IO.NotifyFilters.Size
> ||| System.IO.NotifyFilters.LastWrite
> //// ||| System.IO.NotifyFilters.LastAccess
> // ||| System.IO.NotifyFilters.CreationTime
> // ||| System.IO.NotifyFilters.Security
> )
> path
>
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> open Lib
> #endif
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> open Common
> open SpiralFileSystem.Operators
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## buildProject │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline buildProject runtime outputDir path = async {
> let fullPath = path |> System.IO.Path.GetFullPath
> let fileDir = fullPath |> System.IO.Path.GetDirectoryName
> let extension = fullPath |> System.IO.Path.GetExtension
>
> trace Debug
> (fun () -> "buildProject")
> (fun () -> $"fullPath: {fullPath} / {_locals ()}")
>
> match extension with
> | ".fsproj" -> ()
> | _ -> failwith "Invalid project file"
>
> let runtimes =
> runtime
> |> Option.map List.singleton
> |> Option.defaultValue [[ "linux-x64"; "win-x64" ]]
>
> let outputDir = outputDir |> Option.defaultValue "dist"
>
> return!
> runtimes
> |> List.map (fun runtime -> async {
> let command = $@"dotnet publish ""{path}"" --configuration Release
> --output ""{outputDir}"" --runtime {runtime}"
> let! exitCode, _result =
> SpiralRuntime.execution_options (fun x ->
> { x with
> l1 = command
> l6 = Some fileDir
> }
> )
> |> SpiralRuntime.execute_with_options_async
> return exitCode
> })
> |> Async.Sequential
> |> Async.map Array.sum
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## persistCodeProject │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline persistCodeProject packages modules name hash code = async {
> trace Debug
> (fun () -> "persistCodeProject")
> (fun () -> $"packages: {packages} / modules: {modules} / name: {name} /
> hash: {hash} / code.Length: {code |> String.length} / {_locals ()}")
>
> let workspaceRoot = SpiralFileSystem.get_workspace_root ()
>
> let targetDir =
> let targetDir = workspaceRoot </> "target/Builder" </> name
> match hash with
> | Some hash -> targetDir </> "packages" </> hash
> | None -> targetDir
> System.IO.Directory.CreateDirectory targetDir |> ignore
>
> let filePath = targetDir </> $"{name}.fs" |> System.IO.Path.GetFullPath
> do! code |> SpiralFileSystem.write_all_text_exists filePath
>
> let modulesCode =
> modules
> |> List.map (fun path -> $"""<Compile Include="{workspaceRoot </> path}"
> />""")
> |> SpiralSm.concat "\n "
>
> let fsprojPath = targetDir </> $"{name}.fsproj"
> let fsprojCode = $"""<Project Sdk="Microsoft.NET.Sdk">
> <PropertyGroup>
> <TargetFramework>net9.0</TargetFramework>
> <LangVersion>preview</LangVersion>
> <RollForward>Major</RollForward>
> <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch>
> <PublishAot>false</PublishAot>
> <PublishTrimmed>false</PublishTrimmed>
> <PublishSingleFile>true</PublishSingleFile>
> <SelfContained>true</SelfContained>
> <Version>0.0.1-alpha.1</Version>
> <OutputType>Exe</OutputType>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('FreeBSD'))">
> <DefineConstants>_FREEBSD</DefineConstants>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('Linux'))">
> <DefineConstants>_LINUX</DefineConstants>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('OSX'))">
> <DefineConstants>_OSX</DefineConstants>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('Windows'))">
> <DefineConstants>_WINDOWS</DefineConstants>
> </PropertyGroup>
>
> <ItemGroup>
> {modulesCode}
> <Compile Include="{filePath}" />
> </ItemGroup>
>
> <Import Project="{workspaceRoot}/.paket/Paket.Restore.targets" />
> </Project>
> """
> do! fsprojCode |> SpiralFileSystem.write_all_text_exists fsprojPath
>
> let paketReferencesPath = targetDir </> "paket.references"
> let paketReferencesCode =
> "FSharp.Core" :: packages
> |> SpiralSm.concat "\n"
> do! paketReferencesCode |> SpiralFileSystem.write_all_text_exists
> paketReferencesPath
>
> return fsprojPath
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## buildCode │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline buildCode runtime packages modules outputDir name code = async {
> let! fsprojPath = code |> persistCodeProject packages modules name None
> let! exitCode = fsprojPath |> buildProject runtime outputDir
> if exitCode <> 0 then
> let! fsprojText = fsprojPath |> SpiralFileSystem.read_all_text_async
> trace Critical
> (fun () -> "buildCode")
> (fun () -> $"code: {code |> SpiralSm.ellipsis_end 400} / fsprojText:
> {fsprojText} / {_locals ()}")
> return exitCode
> }
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> "1 + 1 |> ignore"
> |> buildCode None [[]] [[]] None "test1"
> |> Async.runWithTimeout 180000
> |> _assertEqual (Some 0)
>
> ╭─[ 33.44s - stdout ]──────────────────────────────────────────────────────────╮
> │ 00:00:03 debug #1 persistCodeProject / packages: [] / modules: [] / name: │
> │ test1 / hash: / code.Length: 15 │
> │ 00:00:03 debug #2 buildProject / fullPath: │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj │
> │ 00:00:08 debug #1 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test1\test1.fsproj" --configuration │
> │ Release --output "dist" --runtime linux-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test1") │
> │ 00:00:08 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for │
> │ .NET │
> │ 00:00:09 verbose #3 > Determining projects to restore... │
> │ 00:00:10 verbose #4 > Restored │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj (in 612 ms). │
> │ 00:00:10 verbose #5 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj] │
> │ 00:00:14 verbose #6 > │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fs(1,16): warning FS0988: │
> │ Main module of program is empty: nothing will happen when it is run [ │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj] │
> │ 00:00:15 verbose #7 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\bin\Release\net9.0\linux-x64\test1 │
> │ .dll │
> │ 00:00:17 verbose #8 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\dist\ │
> │ 00:00:17 debug #9 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 856 │
> │ 00:00:17 debug #10 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test1\test1.fsproj" --configuration │
> │ Release --output "dist" --runtime win-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test1") │
> │ 00:00:18 verbose #11 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:00:19 verbose #12 > Determining projects to restore... │
> │ 00:00:22 verbose #13 > Restored │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj (in 1.25 sec). │
> │ 00:00:23 verbose #14 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj] │
> │ 00:00:27 verbose #15 > │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fs(1,16): warning FS0988: │
> │ Main module of program is empty: nothing will happen when it is run [ │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj] │
> │ 00:00:28 verbose #16 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\bin\Release\net9.0\win-x64\test1.d │
> │ ll │
> │ 00:00:40 verbose #17 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\dist\ │
> │ 00:00:40 debug #18 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 856 │
> │ Some 0 │
> │ │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> "1 + a |> ignore"
> |> buildCode None [[]] [[]] None "test2"
> |> Async.runWithTimeout 180000
> |> _assertEqual (Some 2)
>
> ╭─[ 16.58s - stdout ]──────────────────────────────────────────────────────────╮
> │ 00:00:38 debug #3 persistCodeProject / packages: [] / modules: [] / name: │
> │ test2 / hash: / code.Length: 15 │
> │ 00:00:38 debug #4 buildProject / fullPath: │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj │
> │ 00:00:42 debug #19 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test2\test2.fsproj" --configuration │
> │ Release --output "dist" --runtime linux-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test2") │
> │ 00:00:43 verbose #20 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:00:48 verbose #21 > Determining projects to restore... │
> │ 00:00:49 verbose #22 > Restored │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj (in 549 ms). │
> │ 00:00:49 verbose #23 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:52 verbose #24 > │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fs(1,5): error FS0039: The │
> │ value or constructor 'a' is not defined. [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:52 debug #25 runtime.execute_with_options_async / exit_code: 1 / │
> │ output.Length: 679 │
> │ 00:00:52 debug #26 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test2\test2.fsproj" --configuration │
> │ Release --output "dist" --runtime win-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test2") │
> │ 00:00:52 verbose #27 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:00:53 verbose #28 > Determining projects to restore... │
> │ 00:00:54 verbose #29 > Restored │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj (in 469 ms). │
> │ 00:00:54 verbose #30 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:57 verbose #31 > │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fs(1,5): error FS0039: The │
> │ value or constructor 'a' is not defined. [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:57 debug #32 runtime.execute_with_options_async / exit_code: 1 / │
> │ output.Length: 679 │
> │ 00:00:53 critical #5 buildCode / code: 1 + a |> ignore / fsprojText: │
> │ <Project Sdk="Microsoft.NET.Sdk"> │
> │ <PropertyGroup> │
> │ <TargetFramework>net9.0</TargetFramework> │
> │ <LangVersion>preview</LangVersion> │
> │ <RollForward>Major</RollForward> │
> │ <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch> │
> │ <PublishAot>false</PublishAot> │
> │ <PublishTrimmed>false</PublishTrimmed> │
> │ <PublishSingleFile>true</PublishSingleFile> │
> │ <SelfContained>true</SelfContained> │
> │ <Version>0.0.1-alpha.1</Version> │
> │ <OutputType>Exe</OutputType> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('FreeBSD'))"> │
> │ <DefineConstants>_FREEBSD</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Linux'))"> │
> │ <DefineConstants>_LINUX</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('OSX'))"> │
> │ <DefineConstants>_OSX</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Windows'))"> │
> │ <DefineConstants>_WINDOWS</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <ItemGroup> │
> │ │
> │ <Compile │
> │ Include="C:\home\git\polyglot\target\Builder\test2\test2.fs" /> │
> │ </ItemGroup> │
> │ │
> │ <Import Project="C:\home\git\polyglot/.paket/Paket.Restore.targets" /> │
> │ </Project> │
> │ │
> │ Some 2 │
> │ │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## readFile │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline readFile path = async {
> let! code = path |> SpiralFileSystem.read_all_text_async
>
> let code = System.Text.RegularExpressions.Regex.Replace (
> code,
> @"( *)(let\s+main\s+.*?\s*=)",
> fun m -> m.Groups.[[1]].Value + "[[<EntryPoint>]]\n" +
> m.Groups.[[1]].Value + m.Groups.[[2]].Value
> )
>
> let codeTrim = code |> SpiralSm.trim_end [[||]]
> return
> if codeTrim |> SpiralSm.ends_with "\n()"
> then codeTrim |> SpiralSm.slice 0 ((codeTrim |> String.length) - 3)
> else code
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## buildFile │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline buildFile runtime packages modules path = async {
> let fullPath = path |> System.IO.Path.GetFullPath
> let dir = fullPath |> System.IO.Path.GetDirectoryName
> let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
> let! code = fullPath |> readFile
> return! code |> buildCode runtime packages modules (dir </> "dist" |> Some)
> name
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## persistFile │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline persistFile packages modules path = async {
> let fullPath = path |> System.IO.Path.GetFullPath
> let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
> let! code = fullPath |> readFile
> return! code |> persistCodeProject packages modules name None
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## Arguments │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> [[<RequireQualifiedAccess>]]
> type Arguments =
> | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce>]]
> Path of path : string
> | [[<Argu.ArguAttributes.Unique>]] Packages of packages : string list
> | [[<Argu.ArguAttributes.Unique>]] Modules of modules : string list
> | [[<Argu.ArguAttributes.Unique>]] Runtime of runtime : string
> | [[<Argu.ArguAttributes.Unique>]] Persist_Only
>
> interface Argu.IArgParserTemplate with
> member s.Usage =
> match s with
> | Path _ -> nameof Path
> | Packages _ -> nameof Packages
> | Modules _ -> nameof Modules
> | Runtime _ -> nameof Runtime
> | Persist_Only -> nameof Persist_Only
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
>
> ╭─[ 186.80ms - return value ]──────────────────────────────────────────────────╮
> │ "USAGE: dotnet-repl [--help] [--packages [<packages>...]] │
> │ [--modules [<modules>...]] [--runtime <runtime>] │
> │ [--persist-only] <path> │
> │ │
> │ PATH: │
> │ │
> │ <path> Path │
> │ │
> │ OPTIONS: │
> │ │
> │ --packages [<packages>...] │
> │ Packages │
> │ --modules [<modules>...] │
> │ Modules │
> │ --runtime <runtime> Runtime │
> │ --persist-only Persist_Only │
> │ --help display this list of options. │
> │ " │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## main │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let main args =
> let argsMap = args |> Runtime.parseArgsMap<Arguments>
>
> let path =
> match argsMap.[[nameof Arguments.Path]] with
> | [[ Arguments.Path path ]] -> Some path
> | _ -> None
> |> Option.get
>
> let packages =
> match argsMap |> Map.tryFind (nameof Arguments.Packages) with
> | Some [[ Arguments.Packages packages ]] -> packages
> | _ -> [[]]
>
> let modules =
> match argsMap |> Map.tryFind (nameof Arguments.Modules) with
> | Some [[ Arguments.Modules modules ]] -> modules
> | _ -> [[]]
>
> let runtime =
> match argsMap |> Map.tryFind (nameof Arguments.Runtime) with
> | Some [[ Arguments.Runtime runtime ]] -> Some runtime
> | _ -> None
>
> let persistOnly = argsMap |> Map.containsKey (nameof Arguments.Persist_Only)
>
> if persistOnly
> then path |> persistFile packages modules |> Async.map (fun _ -> 0)
> else path |> buildFile runtime packages modules
> |> Async.runWithTimeout (60000 * 60)
> |> function
> | Some exitCode -> exitCode
> | None -> 1
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> let args =
> System.Environment.GetEnvironmentVariable "ARGS"
> |> SpiralRuntime.split_args
> |> Result.toArray
> |> Array.collect id
>
> match args with
> | [[||]] -> 0
> | args -> if main args = 0 then 0 else failwith "main failed"
>
> ╭─[ 37.99s - return value ]────────────────────────────────────────────────────╮
> │ <div class="dni-plaintext"><pre>0 │
> │ </pre></div><style> │
> │ .dni-code-hint { │
> │ font-style: italic; │
> │ overflow: hidden; │
> │ white-space: nowrap; │
> │ } │
> │ .dni-treeview { │
> │ white-space: nowrap; │
> │ } │
> │ .dni-treeview td { │
> │ vertical-align: top; │
> │ text-align: start; │
> │ } │
> │ details.dni-treeview { │
> │ padding-left: 1em; │
> │ } │
> │ table td { │
> │ text-align: start; │
> │ } │
> │ table tr { │
> │ vertical-align: top; │
> │ margin: 0em 0px; │
> │ } │
> │ table tr td pre │
> │ { │
> │ vertical-align: top !important; │
> │ margin: 0em 0px !important; │
> │ } │
> │ table th { │
> │ text-align: start; │
> │ } │
> │ </style> │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ╭─[ 37.99s - stdout ]──────────────────────────────────────────────────────────╮
> │ 00:00:55 debug #6 persistCodeProject / packages: [Argu; │
> │ FSharp.Control.AsyncSeq; System.Reactive.Linq] / modules: [ │
> │ lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / │
> │ name: Builder / hash: / code.Length: 8207 │
> │ 00:00:55 debug #7 buildProject / fullPath: │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj │
> │ 00:00:59 debug #33 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\Builder\Builder.fsproj" --configuration │
> │ Release --output "C:\home\git\polyglot\apps\builder\dist" --runtime │
> │ linux-x64", │
> │ [||], None, None, true, │
> │ Some "C:\home\git\polyglot\target\Builder\Builder") │
> │ 00:00:59 verbose #34 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:01:00 verbose #35 > Determining projects to restore... │
> │ 00:01:01 verbose #36 > Restored │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj (in 761 ms). │
> │ 00:01:02 verbose #37 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj] │
> │ 00:01:16 verbose #38 > Builder -> │
> │ C:\home\git\polyglot\target\Builder\Builder\bin\Release\net9.0\linux-x64\Bui │
> │ lder.dll │
> │ 00:01:18 verbose #39 > Builder -> C:\home\git\polyglot\apps\builder\dist\ │
> │ 00:01:18 debug #40 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 665 │
> │ 00:01:18 debug #41 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\Builder\Builder.fsproj" --configuration │
> │ Release --output "C:\home\git\polyglot\apps\builder\dist" --runtime │
> │ win-x64", │
> │ [||], None, None, true, │
> │ Some "C:\home\git\polyglot\target\Builder\Builder") │
> │ 00:01:18 verbose #42 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:01:19 verbose #43 > Determining projects to restore... │
> │ 00:01:20 verbose #44 > Restored │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj (in 432 ms). │
> │ 00:01:20 verbose #45 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj] │
> │ 00:01:32 verbose #46 > Builder -> │
> │ C:\home\git\polyglot\target\Builder\Builder\bin\Release\net9.0\win-x64\Build │
> │ er.dll │
> │ 00:01:37 verbose #47 > Builder -> C:\home\git\polyglot\apps\builder\dist\ │
> │ 00:01:37 debug #48 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 663 │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 87876
00:02:01 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:02:03 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/builder/Builder.dib.ipynb to html
00:02:03 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:03 verbose #7 ! validate(nb)
00:02:05 verbose #8 ! [NbConvertApp] Writing 332786 bytes to c:\home\git\polyglot\apps\builder\Builder.dib.html
00:02:05 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:02:05 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:02:05 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/builder/Builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/builder/Builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:07 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:07 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:07 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 88584
In [ ]:
{ pwsh ../apps/spiral/builder/build.ps1 -SkipFsx 1 } | Invoke-Block
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: spiral_builder / hash: / code.Length: 592937 targetDir: C:\home\git\polyglot\target\Builder\spiral_builder Fable 4.17.0: F# to Rust compiler (status: alpha) Thanks to the contributor! @ncave Stand with Ukraine! https://standwithukraine.com.ua/ Parsing target\Builder\spiral_builder\spiral_builder.fsproj... target\Builder\spiral_builder> cmd /C dotnet restore spiral_builder.fable-temp.csproj -p:FABLE_COMPILER=true -p:FABLE_COMPILER_4=true -p:FABLE_COMPILER_RUST=true -p:_WINDOWS=true Determining projects to restore... Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2 The last full restore is still up to date. Nothing left to do. Total time taken: 0 milliseconds Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2 Restoring C:\home\git\polyglot\target\Builder\spiral_builder\spiral_builder.fable-temp.csproj Starting restore process. Total time taken: 0 milliseconds Restored C:\home\git\polyglot\target\Builder\spiral_builder\spiral_builder.fable-temp.csproj (in 420 ms). target\Builder\spiral_builder> cmd /C dotnet restore C:/home/git/polyglot/target/Builder/spiral_builder/spiral_builder.fsproj Determining projects to restore... Restored C:\home\git\polyglot\target\Builder\spiral_builder\spiral_builder.fsproj (in 600 ms). Project and references (14 source files) parsed in 11399ms Started Fable compilation... Fable compilation finished in 15965ms .\lib\spiral\sm.fsx(581,0): (581,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\common.fsx(1316,0): (1316,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\common.fsx(1323,0): (1323,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\async_.fsx(112,0): (112,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\crypto.fsx(1624,0): (1624,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\threading.fsx(171,0): (171,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\date_time.fsx(1264,0): (1264,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\platform.fsx(108,0): (108,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\networking.fsx(3349,0): (3349,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\networking.fsx(3358,0): (3358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\trace.fsx(1217,0): (1217,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\trace.fsx(1220,0): (1220,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\runtime.fsx(3271,0): (3271,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\runtime.fsx(3282,0): (3282,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\file_system.fsx(6319,0): (6319,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\file_system.fsx(6358,0): (6358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! Compiling utf8parse v0.2.2 Compiling clap_lex v0.7.1 Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) Compiling anstyle-parse v0.2.4 Compiling anstream v0.6.14 Compiling clap_builder v4.5.6 Compiling clap v4.5.6 Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder) Finished `release` profile [optimized] target(s) in 38.06s Running unittests spiral_builder.rs (C:\home\git\polyglot\workspace\target\release\deps\spiral_builder-e564238b6fbbd08a.exe) running 1 test test module_7e2cd9e0::Spiral_builder::verify_app ... ok successes: successes: module_7e2cd9e0::Spiral_builder::verify_app test result: ok. 1 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.00s Compiling utf8parse v0.2.2 Compiling clap_lex v0.7.1 Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) Compiling anstyle-parse v0.2.4 Compiling anstream v0.6.14 Compiling clap_builder v4.5.6 Compiling clap v4.5.6 Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder) error: failed to remove file `C:\home\git\polyglot\workspace\target\release\spiral_builder.exe` Caused by: Access is denied. (os error 5) # Invoke-Block / $retry: 1/1 / $Location: / Get-Location: C:\home\git\polyglot\apps\spiral\builder / $OnError: Continue / $exitcode: 101 / $EnvVars: {} / $Error: '' / $ScriptBlock: 'cargo +nightly build --release'
In [ ]:
{ pwsh ../apps/parser/build.ps1 } | Invoke-Block
00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "DibParser.dib"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/parser/DibParser.dib", "--output-path", "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/parser/DibParser.dib" --output-path "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # DibParser (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #r > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan > dard2.1/FSharp.Control.AsyncSeq.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6. > 0/System.Reactive.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/ > netstandard2.0/System.Reactive.Linq.dll" > #r > @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll" > #r > @"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP > arsec.dll" > #r > @"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP > arsecCS.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl...2, v3, v4) > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class...9 : (string list -> (string [[]])) = > List.toArray > let v20 : (string [[]]) = v19 v18 > US8_0(v20) > and closure21 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure9() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure19() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure20() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure21() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...ng -> Async<int64>)) = closure8() > let wait_for_file_access x = v3 x > let v4 : (string -> Async<int64>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> bool)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> string) = closure50() > let normalize_path x = v16 x > let v17 : (string -> string) = closure51() > let new_file_uri x = v17 x > let v18 : (unit -> string) = closure52() > let get_workspace_root () = v18 () > let v19 : (bool -> unit) = closure56() > let init_trace_file x = v19 x > let v20 : (string -> (string -> string)) = closure58() > let (</>) x = v20 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── pwsh ──────────────────────────────────────────────────────────────────────── > ls ~/.nuget/packages/argu > > ╭─[ 807.44ms - stdout ]────────────────────────────────────────────────────────╮ > │ │ > │ Directory: C:\Users\i574n\.nuget\packages\argu │ > │ │ > │ Mode LastWriteTime Length[ │ > │ 32;1m Name │ > │ ---- ------------- ------ [ │ > │ 32;1m---- │ > │ d---- 2023-05-17 3:38 PM 6.1.1 │ > │ d---- 2024-03-12 8:22 PM 6.1.4 │ > │ d---- 2024-01-29 5:12 PM 6.1.5 │ > │ d---- 2024-03-12 8:20 PM 6.2.0 │ > │ d---- 2024-02-23 6:50 PM 6.2.1 │ > │ d---- 2024-03-12 8:15 PM 6.2.2 │ > │ d---- 2024-05-14 8:20 PM 6.2.3 │ > │ d---- 2024-06-06 7:37 PM 6.2.4 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import ../../lib/fsharp/CommonFSharp.fs > #!import ../../lib/fsharp/Async.fs > #!import ../../lib/fsharp/AsyncSeq.fs > #!import ../../lib/fsharp/Runtime.fs > #!import ../../lib/fsharp/FileSystem.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module CommonFSharp = > > open Common > > /// ## getUnionCaseName > let inline getUnionCaseName<'T> (x: 'T) = > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with > | case, _ -> case.Name > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Async = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## choice > let inline choice asyncs = async { > let e = Event<_> () > use cts = new System.Threading.CancellationTokenSource () > let fn = > asyncs > |> Seq.map (fun a -> async { > let! x = a > e.Trigger x > }) > |> Async.Parallel > |> Async.Ignore > Async.Start (fn, cts.Token) > let! result = Async.AwaitEvent e.Publish > cts.Cancel () > return result > } > > /// ## map > let inline map fn a = async { > let! x = a > return fn x > } > > /// ## catch > let inline catch a = > a > |> Async.Catch > |> map (function > | Choice1Of2 result -> Ok result > | Choice2Of2 ex -> Error ex > ) > > /// ## runWithTimeoutChoiceAsync > let inline runWithTimeoutChoiceAsync (timeout : int) fn = > let _locals () = $"timeout: {timeout} / {_locals ()}" > > let timeoutTask = async { > do! Async.Sleep timeout > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals > return None > } > > let task = async { > try > let! result = fn > return Some result > with > | :? System.AggregateException as ex when > ex.InnerExceptions > |> Seq.exists (function :? Sy... None > > /// ## awaitValueTask > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) = > task.AsTask () |> Async.AwaitTask > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) = > task.AsTask () |> Async.AwaitTask > > /// ## init > let inline init x = async { > return x > } > > /// ## withCancellationToken > let inline withCancellationToken (ct : System.Threading.CancellationToken) > fn = > Async.StartImmediateAsTask (fn, ct) > |> Async.AwaitTask > > /// ## retryAsync > let inline retryAsync retries fn = > let rec loop retry lastError = async { > try > return! > if retry <= retries > then fn |> map Ok > else lastError |> Error |> init > with ex -> > trace Debug (fun () -> $"Async.retryAsync / retry: > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 1 > return! loop (retry + 1) (ex |> SpiralSm.format_exception) > } > loop 1 "Async.retryAsync / invalid retries / retries: {retries}" > > /// ## fold > let fold folder state array = > let rec loop acc i = > async { > if i < Array.length array then > let! newAcc = folder acc array.[[i]] > return! loop newAcc (i + 1) > else > return acc > } > loop state 0 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module AsyncSeq = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## subscribeEvent > let inline subscribeEvent (event: IEvent<'H, 'A>) map = > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H, > 'A>(event.AddHandler, event.RemoveHandler) > System.Reactive.Linq.Observable.Select (observable, fun event -> map > event.EventArgs) > |> FSharp.Control.AsyncSeq.ofObservableBuffered > > /// ## subscribeToken > let subscribeToken (token : System.Threading.CancellationToken) = > let tcs = new System.Threading.Tasks.TaskCompletionSource () > System.Action tcs.SetResult |> token.Register |> ignore > let start = System.DateTime.Now.Ticks > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > do! tcs.Task |> Async.AwaitTask > return Some (System.DateTime.Now.Ticks - start, ()) > }) > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Runtime = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## parseArgs > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args = > let assemblyName = > System.Reflection.Assembly.GetEntryAssembly().GetName().Name > let errorHandler : Argu.IExiter = > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |> > List.contains assemblyName > then Argu.ExceptionExiter () > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | > _ -> Some System.ConsoleColor.Red) > > let parser = > Argu.ArgumentParser.Create<'T> ( > programName = > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}", > errorHandler = errorHandler > ) > > parser.ParseCommandLine args > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseArgs<'T> > |> fun results -> results.GetAllResults () > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseAllArgs<'T> > |> List.groupBy CommonFSharp.getUnionCaseName<'T> > |> Map.ofList > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module FileSystem = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## watchDirectory > [[<RequireQualifiedAccess>]] > type FileSystemChangeType = > | Failure > | Changed > | Created > | Deleted > | Renamed > > [[<RequireQualifiedAccess>]] > type FileSystemChange = > | Failure of exn: exn > | Changed of path: string * content: string option > | Created of path: string * content: string option > | Deleted of path: string > | Renamed of oldPath: string * (string * string option) > > > let inline watchDirectoryWithFilter filter shouldReadContent path = > let fullPath = path |> System.IO.Path.GetFullPath > let _locals () = $"filter: {filter} / {_locals ()}" > > let watcher = > new System.IO.FileSystemWatcher ( > Path = fullPath, > NotifyFilter = filter, > EnableRaisingEvents = true, > IncludeSubdirectories = true > ) > > let inline getEventPath (path : string) = > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |> > SpiralSm.trim_start [[| '/'; '\\' |]] > > let inline ticks () = > System.DateTime.UtcNow.Ticks > > let changedStream = > AsyncSeq.subscribeEvent > watcher.Changed > (fun event -> > ticks (), > [[ FileSystemChang...d_all_text_retry_async > return t, FileSystemChange.Changed (path, content) > | true, FileSystemChange.Created (path, _) -> > do! Async.Sleep 5 > let! content = fullPath </> path |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Created (path, content) > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) -> > let! content = fullPath </> newPath |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Renamed (oldPath, (newPath, > content)) > | _ -> return t, event > }) > > let disposable = > new_disposable (fun () -> > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing > watch stream") _locals > watcher.EnableRaisingEvents <- false > watcher.Dispose () > ) > > stream, disposable > > let inline watchDirectory path = > watchDirectoryWithFilter > (System.IO.NotifyFilters.FileName > // ||| System.IO.NotifyFilters.DirectoryName > // ||| System.IO.NotifyFilters.Attributes > //// ||| System.IO.NotifyFilters.Size > ||| System.IO.NotifyFilters.LastWrite > //// ||| System.IO.NotifyFilters.LastAccess > // ||| System.IO.NotifyFilters.CreationTime > // ||| System.IO.NotifyFilters.Security > ) > path > > > ── fsharp ────────────────────────────────────────────────────────────────────── > #if !INTERACTIVE > open Lib > #endif > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open FParsec > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## escapeCell (test) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let inline escapeCell input = > input > |> SpiralSm.split "\n" > |> Array.map (function > | line when line |> SpiralSm.starts_with "\\#!" || line |> > SpiralSm.starts_with "\\#r" -> > System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#") > | line -> line > ) > |> SpiralSm.concat "\n" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > $"a{nl}\\#!magic{nl}b{nl}" > |> escapeCell > |> _assertEqual ( > $"a{nl}#!magic{nl}b{nl}" > ) > > ╭─[ 76.55ms - stdout ]─────────────────────────────────────────────────────────╮ > │ "a │ > │ #!magic │ > │ b │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## magicMarker │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let magicMarker : Parser<string, unit> = pstring "#!" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic" > |> run magicMarker > |> _assertEqual ( > Success ("#!", (), Position ("", 2, 1, 3)) > ) > > ╭─[ 49.27ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: "#!" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "##!magic" > |> run magicMarker > |> _assertEqual ( > Failure ( > $"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}", > ParserError ( > Position ("", 0, 1, 1), > (), > ErrorMessageList (ExpectedString "#!") > ), > () > ) > ) > > ╭─[ 56.79ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure: │ > │ Error in Ln: 1 Col: 1 │ > │ ##!magic │ > │ ^ │ > │ Expecting: '#!' │ > │ │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## magicCommand │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let magicCommand = > magicMarker > >>. manyTill anyChar newline > |>> (System.String.Concat >> SpiralSm.trim) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic > > a" > |> run magicCommand > |> _assertEqual ( > Success ("magic", (), Position ("", 8, 2, 1)) > ) > > ╭─[ 48.07ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: "magic" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > " #!magic > > a" > |> run magicCommand > |> _assertEqual ( > Failure ( > $"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}", > ParserError ( > Position ("", 0, 1, 1), > (), > ErrorMessageList (ExpectedString "#!") > ), > () > ) > ) > > ╭─[ 37.43ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure: │ > │ Error in Ln: 1 Col: 1 │ > │ #!magic │ > │ ^ │ > │ Expecting: '#!' │ > │ │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## content │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let content = > (newline >>. magicMarker) <|> (eof >>. preturn "") > |> attempt > |> lookAhead > |> manyTill anyChar > |>> (System.String.Concat >> SpiralSm.trim) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic > > > a > > > " > |> run content > |> _assertEqual ( > Success ("#!magic > > > a", (), Position ("", 14, 7, 1)) > ) > > ╭─[ 38.24ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: "#!magic │ > │ │ > │ │ > │ a" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Block │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Block = > { > magic : string > content : string > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## block │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let block = > pipe2 > magicCommand > content > (fun magic content -> > { > magic = magic > content = content > }) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic > > > a > > > " > |> run block > |> _assertEqual ( > Success ( > { magic = "magic"; content = "a" }, > (), > Position ("", 14, 7, 1) > ) > ) > > ╭─[ 65.47ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: { magic = "magic" │ > │ content = "a" } │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## blocks │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let blocks = > skipMany newline > >>. sepEndBy block (skipMany1 newline) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > > "#!magic1 > > a > > \#!magic2 > > b > > " > |> escapeCell > |> run blocks > |> _assertEqual ( > Success ( > [[ > { magic = "magic1"; content = "a" } > { magic = "magic2"; content = "b" } > ]], > (), > Position ("", 26, 9, 1) > ) > ) > > ╭─[ 59.23ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: [{ magic = "magic1" │ > │ content = "a" }; { magic = "magic2" │ > │ content = "b" }] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Output │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Output = > | Fs > | Md > | Spi > | Spir > > let inline kernelOutputs magic = > match magic with > | "fsharp" -> [[ Fs ]] > | "markdown" -> [[ Md ]] > | "spiral" -> [[ Spi; Spir ]] > | _ -> [[]] > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## formatBlock │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline formatBlock output (block : Block) = > match output, block with > | output, { magic = "markdown"; content = content } -> > let markdownComment = > match output with > | Spi | Spir -> "/// " > | Fs -> "/// " > | _ -> "" > content > |> SpiralSm.split "\n" > |> Array.map (SpiralSm.trim_end [[||]]) > |> Array.filter (SpiralSm.ends_with " (test)" >> not) > |> Array.map (function > | "" -> markdownComment > | line -> System.Text.RegularExpressions.Regex.Replace (line, > "^\\s*", $"$&{markdownComment}") > ) > |> SpiralSm.concat "\n" > | Fs, { magic = "fsharp"; content = content } -> > let trimmedContent = content |> SpiralSm.trim > if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent > |> SpiralSm.starts_with "//// ignore" > then "" > else > content > |> SpiralSm.split "\n" > |> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with > "#r" >> not) > |> SpiralSm.concat "\n" > | (Spi | Spir), { magic = "spiral"; content = content } -> > let trimmedContent = content |> SpiralSm.trim > if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent > |> SpiralSm.starts_with "//// ignore" > then "" > else content > | _ -> "" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!markdown > > > a > > b > > c > > > \#!markdown > > > c > > > \#!fsharp > > > let a = 1" > |> escapeCell > |> run block > |> function > | Success (block, _, _) -> formatBlock Fs block > | Failure (msg, _, _) -> failwith msg > |> _assertEqual "/// a > /// > /// b > /// > /// c" > > ╭─[ 88.48ms - stdout ]─────────────────────────────────────────────────────────╮ > │ "/// a │ > │ /// │ > │ /// b │ > │ /// │ > │ /// c" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## formatBlocks │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline formatBlocks output blocks = > blocks > |> List.map (fun block -> > block, formatBlock output block > ) > |> List.filter (snd >> (<>) "") > |> fun list -> > (list, (None, [[]])) > ||> List.foldBack (fun (block, content) (lastMagic, acc) -> > let lineBreak = > if block.magic = "markdown" && lastMagic <> Some "markdown" && > lastMagic <> None > then "" > else "\n" > Some block.magic, $"{content}{lineBreak}" :: acc > ) > |> snd > |> SpiralSm.concat "\n" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!markdown > > > a > > b > > > \#!markdown > > > c > > > \#!fsharp > > > let a = 1 > > \#!markdown > > d (test) > > \#!fsharp > > //// test > > let a = 2 > > \#!markdown > > e > > \#!fsharp > > let a = 3" > |> escapeCell > |> run blocks > |> function > | Success (blocks, _, _) -> formatBlocks Fs blocks > | Failure (msg, _, _) -> failwith msg > |> _assertEqual "/// a > /// > /// b > > /// c > let a = 1 > > /// e > let a = 3 > " > > ╭─[ 99.90ms - stdout ]─────────────────────────────────────────────────────────╮ > │ "/// a │ > │ /// │ > │ /// b │ > │ │ > │ /// c │ > │ let a = 1 │ > │ │ > │ /// e │ > │ let a = 3 │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## parse │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline parse output input = > match run blocks input with > | Success (blocks, _, _) -> > let blocks = > blocks > |> List.filter (fun block -> > block.magic |> kernelOutputs |> List.contains output || > block.magic = "markdown" > ) > > match blocks with > | { magic = "markdown"; content = content } :: _ > when output = Fs > && content |> SpiralSm.starts_with "# " > && content |> SpiralSm.ends_with ")" > -> > let inline indentBlock (block : Block) = > { block with > content = > block.content > |> SpiralSm.split "\n" > |> Array.fold > (fun (lines, isMultiline) line -> > let trimmedLine = line |> SpiralSm.trim > if trimmedLine = "" > then "" :: lines, isMultiline > else > let inline singleQuoteLine () = > trimmedLine |> Seq.sumBy ((=) '"' >> > System.Convert.ToInt32) = 1 > && trimmedLine |> SpiralSm.contains > @"'""'" |> not > && trimmedLine |> SpiralSm.ends_with "{" > |> not > && trimmedLine |> SpiralSm.ends_with > "{|" |> not > && trimmedLine |> SpiralSm.starts_with > "}" |> not > && trimmedLine |> SpiralSm.starts_with > "|}" |> not > > match isMultiline, trimmedLine |> > SpiralSm.split_string [[| $"{q}{q}{q}" |]] with > | false, [[| _; _ |]] -> > $" {line}" :: lines, true > > | true, [[| _; _ |]] -> > line :: lines, false > > | false, _ when singleQuoteLine () -> > $" {line}" :: lines, true > > | false, _ when line |> SpiralSm.starts_with > "#" && block.magic = "fsharp" -> > line :: lines, false > > | false, _ -> > $" {line}" :: lines, false > > | true, _ when singleQuoteLine () && line |> > SpiralSm.starts_with " " -> > $" {line}" :: lines, false > > | true, _ when singleQuoteLine () -> > line :: lines, false > > | true, _ -> > line :: lines, true > ) > ([[]], false) > |> fst > |> List.rev > |> SpiralSm.concat "\n" > } > > let moduleName, namespaceName = > System.Text.RegularExpressions.Regex.Match (content, @"# (.*) > \((.*)\)$") > |> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value > > let moduleBlock = > { > magic = "fsharp" > content = > $"#if !INTERACTIVE > namespace {namespaceName} > #endif > > module {moduleName} =" > } > > blocks > |> List.indexed > |> List.fold > (fun blocks (index, block) -> > match index with > | 0 -> blocks > | 1 -> indentBlock block :: moduleBlock :: blocks > | _ -> indentBlock block :: blocks > ) > [[]] > |> List.rev > | _ -> blocks > |> Result.Ok > | Failure (errorMsg, _, _) -> Result.Error errorMsg > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example1 = > $"""#!meta > > {{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name": > "fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}} > > \#!markdown > > # TestModule (TestNamespace) > > \#!fsharp > > \#!import file.dib > > \#!fsharp > > \#r "nuget:Expecto" > > \#!markdown > > ## ParserLibrary > > \#!fsharp > > open System > > \#!markdown > > ## x (test) > > \#!fsharp > > //// ignore > > let x = 1 > > \#!spiral > > //// test > > inl x = 0i32 > > \#!spiral > > inl x = 0i32 > > \#!markdown > > ### TextInput > > \#!fsharp > > let str1 = "abc > def" > > let str2 = > "abc\ > def" > > let str3 = > $"1{{ > 1 > }}1" > > let str4 = > $"1{{({{| > a = 1 > |}}).a}}1" > > let str5 = > "abc \ > def" > > let x = > match '"' with > | '"' -> true > | _ -> false > > let long1 = {q}{q}{q}a{q}{q}{q} > > let long2 = > {q}{q}{q} > a > {q}{q}{q} > > \#!fsharp > > type Position = > {{ > #if INTERACTIVE > line : string > #else > line : int > #endif > column : int > }}""" > |> escapeCell > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > example1 > |> parse Fs > |> Result.toOption > |> Option.get > |> (formatBlocks Fs) > |> _assertEqual $"""#if !INTERACTIVE > namespace TestNamespace > #endif > > module TestModule = > > /// ## ParserLibrary > open System > > /// ### TextInput > let str1 = "abc > def" > > let str2 = > "abc\ > def" > > let str3 = > $"1{{ > 1 > }}1" > > let str4 = > $"1{{({{| > a = 1 > |}}).a}}1" > > let str5 = > "abc \ > def" > > let x = > match '"' with > | '"' -> true > | _ -> false > > let long1 = {q}{q}{q}a{q}{q}{q} > > let long2 = > {q}{q}{q} > a > {q}{q}{q} > > type Position = > {{ > #if INTERACTIVE > line : string > #else > line : int > #endif > column : int > }} > """ > > ╭─[ 204.44ms - stdout ]────────────────────────────────────────────────────────╮ > │ "#if !INTERACTIVE │ > │ namespace TestNamespace │ > │ #endif │ > │ │ > │ module TestModule = │ > │ │ > │ /// ## ParserLibrary │ > │ open System │ > │ │ > │ /// ### TextInput │ > │ let str1 = "abc │ > │ def" │ > │ │ > │ let str2 = │ > │ "abc\ │ > │ def" │ > │ │ > │ let str3 = │ > │ $"1{ │ > │ 1 │ > │ }1" │ > │ │ > │ let str4 = │ > │ $"1{({| │ > │ a = 1 │ > │ |}).a}1" │ > │ │ > │ let str5 = │ > │ "abc \ │ > │ def" │ > │ │ > │ let x = │ > │ match '"' with │ > │ | '"' -> true │ > │ | _ -> false │ > │ │ > │ let long1 = """a""" │ > │ │ > │ let long2 = │ > │ """ │ > │ a │ > │ """ │ > │ │ > │ type Position = │ > │ { │ > │ #if INTERACTIVE │ > │ line : string │ > │ #else │ > │ line : int │ > │ #endif │ > │ column : int │ > │ } │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > example1 > |> parse Md > |> Result.toOption > |> Option.get > |> (formatBlocks Md) > |> _assertEqual "# TestModule (TestNamespace) > > ## ParserLibrary > > ### TextInput > " > > ╭─[ 189.57ms - stdout ]────────────────────────────────────────────────────────╮ > │ "# TestModule (TestNamespace) │ > │ │ > │ ## ParserLibrary │ > │ │ > │ ### TextInput │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > example1 > |> parse Spi > |> Result.toOption > |> Option.get > |> (formatBlocks Spi) > |> _assertEqual "/// # TestModule (TestNamespace) > > /// ## ParserLibrary > inl x = 0i32 > > /// ### TextInput > " > > ╭─[ 191.52ms - stdout ]────────────────────────────────────────────────────────╮ > │ "/// # TestModule (TestNamespace) │ > │ │ > │ /// ## ParserLibrary │ > │ inl x = 0i32 │ > │ │ > │ /// ### TextInput │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## parseDibCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline parseDibCode output file = async { > trace Debug > (fun () -> "parseDibCode") > (fun () -> $"output: {output} / file: {file} / {_locals ()}") > let! input = file |> SpiralFileSystem.read_all_text_async > match parse output input with > | Result.Ok blocks -> return blocks |> formatBlocks output > | Result.Error msg -> return failwith msg > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## writeDibCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline writeDibCode output path = async { > trace Debug > (fun () -> "writeDibCode") > (fun () -> $"output: {output} / path: {path} / {_locals ()}") > let! result = parseDibCode output path > let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |> > SpiralSm.to_lower}" > do! result |> SpiralFileSystem.write_all_text_async outputPath > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Arguments │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > [[<RequireQualifiedAccess>]] > type Arguments = > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]] > File of file : string * Output > > interface Argu.IArgParserTemplate with > member s.Usage = > match s with > | File _ -> nameof File > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > Argu.ArgumentParser.Create<Arguments>().PrintUsage () > > ╭─[ 107.85ms - return value ]──────────────────────────────────────────────────╮ > │ "USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │ > │ │ > │ FILE: │ > │ │ > │ <file> <fs|md|spi|spir> │ > │ File │ > │ │ > │ OPTIONS: │ > │ │ > │ --help display this list of options. │ > │ " │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## main │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let main args = > let argsMap = args |> Runtime.parseArgsMap<Arguments> > > let files = > argsMap.[[nameof Arguments.File]] > |> List.map (function > | Arguments.File (path, output) -> path, output > ) > > files > |> List.map (fun (path, output) -> path |> writeDibCode output) > |> Async.Parallel > |> Async.Ignore > |> Async.runWithTimeout 30000 > |> function > | Some () -> 0 > | None -> 1 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let args = > System.Environment.GetEnvironmentVariable "ARGS" > |> SpiralRuntime.split_args > |> Result.toArray > |> Array.collect id > > match args with > | [[||]] -> 0 > | args -> if main args = 0 then 0 else failwith "main failed" > > ╭─[ 176.80ms - return value ]──────────────────────────────────────────────────╮ > │ <div class="dni-plaintext"><pre>0 │ > │ </pre></div><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 179.04ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:07 debug #1 writeDibCode / output: Fs / path: DibParser.dib │ > │ 00:00:07 debug #2 parseDibCode / output: Fs / file: DibParser.dib │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ 00:00:26 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 93672 00:00:26 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:28 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb to html 00:00:28 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:28 verbose #7 ! validate(nb) 00:00:30 verbose #8 ! [NbConvertApp] Writing 370001 bytes to c:\home\git\polyglot\apps\parser\DibParser.dib.html 00:00:30 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651 00:00:30 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651 00:00:30 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/DibParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/DibParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:00:31 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:00:31 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:00:32 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 94382 00:00:00 debug #1 persistCodeProject / packages: [Argu; FParsec; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DibParser / hash: / code.Length: 9581 00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj 00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime linux-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\DibParser") 00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:01 verbose #3 > Determining projects to restore... 00:00:02 verbose #4 > Restored C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj (in 430 ms). 00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj] 00:00:13 verbose #6 > DibParser -> C:\home\git\polyglot\target\Builder\DibParser\bin\Release\net9.0\linux-x64\DibParser.dll 00:00:15 verbose #7 > DibParser -> C:\home\git\polyglot\apps\parser\dist\ 00:00:15 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 680 00:00:15 debug #9 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime win-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\DibParser") 00:00:15 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:16 verbose #11 > Determining projects to restore... 00:00:17 verbose #12 > Restored C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj (in 393 ms). 00:00:17 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj] 00:00:28 verbose #14 > DibParser -> C:\home\git\polyglot\target\Builder\DibParser\bin\Release\net9.0\win-x64\DibParser.dll 00:00:32 verbose #15 > DibParser -> C:\home\git\polyglot\apps\parser\dist\ 00:00:32 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 678 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "JsonParser.dib"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/parser/JsonParser.dib", "--output-path", "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/parser/JsonParser.dib" --output-path "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # JsonParser (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl...2, v3, v4) > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class...9 : (string list -> (string [[]])) = > List.toArray > let v20 : (string [[]]) = v19 v18 > US8_0(v20) > and closure21 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure9() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure19() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure20() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure21() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...ng -> Async<int64>)) = closure8() > let wait_for_file_access x = v3 x > let v4 : (string -> Async<int64>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> bool)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> string) = closure50() > let normalize_path x = v16 x > let v17 : (string -> string) = closure51() > let new_file_uri x = v17 x > let v18 : (unit -> string) = closure52() > let get_workspace_root () = v18 () > let v19 : (bool -> unit) = closure56() > let init_trace_file x = v19 x > let v20 : (string -> (string -> string)) = closure58() > let (</>) x = v20 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import Parser.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Parser = > > open Common > > /// ### TextInput > type Position = > { > line : int > column : int > } > > let initialPos = { line = 0; column = 0 } > > let inline incrCol (pos : Position) = > { pos with column = pos.column + 1 } > > let inline incrLine pos = > { line = pos.line + 1; column = 0 } > > type InputState = > { > lines : string[[]] > position : Position > } > > let inline fromStr str = > { > lines = > if str |> String.IsNullOrEmpty > then [[||]] > else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]] > position = initialPos > } > > let inline currentLine inputState = > let linePos = inputState.position.line > if linePos < inputState.lines.Length > then inputState.lines.[[linePos]] > else "end of file" > > let inline nextChar input = > let linePos = input.position.line > let colPos = input.position.column > > if linePos >= input.lines.Length > then input, None > else > let currentLine = currentLine input > if colPos < currentLine.Length then > let char = currentLine.[[colPos]] > let newPos = incrCol input.position > let newState = { input with position = newPos } > newState, Some char > else > let char = '\n' > ... = > str > |> List.ofSeq > |> List.map pchar > |> sequence > |> mapP charListToStr > <?> str > > let whitespaceChar = > satisfy Char.IsWhiteSpace "whitespace" > > let spaces = many whitespaceChar > > let spaces1 = many1 whitespaceChar > > let digitChar = > satisfy Char.IsDigit "digit" > > let pint = > let inline resultToInt (sign, digits) = > let i = int digits > match sign with > | Some ch -> -i > | None -> i > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits > |> mapP resultToInt > <?> "integer" > > let pfloat = > let inline resultToFloat (((sign, digits1), point), digits2) = > let fl = float $"{digits1}.{digits2}" > match sign with > | Some ch -> -fl > | None -> fl > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits .>>. pchar '.' .>>. digits > |> mapP resultToFloat > <?> "float" > > let inline createParserForwardedToRef<'a> () = > let mutable parserRef : Parser<'a> = > { > label = "unknown" > parseFn = fun _ -> failwith "unfixed forwarded parser" > } > > let wrapperParser = > { parserRef with > parseFn = fun input -> runOnInput parserRef input > } > > wrapperParser, (fun v -> parserRef <- v) > > let inline (>>%) p x = > p > |>> fun _ -> x > > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open Parser > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## JsonParser │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > (* > // -------------------------------- > JSON spec from http://www.json.org/ > // -------------------------------- > > The JSON spec is available at [[json.org]](http://www.json.org/). I'll paraphase > it here: > > * A `value` can be a `string` or a `number` or a `bool` or `null` or an `object` > or an `array`. > * These structures can be nested. > * A `string` is a sequence of zero or more Unicode characters, wrapped in double > quotes, using backslash escapes. > * A `number` is very much like a C or Java number, except that the octal and > hexadecimal formats are not used. > * A `boolean` is the literal `true` or `false` > * A `null` is the literal `null` > * An `object` is an unordered set of name/value pairs. > * An object begins with { (left brace) and ends with } (right brace). > * Each name is followed by : (colon) and the name/value pairs are separated by > , (comma). > * An `array` is an ordered collection of values. > * An array begins with [[ (left bracket) and ends with ]] (right bracket). > * Values are separated by , (comma). > * Whitespace can be inserted between any pair of tokens. > *) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let inline parserEqual (expected : ParseResult<'a>) (actual : ParseResult<'a * > Input>) = > match actual, expected with > | Success (_actual, _), Success _expected -> > printResult actual > _actual |> _assertEqual _expected > | Failure (l1, e1, p1), Failure (l2, e2, p2) when l1 = l2 && e1 = e2 && p1 = > p2 -> > printResult actual > | _ -> > printfn $"Actual: {actual}" > printfn $"Expected: {expected}" > failwith "Parse failed" > actual > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### JValue │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type JValue = > | JString of string > | JNumber of float > | JBool of bool > | JNull > | JObject of Map<string, JValue> > | JArray of JValue list > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jValue, jValueRef = createParserForwardedToRef<JValue> () > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jNull │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jNull = > pstring "null" > >>% JNull > <?> "null" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jValue "null" > |> parserEqual (Success JNull) > > ╭─[ 247.20ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNull, { lines = [ │ > │ |"null"|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNull, { lines = [|"null"|]<br /> │ > │ position = { line = 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNull</code></span></summary><div><table><thead> │ > │ <tr></tr></thead><tbody><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"null"|]<br /> position = │ > │ { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ null │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 258.12ms - stdout ]────────────────────────────────────────────────────────╮ > │ JNull │ > │ JNull │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNull "nulp" > |> parserEqual ( > Failure ( > "null", > "Unexpected 'p'", > { currentLine = "nulp"; line = 0; column = 3 } > ) > ) > > ╭─[ 61.62ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("null", "Unexpected │ > │ 'p'", { currentLine = "nulp"<br /> │ > │ line = 0<br /> column = 3 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"null" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected 'p'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "nulp"<br /> line = 0<br /> column = 3 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"nulp" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>3 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 66.54ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:3 Error parsing null │ > │ nulp │ > │ ^Unexpected 'p' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jBool │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jBool = > let jtrue = > pstring "true" > >>% JBool true > let jfalse = > pstring "false" > >>% JBool false > > jtrue <|> jfalse > <?> "bool" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jBool "true" > |> parserEqual (Success (JBool true)) > > ╭─[ 55.63ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JBool true, { lines = [ │ > │ |"true"|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JBool true, { lines = [|"true"|]<br │ > │ /> position = { line = 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JBool │ > │ true</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │ > │ td>Item</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"true"|]<br /> position = │ > │ { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ true │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 63.01ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JBool true │ > │ JBool true │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jBool "false" > |> parserEqual (Success (JBool false)) > > ╭─[ 51.99ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JBool false, { lines = [ │ > │ |"false"|]<br /> position = { line = 0<br │ > │ /> column = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JBool false, { lines = [|"false"|]<br │ > │ /> position = { line = 0<br /> column = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JBool │ > │ false</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"false"|]<br /> position │ > │ = { line = 0<br /> column = 5 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ false │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 5 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>5 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 61.59ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JBool false │ > │ JBool false │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jBool "truX" > |> parserEqual ( > Failure ( > "bool", > "Unexpected 't'", > { currentLine = "truX"; line = 0; column = 0 } > ) > ) > > ╭─[ 35.77ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("bool", "Unexpected │ > │ 't'", { currentLine = "truX"<br /> │ > │ line = 0<br /> column = 0 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"bool" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected 't'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "truX"<br /> line = 0<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"truX" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 40.60ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:0 Error parsing bool │ > │ truX │ > │ ^Unexpected 't' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jUnescapedChar │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jUnescapedChar = > satisfy (fun ch -> ch <> '\\' && ch <> '\"') "char" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jUnescapedChar "a" > |> parserEqual (Success 'a') > > ╭─[ 66.57ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('a', { lines = [ │ > │ |"a"|]<br /> position = { line = 0<br /> │ > │ column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(a, { lines = [|"a"|]<br /> position │ > │ = { line = 0<br /> column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'a' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"a"|]<br /> position = { line = 0<br /> column = 1 │ > │ } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ a │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 1 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 73.20ms - stdout ]─────────────────────────────────────────────────────────╮ > │ 'a' │ > │ 'a' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jUnescapedChar "\\" > |> parserEqual ( > Failure ( > "char", > "Unexpected '\\'", > { currentLine = "\\"; line = 0; column = 0 } > ) > ) > > ╭─[ 49.68ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("char", "Unexpected │ > │ '\'", { currentLine = "\"<br /> │ > │ line = 0<br /> column = 0 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"char" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected '\'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "\"<br /> line = 0<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"\" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 55.15ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:0 Error parsing char │ > │ \ │ > │ ^Unexpected '\' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jEscapedChar │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jEscapedChar = > [[ > ("\\\"",'\"') > ("\\\\",'\\') > ("\\/",'/') > ("\\b",'\b') > ("\\f",'\f') > ("\\n",'\n') > ("\\r",'\r') > ("\\t",'\t') > ]] > |> List.map (fun (toMatch, result) -> > pstring toMatch >>% result > ) > |> choice > <?> "escaped char" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar "\\\\" > |> parserEqual (Success '\\') > > ╭─[ 48.09ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\\', { lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br /> position │ > │ = { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\\' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> column = │ > │ 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \\ │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 54.74ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\\' │ > │ '\\' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar "\\t" > |> parserEqual (Success '\t') > > ╭─[ 37.47ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\009', { lines = [ │ > │ |"\t"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>( , { lines = [|"\t"|]<br /> position = │ > │ { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\009' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\t"|]<br /> position = { line = 0<br /> column = │ > │ 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \t │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 43.18ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\009' │ > │ '\009' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar @"\\" > |> parserEqual (Success '\\') > > ╭─[ 40.02ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\\', { lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br /> position │ > │ = { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\\' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> column = │ > │ 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \\ │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 46.43ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\\' │ > │ '\\' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar @"\n" > |> parserEqual (Success '\n') > > ╭─[ 43.34ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\010', { lines = [|"<br │ > │ />"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(<br />, { lines = [|"<br />"|]<br /> │ > │ position = { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\010' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"<br />"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ <br /> │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 49.55ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\010' │ > │ '\010' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar "a" > |> parserEqual ( > Failure ( > "escaped char", > "Unexpected 'a'", > { currentLine = "a"; line = 0; column = 0 } > ) > ) > > ╭─[ 34.70ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("escaped char", │ > │ "Unexpected 'a'", { currentLine = "a"<br /> │ > │ line = 0<br /> column = 0 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"escaped char" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected 'a'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "a"<br /> line = 0<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"a" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 39.09ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:0 Error parsing escaped char │ > │ a │ > │ ^Unexpected 'a' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jUnicodeChar │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jUnicodeChar = > let backslash = pchar '\\' > let uChar = pchar 'u' > let hexdigit = anyOf ([[ '0' .. '9' ]] @ [[ 'A' .. 'F' ]] @ [[ 'a' .. 'f' > ]]) > let fourHexDigits = hexdigit .>>. hexdigit .>>. hexdigit .>>. hexdigit > > let inline convertToChar (((h1, h2), h3), h4) = > let str = $"%c{h1}%c{h2}%c{h3}%c{h4}" > Int32.Parse (str, Globalization.NumberStyles.HexNumber) |> char > > backslash >>. uChar >>. fourHexDigits > |>> convertToChar > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jUnicodeChar "\\u263A" > |> parserEqual (Success '☺') > > ╭─[ 51.44ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('☺', { lines = [ │ > │ |"\u263A"|]<br /> position = { line = 0<br /> │ > │ column = 6 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(☺, { lines = [|"\u263A"|]<br /> │ > │ position = { line = 0<br /> column = 6 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'☺' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\u263A"|]<br /> position = { line = 0<br /> │ > │ column = 6 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \u263A │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 6 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>6 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 57.50ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '☺' │ > │ '☺' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jString │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let quotedString = > let quote = pchar '\"' <?> "quote" > let jchar = jUnescapedChar <|> jEscapedChar <|> jUnicodeChar > > quote >>. manyChars jchar .>> quote > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jString = > quotedString > |>> JString > <?> "quoted string" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > jString > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"\"" > |> parserEqual (Success (JString "")) > > ╭─[ 59.82ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "", { lines = [ │ > │ |""""|]<br /> position = { line = │ > │ 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "", { lines = [ │ > │ |""""|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ ""</code></span></summary><div><table><thead><tr></tr></thead><tbo │ > │ dy><tr><td>Item</td><td><div class="dni-plaintext"><pre>"" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><su...span │ > │ class="dni-code-hint"><code>{ lines = [|""""|]<br /> │ > │ position = { line = 0<br /> column = 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 67.87ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "" │ > │ JString "" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"a\"" > |> parserEqual (Success (JString "a")) > > ╭─[ 43.23ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "a", { lines = [ │ > │ |""a""|]<br /> position = { line │ > │ = 0<br /> column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "a", { lines = [ │ > │ |""a""|]<br /> position = { line = 0<br /> │ > │ column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ "a"</code></span></summary><div><table><thead><tr></tr></thead><tb │ > │ ody><tr><td>Item</td><td><div class="dni-plaintext"><pre>"a" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treev...an class="dni-code-hint"><code>{ lines │ > │ = [|""a""|]<br /> position = { line = 0<br /> │ > │ column = 3 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "a" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 3 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>3 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 51.36ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "a" │ > │ JString "a" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"ab\"" > |> parserEqual (Success (JString "ab")) > > ╭─[ 46.54ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "ab", { lines = [ │ > │ |""ab""|]<br /> position = { │ > │ line = 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "ab", { lines = [ │ > │ |""ab""|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ "ab"</code></span></summary><div><table><thead><tr></tr></thead><t │ > │ body><tr><td>Item</td><td><div class="dni-plaintext"><pre>"ab" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="d... class="dni-code-hint"><code>{ lines = [ │ > │ |""ab""|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "ab" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 54.70ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "ab" │ > │ JString "ab" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"ab\\tde\"" > |> parserEqual (Success (JString "ab\tde")) > > ╭─[ 45.01ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "ab de", { lines = [ │ > │ |""ab\tde""|]<br /> position │ > │ = { line = 0<br /> column = 8 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "ab de", { lines = [ │ > │ |""ab\tde""|]<br /> position = { line = 0<br /> │ > │ column = 8 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString "ab │ > │ de"</code></span></summary><div><table><thead><tr></tr></thead><tbody>< │ > │ tr><td>Item</td><td><div class="dni-plaintext"><pre>"ab de" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2...dni-code-hint"><code>{ lines = [|""ab\tde""|]<br /> │ > │ position = { line = 0<br /> column = 8 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "ab\tde" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 8 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>8 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 52.67ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "ab de" │ > │ JString "ab de" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"ab\\u263Ade\"" > |> parserEqual (Success (JString "ab☺de")) > > ╭─[ 46.15ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "ab☺de", { lines = [ │ > │ |""ab\u263Ade""|]<br /> │ > │ position = { line = 0<br /> column = │ > │ 12 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "ab☺de", { lines = [ │ > │ |""ab\u263Ade""|]<br /> position = { line = 0<br /> │ > │ column = 12 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ "ab☺de"</code></span></summary><div><table><thead><tr></tr></thead │ > │ ><tbody><tr><td>Item</td><td><div │ > │ class="dni-plaintext"><pre>"ab☺de" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr...nt"><c │ > │ ode>{ lines = [|""ab\u263Ade""|]<br /> position = { │ > │ line = 0<br /> column = 12 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "ab\u263Ade" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 12 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>12 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 52.77ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "ab☺de" │ > │ JString "ab☺de" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jNumber │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jNumber = > let optSign = opt (pchar '-') > > let zero = pstring "0" > > let digitOneNine = > satisfy (fun ch -> Char.IsDigit ch && ch <> '0') "1-9" > > let digit = > satisfy Char.IsDigit "digit" > > let point = pchar '.' > > let e = pchar 'e' <|> pchar 'E' > > let optPlusMinus = opt (pchar '-' <|> pchar '+') > > let nonZeroInt = > digitOneNine .>>. manyChars digit > |>> fun (first, rest) -> string first + rest > > let intPart = zero <|> nonZeroInt > > let fractionPart = point >>. manyChars1 digit > > let exponentPart = e >>. optPlusMinus .>>. manyChars1 digit > > let inline (|>?) opt f = > match opt with > | None -> "" > | Some x -> f x > > let inline convertToJNumber (((optSign, intPart), fractionPart), expPart) = > let signStr = > optSign > |>? string > > let fractionPartStr = > fractionPart > |>? (fun digits -> "." + digits) > > let expPartStr = > expPart > |>? fun (optSign, digits) -> > let sign = optSign |>? string > "e" + sign + digits > > (signStr + intPart + fractionPartStr + expPartStr) > |> float > |> JNumber > > optSign .>>. intPart .>>. opt fractionPart .>>. opt exponentPart > |>> convertToJNumber > <?> "number" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > jString > jNumber > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "123" > |> parserEqual (Success (JNumber 123.0)) > > ╭─[ 64.83ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │ > │ |"123"|]<br /> position = { line = 0<br │ > │ /> column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.0, { lines = [|"123"|]<br │ > │ /> position = { line = 0<br /> column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123"|]<br /> position = │ > │ { line = 0<br /> column = 3 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 3 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>3 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 72.98ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.0 │ > │ JNumber 123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "-123" > |> parserEqual (Success (JNumber -123.0)) > > ╭─[ 43.22ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 0<br │ > │ /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 0<br /> column │ > │ = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ -123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><div class="dni-plaintext"><pre>-123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"-123"|]<br /> position = │ > │ { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ -123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 49.88ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber -123.0 │ > │ JNumber -123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "123.4" > |> parserEqual (Success (JNumber 123.4)) > > ╭─[ 51.60ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 0<br │ > │ /> column = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 0<br /> column │ > │ = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.4</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.4 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4"|]<br /> position │ > │ = { line = 0<br /> column = 5 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 5 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>5 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 58.22ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.4 │ > │ JNumber 123.4 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "-123." > |> parserEqual (Success (JNumber -123.0)) > > ╭─[ 45.75ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │ > │ |"-123."|]<br /> position = { line = │ > │ 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │ > │ |"-123."|]<br /> position = { line = 0<br /> column │ > │ = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ -123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><div class="dni-plaintext"><pre>-123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"-123."|]<br /> position │ > │ = { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ -123. │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 51.01ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber -123.0 │ > │ JNumber -123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "00.1" > |> parserEqual (Success (JNumber 0.0)) > > ╭─[ 39.50ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 0.0, { lines = [ │ > │ |"00.1"|]<br /> position = { line = 0<br /> │ > │ column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 0.0, { lines = [|"00.1"|]<br │ > │ /> position = { line = 0<br /> column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 0.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><div class="dni-plaintext"><pre>0.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"00.1"|]<br /> position = │ > │ { line = 0<br /> column = 1 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 00.1 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 1 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 48.56ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 0.0 │ > │ JNumber 0.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let jNumber_ = jNumber .>> spaces1 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123" > |> parserEqual (Success (JNumber 123.0)) > > ╭─[ 46.85ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │ > │ |"123"|]<br /> position = { line = 1<br │ > │ /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.0, { lines = [|"123"|]<br │ > │ /> position = { line = 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123"|]<br /> position = │ > │ { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 52.75ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.0 │ > │ JNumber 123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "-123" > |> parserEqual (Success (JNumber -123.0)) > > ╭─[ 41.94ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 1<br │ > │ /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 1<br /> column │ > │ = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ -123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><div class="dni-plaintext"><pre>-123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"-123"|]<br /> position = │ > │ { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ -123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 48.10ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber -123.0 │ > │ JNumber -123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "-123." > |> parserEqual ( > Failure ( > "number andThen many1 whitespace", > "Unexpected '.'", > { currentLine = "-123."; line = 0; column = 4 } > ) > ) > > ╭─[ 39.43ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure<br /> ("number andThen many1 │ > │ whitespace", "Unexpected '.'", { currentLine = │ > │ "-123."<br /> │ > │ line = 0<br /> │ > │ column = 4 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"number andThen many1 │ > │ whitespace" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected '.'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "-123."<br /> line = 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"-123." │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 43.58ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:4 Error parsing number andThen many1 whitespace │ > │ -123. │ > │ ^Unexpected '.' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123.4" > |> parserEqual (Success (JNumber 123.4)) > > ╭─[ 45.92ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 1<br │ > │ /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 1<br /> column │ > │ = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.4</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.4 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4"|]<br /> position │ > │ = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 52.77ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.4 │ > │ JNumber 123.4 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "00.4" > |> parserEqual ( > Failure ( > "number andThen many1 whitespace", > "Unexpected '0'", > { currentLine = "00.4"; line = 0; column = 1 } > ) > ) > > ╭─[ 36.53ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure<br /> ("number andThen many1 │ > │ whitespace", "Unexpected '0'", { currentLine = │ > │ "00.4"<br /> │ > │ line = 0<br /> │ > │ column = 1 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"number andThen many1 │ > │ whitespace" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected '0'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "00.4"<br /> line = 0<br /> column = 1 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"00.4" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 40.52ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:1 Error parsing number andThen many1 whitespace │ > │ 00.4 │ > │ ^Unexpected '0' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123e4" > |> parserEqual (Success (JNumber 1230000.0)) > > ╭─[ 86.99ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 1230000.0, { lines = [ │ > │ |"123e4"|]<br /> position = { line = │ > │ 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 1230000.0, { lines = [ │ > │ |"123e4"|]<br /> position = { line = 1<br /> column │ > │ = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 1230000.0</code></span></summary><div><table><thead><tr></tr></thead><tbody> │ > │ <tr><td>Item</td><td><div class="dni-plaintext"><pre>1230000.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123e4"|]<br /> position │ > │ = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123e4 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 96.90ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 1230000.0 │ > │ JNumber 1230000.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123.4e5" > |> parserEqual (Success (JNumber 12340000.0)) > > ╭─[ 75.95ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 12340000.0, { lines = [ │ > │ |"123.4e5"|]<br /> position = { line │ > │ = 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 12340000.0, { lines = [ │ > │ |"123.4e5"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 12340000.0</code></span></summary><div><table><thead><tr></tr></thead><tbody │ > │ ><tr><td>Item</td><td><div class="dni-plaintext"><pre>12340000.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4e5"|]<br /> │ > │ position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4e5 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 83.50ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 12340000.0 │ > │ JNumber 12340000.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123.4e-5" > |> parserEqual (Success (JNumber 0.001234)) > > ╭─[ 60.07ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 0.001234, { lines = [ │ > │ |"123.4e-5"|]<br /> position = { line │ > │ = 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 0.001234, { lines = [ │ > │ |"123.4e-5"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 0.001234</code></span></summary><div><table><thead><tr></tr></thead><tbody>< │ > │ tr><td>Item</td><td><div class="dni-plaintext"><pre>0.001234 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4e-5"|]<br /> │ > │ position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4e-5 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 66.26ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 0.001234 │ > │ JNumber 0.001234 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jArray │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jArray = > let left = pchar '[[' .>> spaces > let right = pchar ']]' .>> spaces > let comma = pchar ',' .>> spaces > let value = jValue .>> spaces > > let values = sepBy value comma > > between left values right > |>> JArray > <?> "array" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > jString > jNumber > jArray > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jArray "[[ 1, 2 ]]" > |> parserEqual (Success (JArray [[ JNumber 1.0; JNumber 2.0 ]])) > > ╭─[ 94.28ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JArray [JNumber 1.0; JNumber 2.0], { │ > │ lines = [|"[ 1, 2 ]"|]<br /> │ > │ position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JArray [JNumber 1.0; JNumber 2.0], { lines = [ │ > │ |"[ 1, 2 ]"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JArray [JNumber 1.0; JNumber │ > │ 2.0]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │ > │ td>Item</td><td><table><thead><tr><th><i>index</i></th><th>value</th></tr></ │ > │ thead><tbody><tr><td>0</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 1.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><div class="dni-plaintext"><pre>1.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td>...ummary><span │ > │ class="dni-code-hint"><code>{ lines = [|"[ 1, 2 ]"|]<br /> │ > │ position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ [ 1, 2 ] │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 99.78ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JArray [JNumber 1.0; JNumber 2.0] │ > │ JArray [JNumber 1.0; JNumber 2.0] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jArray "[[ 1, 2, ]]" > |> parserEqual ( > Failure ( > "array", > "Unexpected ','", > { currentLine = "[[ 1, 2, ]]"; line = 0; column = 6 } > ) > ) > > ╭─[ 44.47ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("array", "Unexpected │ > │ ','", { currentLine = "[ 1, 2, ]"<br /> │ > │ line = 0<br /> column = 6 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"array" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected ','" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "[ 1, 2, ]"<br /> line = 0<br /> column = 6 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"[ 1, 2, ]" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>6 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 49.47ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:6 Error parsing array │ > │ [ 1, 2, ] │ > │ ^Unexpected ',' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jObject │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jObject = > let left = spaces >>. pchar '{' .>> spaces > let right = pchar '}' .>> spaces > let colon = pchar ':' .>> spaces > let comma = pchar ',' .>> spaces > let key = quotedString .>> spaces > let value = jValue .>> spaces > > let keyValue = (key .>> colon) .>>. value > let keyValues = sepBy keyValue comma > > between left keyValues right > |>> Map.ofList > |>> JObject > <?> "object" > > ── fsharp ────────────────────────────────────────────────────────────────────── > jValueRef <| > choice > [[ > jNull > jBool > jString > jNumber > jArray > jObject > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jObject """{ "a":1, "b" : 2 }""" > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "a", JNumber 1.0 > "b", JNumber 2.0 > ]] > ) > ) > ) > > ╭─[ 107.24ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject (map [("a", │ > │ JNumber 1.0); ("b", JNumber 2.0)]),<br /> { lines = [|"{ │ > │ "a":1, "b" : 2 }"|]<br /> position = { line = │ > │ 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JObject (map [("a", JNumber 1.0); │ > │ ("b", JNumber 2.0)]), { lines = [|"{ "a":1, │ > │ "b" : 2 }"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject (map [("a", JNumber 1.0); │ > │ ("b", JNumber │ > │ 2.0)])</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><table><thead><tr><th><i>key</i></th><th>value</th></tr></ │ > │ thead><tbody><tr><td><div class="dni-plaintext"><pre>"a" │ > │ </pre></div></td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 1.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><div class="dni-plaintext"><pre>1.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</...ot;a":1, "b" : │ > │ 2 }"|]<br /> position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ { "a":1, │ > │ "b" : 2 } │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 115.48ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject (map [("a", JNumber 1.0); ("b", JNumber 2.0)]) │ > │ JObject (map [("a", JNumber 1.0); ("b", JNumber 2.0)]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jObject """{ "a":1, "b" : 2, }""" > |> parserEqual ( > Failure ( > "object", > "Unexpected ','", > { currentLine = """{ "a":1, "b" : 2, }"""; line = 0; column = 18 } > ) > ) > > ╭─[ 42.19ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("object", "Unexpected │ > │ ','", { currentLine = "{ "a":1, "b" : │ > │ 2, }"<br /> line = 0<br /> │ > │ column = 18 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"object" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected ','" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "{ "a":1, "b" : 2, }"<br /> │ > │ line = 0<br /> column = 18 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"{ "a":1, │ > │ "b" : 2, }" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>18 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 46.48ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:18 Error parsing object │ > │ { "a":1, "b" : 2, } │ > │ ^Unexpected ',' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jValue │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example1 = """{ > "name" : "Scott", > "isMale" : true, > "bday" : {"year":2001, "month":12, "day":25 }, > "favouriteColors" : [["blue", "green"]], > "emptyArray" : [[]], > "emptyObject" : {} > }""" > run jValue example1 > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "name", JString "Scott" > "isMale", JBool true > "bday", JObject ( > Map.ofList [[ > "year", JNumber 2001.0 > "month", JNumber 12.0 > "day", JNumber 25.0 > ]] > ) > "favouriteColors", JArray [[ JString "blue"; JString "green" ]] > "emptyArray", JArray [[]] > "emptyObject", JObject Map.empty > ]] > ) > ) > ) > > ╭─[ 281.79ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject<br /> (map<br /> │ > │ [("bday",<br /> JObject<br /> (map<br /> │ > │ [("day", JNumber 25.0); ("month", JNumber 12.0);<br /> │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArray [ │ > │ ]);<br /> ("emptyObject", JObject (map []));<br /> │ > │ ("favouriteColors", │ > │ ...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JObject<br /> (map<br /> [ │ > │ ("bday",<br /> JObject<br /> (map<br /> [ │ > │ ("day", JNumber 25.0); ("month", JNumber 12.0);<br /> │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArray [ │ > │ ]);<br /> ("emptyObject", JObject (map []));<br /> │ > │ ("favouriteColors", JArray [JString "blue"; JString │ > │ "gr...</code></span></summary><div><table><thead><tr></tr></thead><tbod │ > │ y><tr><td>Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject<br /> (map<br /> [ │ > │ ("bday",<br /> JObject<br /> (map<br /> [ │ > │ ("day", JNumber 25.0); ("month", JNumber 12.0);<br /> │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArra...,, │ > │ "isMale" : true,, "bday" : {"year":2001, │ > │ "month":12, "day":25 },, "favouriteColors" │ > │ : ["blue", "green"],, "emptyArray" : [],, │ > │ "emptyObject" : {}, } │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 8<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>8 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 287.21ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject │ > │ (map │ > │ [("bday", │ > │ JObject │ > │ (map │ > │ [("day", JNumber 25.0); ("month", JNumber 12.0); │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArray []); │ > │ ("emptyObject", JObject (map [])); │ > │ ("favouriteColors", JArray [JString "blue"; JString "green"]); │ > │ ("isMale", JBool true); ("name", JString "Scott")]) │ > │ JObject │ > │ (map │ > │ [("bday", JObject (map [("day", JNumber 25.0); ("month", JNumber 12.0); │ > │ ("year", JNumber 2001.0)])); │ > │ ("emptyArray", JArray []); ("emptyObject", JObject (map [])); │ > │ ("favouriteColors", JArray [JString "blue"; JString "green"]); │ > │ ("isMale", JBool true); ("name", JString "Scott")]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example2 = """{"widget": { > "debug": "on", > "window": { > "title": "Sample Konfabulator Widget", > "name": "main_window", > "width": 500, > "height": 500 > }, > "image": { > "src": "Images/Sun.png", > "name": "sun1", > "hOffset": 250, > "vOffset": 250, > "alignment": "center" > }, > "text": { > "data": "Click Here", > "size": 36, > "style": "bold", > "name": "text1", > "hOffset": 250, > "vOffset": 100, > "alignment": "center", > "onMouseUp": "sun1.opacity = (sun1.opacity / 100) * 90;" > } > }}""" > > run jValue example2 > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "widget", JObject ( > Map.ofList [[ > "debug", JString "on" > "window", JObject ( > Map.ofList [[ > "title", JString "Sample Konfabulator Widget" > "name", JString "main_window" > "width", JNumber 500.0 > "height", JNumber 500.0 > ]] > ) > "image", JObject ( > Map.ofList [[ > "src", JString "Images/Sun.png" > "name", JString "sun1" > "hOffset", JNumber 250.0 > "vOffset", JNumber 250.0 > "alignment", JString "center" > ]] > ) > "text", JObject ( > Map.ofList [[ > "data", JString "Click Here" > "size", JNumber 36.0 > "style", JString "bold" > "name", JString "text1" > "hOffset", JNumber 250.0 > "vOffset", JNumber 100.0 > "alignment", JString "center" > "onMouseUp", JString "sun1.opacity = > (sun1.opacity / 100) * 90;" > ]] > ) > ]] > ) > ]] > ) > ) > ) > > ╭─[ 364.45ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject<br /> (map<br /> │ > │ [("widget",<br /> JObject<br /> (map<br /> │ > │ [("debug", JString "on");<br /> │ > │ ("image",<br /> JObject<br /> │ > │ (map<br /> [("alignment", JString │ > │ "center");<br /> │ > │ ("hOffset"...</code></span></summary><div><table><thead><tr></tr>< │ > │ /thead><tbody><tr><td>Item</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>(JObject<br │ > │ /> (map<br /> [("widget",<br /> JObject<br /> │ > │ (map<br /> [("debug", JString "on");<br /> │ > │ ("image",<br /> JObject<br /> (map<br │ > │ /> [("alignment", JString "center"); │ > │ ("hOffset", JNumber 250.0);<br /> │ > │ ("name", JString │ > │ "sun1"...</code></span></summary><div><table><thead><tr></tr></the │ > │ ad><tbody><tr><td>Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject<br /> (map<br /> [ │ > │ ("widget",<br /> JObject<br /> (map<br /> │ > │ [("debug", JString "on");<br /> │ > │ ("image",<br /> JObject<br /> (...t;,, │ > │ "name": "text1",, "hOffset": 250,, │ > │ "vOffset": 100,, "alignment": │ > │ "center",, "onMouseUp": "sun1.opacity = │ > │ (sun1.opacity / 100) * 90;", }, }} │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 26<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>26 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 369.56ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject │ > │ (map │ > │ [("widget", │ > │ JObject │ > │ (map │ > │ [("debug", JString "on"); │ > │ ("image", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); ("hOffset", JNumber │ > │ 250.0); │ > │ ("name", JString "sun1"); ("src", JString │ > │ "Images/Sun.png"); │ > │ ("vOffset", JNumber 250.0)])); │ > │ ("text", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); │ > │ ("data", JString "Click Here"); ("hOffset", JNumber │ > │ 250.0); │ > │ ("name", JString "text1"); │ > │ ("onMouseUp", │ > │ JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │ > │ ("size", JNumber 36.0); ("style", JString "bold"); │ > │ ("vOffset", JNumber 100.0)])); │ > │ ("window", │ > │ JObject │ > │ (map │ > │ [("height", JNumber 500.0); ("name", JString │ > │ "main_window"); │ > │ ("title", JString "Sample Konfabulator Widget"); │ > │ ("width", JNumber 500.0)]))]))]) │ > │ JObject │ > │ (map │ > │ [("widget", │ > │ JObject │ > │ (map │ > │ [("debug", JString "on"); │ > │ ("image", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); ("hOffset", JNumber │ > │ 250.0); ("name", JString "sun1"); │ > │ ("src", JString "Images/Sun.png"); ("vOffset", JNumber │ > │ 250.0)])); │ > │ ("text", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); ("data", JString "Click │ > │ Here"); ("hOffset", JNumber 250.0); │ > │ ("name", JString "text1"); ("onMouseUp", JString │ > │ "sun1.opacity = (sun1.opacity / 100) * 90;"); │ > │ ("size", JNumber 36.0); ("style", JString "bold"); │ > │ ("vOffset", JNumber 100.0)])); │ > │ ("window", │ > │ JObject │ > │ (map │ > │ [("height", JNumber 500.0); ("name", JString │ > │ "main_window"); │ > │ ("title", JString "Sample Konfabulator Widget"); │ > │ ("width", JNumber 500.0)]))]))]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example3 = """{ > "string": "Hello, \"World\"!", > "escapedString": "This string contains \\/\\\\\\b\\f\\n\\r\\t\\\"\\'", > "number": 42, > "scientificNumber": 3.14e-10, > "boolean": true, > "nullValue": null, > "array": [[1, 2, 3, 4, 5]], > "unicodeString1": "프리마", > "unicodeString2": "\u0048\u0065\u006C\u006C\u006F, > \u0022\u0057\u006F\u0072\u006C\u0064\u0022!", > "specialCharacters": "!@#$%^&*()", > "emptyArray": [[]], > "emptyObject": {}, > "nestedArrays": [[[[1, 2, 3]], [[4, 5, 6]]]], > "object": { > "nestedString": "Nested Value", > "nestedNumber": 3.14, > "nestedBoolean": false, > "nestedNull": null, > "nestedArray": [["a", "b", "c"]], > "nestedObject": { > "nestedProperty": "Nested Object Value" > } > }, > "nestedObjects": [[ > {"name": "Alice", "age": 25}, > {"name": "Bob", "age": 30} > ]] > }""" > run jValue example3 > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "string", JString @"Hello, ""World""!" > "escapedString", JString @"This string contains > \/\\\b\f\n\r\t\""\'" > "number", JNumber 42.0 > "scientificNumber", JNumber 3.14e-10 > "boolean", JBool true > "nullValue", JNull > "array", JArray [[ > JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber > 5.0 > ]] > "unicodeString1", JString "프리마" > "unicodeString2", JString @"Hello, ""World""!" > "specialCharacters", JString "!@#$%^&*()" > "emptyArray", JArray [[]] > "emptyObject", JObject Map.empty > "nestedArrays", JArray [[ > JArray [[ JNumber 1.0; JNumber 2.0; JNumber 3.0 ]] > JArray [[ JNumber 4.0; JNumber 5.0; JNumber 6.0 ]] > ]] > "object", JObject ( > Map.ofList [[ > "nestedString", JString "Nested Value" > "nestedNumber", JNumber 3.14 > "nestedBoolean", JBool false > "nestedNull", JNull > "nestedArray", JArray [[JString "a"; JString "b"; > JString "c"]] > "nestedObject", JObject ( > Map.ofList [[ > "nestedProperty", JString "Nested Object Value" > ]] > ) > ]] > ) > "nestedObjects", JArray [[ > JObject (Map.ofList [[ "name", JString "Alice"; "age", JNumber > 25.0 ]]) > JObject (Map.ofList [[ "name", JString "Bob"; "age", JNumber > 30.0 ]]) > ]] > ]] > ) > ) > ) > > ╭─[ 515.72ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject<br /> (map<br /> │ > │ [("array",<br /> JArray<br /> [JNumber 1.0; │ > │ JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber 5.0]);<br /> │ > │ ("boolean", JBool true); ("emptyArray", JArray []);<br │ > │ /> ("emptyObject", JObject (map []));<br /> │ > │ ("escapedString", JString "This │ > │ s...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │ > │ td>Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JObject<br /> (map<br /> [ │ > │ ("array",<br /> JArray [JNumber 1.0; JNumber 2.0; JNumber │ > │ 3.0; JNumber 4.0; JNumber 5.0]);<br /> ("boolean", JBool │ > │ true); ("emptyArray", JArray []);<br /> │ > │ ("emptyObject", JObject (map []));<br /> │ > │ ("escapedString", JString "This string contains \/\\\b\f<br │ > │ />\r\t\"\'");<br /> │ > │ ...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject<br /> (map<br /> [ │ > │ ("array",<br /> JArray [JNumber 1.0; JNumber 2.0; JNumber │ > │ 3.0; JNumber 4.0; JNumber 5.0]);<br /> ("boolean", JBool │ > │ true); ("emptyArray", JArray []);<br /> │ > │ ("emptyObject", JObject (map []));<br /> │ > │ ("es...nestedObject": {, "nestedProperty": │ > │ "Nested Object Value", }, },, "nestedObjects": [ │ > │ , {"name": "Alice", "age": 25},, │ > │ {"name": "Bob", "age": 30}, ], } │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 29<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>29 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 521.26ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject │ > │ (map │ > │ [("array", │ > │ JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber │ > │ 5.0]); │ > │ ("boolean", JBool true); ("emptyArray", JArray []); │ > │ ("emptyObject", JObject (map [])); │ > │ ("escapedString", JString "This string contains \/\\\b\f\n\r\t\"\'"); │ > │ ("nestedArrays", │ > │ JArray │ > │ [JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0]; │ > │ JArray [JNumber 4.0; JNumber 5.0; JNumber 6.0]]); │ > │ ("nestedObjects", │ > │ JArray │ > │ [JObject (map [("age", JNumber 25.0); ("name", JString "Alice")]); │ > │ JObject (map [("age", JNumber 30.0); ("name", JString "Bob")])]); │ > │ ("nullValue", JNull); ("number", JNumber 42.0); ...]) │ > │ JObject │ > │ (map │ > │ [("array", JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; │ > │ JNumber 5.0]); ("boolean", JBool true); │ > │ ("emptyArray", JArray []); ("emptyObject", JObject (map [])); │ > │ ("escapedString", JString "This string contains \/\\\b\f\n\r\t\"\'"); │ > │ ("nestedArrays", │ > │ JArray [JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0]; JArray [ │ > │ JNumber 4.0; JNumber 5.0; JNumber 6.0]]); │ > │ ("nestedObjects", │ > │ JArray │ > │ [JObject (map [("age", JNumber 25.0); ("name", JString "Alice")]); │ > │ JObject (map [("age", JNumber 30.0); ("name", JString "Bob")])]); │ > │ ("nullValue", JNull); │ > │ ("number", JNumber 42.0); ...]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ 00:00:24 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 313314 00:00:24 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:26 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb to html 00:00:26 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:26 verbose #7 ! validate(nb) 00:00:29 verbose #8 ! [NbConvertApp] Writing 534279 bytes to c:\home\git\polyglot\apps\parser\JsonParser.dib.html 00:00:29 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 653 00:00:29 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 653 00:00:29 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/JsonParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/JsonParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:00:30 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:00:30 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:00:30 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 314026 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Parser.dib"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/parser/Parser.dib", "--output-path", "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/parser/Parser.dib" --output-path "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # Parser (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl...2, v3, v4) > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class...9 : (string list -> (string [[]])) = > List.toArray > let v20 : (string [[]]) = v19 v18 > US8_0(v20) > and closure21 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure9() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure19() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure20() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure21() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...ng -> Async<int64>)) = closure8() > let wait_for_file_access x = v3 x > let v4 : (string -> Async<int64>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> bool)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> string) = closure50() > let normalize_path x = v16 x > let v17 : (string -> string) = closure51() > let new_file_uri x = v17 x > let v18 : (unit -> string) = closure52() > let get_workspace_root () = v18 () > let v19 : (bool -> unit) = closure56() > let init_trace_file x = v19 x > let v20 : (string -> (string -> string)) = closure58() > let (</>) x = v20 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### TextInput │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Position = > { > line : int > column : int > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let initialPos = { line = 0; column = 0 } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline incrCol (pos : Position) = > { pos with column = pos.column + 1 } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline incrLine pos = > { line = pos.line + 1; column = 0 } > > ── fsharp ────────────────────────────────────────────────────────────────────── > type InputState = > { > lines : string[[]] > position : Position > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline fromStr str = > { > lines = > if str |> String.IsNullOrEmpty > then [[||]] > else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]] > position = initialPos > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > fromStr "" |> _assertEqual { > lines = [[||]] > position = { line = 0; column = 0 } > } > > ╭─[ 63.83ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [||] │ > │ position = { line = 0 │ > │ column = 0 } } │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > fromStr "Hello \n World" |> _assertEqual { > lines = [[| "Hello "; " World" |]] > position = { line = 0; column = 0 } > } > > ╭─[ 26.98ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [|"Hello "; " World"|] │ > │ position = { line = 0 │ > │ column = 0 } } │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline currentLine inputState = > let linePos = inputState.position.line > if linePos < inputState.lines.Length > then inputState.lines.[[linePos]] > else "end of file" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline nextChar input = > let linePos = input.position.line > let colPos = input.position.column > > if linePos >= input.lines.Length > then input, None > else > let currentLine = currentLine input > if colPos < currentLine.Length then > let char = currentLine.[[colPos]] > let newPos = incrCol input.position > let newState = { input with position = newPos } > newState, Some char > else > let char = '\n' > let newPos = incrLine input.position > let newState = { input with position = newPos } > newState, Some char > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let newInput, charOpt = fromStr "Hello World" |> nextChar > > newInput |> _assertEqual { > lines = [[| "Hello World" |]] > position = { line = 0; column = 1 } > } > charOpt |> _assertEqual (Some 'H') > > ╭─[ 51.59ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [|"Hello World"|] │ > │ position = { line = 0 │ > │ column = 1 } } │ > │ │ > │ Some 'H' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let newInput, charOpt = fromStr "Hello\n\nWorld" |> nextChar > > newInput |> _assertEqual { > lines = [[| "Hello"; ""; "World" |]] > position = { line = 0; column = 1 } > } > charOpt |> _assertEqual (Some 'H') > > ╭─[ 39.73ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [|"Hello"; ""; "World"|] │ > │ position = { line = 0 │ > │ column = 1 } } │ > │ │ > │ Some 'H' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### Parser │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Input = InputState > type ParserLabel = string > type ParserError = string > > type ParserPosition = > { > currentLine : string > line : int > column : int > } > > type ParseResult<'a> = > | Success of 'a > | Failure of ParserLabel * ParserError * ParserPosition > > type Parser<'a> = > { > label : ParserLabel > parseFn : Input -> ParseResult<'a * Input> > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline printResult result = > match result with > | Success (value, input) -> > printfn $"%A{value}" > | Failure (label, error, parserPos) -> > let errorLine = parserPos.currentLine > let colPos = parserPos.column > let linePos = parserPos.line > let failureCaret = $"{' ' |> string |> String.replicate colPos}^{error}" > printfn $"Line:%i{linePos} Col:%i{colPos} Error parsing > %s{label}\n%s{errorLine}\n%s{failureCaret}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline runOnInput parser input = > parser.parseFn input > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline run parser inputStr = > runOnInput parser (fromStr inputStr) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline parserPositionFromInputState (inputState : Input) = > { > currentLine = currentLine inputState > line = inputState.position.line > column = inputState.position.column > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getLabel parser = > parser.label > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline setLabel parser newLabel = > { > label = newLabel > parseFn = fun input -> > match parser.parseFn input with > | Success s -> Success s > | Failure (oldLabel, err, pos) -> Failure (newLabel, err, pos) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<?>) = setLabel > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline satisfy predicate label = > { > label = label > parseFn = fun input -> > let remainingInput, charOpt = nextChar input > match charOpt with > | None -> > let err = "No more input" > let pos = parserPositionFromInputState input > Failure (label, err, pos) > | Some first -> > if predicate first > then Success (first, remainingInput) > else > let err = $"Unexpected '%c{first}'" > let pos = parserPositionFromInputState input > Failure (label, err, pos) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > runOnInput parser input |> _assertEqual ( > Success ( > 'H', > { > lines = [[| "Hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 56.46ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('H', { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "World" > let parser = satisfy (fun c -> c = 'H') "H" > runOnInput parser input |> _assertEqual ( > Failure ( > "H", > "Unexpected 'W'", > { > currentLine = "World" > line = 0 > column = 0 > } > ) > ) > > ╭─[ 38.94ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("H", "Unexpected 'W'", { currentLine = "World" │ > │ line = 0 │ > │ column = 0 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline bindP f p = > { > label = "unknown" > parseFn = fun input -> > match runOnInput p input with > | Failure (label, err, pos) -> Failure (label, err, pos) > | Success (value1, remainingInput) -> runOnInput (f value1) > remainingInput > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (>>=) p f = bindP f p > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e" > runOnInput parser2 input |> _assertEqual ( > Success ( > 'e', > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 52.43ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('e', { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "World" > let parser = satisfy (fun c -> c = 'W') "W" > let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e" > runOnInput parser2 input |> _assertEqual ( > Failure ( > "e", > "Unexpected 'o'", > { > currentLine = "World" > line = 0 > column = 1 > } > ) > ) > > ╭─[ 53.39ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("e", "Unexpected 'o'", { currentLine = "World" │ > │ line = 0 │ > │ column = 1 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline returnP x = > { > label = $"%A{x}" > parseFn = fun input -> Success (x, input) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = returnP "Hello" > runOnInput parser input |> _assertEqual ( > Success ( > "Hello", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 0 } > } > ) > ) > > ╭─[ 34.50ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("Hello", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline mapP f = > bindP (f >> returnP) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<!>) = mapP > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (|>>) x f = f <!> x > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = parser |>> string > runOnInput parser2 input |> _assertEqual ( > Success ( > "H", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 54.49ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("H", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline applyP fP xP = > fP >>= > fun f -> > xP >>= > fun x -> > returnP (f x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<*>) = applyP > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline lift2 f xP yP = > returnP f <*> xP <*> yP > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'e') "e" > let parser3 = lift2 (fun c1 c2 -> string c1 + string c2) parser parser2 > runOnInput parser3 input |> _assertEqual ( > Success ( > "He", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 68.44ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("He", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline andThen p1 p2 = > p1 >>= > fun p1Result -> > p2 >>= > fun p2Result -> > returnP (p1Result, p2Result) > <?> $"{getLabel p1} andThen {getLabel p2}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (.>>.) = andThen > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'e') "e" > let parser3 = parser .>>. parser2 > runOnInput parser3 input |> _assertEqual ( > Success ( > ('H', 'e'), > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 51.29ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (('H', 'e'), { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline orElse p1 p2 = > { > label = $"{getLabel p1} orElse {getLabel p2}" > parseFn = fun input -> > match runOnInput p1 input with > | Success _ as result -> result > | Failure _ -> runOnInput p2 input > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<|>) = orElse > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'h') "h" > let parser3 = parser <|> parser2 > runOnInput parser3 input |> _assertEqual ( > Success ( > 'h', > { > lines = [[| "hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 45.83ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('h', { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline choice listOfParsers = > listOfParsers |> List.reduce (<|>) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'h') "h" > let parser3 = choice [[ parser; parser2 ]] > runOnInput parser3 input |> _assertEqual ( > Success ( > 'h', > { > lines = [[| "hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 48.73ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('h', { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let rec sequence parserList = > match parserList with > | [[]] -> returnP [[]] > | head :: tail -> (lift2 cons) head (sequence tail) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'e') "e" > let parser3 = sequence [[ parser; parser2 ]] > runOnInput parser3 input |> _assertEqual ( > Success ( > [[ 'H'; 'e' ]], > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 69.47ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (['H'; 'e'], { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let rec parseZeroOrMore parser input = > match runOnInput parser input with > | Failure (_, _, _) -> > [[]], input > | Success (firstValue, inputAfterFirstParse) -> > let subsequentValues, remainingInput = parseZeroOrMore parser > inputAfterFirstParse > firstValue :: subsequentValues, remainingInput > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline many parser = > { > label = $"many {getLabel parser}" > parseFn = fun input -> Success (parseZeroOrMore parser input) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = many parser > runOnInput parser2 input |> _assertEqual ( > Success ( > [[]], > { > lines = [[| "hello" |]] > position = { line = 0; column = 0 } > } > ) > ) > > ╭─[ 41.33ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ([], { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline many1 p = > p >>= > fun head -> > many p >>= > fun tail -> > returnP (head :: tail) > <?> $"many1 {getLabel p}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = many1 parser > runOnInput parser2 input |> _assertEqual ( > Failure ( > "many1 H", > "Unexpected 'h'", > { > currentLine = "hello" > line = 0 > column = 0 > } > ) > ) > > ╭─[ 69.83ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("many1 H", "Unexpected 'h'", { currentLine = "hello" │ > │ line = 0 │ > │ column = 0 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline opt p = > let some = p |>> Some > let none = returnP None > (some <|> none) > <?> $"opt {getLabel p}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = opt parser > runOnInput parser2 input |> _assertEqual ( > Success ( > None, > { > lines = [[| "hello" |]] > position = { line = 0; column = 0 } > } > ) > ) > > ╭─[ 53.40ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (None, { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (.>>) p1 p2 = > p1 .>>. p2 > |> mapP fst > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (>>.) p1 p2 = > p1 .>>. p2 > |> mapP snd > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline between p1 p2 p3 = > p1 >>. p2 .>> p3 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "[[Hello]]" > let parser = > between > (satisfy (fun c -> c = '[[') "[[") > (many (satisfy (fun c -> [[ 'a' .. 'z' ]] @ [[ 'A' .. 'Z' ]] |> > List.contains c) "letter")) > (satisfy (fun c -> c = ']]') "]]") > runOnInput parser input |> _assertEqual ( > Success ( > [[ 'H'; 'e'; 'l'; 'l'; 'o' ]], > { > lines = [[| "[[Hello]]" |]] > position = { line = 0; column = 7 } > } > ) > ) > > ╭─[ 149.86ms - stdout ]────────────────────────────────────────────────────────╮ > │ Success (['H'; 'e'; 'l'; 'l'; 'o'], { lines = [|"[Hello]"|] │ > │ position = { line = 0 │ > │ column = 7 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sepBy1 p sep = > let sepThenP = sep >>. p > p .>>. many sepThenP > |>> fun (p, pList) -> p :: pList > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sepBy p sep = > sepBy1 p sep <|> returnP [[]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello,World" > let parser = sepBy (many (satisfy (fun c -> c <> ',') "not comma")) (satisfy > (fun c -> c = ',') "comma") > runOnInput parser input |> _assertEqual ( > Success ( > [[ [[ 'H'; 'e'; 'l'; 'l'; 'o' ]]; [[ 'W'; 'o'; 'r'; 'l'; 'd'; '\n' ]] > ]], > { > lines = [[| "Hello,World" |]] > position = { line = 1; column = 0 } > } > ) > ) > > ╭─[ 109.91ms - stdout ]────────────────────────────────────────────────────────╮ > │ Success ([['H'; 'e'; 'l'; 'l'; 'o']; ['W'; 'o'; 'r'; 'l'; 'd'; '\010']], { │ > │ lines = [|"Hello,World"|] │ > │ │ > │ position = { line = 1 │ > │ │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline pchar charToMatch = > satisfy ((=) charToMatch) $"%c{charToMatch}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline anyOf listOfChars = > listOfChars > |> List.map pchar > |> choice > <?> $"anyOf %A{listOfChars}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = anyOf [[ 'H'; 'e'; 'l'; 'o' ]] |> many > runOnInput parser input |> _assertEqual ( > Success ( > [[ 'H'; 'e'; 'l'; 'l'; 'o' ]], > { > lines = [[| "Hello" |]] > position = { line = 0; column = 5 } > } > ) > ) > > ╭─[ 53.38ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (['H'; 'e'; 'l'; 'l'; 'o'], { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 5 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline charListToStr charList = > charList |> List.toArray |> String > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline manyChars cp = > many cp > |>> charListToStr > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline manyChars1 cp = > many1 cp > |>> charListToStr > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = manyChars1 (anyOf [[ 'H'; 'e'; 'l'; 'o' ]]) > runOnInput parser input |> _assertEqual ( > Success ( > "Hello", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 5 } > } > ) > ) > > ╭─[ 78.77ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("Hello", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 5 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline pstring str = > str > |> List.ofSeq > |> List.map pchar > |> sequence > |> mapP charListToStr > <?> str > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = pstring "Hello" > runOnInput parser input |> _assertEqual ( > Success ( > "Hello", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 5 } > } > ) > ) > > ╭─[ 65.76ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("Hello", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 5 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let whitespaceChar = > satisfy Char.IsWhiteSpace "whitespace" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let spaces = many whitespaceChar > > ── fsharp ────────────────────────────────────────────────────────────────────── > let spaces1 = many1 whitespaceChar > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr " Hello" > let parser = spaces1 .>>. pstring "Hello" > runOnInput parser input |> _assertEqual ( > Success ( > ([[ ' '; ' ' ]], "Hello"), > { > lines = [[| " Hello" |]] > position = { line = 0; column = 7 } > } > ) > ) > > ╭─[ 69.60ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (([' '; ' '], "Hello"), { lines = [|" Hello"|] │ > │ position = { line = 0 │ > │ column = 7 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let digitChar = > satisfy Char.IsDigit "digit" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = digitChar > runOnInput parser input |> _assertEqual ( > Failure ( > "digit", > "Unexpected 'H'", > { > currentLine = "Hello" > line = 0 > column = 0 > } > ) > ) > > ╭─[ 28.35ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("digit", "Unexpected 'H'", { currentLine = "Hello" │ > │ line = 0 │ > │ column = 0 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let pint = > let inline resultToInt (sign, digits) = > let i = int digits > match sign with > | Some ch -> -i > | None -> i > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits > |> mapP resultToInt > <?> "integer" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run pint "-123" > |> _assertEqual ( > Success ( > -123, > { > lines = [[| "-123" |]] > position = { line = 0; column = 4 } > } > ) > ) > > ╭─[ 35.64ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (-123, { lines = [|"-123"|] │ > │ position = { line = 0 │ > │ column = 4 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let pfloat = > let inline resultToFloat (((sign, digits1), point), digits2) = > let fl = float $"{digits1}.{digits2}" > match sign with > | Some ch -> -fl > | None -> fl > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits .>>. pchar '.' .>>. digits > |> mapP resultToFloat > <?> "float" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run pfloat "-123.45" > |> _assertEqual ( > Success ( > -123.45, > { > lines = [[| "-123.45" |]] > position = { line = 0; column = 7 } > } > ) > ) > > ╭─[ 39.90ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (-123.45, { lines = [|"-123.45"|] │ > │ position = { line = 0 │ > │ column = 7 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline createParserForwardedToRef<'a> () = > let mutable parserRef : Parser<'a> = > { > label = "unknown" > parseFn = fun _ -> failwith "unfixed forwarded parser" > } > > let wrapperParser = > { parserRef with > parseFn = fun input -> runOnInput parserRef input > } > > wrapperParser, (fun v -> parserRef <- v) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (>>%) p x = > p > |>> fun _ -> x 00:00:21 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 82922 00:00:21 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:23 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/parser/Parser.dib.ipynb to html 00:00:23 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:23 verbose #7 ! validate(nb) 00:00:25 verbose #8 ! [NbConvertApp] Writing 413674 bytes to c:\home\git\polyglot\apps\parser\Parser.dib.html 00:00:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645 00:00:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645 00:00:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/Parser.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/Parser.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:00:26 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:00:26 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 83626 00:00:00 debug #1 writeDibCode / output: Fs / path: Parser.dib 00:00:00 debug #1 writeDibCode / output: Fs / path: JsonParser.dib 00:00:00 debug #3 parseDibCode / output: Fs / file: Parser.dib 00:00:00 debug #3 parseDibCode / output: Fs / file: JsonParser.dib
In [ ]:
{ pwsh ../apps/spiral/build.ps1 } | Invoke-Block
00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Supervisor.dib", "--retries", "3"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/Supervisor.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/Supervisor.dib" --output-path "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # Supervisor (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #r > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan > dard2.1/FSharp.Control.AsyncSeq.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6. > 0/System.Reactive.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/ > netstandard2.0/System.Reactive.Linq.dll" > #r > @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com > mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli > ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/ > 7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll" > #r > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha > rp.Json.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl...2, v3, v4) > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class...9 : (string list -> (string [[]])) = > List.toArray > let v20 : (string [[]]) = v19 v18 > US8_0(v20) > and closure21 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure9() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure19() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure20() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure21() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...ng -> Async<int64>)) = closure8() > let wait_for_file_access x = v3 x > let v4 : (string -> Async<int64>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> bool)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> string) = closure50() > let normalize_path x = v16 x > let v17 : (string -> string) = closure51() > let new_file_uri x = v17 x > let v18 : (unit -> string) = closure52() > let get_workspace_root () = v18 () > let v19 : (bool -> unit) = closure56() > let init_trace_file x = v19 x > let v20 : (string -> (string -> string)) = closure58() > let (</>) x = v20 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import ../../lib/fsharp/CommonFSharp.fs > #!import ../../lib/fsharp/Async.fs > #!import ../../lib/fsharp/AsyncSeq.fs > #!import ../../lib/fsharp/Runtime.fs > #!import ../../lib/fsharp/FileSystem.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module CommonFSharp = > > open Common > > /// ## getUnionCaseName > let inline getUnionCaseName<'T> (x: 'T) = > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with > | case, _ -> case.Name > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Async = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## choice > let inline choice asyncs = async { > let e = Event<_> () > use cts = new System.Threading.CancellationTokenSource () > let fn = > asyncs > |> Seq.map (fun a -> async { > let! x = a > e.Trigger x > }) > |> Async.Parallel > |> Async.Ignore > Async.Start (fn, cts.Token) > let! result = Async.AwaitEvent e.Publish > cts.Cancel () > return result > } > > /// ## map > let inline map fn a = async { > let! x = a > return fn x > } > > /// ## catch > let inline catch a = > a > |> Async.Catch > |> map (function > | Choice1Of2 result -> Ok result > | Choice2Of2 ex -> Error ex > ) > > /// ## runWithTimeoutChoiceAsync > let inline runWithTimeoutChoiceAsync (timeout : int) fn = > let _locals () = $"timeout: {timeout} / {_locals ()}" > > let timeoutTask = async { > do! Async.Sleep timeout > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals > return None > } > > let task = async { > try > let! result = fn > return Some result > with > | :? System.AggregateException as ex when > ex.InnerExceptions > |> Seq.exists (function :? Sy... None > > /// ## awaitValueTask > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) = > task.AsTask () |> Async.AwaitTask > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) = > task.AsTask () |> Async.AwaitTask > > /// ## init > let inline init x = async { > return x > } > > /// ## withCancellationToken > let inline withCancellationToken (ct : System.Threading.CancellationToken) > fn = > Async.StartImmediateAsTask (fn, ct) > |> Async.AwaitTask > > /// ## retryAsync > let inline retryAsync retries fn = > let rec loop retry lastError = async { > try > return! > if retry <= retries > then fn |> map Ok > else lastError |> Error |> init > with ex -> > trace Debug (fun () -> $"Async.retryAsync / retry: > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 1 > return! loop (retry + 1) (ex |> SpiralSm.format_exception) > } > loop 1 "Async.retryAsync / invalid retries / retries: {retries}" > > /// ## fold > let fold folder state array = > let rec loop acc i = > async { > if i < Array.length array then > let! newAcc = folder acc array.[[i]] > return! loop newAcc (i + 1) > else > return acc > } > loop state 0 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module AsyncSeq = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## subscribeEvent > let inline subscribeEvent (event: IEvent<'H, 'A>) map = > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H, > 'A>(event.AddHandler, event.RemoveHandler) > System.Reactive.Linq.Observable.Select (observable, fun event -> map > event.EventArgs) > |> FSharp.Control.AsyncSeq.ofObservableBuffered > > /// ## subscribeToken > let subscribeToken (token : System.Threading.CancellationToken) = > let tcs = new System.Threading.Tasks.TaskCompletionSource () > System.Action tcs.SetResult |> token.Register |> ignore > let start = System.DateTime.Now.Ticks > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > do! tcs.Task |> Async.AwaitTask > return Some (System.DateTime.Now.Ticks - start, ()) > }) > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Runtime = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## parseArgs > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args = > let assemblyName = > System.Reflection.Assembly.GetEntryAssembly().GetName().Name > let errorHandler : Argu.IExiter = > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |> > List.contains assemblyName > then Argu.ExceptionExiter () > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | > _ -> Some System.ConsoleColor.Red) > > let parser = > Argu.ArgumentParser.Create<'T> ( > programName = > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}", > errorHandler = errorHandler > ) > > parser.ParseCommandLine args > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseArgs<'T> > |> fun results -> results.GetAllResults () > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseAllArgs<'T> > |> List.groupBy CommonFSharp.getUnionCaseName<'T> > |> Map.ofList > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module FileSystem = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## watchDirectory > [[<RequireQualifiedAccess>]] > type FileSystemChangeType = > | Failure > | Changed > | Created > | Deleted > | Renamed > > [[<RequireQualifiedAccess>]] > type FileSystemChange = > | Failure of exn: exn > | Changed of path: string * content: string option > | Created of path: string * content: string option > | Deleted of path: string > | Renamed of oldPath: string * (string * string option) > > > let inline watchDirectoryWithFilter filter shouldReadContent path = > let fullPath = path |> System.IO.Path.GetFullPath > let _locals () = $"filter: {filter} / {_locals ()}" > > let watcher = > new System.IO.FileSystemWatcher ( > Path = fullPath, > NotifyFilter = filter, > EnableRaisingEvents = true, > IncludeSubdirectories = true > ) > > let inline getEventPath (path : string) = > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |> > SpiralSm.trim_start [[| '/'; '\\' |]] > > let inline ticks () = > System.DateTime.UtcNow.Ticks > > let changedStream = > AsyncSeq.subscribeEvent > watcher.Changed > (fun event -> > ticks (), > [[ FileSystemChang...d_all_text_retry_async > return t, FileSystemChange.Changed (path, content) > | true, FileSystemChange.Created (path, _) -> > do! Async.Sleep 5 > let! content = fullPath </> path |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Created (path, content) > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) -> > let! content = fullPath </> newPath |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Renamed (oldPath, (newPath, > content)) > | _ -> return t, event > }) > > let disposable = > new_disposable (fun () -> > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing > watch stream") _locals > watcher.EnableRaisingEvents <- false > watcher.Dispose () > ) > > stream, disposable > > let inline watchDirectory path = > watchDirectoryWithFilter > (System.IO.NotifyFilters.FileName > // ||| System.IO.NotifyFilters.DirectoryName > // ||| System.IO.NotifyFilters.Attributes > //// ||| System.IO.NotifyFilters.Size > ||| System.IO.NotifyFilters.LastWrite > //// ||| System.IO.NotifyFilters.LastAccess > // ||| System.IO.NotifyFilters.CreationTime > // ||| System.IO.NotifyFilters.Security > ) > path > > > ── fsharp ────────────────────────────────────────────────────────────────────── > #if !INTERACTIVE > open Lib > #endif > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open SpiralFileSystem.Operators > open Microsoft.AspNetCore.SignalR.Client > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## sendJson │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sendJson (port : int) (json : string) = async { > let host = "127.0.0.1" > let! portOpen = SpiralNetworking.test_port_open host port > if portOpen then > try > let connection = > HubConnectionBuilder().WithUrl($"http://{host}:{port}").Build() > do! connection.StartAsync () |> Async.AwaitTask > let! result = connection.InvokeAsync<string>("ClientToServerMsg", > json) |> Async.AwaitTask > do! connection.StopAsync () |> Async.AwaitTask > trace Verbose (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / result: {result |> Option.ofObj |> > Option.map (SpiralSm.ellipsis_end 200)}") _locals > return Some result > with ex -> > trace Critical (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / ex: {ex |> > SpiralSm.format_exception}") _locals > return None > else > trace Debug (fun () -> "Supervisor.sendJson / port: {port} / error: port > not open") _locals > return None > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## sendObj │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sendObj port obj = > obj > |> System.Text.Json.JsonSerializer.Serialize > |> sendJson port > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## awaitCompiler │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type VSCPos = {| line : int; character : int |} > type VSCRange = VSCPos * VSCPos > type RString = VSCRange * string > type TracedError = {| trace : string list; message : string |} > type ClientErrorsRes = > | FatalError of string > | TracedError of TracedError > | PackageErrors of {| uri : string; errors : RString list |} > | TokenizerErrors of {| uri : string; errors : RString list |} > | ParserErrors of {| uri : string; errors : RString list |} > | TypeErrors of {| uri : string; errors : RString list |} > > ── fsharp ────────────────────────────────────────────────────────────────────── > let workspaceRoot = SpiralFileSystem.get_workspace_root () > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline awaitCompiler port cancellationToken = async { > let host = "127.0.0.1" > let struct (ct, disposable) = cancellationToken |> > SpiralThreading.new_disposable_token > let! ct = ct |> SpiralAsync.merge_cancellation_token_with_default_async > > let compiler = MailboxProcessor.Start (fun inbox -> async { > let! availablePort = SpiralNetworking.get_available_port (Some 500) host > port > if availablePort <> port then > inbox.Post (port, false) > else > let compilerPath = > workspaceRoot </> "deps/The-Spiral-Language/The Spiral Language > 2/artifacts/bin/The Spiral Language 2/release" > |> System.IO.Path.GetFullPath > > let dllPath = compilerPath </> "Spiral.dll" > > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = Some ct > l1 = $@"dotnet ""{dllPath}"" --port {availablePort} > --default-int i32 --default-float f64" > l3 = Some (fun struct (_, line, _) -> async { > if line |> SpiralSm.contains > $"System.IO.IOException: Failed to bind to address http://{host}:{port}: address > already in use." then > inbox.Post (port, false) > > if line |> SpiralSm.contains $"Server bound to: > http://localhost:{availablePort}" then > let rec loop retry = async { > do! > SpiralNetworking.wait_for_port_access > (Some 100) true host availablePort > |> Async.runWithTimeoutAsync 2000 > |> Async.Ignore > > let _locals () = $"port: {availablePort} / > retry: {retry} / {_locals ()}" > try > let pingObj = {| Ping = true |} > let! pingResult = pingObj |> sendObj > availablePort > trace Verbose (fun () -> $"awaitCompiler > / Ping / result: '{pingResult}'") _locals > > inbox.Post (availablePort, true) > with ex -> > trace Verbose (fun () -> $"awaitCompiler > / Ping / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 10 > do! loop (retry + 1) > } > do! loop 0 > }) > l6 = Some workspaceRoot > } > ) > |> SpiralRuntime.execute_with_options_async > > trace Debug (fun () -> $"awaitCompiler / exitCode: {exitCode} / > result: {result}") _locals > disposable.Dispose () > }, ct) > > let! serverPort, managed = compiler.Receive () > > let connection = > HubConnectionBuilder().WithUrl($"http://{host}:{serverPort}").Build () > do! connection.StartAsync () |> Async.AwaitTask > > let event = Event<_> () > let disposable' = connection.On<string> ("ServerToClientMsg", event.Trigger) > let stream = > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > let! msg = event.Publish |> Async.AwaitEvent > return Some (msg |> > FSharp.Json.Json.deserialize<ClientErrorsRes>, ()) > }) > () > > let disposable' = > new_disposable (fun () -> > async { > disposable'.Dispose () > do! connection.StopAsync () |> Async.AwaitTask > disposable.Dispose () > if managed > then do! > SpiralNetworking.wait_for_port_access (Some 100) false host > serverPort > |> Async.runWithTimeoutAsync 2000 > |> Async.Ignore > } > |> Async.RunSynchronously > ) > > return > serverPort, > stream, > ct, > disposable' > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getFilePathFromUri │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getFilePathFromUri uri = > match System.Uri.TryCreate (uri, System.UriKind.Absolute) with > | true, uri -> uri.AbsolutePath |> System.IO.Path.GetFullPath > | _ -> failwith "invalid uri" > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getCompilerPort │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getCompilerPort () = > 13805 > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## serialize_obj │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let serializeObj obj = > obj > |> FSharp.Json.Json.serialize > |> SpiralSm.replace "\\\\" "\\" > |> SpiralSm.replace "\\r\\n" "\n" > |> SpiralSm.replace "\\n" "\n" > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Backend │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Backend = > | Fsharp > | Cuda > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## buildFile │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline buildFile backend timeout port cancellationToken path = async { > let fullPath = path |> System.IO.Path.GetFullPath > let fileDir = fullPath |> System.IO.Path.GetDirectoryName > let fileName = fullPath |> System.IO.Path.GetFileNameWithoutExtension > let! code = fullPath |> SpiralFileSystem.read_all_text_async > > let stream, disposable = fileDir |> FileSystem.watchDirectory (fun _ -> > false) > use _ = disposable > > let struct (token, disposable) = SpiralThreading.new_disposable_token > cancellationToken > use _ = disposable > > let port = port |> Option.defaultWith getCompilerPort > let! serverPort, errors, ct, disposable = awaitCompiler port (Some token) > use _ = disposable > > let outputFileName = > match backend with > | Fsharp -> $"{fileName}.fsx" > | Cuda -> $"{fileName}.py" > > let outputContentSeq = > stream > |> FSharp.Control.AsyncSeq.chooseAsync (function > | _, (FileSystem.FileSystemChange.Changed (path, _)) > when (path |> System.IO.Path.GetFileName) = outputFileName > -> > fileDir </> path |> > SpiralFileSystem.read_all_text_retry_async > | _ -> None |> Async.init > ) > |> FSharp.Control.AsyncSeq.map (fun content -> > Some (content |> SpiralSm.replace "\r\n" "\n"), None > ) > > let inline printErrorData (data : {| uri : string; errors : RString list |}) > = > let fileName = data.uri |> System.IO.Path.GetFileName > let errors = > data.errors > |> List.map snd > |> SpiralSm.concat "\n" > $"{fileName}:\n{errors}" > > let errorsSeq = > errors > |> FSharp.Control.AsyncSeq.choose (fun error -> > match error with > | FatalError message -> > Some (message, error) > | TracedError data -> > Some (data.message, error) > | PackageErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | TokenizerErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | ParserErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | TypeErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | _ -> None > ) > |> FSharp.Control.AsyncSeq.map (fun (message, error) -> > None, Some (message, error) > ) > > let timerSeq = > 1000 > |> FSharp.Control.AsyncSeq.intervalMs > |> FSharp.Control.AsyncSeq.map (fun _ -> None, None) > > let outputSeq = > [[ outputContentSeq; errorsSeq; timerSeq ]] > |> FSharp.Control.AsyncSeq.mergeAll > > let! outputChild = > ((None, [[]], 0), outputSeq) > ||> FSharp.Control.AsyncSeq.scan ( > fun (outputContentResult, errors, typeErrorCount) (outputContent, > error) -> > match outputContent, error with > | Some outputContent, None -> Some outputContent, errors, > typeErrorCount > | None, Some (_, FatalError "File main has a type error > somewhere in its path.") -> > outputContentResult, errors, typeErrorCount + 1 > | None, Some error -> outputContentResult, error :: errors, > typeErrorCount > | None, None when typeErrorCount >= 1 -> > outputContentResult, errors, typeErrorCount + 1 > | _ -> outputContentResult, errors, typeErrorCount > ) > |> FSharp.Control.AsyncSeq.takeWhileInclusive (fun (outputContent, > errors, typeErrorCount) -> > trace Debug (fun () -> $"Supervisor.buildFile / takeWhileInclusive / > path: {path} / outputContent: {outputContent |> Option.defaultValue > System.String.Empty |> SpiralSm.ellipsis_end 400} / errors: {errors |> > serializeObj} / typeErrorCount: {typeErrorCount}") _locals > #if INTERACTIVE > let errorWait = 2 > #else > let errorWait = 4 > #endif > match outputContent, errors with > | None, [[]] when typeErrorCount > errorWait -> false > | None, [[]] -> true > | _ -> false > ) > |> FSharp.Control.AsyncSeq.tryLast > |> Async.withCancellationToken ct > |> Async.catch > |> Async.runWithTimeoutAsync timeout > |> Async.StartChild > > let fullPathUri = fullPath |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > > let fileOpenObj = {| FileOpen = {| uri = fullPathUri; spiText = code |} |} > let! _fileOpenResult = fileOpenObj |> sendObj serverPort > > // do! Async.Sleep 60 > > let backendId = > match backend with > | Fsharp -> "Fsharp" > | Cuda -> "Python + Cuda" > let buildFileObj = {| BuildFile = {| uri = fullPathUri; backend = backendId > |} |} > let! _buildFileResult = buildFileObj |> sendObj serverPort > > let! result = > outputChild > |> Async.map (function > | Some (Ok (Some (outputCode, errors, _))) -> > outputCode, errors |> List.distinct |> List.rev > | Some (Error ex) -> > trace Critical (fun () -> $"Supervisor.buildFile / error: {ex |> > serializeObj}") _locals > None, [[]] > | _ -> None, [[]] > ) > > if fileDir |> SpiralSm.starts_with (workspaceRoot </> "target") then > let fileDirUri = fileDir |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > let fileDeleteObj = {| FileDelete = {| uris = [[| fileDirUri |]] |} |} > let! _fileDeleteResult = fileDeleteObj |> sendObj serverPort > () > > let outputPath = fileDir </> outputFileName > return outputPath, result > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## persistCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline persistCode backend code = async { > let targetDir = workspaceRoot </> "target/spiral_Eval" > > let packagesDir = targetDir </> "packages" > > let hashHex = $"{backend}{code}" |> SpiralCrypto.hash_text > > let codeDir = packagesDir </> hashHex > > let spiPath = codeDir </> "main.spi" > > codeDir |> System.IO.Directory.CreateDirectory |> ignore > > do! code |> SpiralFileSystem.write_all_text_exists spiPath > > let spiprojPath = codeDir </> "package.spiproj" > let spiprojCode = > $"""packageDir: {workspaceRoot </> "lib"} > packages: > |core- > spiral- > modules: > main > """ > do! spiprojCode |> SpiralFileSystem.write_all_text_exists spiprojPath > > match backend with > | None -> return spiPath, None > | Some backend -> > let outputFileName = > match backend with > | Fsharp -> $"main.fsx" > | Cuda -> $"main.py" > let outputPath = codeDir </> outputFileName > > if outputPath |> System.IO.File.Exists |> not > then return spiPath, None > else > let! oldCode = spiPath |> SpiralFileSystem.read_all_text_async > if oldCode <> code > then return spiPath, None > else > let! outputCode = outputPath |> > SpiralFileSystem.read_all_text_async > return spiPath, Some (outputPath, outputCode |> SpiralSm.replace > "\r\n" "\n") > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## buildCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline buildCode backend cache timeout cancellationToken code = async { > let! mainPath, outputCache = code |> persistCode (Some backend) > match outputCache with > | Some (outputPath, outputCode) when cache -> return mainPath, (outputPath, > Some outputCode), [[]] > | _ -> > let! outputPath, (outputCode, errors) = mainPath |> buildFile backend > timeout None cancellationToken > return mainPath, (outputPath, outputCode), errors > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let buildCode cache timeout cancellationToken code = buildCode cache timeout > cancellationToken code > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl app () = > console.write_line "text" > 1i32 > > inl main () = > app > |> dyn > |> ignore > """ > |> buildCode Fsharp false 15000 None > |> Async.runWithTimeout 15000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some """let rec closure0 () () : int32 = > let v0 : (string -> unit) = System.Console.WriteLine > let v1 : string = "text" > v0 v1 > 1 > let v0 : (unit -> int32) = closure0() > () > """, > [[]] > ) > ) > > ╭─[ 1.29s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:16 debug #1 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:11 debug #1 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:11 debug #2 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:11 verbose #3 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl app () =\n console.write_line │ > │ \u0022text\u0022\n 1i32\n\ninl main │ > │ ...et/spiral_Eval/packages/8c88433e7d69e9e1a9d4b28a930d3862015735981709156ba │ > │ 9a9a49d1474baaf/main.spi"}} / result: │ > │ 00:00:11 verbose #4 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/8c88433e7d69e9e1a9d4b28a930d3862015735981709156ba9a9a49 │ > │ d1474baaf/main.spi"}} / result: │ > │ 00:00:11 debug #5 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: let rec │ > │ closure0 () () : int32 = │ > │ let v0 : (string -> unit) = System.Console.WriteLine │ > │ let v1 : string = "text" │ > │ v0 v1 │ > │ 1 │ > │ let v0 : (unit -> int32) = closure0() │ > │ () │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:00:11 verbose #6 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/8c88433e7d69e9e1a9 │ > │ d4b28a930d3862015735981709156ba9a9a49d1474baaf"]}} / result: │ > │ 00:00:11 debug #7 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some │ > │ (Some │ > │ "let rec closure0 () () : int32 = │ > │ let v0 : (string -> unit) = System.Console.WriteLine │ > │ let v1 : string = "text" │ > │ v0 v1 │ > │ 1 │ > │ let v0 : (unit -> int32) = closure0() │ > │ () │ > │ ", │ > │ []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "" > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> _assertEqual None > > ╭─[ 10.18s - stdout ]──────────────────────────────────────────────────────────╮ > │ 00:00:17 debug #2 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:11 debug #8 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:11 debug #9 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:11 verbose #10 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"","uri":"file:///c:/home/git/polyglot/target/spiral_ │ > │ Eval/packages/9c831865c266ad2da284d289670a5c0190122ff42cafbbc1826cd6e1d207b0 │ > │ d4/main.spi"}} / result: │ > │ 00:00:12 verbose #11 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/9c831865c266ad2da284d289670a5c0190122ff42cafbbc1826cd6e │ > │ 1d207b0d4/main.spi"}} / result: │ > │ 00:00:12 debug #12 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:14 debug #13 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:15 debug #14 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:16 debug #15 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:17 debug #16 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:18 debug #17 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:19 debug #18 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:20 debug #19 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:21 debug #20 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:21 debug #21 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ 00:00:21 debug #22 runWithTimeoutAsync / timeout: 10000 │ > │ <null> │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = > 1i32 / 0i32 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ "An attempt to divide by zero has been detected at compile time." ]] > ) > ) > > ╭─[ 849.56ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:27 debug #3 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:22 debug #23 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:22 debug #24 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:22 verbose #25 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () =\n 1i32 / │ > │ 0i32\n","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/ee0a │ > │ 78d78a0479a47d81f2adf12ca62c75c5c178ab311d98939cbb8c72ded046/main.spi"}} / │ > │ result: │ > │ 00:00:22 verbose #26 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/ee0a78d78a0479a47d81f2adf12ca62c75c5c178ab311d98939cbb8 │ > │ c72ded046/main.spi"}} / result: │ > │ 00:00:22 debug #27 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "An attempt to divide by zero has been detected at compile time.", │ > │ { │ > │ "TracedError": { │ > │ "message": "An attempt to divide by zero has been detected at │ > │ compile time.", │ > │ "trace": [ │ > │ "Error trace on line: 1, column: 10 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046/main.spi. │ > │ inl main () = │ > │ ^ │ > │ ", │ > │ "Error trace on line: 2, column: 5 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046/main.spi. │ > │ 1i32 / 0i32 │ > │ ^ │ > │ " │ > │ ] │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:22 verbose #28 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/ee0a78d78a0479a47d │ > │ 81f2adf12ca62c75c5c178ab311d98939cbb8c72ded046"]}} / result: │ > │ 00:00:22 debug #29 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["An attempt to divide by zero has been detected at compile │ > │ time."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = > 1 + "" > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ > "main.spi: > Constraint satisfaction error. > Got: string > Fails to satisfy: number" > ]] > ) > ) > > ╭─[ 705.56ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:28 debug #4 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:23 debug #30 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:23 debug #31 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:23 verbose #32 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () =\n 1 \u002B │ > │ \u0022\u0022\n","uri":"file:///c:/home/git/polyg...et/spiral_Eval/packages/7 │ > │ 6b13cc01bea41edca2abb2018ecb52338691709add5c127990c271c0479c00b/main.spi"}} │ > │ / result: │ > │ 00:00:23 verbose #33 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/76b13cc01bea41edca2abb2018ecb52338691709add5c127990c271 │ > │ c0479c00b/main.spi"}} / result: │ > │ 00:00:23 debug #34 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "main.spi: │ > │ Constraint satisfaction error. │ > │ Got: string │ > │ Fails to satisfy: number", │ > │ { │ > │ "TypeErrors": { │ > │ "errors": [ │ > │ [ │ > │ [ │ > │ { │ > │ "character": 8, │ > │ "line": 1 │ > │ }, │ > │ { │ > │ "character": 10, │ > │ "line": 1 │ > │ } │ > │ ], │ > │ "Constraint satisfaction error. │ > │ Got: string │ > │ Fails to satisfy: number" │ > │ ] │ > │ ], │ > │ "uri": │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/76b13cc01bea41edca │ > │ 2abb2018ecb52338691709add5c127990c271c0479c00b/main.spi" │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:23 verbose #35 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/76b13cc01bea41edca │ > │ 2abb2018ecb52338691709add5c127990c271c0479c00b"]}} / result: │ > │ 00:00:23 debug #36 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["main.spi: │ > │ Constraint satisfaction error. │ > │ Got: string │ > │ Fails to satisfy: number"]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = > x + y > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ > "main.spi: > Unbound variable: x. > Unbound variable: y." > ]] > ) > ) > > ╭─[ 681.92ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:29 debug #5 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:23 debug #37 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:23 debug #38 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:23 verbose #39 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () =\n x \u002B │ > │ y\n","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/cfa3b53 │ > │ 6fb46879d63cb523d8a44192250a24ea6686659f958914728b1fe1ef4/main.spi"}} / │ > │ result: │ > │ 00:00:23 verbose #41 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/cfa3b536fb46879d63cb523d8a44192250a24ea6686659f95891472 │ > │ 8b1fe1ef4/main.spi"}} / result: │ > │ 00:00:23 debug #40 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "main.spi: │ > │ Unbound variable: x. │ > │ Unbound variable: y.", │ > │ { │ > │ "TypeErrors": { │ > │ "errors": [ │ > │ [ │ > │ [ │ > │ { │ > │ "character": 4, │ > │ "line": 1 │ > │ }, │ > │ { │ > │ "character": 5, │ > │ "line": 1 │ > │ } │ > │ ], │ > │ "Unbound variable: x." │ > │ ], │ > │ [ │ > │ [ │ > │ { │ > │ "character": 8, │ > │ "line": 1 │ > │ }, │ > │ { │ > │ "character": 9, │ > │ "line": 1 │ > │ } │ > │ ], │ > │ "Unbound variable: y." │ > │ ] │ > │ ], │ > │ "uri": │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/cfa3b536fb46879d63 │ > │ cb523d8a44192250a24ea6686659f958914728b1fe1ef4/main.spi" │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:23 verbose #42 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/cfa3b536fb46879d63 │ > │ cb523d8a44192250a24ea6686659f958914728b1fe1ef4"]}} / result: │ > │ 00:00:23 debug #43 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["main.spi: │ > │ Unbound variable: x. │ > │ Unbound variable: y."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl main () = > real > inl real_unbox forall a. (obj : a) : a = > typecase obj with > | _ => obj > real_unbox () > () > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ "Cannot apply a forall with a term." ]] > ) > ) > > ╭─[ 826.66ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:30 debug #6 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:24 debug #44 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:24 debug #45 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:24 verbose #46 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │ > │ forall a. (obj : a) : a │ > │ =\...et/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4cb6918806cd0ec879425 │ > │ 27e5833d681fe1f6a/main.spi"}} / result: │ > │ 00:00:24 verbose #47 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4cb6918806cd0ec87942527e5833d │ > │ 681fe1f6a/main.spi"}} / result: │ > │ 00:00:24 debug #48 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "Cannot apply a forall with a term.", │ > │ { │ > │ "TracedError": { │ > │ "message": "Cannot apply a forall with a term.", │ > │ "trace": [ │ > │ "Error trace on line: 2, column: 10 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a/main.spi. │ > │ inl main () = │ > │ ^ │ > │ ", │ > │ "Error trace on line: 4, column: 9 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a/main.spi. │ > │ inl real_unbox forall a. (obj : a) : a = │ > │ ^ │ > │ ", │ > │ "Error trace on line: 7, column: 9 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a/main.spi. │ > │ real_unbox () │ > │ ^ │ > │ " │ > │ ] │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:24 verbose #49 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be │ > │ 0cbc319b4cb6918806cd0ec87942527e5833d681fe1f6a"]}} / result: │ > │ 00:00:24 debug #50 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["Cannot apply a forall with a term."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl main () = > real > inl real_unbox forall a. (obj : a) : a = > typecase obj with > | _ => obj > real_unbox `i32 1 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ "The main function should not have a forall." ]] > ) > ) > > ╭─[ 903.76ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:30 debug #7 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:25 debug #51 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:25 debug #52 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:25 verbose #53 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │ > │ forall a. (obj : a) : a │ > │ =\...et/spiral_Eval/packages/7edb70ebb1b24f671a663af73f41c7905a8ba26bb617418 │ > │ a310694663ad6394e/main.spi"}} / result: │ > │ 00:00:25 verbose #54 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/7edb70ebb1b24f671a663af73f41c7905a8ba26bb617418a3106946 │ > │ 63ad6394e/main.spi"}} / result: │ > │ 00:00:25 debug #55 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "The main function should not have a forall.", │ > │ { │ > │ "TracedError": { │ > │ "message": "The main function should not have a forall.", │ > │ "trace": [] │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:25 verbose #56 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/7edb70ebb1b24f671a │ > │ 663af73f41c7905a8ba26bb617418a310694663ad6394e"]}} / result: │ > │ 00:00:25 debug #57 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["The main function should not have a forall."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl init_series start end inc = > inl total : f64 = conv ((end - start) / inc) + 1 > listm.init total (conv >> (*) inc >> (+) start) : list f64 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64 > > inl integral dt : integration = > fun f a b => > init_series (a + dt / 2) (b - dt / 2) dt > |> listm.map (f >> (*) dt) > |> listm.fold (+) 0 > > inl main () = > integral 0.1 (fun x => x ** 2) 0 1 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some "0.3325000000000001\n", > [[]] > ) > ) > > ╭─[ 822.14ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:31 debug #8 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:26 debug #58 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:26 debug #59 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:26 verbose #60 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │ > │ f64 = conv ((end - │ > │ start)...et/spiral_Eval/packages/9ef2ff1993c1cbbc9a30116fb9fc65b44a054b1256b │ > │ ab698edc2fbd62d2289f2/main.spi"}} / result: │ > │ 00:00:26 verbose #61 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/9ef2ff1993c1cbbc9a30116fb9fc65b44a054b1256bab698edc2fbd │ > │ 62d2289f2/main.spi"}} / result: │ > │ 00:00:26 debug #62 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: │ > │ 0.3325000000000001 │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:00:26 verbose #63 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/9ef2ff1993c1cbbc9a │ > │ 30116fb9fc65b44a054b1256bab698edc2fbd62d2289f2"]}} / result: │ > │ 00:00:26 debug #64 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (Some "0.3325000000000001 │ > │ ", []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl init_series start end inc = > inl total : f64 = conv ((end - start) / inc) + 1 > listm.init total (conv >> (*) inc >> (+) start) : list f64 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64 > > inl integral dt : integration = > fun f a b => > init_series (a + dt / 2) (b - dt / 2) dt > |> listm.map (f >> (*) dt) > |> listm.fold (+) 0 > > inl main () = > integral 0.1 (fun x => x ** 2) 0 1 > """ > |> buildCode Cuda false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some "kernel = r\"\"\" > template <typename el, int dim> struct static_array { el v[[dim]]; }; > template <typename el, int dim, typename default_int> struct static_array_list { > el v[[dim]]; default_int length; }; > \"\"\" > class static_array(list): > def __init__(self, length): > for _ in range(length): > self.append(None) > > class static_array_list(static_array): > def __init__(self, length): > super().__init__(length) > self.length = 0 > import cupy as cp > from dataclasses import dataclass > from typing import NamedTuple, Union, Callable, Tuple > i8 = i16 = i32 = i64 = u8 = u16 = u32 = u64 = int; f32 = f64 = float; char = > string = str > > def main(): > return 0.3325000000000001 > > if __name__ == '__main__': result = main(); None if result is None else > print(result) > ", > [[]] > ) > ) > > ╭─[ 779.32ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:32 debug #9 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:26 debug #65 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:26 debug #66 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:26 verbose #67 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │ > │ f64 = conv ((end - │ > │ start)...et/spiral_Eval/packages/2e0bd0b3083fbaaaf3a4ff1ebb639c90d0888e866b0 │ > │ 857ab4bc5cf2b7402d93a/main.spi"}} / result: │ > │ 00:00:26 verbose #68 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Python \u002B │ > │ Cuda","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/2e0bd0 │ > │ b3083fbaaaf3a4ff1ebb639c90d0888e866b0857ab4bc5cf2b7402d93a/main.spi"}} / │ > │ result: │ > │ 00:00:27 debug #69 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: kernel = │ > │ r""" │ > │ template <typename el, int dim> struct static_array { el v[dim]; }; │ > │ template <typename el, int dim, typename default_int> struct │ > │ static_array_list { el v[dim]; default_int length; }; │ > │ """... = u8 = u16 = u32 = u64 = int; f32 = f64 = float; char = string = str │ > │ │ > │ def main(): │ > │ return 0.3325000000000001 │ > │ │ > │ if __name__ == '__main__': result = main(); None if result is None else │ > │ print(result) │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:00:27 verbose #70 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/2e0bd0b3083fbaaaf3 │ > │ a4ff1ebb639c90d0888e866b0857ab4bc5cf2b7402d93a"]}} / result: │ > │ 00:00:27 debug #71 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some │ > │ (Some │ > │ "kernel = r""" │ > │ template <typename el, int dim> struct static_array { el v[dim]; }; │ > │ template <typename el, int dim, typename default_int> struct │ > │ static_array_list { el v[dim]; default_int length; }; │ > │ """ │ > │ class static_array(list): │ > │ def __init__(self, length): │ > │ for _ in range(length): │ > │ self.append(None) │ > │ │ > │ class static_array_list(static_array): │ > │ def __init__(self, length): │ > │ super().__init__(length) │ > │ self.length = 0 │ > │ import cupy as cp │ > │ from dataclasses import dataclass │ > │ from typing import NamedTuple, Union, Callable, Tuple │ > │ i8 = i16 = i32 = i64 = u8 = u16 = u32 = u64 = int; f32 = f64 = float; char = │ > │ string = str │ > │ │ > │ def main(): │ > │ return 0.3325000000000001 │ > │ │ > │ if __name__ == '__main__': result = main(); None if result is None else │ > │ print(result) │ > │ ", │ > │ []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl init_series start end inc = > inl total : f64 = conv ((end - start) / inc) + 1 > listm.init total (conv >> (*) inc >> (+) start) : list f64 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64 > > inl integral dt : integration = > fun f a b => > init_series (a + dt / 2) (b - dt / 2) dt > |> listm.map (f >> (*) dt) > |> listm.fold (+) 0 > > inl main () = > integral 0.01 (fun x => x ** 2) 0 1 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some "0.33332500000000004\n", > [[]] > ) > ) > // |> _assertEqual None > // |> fun x -> printfn $"{x.ToDisplayString ()}" > > ╭─[ 763.78ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:33 debug #10 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:27 debug #72 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:27 debug #73 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:27 verbose #74 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │ > │ f64 = conv ((end - │ > │ start)...et/spiral_Eval/packages/bef9303d5ade2630e0a996e8c6bea98b5b6c6f4e06a │ > │ ab63d23b1754d52936476/main.spi"}} / result: │ > │ 00:00:27 verbose #75 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/bef9303d5ade2630e0a996e8c6bea98b5b6c6f4e06aab63d23b1754 │ > │ d52936476/main.spi"}} / result: │ > │ 00:00:27 debug #76 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: │ > │ 0.33332500000000004 │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:00:27 verbose #77 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/bef9303d5ade2630e0 │ > │ a996e8c6bea98b5b6c6f4e06aab63d23b1754d52936476"]}} / result: │ > │ 00:00:27 debug #78 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (Some "0.33332500000000004 │ > │ ", []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getFileTokenRange │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getFileTokenRange port cancellationToken path = async { > let fullPath = path |> System.IO.Path.GetFullPath > let! code = fullPath |> SpiralFileSystem.read_all_text_async > let lines = code |> SpiralSm.split "\n" > > let struct (token, disposable) = SpiralThreading.new_disposable_token > cancellationToken > use _ = disposable > > let port = port |> Option.defaultWith getCompilerPort > let! serverPort, _errors, ct, disposable = awaitCompiler port (Some token) > use _ = disposable > > let fullPathUri = fullPath |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > > let fileOpenObj = {| FileOpen = {| uri = fullPathUri; spiText = code |} |} > let! _fileOpenResult = fileOpenObj |> sendObj serverPort > > // do! Async.Sleep 60 > > let fileTokenRangeObj = > {| > FileTokenRange = > {| > uri = fullPathUri > range = > [[| > {| line = 0; character = 0 |} > {| line = lines.Length - 1; character = > lines.[[lines.Length - 1]].Length |} > |]] > |} > |} > let! fileTokenRangeResult = > fileTokenRangeObj > |> sendObj serverPort > |> Async.withCancellationToken ct > > let fileDir = fullPath |> System.IO.Path.GetDirectoryName > if fileDir |> SpiralSm.starts_with (workspaceRoot </> "target") then > let fileDirUri = fileDir |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > let fileDeleteObj = {| FileDelete = {| uris = [[| fileDirUri |]] |} |} > let! _fileDeleteResult = fileDeleteObj |> sendObj serverPort > () > > return fileTokenRangeResult |> Option.map FSharp.Json.Json.deserialize<int > array> > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getCodeTokenRange │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getCodeTokenRange cancellationToken code = async { > let! mainPath, _ = persistCode None code > > let codeDir = mainPath |> System.IO.Path.GetDirectoryName > let tokensPath = codeDir </> "tokens.json" > let! tokens = async { > if tokensPath |> System.IO.File.Exists |> not > then return None > else > let! text = tokensPath |> SpiralFileSystem.read_all_text_async > > return > if text.Length > 2 > then text |> FSharp.Json.Json.deserialize<int array> |> Some > else None > } > match tokens with > | Some tokens -> > return tokens |> Some > | None -> return! mainPath |> getFileTokenRange None cancellationToken > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = ()""" > |> getCodeTokenRange None > |> Async.runWithTimeout 10000 > |> Option.flatten > |> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; > 8; 0; 0; 2; 1; 4; 0; 0; > 2; 1; 8; 0; 0; 1; 1; 8; 0 |]]) > > ╭─[ 2.34s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:38 debug #11 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:33 verbose #79 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () = │ > │ ()","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/fb6c8d45 │ > │ c45c5bed6706c564f1573e80b77a3923967ce83cb69737ce2ce5040c/main.spi"}} / │ > │ result: │ > │ 00:00:33 verbose #80 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileTokenRange":{"range":[ │ > │ {"character":0,"line":0},{"character":16,"line":0}],"uri":"file:///c:/ho...e │ > │ t/spiral_Eval/packages/fb6c8d45c45c5bed6706c564f1573e80b77a3923967ce83cb6973 │ > │ 7ce2ce5040c/main.spi"}} / result: Some([ │ > │ 0, │ > │ 0, │ > │ 3, │ > │ 7, │ > │ 0, │ > │ 0, │ > │ 4, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 0, │ > │ 5, │ > │ 1, │ > │ 8, │ > │ 0, │ > │ 0, │ > │ ...8, │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 8, │ > │ 0, │ > │ 0, │ > │ 1, │ > │ 1, │ > │ 8, │ > │ 0 │ > │ ]) │ > │ 00:00:33 verbose #81 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/fb6c8d45c45c5bed67 │ > │ 06c564f1573e80b77a3923967ce83cb69737ce2ce5040c"]}} / result: │ > │ Some [|0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; 8; 0; 0; 2; 1; │ > │ 4; 0; 0; 2; 1; 8; 0; 0; 1; 1; 8; 0|] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = 1i32""" > |> getCodeTokenRange None > |> Async.runWithTimeout 10000 > |> Option.flatten > |> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; > 8; 0; 0; 2; 1; 4; 0; 0; > 2; 1; 3; 0; 0; 1; 3; 12; 0 |]]) > > ╭─[ 2.39s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:41 debug #12 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:35 verbose #82 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () = │ > │ 1i32","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/9df95a │ > │ 2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c/main.spi"}} / │ > │ result: │ > │ 00:00:35 verbose #83 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileTokenRange":{"range":[ │ > │ {"character":0,"line":0},{"character":18,"line":0}],"uri":"file:///c:/ho...e │ > │ t/spiral_Eval/packages/9df95a2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e55 │ > │ 77eed14871c/main.spi"}} / result: Some([ │ > │ 0, │ > │ 0, │ > │ 3, │ > │ 7, │ > │ 0, │ > │ 0, │ > │ 4, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 0, │ > │ 5, │ > │ 1, │ > │ 8, │ > │ 0, │ > │ 0, │ > │ ..., │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 3, │ > │ 0, │ > │ 0, │ > │ 1, │ > │ 3, │ > │ 12, │ > │ 0 │ > │ ]) │ > │ 00:00:35 verbose #84 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/9df95a2f18642bd8d2 │ > │ f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c"]}} / result: │ > │ Some [|0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; 8; 0; 0; 2; 1; │ > │ 4; 0; 0; 2; 1; 3; 0; 0; 1; 3; 12; 0|] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Arguments │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > [[<RequireQualifiedAccess>]] > type Arguments = > | Build_File of string * string > | File_Token_Range of string * string > | Execute_Command of string > | [[<Argu.ArguAttributes.Unique>]] Timeout of int > | [[<Argu.ArguAttributes.Unique>]] Port of int > | [[<Argu.ArguAttributes.Unique>]] Parallel > | [[<Argu.ArguAttributes.Unique>]] Exit_On_Error > > interface Argu.IArgParserTemplate with > member s.Usage = > match s with > | Build_File _ -> nameof Build_File > | File_Token_Range _ -> nameof File_Token_Range > | Execute_Command _ -> nameof Execute_Command > | Timeout _ -> nameof Timeout > | Port _ -> nameof Port > | Parallel -> nameof Parallel > | Exit_On_Error-> nameof Exit_On_Error > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > Argu.ArgumentParser.Create<Arguments>().PrintUsage () > > ╭─[ 125.55ms - return value ]──────────────────────────────────────────────────╮ > │ "USAGE: dotnet-repl [--help] [--build-file <string> <string>] │ > │ [--file-token-range <string> <string>] │ > │ [--execute-command <string>] [--timeout <int>] [--port │ > │ <int>] │ > │ [--parallel] [--exit-on-error] │ > │ │ > │ OPTIONS: │ > │ │ > │ --build-file <string> <string> │ > │ Build_File │ > │ --file-token-range <string> <string> │ > │ File_Token_Range │ > │ --execute-command <string> │ > │ Execute_Command │ > │ --timeout <int> Timeout │ > │ --port <int> Port │ > │ --parallel Parallel │ > │ --exit-on-error Exit_On_Error │ > │ --help display this list of options. │ > │ " │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## main │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let main args = > let argsMap = args |> Runtime.parseArgsMap<Arguments> > > let buildFileActions = > argsMap > |> Map.tryFind (nameof Arguments.Build_File) > |> Option.defaultValue [[]] > |> List.choose (function > | Arguments.Build_File (inputPath, outputPath) -> Some (inputPath, > outputPath) > | _ -> None > ) > > let fileTokenRangeActions = > argsMap > |> Map.tryFind (nameof Arguments.File_Token_Range) > |> Option.defaultValue [[]] > |> List.choose (function > | Arguments.File_Token_Range (inputPath, outputPath) -> Some > (inputPath, outputPath) > | _ -> None > ) > > let executeCommandActions = > argsMap > |> Map.tryFind (nameof Arguments.Execute_Command) > |> Option.defaultValue [[]] > |> List.choose (function > | Arguments.Execute_Command command -> Some command > | _ -> None > ) > > let timeout = > match argsMap |> Map.tryFind (nameof Arguments.Timeout) with > | Some [[ Arguments.Timeout timeout ]] -> timeout > | _ -> 60000 * 60 > > let port = > match argsMap |> Map.tryFind (nameof Arguments.Port) with > | Some [[ Arguments.Port port ]] -> Some port > | _ -> None > > let isParallel = argsMap |> Map.containsKey (nameof Arguments.Parallel) > > let isExitOnError = argsMap |> Map.containsKey (nameof > Arguments.Exit_On_Error) > > async { > let port = > port > |> Option.defaultWith getCompilerPort > let struct (localToken, disposable) = > SpiralThreading.new_disposable_token None > let! serverPort, _errors, compilerToken, disposable = awaitCompiler port > (Some localToken) > use _ = disposable > > let buildFileAsync = > buildFileActions > |> List.map (fun (inputPath, outputPath) -> async { > let! _outputPath, (outputCode, errors) = > let backend = > if outputPath |> SpiralSm.ends_with ".fsx" > then Fsharp > elif outputPath |> SpiralSm.ends_with ".py" > then Cuda > else failwith $"Supervisor.main / invalid backend / > outputPath: {outputPath}" > inputPath |> buildFile backend timeout (Some serverPort) > None > > errors > |> List.map snd > |> List.iter (fun error -> > trace Critical (fun () -> $"main / error: {error |> > serializeObj}") _locals > ) > > match outputCode with > | Some outputCode -> > do! outputCode |> SpiralFileSystem.write_all_text_exists > outputPath > return 0 > | None -> > if isExitOnError > then SpiralRuntime.current_process_kill () > > return 1 > }) > > let fileTokenRangeAsync = > fileTokenRangeActions > |> List.map (fun (inputPath, outputPath) -> async { > let! tokenRange = inputPath |> getFileTokenRange (Some > serverPort) None > match tokenRange with > | Some tokenRange -> > do! tokenRange |> FSharp.Json.Json.serialize |> > SpiralFileSystem.write_all_text_exists outputPath > return 0 > | None -> > if isExitOnError > then SpiralRuntime.current_process_kill () > > return 1 > }) > > let executeCommandAsync = > executeCommandActions > |> List.map (fun command -> async { > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = Some compilerToken > l1 = command > } > ) > |> SpiralRuntime.execute_with_options_async > > trace Debug (fun () -> $"main / executeCommand / exitCode: > {exitCode} / command: {command}") _locals > > if isExitOnError && exitCode <> 0 > then SpiralRuntime.current_process_kill () > > return exitCode > }) > > return! > [[| buildFileAsync; fileTokenRangeAsync; executeCommandAsync |]] > |> Seq.collect id > |> fun x -> > if isParallel > then Async.Parallel (x, float System.Environment.ProcessorCount > * 0.51 |> ceil |> int) > else Async.Sequential x > |> Async.map Array.sum > } > |> Async.runWithTimeout timeout > |> Option.defaultValue 1 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let args = > System.Environment.GetEnvironmentVariable "ARGS" > |> SpiralRuntime.split_args > |> Result.toArray > |> Array.collect id > > match args with > | [[||]] -> 0 > | args -> if main args = 0 then 0 else failwith "main failed" > > ╭─[ 78.29ms - return value ]───────────────────────────────────────────────────╮ > │ <div class="dni-plaintext"><pre>0 │ > │ </pre></div><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ 00:00:59 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 148794 00:00:59 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:01:01 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb to html 00:01:01 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:01:01 verbose #7 ! validate(nb) 00:01:03 verbose #8 ! [NbConvertApp] Writing 458608 bytes to c:\home\git\polyglot\apps\spiral\Supervisor.dib.html 00:01:03 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 653 00:01:03 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 653 00:01:03 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Supervisor.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Supervisor.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:01:04 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:01:04 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:01:05 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 149506 00:00:00 debug #1 writeDibCode / output: Fs / path: Supervisor.dib 00:00:00 debug #2 parseDibCode / output: Fs / file: Supervisor.dib 00:00:00 debug #1 persistCodeProject / packages: [Argu; FSharp.Control.AsyncSeq; FSharp.Json; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: Supervisor / hash: / code.Length: 24443 00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj 00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime linux-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\Supervisor") 00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:01 verbose #3 > Determining projects to restore... 00:00:02 verbose #4 > Restored C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj (in 466 ms). 00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj] 00:00:15 verbose #6 > Supervisor -> C:\home\git\polyglot\target\Builder\Supervisor\bin\Release\net9.0\linux-x64\Supervisor.dll 00:00:17 verbose #7 > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\ 00:00:17 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 688 00:00:17 debug #9 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime win-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\Supervisor") 00:00:17 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:18 verbose #11 > Determining projects to restore... 00:00:19 verbose #12 > Restored C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj (in 454 ms). 00:00:19 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj] 00:00:33 verbose #14 > Supervisor -> C:\home\git\polyglot\target\Builder\Supervisor\bin\Release\net9.0\win-x64\Supervisor.dll 00:00:37 verbose #15 > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\ 00:00:37 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 686 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Eval.dib", "--retries", "3"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/Eval.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/Eval.dib" --output-path "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # Eval (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #r > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan > dard2.1/FSharp.Control.AsyncSeq.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6. > 0/System.Reactive.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/ > netstandard2.0/System.Reactive.Linq.dll" > #r > @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com > mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli > ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/ > 7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll" > #r > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha > rp.Json.dll" > #r > @"../../../../../../../.nuget/packages/system.management/7.0.0/lib/netstandard2. > 0/System.Management.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl...2, v3, v4) > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class...9 : (string list -> (string [[]])) = > List.toArray > let v20 : (string [[]]) = v19 v18 > US8_0(v20) > and closure21 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure9() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure19() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure20() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure21() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...ng -> Async<int64>)) = closure8() > let wait_for_file_access x = v3 x > let v4 : (string -> Async<int64>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> bool)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> string) = closure50() > let normalize_path x = v16 x > let v17 : (string -> string) = closure51() > let new_file_uri x = v17 x > let v18 : (unit -> string) = closure52() > let get_workspace_root () = v18 () > let v19 : (bool -> unit) = closure56() > let init_trace_file x = v19 x > let v20 : (string -> (string -> string)) = closure58() > let (</>) x = v20 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import ../../lib/fsharp/CommonFSharp.fs > #!import ../../lib/fsharp/Async.fs > #!import ../../lib/fsharp/AsyncSeq.fs > #!import ../../lib/fsharp/Runtime.fs > #!import ../../lib/fsharp/FileSystem.fs > > #!import ../../apps/builder/Builder.fs > #!import ../../apps/spiral/Supervisor.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module CommonFSharp = > > open Common > > /// ## getUnionCaseName > let inline getUnionCaseName<'T> (x: 'T) = > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with > | case, _ -> case.Name > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Async = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## choice > let inline choice asyncs = async { > let e = Event<_> () > use cts = new System.Threading.CancellationTokenSource () > let fn = > asyncs > |> Seq.map (fun a -> async { > let! x = a > e.Trigger x > }) > |> Async.Parallel > |> Async.Ignore > Async.Start (fn, cts.Token) > let! result = Async.AwaitEvent e.Publish > cts.Cancel () > return result > } > > /// ## map > let inline map fn a = async { > let! x = a > return fn x > } > > /// ## catch > let inline catch a = > a > |> Async.Catch > |> map (function > | Choice1Of2 result -> Ok result > | Choice2Of2 ex -> Error ex > ) > > /// ## runWithTimeoutChoiceAsync > let inline runWithTimeoutChoiceAsync (timeout : int) fn = > let _locals () = $"timeout: {timeout} / {_locals ()}" > > let timeoutTask = async { > do! Async.Sleep timeout > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals > return None > } > > let task = async { > try > let! result = fn > return Some result > with > | :? System.AggregateException as ex when > ex.InnerExceptions > |> Seq.exists (function :? Sy... None > > /// ## awaitValueTask > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) = > task.AsTask () |> Async.AwaitTask > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) = > task.AsTask () |> Async.AwaitTask > > /// ## init > let inline init x = async { > return x > } > > /// ## withCancellationToken > let inline withCancellationToken (ct : System.Threading.CancellationToken) > fn = > Async.StartImmediateAsTask (fn, ct) > |> Async.AwaitTask > > /// ## retryAsync > let inline retryAsync retries fn = > let rec loop retry lastError = async { > try > return! > if retry <= retries > then fn |> map Ok > else lastError |> Error |> init > with ex -> > trace Debug (fun () -> $"Async.retryAsync / retry: > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 1 > return! loop (retry + 1) (ex |> SpiralSm.format_exception) > } > loop 1 "Async.retryAsync / invalid retries / retries: {retries}" > > /// ## fold > let fold folder state array = > let rec loop acc i = > async { > if i < Array.length array then > let! newAcc = folder acc array.[[i]] > return! loop newAcc (i + 1) > else > return acc > } > loop state 0 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module AsyncSeq = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## subscribeEvent > let inline subscribeEvent (event: IEvent<'H, 'A>) map = > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H, > 'A>(event.AddHandler, event.RemoveHandler) > System.Reactive.Linq.Observable.Select (observable, fun event -> map > event.EventArgs) > |> FSharp.Control.AsyncSeq.ofObservableBuffered > > /// ## subscribeToken > let subscribeToken (token : System.Threading.CancellationToken) = > let tcs = new System.Threading.Tasks.TaskCompletionSource () > System.Action tcs.SetResult |> token.Register |> ignore > let start = System.DateTime.Now.Ticks > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > do! tcs.Task |> Async.AwaitTask > return Some (System.DateTime.Now.Ticks - start, ()) > }) > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Runtime = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## parseArgs > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args = > let assemblyName = > System.Reflection.Assembly.GetEntryAssembly().GetName().Name > let errorHandler : Argu.IExiter = > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |> > List.contains assemblyName > then Argu.ExceptionExiter () > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | > _ -> Some System.ConsoleColor.Red) > > let parser = > Argu.ArgumentParser.Create<'T> ( > programName = > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}", > errorHandler = errorHandler > ) > > parser.ParseCommandLine args > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseArgs<'T> > |> fun results -> results.GetAllResults () > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseAllArgs<'T> > |> List.groupBy CommonFSharp.getUnionCaseName<'T> > |> Map.ofList > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module FileSystem = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## watchDirectory > [[<RequireQualifiedAccess>]] > type FileSystemChangeType = > | Failure > | Changed > | Created > | Deleted > | Renamed > > [[<RequireQualifiedAccess>]] > type FileSystemChange = > | Failure of exn: exn > | Changed of path: string * content: string option > | Created of path: string * content: string option > | Deleted of path: string > | Renamed of oldPath: string * (string * string option) > > > let inline watchDirectoryWithFilter filter shouldReadContent path = > let fullPath = path |> System.IO.Path.GetFullPath > let _locals () = $"filter: {filter} / {_locals ()}" > > let watcher = > new System.IO.FileSystemWatcher ( > Path = fullPath, > NotifyFilter = filter, > EnableRaisingEvents = true, > IncludeSubdirectories = true > ) > > let inline getEventPath (path : string) = > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |> > SpiralSm.trim_start [[| '/'; '\\' |]] > > let inline ticks () = > System.DateTime.UtcNow.Ticks > > let changedStream = > AsyncSeq.subscribeEvent > watcher.Changed > (fun event -> > ticks (), > [[ FileSystemChang...d_all_text_retry_async > return t, FileSystemChange.Changed (path, content) > | true, FileSystemChange.Created (path, _) -> > do! Async.Sleep 5 > let! content = fullPath </> path |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Created (path, content) > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) -> > let! content = fullPath </> newPath |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Renamed (oldPath, (newPath, > content)) > | _ -> return t, event > }) > > let disposable = > new_disposable (fun () -> > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing > watch stream") _locals > watcher.EnableRaisingEvents <- false > watcher.Dispose () > ) > > stream, disposable > > let inline watchDirectory path = > watchDirectoryWithFilter > (System.IO.NotifyFilters.FileName > // ||| System.IO.NotifyFilters.DirectoryName > // ||| System.IO.NotifyFilters.Attributes > //// ||| System.IO.NotifyFilters.Size > ||| System.IO.NotifyFilters.LastWrite > //// ||| System.IO.NotifyFilters.LastAccess > // ||| System.IO.NotifyFilters.CreationTime > // ||| System.IO.NotifyFilters.Security > ) > path > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Builder = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## buildProject > let inline buildProject runtime outputDir path = async { > let fullPath = path |> System.IO.Path.GetFullPath > let fileDir = fullPath |> System.IO.Path.GetDirectoryName > let extension = fullPath |> System.IO.Path.GetExtension > > trace Debug > (fun () -> "buildProject") > (fun () -> $"fullPath: {fullPath} / {_locals ()}") > > match extension with > | ".fsproj" -> () > | _ -> failwith "Invalid project file" > > let runtimes = > runtime > |> Option.map List.singleton > |> Option.defaultValue [[ "linux-x64"; "win-x64" ]] > > let outputDir = outputDir |> Option.defaultValue "dist" > > return! > runtimes > |> List.map (fun runtime -> async { > let command = $@"dotnet publish ""{path}"" --configuration > Release --output ""{outputDir}"" --runtime {runtime}" > let! exitCode, _result = > SpiralRuntime.execution_options (fun x -> > { x with > l1 = command > l6 = Some fileDir > } > ) > |> SpiralRuntime.execute_with_options_async > return exitCode > }) > |> Async.Sequential > ...erTemplate with > member s.Usage = > match s with > | Path _ -> nameof Path > | Packages _ -> nameof Packages > | Modules _ -> nameof Modules > | Runtime _ -> nameof Runtime > | Persist_Only -> nameof Persist_Only > > /// ## main > let main args = > let argsMap = args |> Runtime.parseArgsMap<Arguments> > > let path = > match argsMap.[[nameof Arguments.Path]] with > | [[ Arguments.Path path ]] -> Some path > | _ -> None > |> Option.get > > let packages = > match argsMap |> Map.tryFind (nameof Arguments.Packages) with > | Some [[ Arguments.Packages packages ]] -> packages > | _ -> [[]] > > let modules = > match argsMap |> Map.tryFind (nameof Arguments.Modules) with > | Some [[ Arguments.Modules modules ]] -> modules > | _ -> [[]] > > let runtime = > match argsMap |> Map.tryFind (nameof Arguments.Runtime) with > | Some [[ Arguments.Runtime runtime ]] -> Some runtime > | _ -> None > > let persistOnly = argsMap |> Map.containsKey (nameof > Arguments.Persist_Only) > > if persistOnly > then path |> persistFile packages modules |> Async.map (fun _ -> 0) > else path |> buildFile runtime packages modules > |> Async.runWithTimeout (60000 * 60) > |> function > | Some exitCode -> exitCode > | None -> 1 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Supervisor = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > open Microsoft.AspNetCore.SignalR.Client > > /// ## sendJson > let inline sendJson (port : int) (json : string) = async { > let host = "127.0.0.1" > let! portOpen = SpiralNetworking.test_port_open host port > if portOpen then > try > let connection = > HubConnectionBuilder().WithUrl($"http://{host}:{port}").Build() > do! connection.StartAsync () |> Async.AwaitTask > let! result = > connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask > do! connection.StopAsync () |> Async.AwaitTask > trace Verbose (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / result: {result |> Option.ofObj |> > Option.map (SpiralSm.ellipsis_end 200)}") _locals > return Some result > with ex -> > trace Critical (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / ex: {ex |> > SpiralSm.format_exception}") _locals > return None > else > trace Debug (fun () -> "Supervisor.sendJson / port: {port} / error: > port not open") _locals > return None > } > > /// ## sendObj > let inline sendObj port obj = > obj > |> System.Text.Json.JsonSerializer.Serialize > |> s...utputPath > return 0 > | None -> > if isExitOnError > then SpiralRuntime.current_process_kill () > > return 1 > }) > > let executeCommandAsync = > executeCommandActions > |> List.map (fun command -> async { > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = Some compilerToken > l1 = command > } > ) > |> SpiralRuntime.execute_with_options_async > > trace Debug (fun () -> $"main / executeCommand / exitCode: > {exitCode} / command: {command}") _locals > > if isExitOnError && exitCode <> 0 > then SpiralRuntime.current_process_kill () > > return exitCode > }) > > return! > [[| buildFileAsync; fileTokenRangeAsync; executeCommandAsync |]] > |> Seq.collect id > |> fun x -> > if isParallel > then Async.Parallel (x, float > System.Environment.ProcessorCount * 0.51 |> ceil |> int) > else Async.Sequential x > |> Async.map Array.sum > } > |> Async.runWithTimeout timeout > |> Option.defaultValue 1 > > > ── fsharp ────────────────────────────────────────────────────────────────────── > #if !INTERACTIVE > open Lib > #endif > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open SpiralFileSystem.Operators > open Microsoft.AspNetCore.SignalR.Client > > ── fsharp ────────────────────────────────────────────────────────────────────── > open System > open System.Collections.Generic > open System.IO > open System.Text > open System.Threading > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## mapErrors │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline mapErrors (severity, errors, lastTopLevelIndex) allCode = > let allCodeLineLength = > allCode |> SpiralSm.split "\n" |> Array.length > > errors > |> List.map (fun (_, error) -> > match error with > | Supervisor.FatalError message -> > ( > severity, message, 0, ("", (0, 0), (0, 0)) > ) > |> List.singleton > | Supervisor.TracedError data -> > data.trace > |> List.truncate 5 > |> List.append [[ data.message ]] > |> List.map (fun message -> > ( > severity, message, 0, ("", (0, 0), (0, 0)) > ) > ) > | Supervisor.PackageErrors data > | Supervisor.TokenizerErrors data > | Supervisor.ParserErrors data > | Supervisor.TypeErrors data -> > data.errors > |> List.filter (fun ((rangeStart, _), _) -> > trace Debug (fun () -> $"Eval.mapErrors / rangeStart.line: > {rangeStart.line} / lastTopLevelIndex: {lastTopLevelIndex} / allCodeLineLength: > {allCodeLineLength} / filtered: {rangeStart.line > allCodeLineLength}") _locals > rangeStart.line > allCodeLineLength > ) > |> List.map (fun ((rangeStart, rangeEnd), message) -> > ( > severity, > message, > 0, > ( > (data.uri |> System.IO.Path.GetFileName), > ( > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeStart.line - allCodeLineLength - 2 > | _ -> rangeStart.line - allCodeLineLength), > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeStart.character - 4 > | _ -> rangeStart.character) > ), > ( > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeEnd.line - allCodeLineLength - 2 > | _ -> rangeEnd.line - allCodeLineLength), > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeEnd.character - 4 > | _ -> rangeEnd.character) > ) > ) > ) > ) > ) > |> List.collect id > |> List.toArray > > ── fsharp ────────────────────────────────────────────────────────────────────── > let workspaceRoot = SpiralFileSystem.get_workspace_root () > let targetDir = workspaceRoot </> "target/spiral_Eval" > [[ targetDir ]] > |> List.iter (fun dir -> if Directory.Exists dir |> not then > Directory.CreateDirectory dir |> ignore) > > let assemblyName = Reflection.Assembly.GetEntryAssembly().GetName().Name > > let mutable allCode = "" > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getParentProcessId │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let getParentProcessId () = > if SpiralPlatform.is_windows () |> not > then 0u > else > let pid = System.Diagnostics.Process.GetCurrentProcess().Id > let query = $"SELECT ParentProcessId FROM Win32_Process WHERE ProcessId > = {pid}" > use searcher = new System.Management.ManagementObjectSearcher (query) > use results = searcher.Get () > let data = results |> Seq.cast<System.Management.ManagementObject> > if data |> Seq.isEmpty > then 0u > else data |> Seq.head |> (fun mo -> mo.[["ParentProcessId"]] :?> uint32) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## startTokenRangeWatcher │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline startTokenRangeWatcher () = > if [[ "dotnet-repl" ]] |> List.contains assemblyName |> not then > let tokensDir = targetDir </> "tokens" > > [[ tokensDir ]] > |> List.iter (fun dir -> if Directory.Exists dir |> not then > Directory.CreateDirectory dir |> ignore) > > let stream, disposable = FileSystem.watchDirectory (fun _ -> false) > tokensDir > > try > let existingFilesChild = > tokensDir > |> System.IO.Directory.GetDirectories > |> Array.map (fun codeDir -> async { > try > let tokensPath = codeDir </> "tokens.json" > if tokensPath |> File.Exists |> not then > let codePath = codeDir </> "main.spi" > let! tokens = codePath |> > Supervisor.getFileTokenRange None None > match tokens with > | Some tokens -> > do! > tokens > |> FSharp.Json.Json.serialize > |> SpiralFileSystem.write_all_text_async > tokensPath > | None -> > trace Verbose (fun () -> > $"Eval.startTokenRangeWatcher / GetDirectories / tokens: None") _locals > with ex -> > trace Critical (fun () -> $"Eval.startTokenRangeWatcher > / GetDirectories / ex: {ex |> SpiralSm.format_exception}") _locals > }) > |> Async.Parallel > |> Async.Ignore > > let streamAsyncChild = > stream > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event) > -> async { > try > match event with > | FileSystem.FileSystemChange.Changed (codePath, _) > when System.IO.Path.GetFileName codePath = > "main.spi" > -> > let hashDir = codePath |> > System.IO.Directory.GetParent > let hashHex = hashDir.Name > let codePath = tokensDir </> codePath > let tokensPath = tokensDir </> hashHex </> > "tokens.json" > do! > codePath > |> SpiralFileSystem.wait_for_file_access_read > |> Async.runWithTimeoutAsync 3000 > |> Async.Ignore > let! tokens = codePath |> > Supervisor.getFileTokenRange None None > match tokens with > | Some tokens -> > do! > tokens > |> FSharp.Json.Json.serialize > |> SpiralFileSystem.write_all_text_async > tokensPath > | None -> > trace Verbose (fun () -> > $"Eval.startTokenRangeWatcher / iterAsyncParallel / tokens: None") _locals > | _ -> () > with ex -> > trace Critical (fun () -> $"Eval.startTokenRangeWatcher > / iterAsyncParallel / ex: {ex |> SpiralSm.format_exception}") _locals > }) > > let parentAsyncChild = async { > let parentProcessId = getParentProcessId () > trace Verbose > (fun () -> "Eval.parentAsyncChild") > (fun () -> $"parentProcessId: {parentProcessId} / {_locals > ()}") > > if parentProcessId > 0u then > let parentProcess = parentProcessId |> int |> > System.Diagnostics.Process.GetProcessById > do! parentProcess.WaitForExitAsync () |> Async.AwaitTask > trace Verbose > (fun () -> "Eval.parentAsyncChild / Parent process has > exited. Performing cleanup...") > (fun () -> $"{_locals ()}") > System.Threading.Thread.Sleep 1000 > System.Environment.Exit 1 > } > > async { > do! Async.Sleep 3000 > existingFilesChild |> Async.StartImmediate > streamAsyncChild |> Async.Start > parentAsyncChild |> Async.Start > } > |> Async.Start > with ex -> > trace Critical (fun () -> $"Eval.startTokenRangeWatcher / ex: {ex |> > SpiralSm.format_exception}") _locals > > disposable > else new_disposable (fun () -> ()) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## startCommandsWatcher │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let startCommandsWatcher (uriServer : string) = > let commandsDir = targetDir </> "eval_commands" > let commandHistoryDir = targetDir </> "eval_command_history" > [[ commandsDir; commandHistoryDir ]] > |> List.iter (fun dir -> if Directory.Exists dir |> not then > Directory.CreateDirectory dir |> ignore) > > Directory.EnumerateFiles commandsDir |> Seq.iter File.Delete > > let stream, disposable = > commandsDir > |> FileSystem.watchDirectory (function > | FileSystem.FileSystemChange.Created _ -> true > | _ -> false > ) > > let connection = HubConnectionBuilder().WithUrl(uriServer).Build() > connection.StartAsync() |> Async.AwaitTask |> Async.Start > // let _ = connection.On<string>("ServerToClientMsg", fun x -> > // printfn $"ServerToClientMsg: '{x}'" > // ) > > stream > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event) -> async { > let _locals () = $"ticks: {ticks} / event: {event} / {_locals ()}" > trace Verbose (fun () -> "Eval.startCommandsWatcher / > iterAsyncParallel") _locals > > match event with > | FileSystem.FileSystemChange.Created (path, Some json) -> > try > let fullPath = commandsDir </> path > let! result = > connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask > let commandHistoryPath = commandHistoryDir </> path > do! fullPath |> SpiralFileSystem.move_file_async > commandHistoryPath |> Async.Ignore > if result |> SpiralSm.trim |> String.length > 0 then > let resultPath = commandHistoryDir </> > $"{Path.GetFileNameWithoutExtension path}_result.json" > do! result |> SpiralFileSystem.write_all_text_async > resultPath > with ex -> > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / > {_locals ()}" > trace Critical (fun () -> "Eval.startCommandsWatcher / > iterAsyncParallel") _locals > | _ -> () > }) > |> Async.StartChild > |> Async.Ignore > |> Async.Start > > new_disposable (fun () -> > disposable.Dispose () > ) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## prepareSpi │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let prepareSpi rawCellCode lines = > let lastBlock = > lines > |> Array.tryFindBack (fun line -> > line |> String.length > 0 > && line.[[0]] <> ' ' > ) > > let hasMain = > lastBlock > |> Option.exists (fun line -> > line |> SpiralSm.starts_with "inl main " > || line |> SpiralSm.starts_with "let main " > ) > > if hasMain > then rawCellCode, None > else > let lastTopLevelIndex, _ = > (lines |> Array.indexed, (None, false)) > ||> Array.foldBack (fun (i, line) (lastTopLevelIndex, finished) -> > trace Verbose (fun () -> $"Eval.prepareSpi / i: {i} / line: > '{line}' / lastTopLevelIndex: {lastTopLevelIndex} / finished: {finished}") > _locals > match line with > | _ when finished -> lastTopLevelIndex, true > | "" -> lastTopLevelIndex, false > | line when > line |> SpiralSm.starts_with " " > || line |> SpiralSm.starts_with "// " -> lastTopLevelIndex, > false > | line when > line |> SpiralSm.starts_with "open " > || line |> SpiralSm.starts_with "prototype " > || line |> SpiralSm.starts_with "instance " > || line |> SpiralSm.starts_with "type " > || line |> SpiralSm.starts_with "union " > || line |> SpiralSm.starts_with "nominal " -> > lastTopLevelIndex, true > | line when > line |> SpiralSm.starts_with "inl " > || line |> SpiralSm.starts_with "let " -> > let m = > System.Text.RegularExpressions.Regex.Match ( > line, > @"^(inl|let) +([[~\(\w]][[\w\d']]*(?:| > *[[~\w]][[\w\d']]*\)|, *[[~\w]][[\w\d']]*)) +[[:=]](?! +function)" > ) > trace Verbose (fun () -> $"Eval.prepareSpi / m: '{m}' / > m.Groups.Count: {m.Groups.Count}") _locals > if m.Groups.Count = 3 > then Some i, false > else lastTopLevelIndex, true > | _ -> Some i, false > ) > let code = > match lastTopLevelIndex with > | Some lastTopLevelIndex -> > lines > |> Array.mapi (fun i line -> > match i with > | i when i < lastTopLevelIndex -> line > | i when i = lastTopLevelIndex -> $"\nlet main () =\n > {line}" > | _ when line |> SpiralSm.trim = "" -> "" > | _ -> $" {line}" > ) > |> SpiralSm.concat "\n" > | None -> $"{rawCellCode}\n\ninl main () = ()\n" > code, lastTopLevelIndex > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## processSpiralOutput │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let processSpiralOutput > (props : {| > printCode: bool > traceLevel: TraceLevel > builderCommands: string array > lastTopLevelIndex: int option > backend: Supervisor.Backend > cancellationToken: _ > spiralErrors: _ > code: string > outputPath: string > |}) > = async { > let inline _trace (fn : unit -> string) = > if props.traceLevel = Verbose > then trace Info (fun () -> $"Eval.processSpiralOutput / props: {props |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / {fn ()}") _locals > else fn () |> System.Console.WriteLine > > if props.printCode then > let ext = props.outputPath |> System.IO.Path.GetExtension > _trace (fun () -> if props.builderCommands.Length > 0 then > $"{ext}:\n{props.code}\n" else props.code) > > let workspaceRootExternal = > let currentDir = > System.IO.Directory.GetCurrentDirectory () > |> SpiralSm.to_lower > let workspaceRoot = workspaceRoot |> SpiralSm.to_lower > if currentDir |> SpiralSm.starts_with workspaceRoot > then None > else Some workspaceRoot > > let! spiralBuilderResults = > match props.builderCommands, props.lastTopLevelIndex with > | [[||]], _ | _, None -> [[||]] |> Async.init > | builderCommands, _ -> > builderCommands > |> Array.map (fun builderCommand -> > let path = > workspaceRoot </> > $@"workspace/target/release/spiral_builder{SpiralPlatform.get_executable_suffix > ()}" > |> System.IO.Path.GetFullPath > let commands = > if props.backend = Supervisor.Fsharp > && ( > builderCommand |> SpiralSm.starts_with "rust" > || builderCommand |> SpiralSm.starts_with > "typescript" > || builderCommand |> SpiralSm.starts_with "python" > ) > then [[| $"{path} fable --fs-path \"{props.outputPath}\" > --command \"{builderCommand}\"" |]] > elif props.backend = Supervisor.Cuda > && builderCommand |> SpiralSm.starts_with "cuda" > then [[| $"{path} {builderCommand} --py-path > \"{props.outputPath}\"" |]] > else [[||]] > builderCommand, commands > ) > |> Array.filter (fun (_, commands) -> commands.Length > 0) > |> Array.map (fun (builderCommand, commands) -> > commands > |> Array.map (fun command -> async { > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = props.cancellationToken > l1 = command > l2 = [[| > "AUTOMATION", assemblyName = "dotnet-repl" > |> string > "TRACE_LEVEL", $"%A{if props.printCode then > props.traceLevel else Info}" > |]] > l6 = workspaceRootExternal > } > ) > |> SpiralRuntime.execute_with_options_async > trace Debug > (fun () -> $"Eval.processSpiralOutput / spiral_builder") > (fun () -> $"exitCode: {exitCode} / result: {result |> > SpiralSm.ellipsis_end 400} / {_locals ()}") > return > if exitCode = 0 > then (result, false) |> Ok > else result |> Error > }) > ) > |> Array.collect id > |> Async.Parallel > > let hasEval = > props.backend = Supervisor.Fsharp > && props.builderCommands |> Array.exists (fun x -> x |> > SpiralSm.starts_with "fsharp") > > let outputResult = > if props.builderCommands.Length > 0 && not hasEval > then None > else > let code = > if props.builderCommands.Length > 1 > then > let header = "System.Console.WriteLine \".fsx output:\"\n" > $"{header}{props.code}" > else props.code > Some (Ok [[ code, true ]]) > > match outputResult, spiralBuilderResults with > | Some outputResult, [[||]] -> > return outputResult, [[||]] > | None, [[||]] -> > return Ok [[ "()", true ]], [[||]] > | _, spiralBuilderResults -> > try > let spiralResults = > match outputResult with > | Some (Ok code) -> > spiralBuilderResults > |> Array.append (code |> List.map Ok |> List.toArray) > | _ -> spiralBuilderResults > let codes = > spiralResults > |> Array.map (fun spiralBuilderResult' -> > let spiralBuilderResult'', errors = > match spiralBuilderResult' with > | Ok (x, false) -> > let x = x |> > FSharp.Json.Json.deserialize<Map<string,string>> > x, [[||]] > | Ok (x, true) -> > let result = > [[ > "command_result", > [[ > "extension", "fsx" > "code", x > "output", "" > ]] > |> Map.ofList > |> FSharp.Json.Json.serialize > ]] > |> Map.ofList > result, [[||]] > > | Error error -> > ([[]] |> Map), > [[| > ( > TraceLevel.Critical, > $"Eval.processSpiralOutput / evalResult error / errors[[0]] / outputPath: > {props.outputPath} / builderCommands: %A{props.builderCommands} / > spiralBuilderResult': %A{spiralBuilderResult'} / error: %A{error}", 0, ("", (0, > 0), (0, 0)) > ) > |]] > > if errors |> Array.isEmpty |> not > || spiralBuilderResult'' |> Map.containsKey > "command_result" |> not > then Error (Exception $"Eval.processSpiralOutput / > evalResult errors / Exception / spiralBuilderResult'': > %A{spiralBuilderResult''}"), errors > else > let commandResult = > spiralBuilderResult''.[["command_result"]] |> > FSharp.Json.Json.deserialize<Map<string,string>> > > let extension = commandResult.[["extension"]] > let code = commandResult.[["code"]] > let output = commandResult.[["output"]] > > if props.printCode > then _trace (fun () -> $""".{extension}:{'\n'}{code}""") > > let eval = output = "" && extension = "fsx" > > trace Debug > (fun () -> $"Eval.processSpiralOutput / result") > (fun () -> $"commandResult: {commandResult |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400}/ {_locals ()}") > > let code = > if props.printCode > || spiralResults.Length > 1 > || props.builderCommands.Length > 1 > then > if eval then > code > else > let header = > if props.backend = Supervisor.Fsharp > then $".{extension} output:\n" > else $".{extension} output > ({props.backend}):\n" > $"{header}{output}" > elif eval > then code > else output > Ok (code, eval), [[||]] > ) > trace Debug > (fun () -> $"Eval.processSpiralOutput / codes") > (fun () -> > let props = {| props with cancellationToken = None |} > $"codes: {codes |> FSharp.Json.Json.serialize |> > SpiralSm.ellipsis_end 400} / spiralResults: {spiralResults |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / spiralBuilderResults: > {spiralBuilderResults |> FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end > 400} / props: {props |> FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} > / {_locals ()}") > return > (((Ok [[]]), [[||]]), codes) > ||> Array.fold (fun (acc_code, acc_errors) (code, errors) -> > match code, acc_code with > | Ok code, Ok acc_code -> > let errors = > acc_errors > |> Array.append errors > |> Array.append props.spiralErrors > let errors = > if errors |> Array.isEmpty > then errors > else > errors > |> Array.append [[| > TraceLevel.Critical, > $"Eval.processSpiralOutput / errors / errors[[-1]] / outputPath: > {props.outputPath} / builderCommands: %A{props.builderCommands} / code: {code |> > fst |> SpiralSm.ellipsis_end 400}", 0, ("", (0, 0), (0, 0)) > |]] > Ok (code :: acc_code), errors > | Error error, _ > | _, Error error -> > Error error, > acc_errors |> Array.append errors > ) > with ex -> > trace Critical (fun () -> $"Eval.processSpiralOutput / try 2 ex / > spiralBuilderResults: %A{spiralBuilderResults} / ex: {ex |> > SpiralSm.format_exception}") _locals > return Error (Exception $"Eval.processSpiralOutput / try 2 ex / > Exception / spiralBuilderResults: %A{spiralBuilderResults} / ex: {ex |> > SpiralSm.format_exception}"), > [[| > ( > TraceLevel.Critical, $"Eval.processSpiralOutput / try 2 ex / > errors[[0]] / spiralBuilderResults: %A{spiralBuilderResults} / ex: {ex |> > SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0)) > ) > |]] > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## tryGetPropertyValue │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let tryGetPropertyValue (propertyName: string) (obj: obj) = > let objType = obj.GetType () > let propertyInfo = propertyName |> objType.GetProperty > if propertyInfo <> null > then propertyInfo.GetValue (obj, null) |> Some > else None > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## eval │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline eval > (fsi_eval: > string > -> System.Threading.CancellationToken > -> Choice<'a, Exception> * (TraceLevel * string * int * (string * (int * > int) * (int * int))) array) > (cancellationToken: Option<System.Threading.CancellationToken>) > (code: string) > = > trace Verbose > (fun () -> $"Eval.eval") > (fun () -> $"code: {code |> SpiralSm.ellipsis_end 400} / {_locals ()}") > > let rawCellCode = > code |> SpiralSm.replace "\r\n" "\n" > > let lines = rawCellCode |> SpiralSm.split "\n" > > if lines |> Array.exists (fun line -> line |> SpiralSm.starts_with "#r " && > line |> SpiralSm.ends_with "\"") then > let cancellationToken = defaultArg cancellationToken > System.Threading.CancellationToken.None > let ch, errors = fsi_eval code cancellationToken > trace Verbose (fun () -> $"Eval.eval / fsi_eval 1 / ch: %A{ch} / errors: > {errors}") _locals > match ch with > | Choice1Of2 v -> Ok(v), errors > | Choice2Of2 ex -> Error(ex), errors > else > let builderCommands = > lines > |> Array.choose (fun line -> > if line |> SpiralSm.starts_with "///! " > then line |> SpiralSm.split "///! " |> Array.tryItem 1 > else None > ) > > let timeout = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// timeout=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > int > else None > ) > |> Option.defaultValue (60000 * 60) > > let printCode = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// print_code=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > ((=) "true") > else None > ) > |> Option.defaultValue false > > let isTrace = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// trace=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > ((=) "true") > else None > ) > |> Option.defaultValue false > > let isCache = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// cache=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > ((=) "true") > else None > ) > |> Option.defaultValue false > > let oldLevel = get_trace_level () > let traceLevel = > if isTrace > then Verbose > else Info > traceLevel > |> to_trace_level > |> set_trace_level > use _ = (new_disposable (fun () -> > oldLevel |> set_trace_level > )) > > async { > try > let cellCode, lastTopLevelIndex = prepareSpi rawCellCode lines > > let newAllCode = $"{allCode}\n\n{cellCode}" > > let buildBackends = > if builderCommands.Length = 0 > then [[| Supervisor.Fsharp |]] > else > builderCommands > |> Array.map (fun x -> > if x |> SpiralSm.starts_with "cuda" > then Supervisor.Cuda > else Supervisor.Fsharp > ) > |> Array.distinct > > trace Verbose > (fun () -> $"Eval.eval") > (fun () -> $"cellCode: {cellCode |> SpiralSm.ellipsis_end > 400} / lastTopLevelIndex: {lastTopLevelIndex} / builderCommands: > %A{builderCommands} / buildBackends: %A{buildBackends} / {_locals ()}") > > let! buildCodeResults = > buildBackends > |> Array.map (fun backend -> async { > let! result = > newAllCode > |> Supervisor.buildCode backend isCache timeout > cancellationToken > return backend, result > }) > |> Async.Parallel > |> Async.catch > |> Async.runWithTimeoutAsync timeout > > match buildCodeResults with > | Some (Ok buildCodeResults) -> > let! result, errors = > ((Ok [[]], [[||]]), buildCodeResults) > ||> Async.fold (fun acc buildCodeResult -> async { > match buildCodeResult with > | (backend, (spiPath, (outputPath, Some code), > spiralErrors)) -> > let spiralErrors = > mapErrors (Warning, spiralErrors, > lastTopLevelIndex) allCode > let! result = > processSpiralOutput > {| > printCode = printCode > traceLevel = traceLevel > builderCommands = builderCommands > lastTopLevelIndex = > lastTopLevelIndex > backend = backend > cancellationToken = > cancellationToken > spiralErrors = spiralErrors > code = code > outputPath = outputPath > |} > match result, acc with > | (Ok code, errors), (Ok acc_code, acc_errors) > -> > return Ok (acc_code @ code), acc_errors |> > Array.append errors > | (Error ex, errors), _ | _, (Error ex, errors) > -> > return Error ex, errors |> Array.append > errors > | _ -> return acc > }) > let cancellationToken = defaultArg cancellationToken > System.Threading.CancellationToken.None > match result, errors with > | Ok code, [[||]] -> > let code, eval = > code > |> List.map (fun (code, eval) -> > if eval > then None, Some code > else Some code, None > ) > |> List.unzip > let code = code |> List.choose id > let eval = eval |> List.choose id > > trace Debug > (fun () -> $"Eval.eval") > (fun () -> $"eval: {eval |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / code: {code |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / {_locals ()}") > > let ch, errors = > match eval, code with > | [[]], [[]] -> > Choice2Of2 (Exception $"Eval.eval / errors / > buildCodeResults: %A{buildCodeResults} / code: %A{code}"), errors > | [[ eval ]], [[]] -> > let ch, errors2 = fsi_eval eval > cancellationToken > let errors = > errors2 > // |> Array.map (fun (e1, e2, e3, _) -> > // (e1, e2, e3, ("", (0, 0), (0, 0))) > // ) > |> Array.append errors > ch, errors > | [[]], _ -> > let code = code |> List.rev |> String.concat > "\n\n" > let code = > if printCode > then $"\"\"\"{code}\n\n\n\"\"\"" > else $"\"\"\"{code}\n\"\"\"" > let ch, errors2 = fsi_eval code > cancellationToken > let errors = > errors2 > // |> Array.map (fun (e1, e2, e3, _) -> > // (e1, e2, e3, ("", (0, 0), (0, 0))) > // ) > |> Array.append errors > ch, errors > | _ -> > let code, errors = > ((Ok (code |> List.rev), [[||]]), eval) > ||> List.fold (fun (acc, acc_errors) eval -> > match acc with > | Error x -> Error x, acc_errors > | Ok acc -> > let ch, errors = fsi_eval eval > cancellationToken > let errors = > errors > |> Array.map (fun (e1, e2, e3, > _) -> > (e1, e2, e3, ("", (0, 0), > (0, 0))) > ) > |> Array.append acc_errors > match ch with > | Choice1Of2 v -> > let v = > v > |> tryGetPropertyValue > "ReflectionValue" > |> Option.map (fun x -> > $"%A{x}") > |> Option.defaultValue "" > Ok (v :: acc), errors > | Choice2Of2 ex -> > trace Critical (fun () -> > $"Eval.eval / fsi_eval fold Choice error / buildCodeResults: > %A{buildCodeResults} / ex: {ex |> SpiralSm.format_exception}") _locals > Error ch, errors > ) > match code with > | Error ch -> ch, errors > | Ok code -> > let code = > code > |> List.filter ((<>) "") > |> String.concat "\n\n" > let code = > if printCode > then $"\"\"\"{code}\n\n\n\"\"\"" > else $"\"\"\"{code}\n\"\"\"" > let ch, errors2 = fsi_eval code > cancellationToken > let errors = > errors2 > // |> Array.map (fun (e1, e2, e3, _) -> > // (e1, e2, e3, ("", (0, 0), (0, > 0))) > // ) > |> Array.append errors > ch, errors > match ch with > | Choice1Of2 v -> > allCode <- newAllCode > return Ok(v), errors > | Choice2Of2 ex -> > return Error ex, errors > | Ok code, errors -> > return Error (Exception "Eval.eval / errors / > buildCodeResults: %A{buildCodeResults} / code: %A{code}"), errors > | Error error, errors -> > return Error error, errors > | Some (Error ex) -> > trace Critical (fun () -> $"Eval.eval / buildCodeResults > Error / buildCodeResults: %A{buildCodeResults} / ex: {ex |> > SpiralSm.format_exception}") _locals > return Error (Exception $"Eval.eval / buildCodeResults Error > / Exception / buildCodeResults: %A{buildCodeResults} / ex: {ex |> > SpiralSm.format_exception}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / buildCodeResults > Error / errors[[0]] / buildCodeResults: %A{buildCodeResults} / ex: {ex |> > SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0)) > ) > |]] > | _ -> > return Error (Exception $"Eval.eval / buildCodeResults / > Exception / buildCodeResults: %A{buildCodeResults}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / buildCodeResults > / errors[[0]] / buildCodeResults: %A{buildCodeResults}", 0, ("", (0, 0), (0, 0)) > ) > |]] > with ex -> > trace Critical (fun () -> $"Eval.eval / try 1 ex / lines : > %A{lines} / ex: {ex |> SpiralSm.format_exception}") _locals > return Error (Exception $"Eval.eval / try 1 ex / Exception / > %A{lines} / ex: {ex |> SpiralSm.format_exception}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / try 1 ex / > errors[[0]] / %A{lines} / ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, > 0), (0, 0)) > ) > |]] > } > |> Async.runWithTimeout timeout > |> Option.defaultValue ( > Error (Exception $"Eval.eval / Async.runWithTimeout / Exception / > timeout: {timeout} / %A{lines}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / Async.runWithTimeout / > errors[[0]] / timeout: {timeout} / %A{lines}", 0, ("", (0, 0), (0, 0)) > ) > |]] > ) 00:00:49 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 103506 00:00:49 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:51 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb to html 00:00:51 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:51 verbose #7 ! validate(nb) 00:00:53 verbose #8 ! [NbConvertApp] Writing 428434 bytes to c:\home\git\polyglot\apps\spiral\Eval.dib.html 00:00:53 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641 00:00:53 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641 00:00:53 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Eval.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Eval.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:00:54 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:00:54 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:00:55 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 104206 00:00:00 debug #1 writeDibCode / output: Fs / path: Eval.dib 00:00:00 debug #2 parseDibCode / output: Fs / file: Eval.dib
In [ ]:
{ pwsh ../apps/spiral/builder/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../../workspace/target/release/spiral_builder.exe dib --path spiral_builder.dib",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "spiral_builder.dib"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib" --output-path "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:03 verbose #4 > >
00:00:03 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:03 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:03 verbose #7 > > │ # spiral_builder │
00:00:03 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:03 verbose #9 > >
00:00:03 verbose #10 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:03 verbose #11 > > open file_system_operators
00:00:03 verbose #12 > > open rust_operators
00:00:03 verbose #13 > > open sm'_operators
00:00:03 verbose #14 > >
00:00:03 verbose #15 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:03 verbose #16 > > #r
00:00:03 verbose #17 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 verbose #18 > > otNet.Interactive.Spiral.dll"
00:00:03 verbose #19 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:03 verbose #20 > > #r
00:00:03 verbose #21 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 verbose #22 > > otNet.Interactive.dll"
00:00:03 verbose #23 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:08 verbose #24 > >
00:00:08 verbose #25 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:08 verbose #26 > > //// test
00:00:08 verbose #27 > >
00:00:08 verbose #28 > > open testing
00:00:09 verbose #29 > >
00:00:09 verbose #30 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #31 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #32 > > │ ## types │
00:00:09 verbose #33 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #34 > >
00:00:09 verbose #35 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #36 > > inl types () =
00:00:09 verbose #37 > > env.types ()
00:00:09 verbose #38 > > file_system.types ()
00:00:09 verbose #39 > > runtime.types ()
00:00:09 verbose #40 > > rust.types ()
00:00:09 verbose #41 > > sm'.types ()
00:00:09 verbose #42 > > crypto.types ()
00:00:10 verbose #43 > >
00:00:10 verbose #44 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #45 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #46 > > │ ## get_args │
00:00:10 verbose #47 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #48 > >
00:00:10 verbose #49 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #50 > > inl get_args () =
00:00:10 verbose #51 > > {
00:00:10 verbose #52 > > fsharp = "fsharp", {
00:00:10 verbose #53 > > spi_path = "spi-path", 's'
00:00:10 verbose #54 > > }
00:00:10 verbose #55 > > cuda = "cuda", {
00:00:10 verbose #56 > > py_path = "py-path", 'p'
00:00:10 verbose #57 > > env = "env", 'e'
00:00:10 verbose #58 > > deps = "deps", 'd'
00:00:10 verbose #59 > > }
00:00:10 verbose #60 > > fable = "fable", {
00:00:10 verbose #61 > > fs_path = "fs-path", 'f'
00:00:10 verbose #62 > > command = "command", 'c'
00:00:10 verbose #63 > > }
00:00:10 verbose #64 > > rust = "rust", {
00:00:10 verbose #65 > > fs_path = "fs-path", 'f'
00:00:10 verbose #66 > > deps = "deps", 'd'
00:00:10 verbose #67 > > }
00:00:10 verbose #68 > > typescript = "typescript", {
00:00:10 verbose #69 > > fs_path = "fs-path", 'f'
00:00:10 verbose #70 > > deps = "deps", 'd'
00:00:10 verbose #71 > > }
00:00:10 verbose #72 > > python = "python", {
00:00:10 verbose #73 > > fs_path = "fs-path", 'f'
00:00:10 verbose #74 > > deps = "deps", 'd'
00:00:10 verbose #75 > > }
00:00:10 verbose #76 > > dib = "dib", {
00:00:10 verbose #77 > > path = "path", 'p'
00:00:10 verbose #78 > > retries = "retries", 'r'
00:00:10 verbose #79 > > working_directory = "working-directory", 'w'
00:00:10 verbose #80 > > }
00:00:10 verbose #81 > > }
00:00:10 verbose #82 > >
00:00:10 verbose #83 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #84 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #85 > > │ ## cuda_env │
00:00:10 verbose #86 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #87 > >
00:00:10 verbose #88 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #89 > > union cuda_env =
00:00:10 verbose #90 > > | Pip
00:00:10 verbose #91 > > | Poetry
00:00:11 verbose #92 > >
00:00:11 verbose #93 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #94 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #95 > > │ ## get_command │
00:00:11 verbose #96 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #97 > >
00:00:11 verbose #98 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #99 > > let get_command () =
00:00:11 verbose #100 > > ##"command"
00:00:11 verbose #101 > > |> runtime.new_command
00:00:11 verbose #102 > > |> runtime.command_subcommand_required true
00:00:11 verbose #103 > > |> runtime.command_subcommand (
00:00:11 verbose #104 > > ##(get_args () .fsharp |> fst)
00:00:11 verbose #105 > > |> runtime.new_command
00:00:11 verbose #106 > > |> runtime.command_init_arg ((get_args () .fsharp |> snd).spi_path) (
00:00:11 verbose #107 > > runtime.arg_required true
00:00:11 verbose #108 > > )
00:00:11 verbose #109 > > )
00:00:11 verbose #110 > > |> runtime.command_subcommand (
00:00:11 verbose #111 > > ##(get_args () .cuda |> fst)
00:00:11 verbose #112 > > |> runtime.new_command
00:00:11 verbose #113 > > |> runtime.command_init_arg ((get_args () .cuda |> snd).py_path) (
00:00:11 verbose #114 > > runtime.arg_required true
00:00:11 verbose #115 > > )
00:00:11 verbose #116 > > |> runtime.command_init_arg ((get_args () .cuda |> snd).env) (
00:00:11 verbose #117 > > real runtime.arg_union `cuda_env ignore
00:00:11 verbose #118 > > )
00:00:11 verbose #119 > > |> runtime.command_init_arg ((get_args () .cuda |> snd).deps) (
00:00:11 verbose #120 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:11 verbose #121 > > >> runtime.arg_num_args_range (
00:00:11 verbose #122 > > runtime.new_value_range
00:00:11 verbose #123 > > (am'.Start (1i32 |> convert : unativeint))
00:00:11 verbose #124 > > (am'.End id)
00:00:11 verbose #125 > > )
00:00:11 verbose #126 > > >> runtime.arg_action runtime.Append
00:00:11 verbose #127 > > )
00:00:11 verbose #128 > > )
00:00:11 verbose #129 > > |> runtime.command_subcommand (
00:00:11 verbose #130 > > ##(get_args () .fable |> fst)
00:00:11 verbose #131 > > |> runtime.new_command
00:00:11 verbose #132 > > |> runtime.command_init_arg ((get_args () .fable |> snd).fs_path) (
00:00:11 verbose #133 > > runtime.arg_required true
00:00:11 verbose #134 > > )
00:00:11 verbose #135 > > |> runtime.command_init_arg ((get_args () .fable |> snd).command) (
00:00:11 verbose #136 > > id
00:00:11 verbose #137 > > )
00:00:11 verbose #138 > > )
00:00:11 verbose #139 > > |> runtime.command_subcommand (
00:00:11 verbose #140 > > ##(get_args () .rust |> fst)
00:00:11 verbose #141 > > |> runtime.new_command
00:00:11 verbose #142 > > |> runtime.command_init_arg ((get_args () .rust |> snd).fs_path) (
00:00:11 verbose #143 > > runtime.arg_required true
00:00:11 verbose #144 > > )
00:00:11 verbose #145 > > |> runtime.command_init_arg ((get_args () .rust |> snd).deps) (
00:00:11 verbose #146 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:11 verbose #147 > > >> runtime.arg_num_args_range (
00:00:11 verbose #148 > > runtime.new_value_range
00:00:11 verbose #149 > > (am'.Start (1i32 |> convert : unativeint))
00:00:11 verbose #150 > > (am'.End id)
00:00:11 verbose #151 > > )
00:00:11 verbose #152 > > >> runtime.arg_action runtime.Append
00:00:11 verbose #153 > > )
00:00:11 verbose #154 > > )
00:00:11 verbose #155 > > |> runtime.command_subcommand (
00:00:11 verbose #156 > > ##(get_args () .typescript |> fst)
00:00:11 verbose #157 > > |> runtime.new_command
00:00:11 verbose #158 > > |> runtime.command_init_arg ((get_args () .typescript |> snd).fs_path) (
00:00:11 verbose #159 > > runtime.arg_required true
00:00:11 verbose #160 > > )
00:00:11 verbose #161 > > |> runtime.command_init_arg ((get_args () .typescript |> snd).deps) (
00:00:11 verbose #162 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:11 verbose #163 > > >> runtime.arg_num_args_range (
00:00:11 verbose #164 > > runtime.new_value_range
00:00:11 verbose #165 > > (am'.Start (1i32 |> convert : unativeint))
00:00:11 verbose #166 > > (am'.End id)
00:00:11 verbose #167 > > )
00:00:11 verbose #168 > > >> runtime.arg_action runtime.Append
00:00:11 verbose #169 > > )
00:00:11 verbose #170 > > )
00:00:11 verbose #171 > > |> runtime.command_subcommand (
00:00:11 verbose #172 > > ##(get_args () .python |> fst)
00:00:11 verbose #173 > > |> runtime.new_command
00:00:11 verbose #174 > > |> runtime.command_init_arg ((get_args () .python |> snd).fs_path) (
00:00:11 verbose #175 > > runtime.arg_required true
00:00:11 verbose #176 > > )
00:00:11 verbose #177 > > |> runtime.command_init_arg ((get_args () .python |> snd).deps) (
00:00:11 verbose #178 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:11 verbose #179 > > >> runtime.arg_num_args_range (
00:00:11 verbose #180 > > runtime.new_value_range
00:00:11 verbose #181 > > (am'.Start (1i32 |> convert : unativeint))
00:00:11 verbose #182 > > (am'.End id)
00:00:11 verbose #183 > > )
00:00:11 verbose #184 > > >> runtime.arg_action runtime.Append
00:00:11 verbose #185 > > )
00:00:11 verbose #186 > > )
00:00:11 verbose #187 > > |> runtime.command_subcommand (
00:00:11 verbose #188 > > ##(get_args () .dib |> fst)
00:00:11 verbose #189 > > |> runtime.new_command
00:00:11 verbose #190 > > |> runtime.command_init_arg ((get_args () .dib |> snd).path) (
00:00:11 verbose #191 > > runtime.arg_required true
00:00:11 verbose #192 > > // >> runtime.arg_value_parser (runtime.value_parser_path_buf ())
00:00:11 verbose #193 > > )
00:00:11 verbose #194 > > |> runtime.command_init_arg ((get_args () .dib |> snd).retries) (
00:00:11 verbose #195 > > runtime.arg_value_parser (runtime.value_parser_expr "u8")
00:00:11 verbose #196 > > )
00:00:11 verbose #197 > > |> runtime.command_init_arg ((get_args () .dib |>
00:00:11 verbose #198 > > snd).working_directory) (
00:00:11 verbose #199 > > id
00:00:11 verbose #200 > > )
00:00:11 verbose #201 > > )
00:00:11 verbose #202 > >
00:00:11 verbose #203 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #204 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #205 > > │ ## fable │
00:00:11 verbose #206 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #207 > >
00:00:11 verbose #208 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #209 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #210 > > │ ### execute_dotnet_fable │
00:00:11 verbose #211 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #212 > >
00:00:11 verbose #213 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #214 > > let execute_dotnet_fable { workspace_root_external fsproj_path extension
00:00:11 verbose #215 > > package_dir } =
00:00:11 verbose #216 > > runtime.execution_options fun x => { x with
00:00:11 verbose #217 > > command =
00:00:11 verbose #218 > > inl platform =
00:00:11 verbose #219 > > if platform.is_windows ()
00:00:11 verbose #220 > > then "_WINDOWS"
00:00:11 verbose #221 > > else "_LINUX"
00:00:11 verbose #222 > > $'$"dotnet fable \\\"{!fsproj_path}\\\" --optimize --lang
00:00:11 verbose #223 > > {!extension} --extension .{!extension} --outDir \\\"{!package_dir}\\\" --define
00:00:11 verbose #224 > > {!platform}"'
00:00:11 verbose #225 > > working_directory = workspace_root_external |> resultm.box |>
00:00:11 verbose #226 > > resultm.ok'
00:00:11 verbose #227 > > }
00:00:11 verbose #228 > > |> runtime.execute_retry 3u8
00:00:12 verbose #229 > >
00:00:12 verbose #230 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #231 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #232 > > │ ### persist_code_project │
00:00:12 verbose #233 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #234 > >
00:00:12 verbose #235 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #236 > > inl persist_code_project packages modules name hash code =
00:00:12 verbose #237 > > inl modules_code = ""
00:00:12 verbose #238 > >
00:00:12 verbose #239 > > inl workspace_root = file_system.get_workspace_root ()
00:00:12 verbose #240 > > inl target_dir =
00:00:12 verbose #241 > > inl target_dir = workspace_root </> "target/spiral_builder" </> name
00:00:12 verbose #242 > > match hash with
00:00:12 verbose #243 > > | Some hash => target_dir </> "packages" </> hash
00:00:12 verbose #244 > > | None => target_dir
00:00:12 verbose #245 > > target_dir |> file_system.create_dir |> ignore
00:00:12 verbose #246 > >
00:00:12 verbose #247 > > inl fs_path = target_dir </> $'$"{!name}.fs"' |> file_system.normalize_path
00:00:12 verbose #248 > > code |> file_system.write_all_text_exists fs_path
00:00:12 verbose #249 > >
00:00:12 verbose #250 > > inl modules_code =
00:00:12 verbose #251 > > modules
00:00:12 verbose #252 > > |> listm.map fun path =>
00:00:12 verbose #253 > > inl path = workspace_root </> path
00:00:12 verbose #254 > > $'$"<Compile Include=\\\"{!path}\\\" />"' : string
00:00:12 verbose #255 > > |> listm'.box
00:00:12 verbose #256 > > |> seq.of_list'
00:00:12 verbose #257 > > |> sm'.concat "\\n "
00:00:12 verbose #258 > >
00:00:12 verbose #259 > > inl packages_code =
00:00:12 verbose #260 > > packages
00:00:12 verbose #261 > > |> listm.map fun (package : string) =>
00:00:12 verbose #262 > > $'$"<PackageReference Include=\\\"{!package}\\\" Version=\\\"*\\\"
00:00:12 verbose #263 > > />"' : string
00:00:12 verbose #264 > > |> listm'.box
00:00:12 verbose #265 > > |> seq.of_list'
00:00:12 verbose #266 > > |> sm'.concat "\\n "
00:00:12 verbose #267 > >
00:00:12 verbose #268 > > inl fsproj_path = target_dir </> $'$"{!name}.fsproj"' |>
00:00:12 verbose #269 > > file_system.normalize_path
00:00:12 verbose #270 > > inl fsproj_code : string =
00:00:12 verbose #271 > > $'$"<Project Sdk=\\\"Microsoft.NET.Sdk\\\">"'
00:00:12 verbose #272 > > +#. $'$"<PropertyGroup>"'
00:00:12 verbose #273 > > +#. $'$" <TargetFramework>net9.0</TargetFramework>"'
00:00:12 verbose #274 > > +#. $'$" <LangVersion>preview</LangVersion>"'
00:00:12 verbose #275 > > +#. $'$" <RollForward>Major</RollForward>"'
00:00:12 verbose #276 > > +#. $'$" <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch>"'
00:00:12 verbose #277 > > +#. $'$" <PublishAot>false</PublishAot>"'
00:00:12 verbose #278 > > +#. $'$" <PublishTrimmed>false</PublishTrimmed>"'
00:00:12 verbose #279 > > +#. $'$" <PublishSingleFile>true</PublishSingleFile>"'
00:00:12 verbose #280 > > +#. $'$" <SelfContained>true</SelfContained>"'
00:00:12 verbose #281 > > +#. $'$" <Version>0.0.1-alpha.1</Version>"'
00:00:12 verbose #282 > > +#. $'$" <OutputType>Exe</OutputType>"'
00:00:12 verbose #283 > > +#. $'$"</PropertyGroup>"'
00:00:12 verbose #284 > >
00:00:12 verbose #285 > > +#. $'$"<PropertyGroup
00:00:12 verbose #286 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'FreeBSD\'))\\\">"'
00:00:12 verbose #287 > > +#. $'$" <DefineConstants>_FREEBSD</DefineConstants>"'
00:00:12 verbose #288 > > +#. $'$"</PropertyGroup>"'
00:00:12 verbose #289 > >
00:00:12 verbose #290 > > +#. $'$"<PropertyGroup
00:00:12 verbose #291 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'Linux\'))\\\">"'
00:00:12 verbose #292 > > +#. $'$" <DefineConstants>_LINUX</DefineConstants>"'
00:00:12 verbose #293 > > +#. $'$"</PropertyGroup>"'
00:00:12 verbose #294 > >
00:00:12 verbose #295 > > +#. $'$"<PropertyGroup
00:00:12 verbose #296 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'OSX\'))\\\">"'
00:00:12 verbose #297 > > +#. $'$" <DefineConstants>_OSX</DefineConstants>"'
00:00:12 verbose #298 > > +#. $'$"</PropertyGroup>"'
00:00:12 verbose #299 > >
00:00:12 verbose #300 > > +#. $'$"<PropertyGroup
00:00:12 verbose #301 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'Windows\'))\\\">"'
00:00:12 verbose #302 > > +#. $'$" <DefineConstants>_WINDOWS</DefineConstants>"'
00:00:12 verbose #303 > > +#. $'$"</PropertyGroup>"'
00:00:12 verbose #304 > >
00:00:12 verbose #305 > > +#. $'$"<ItemGroup>"'
00:00:12 verbose #306 > > +#. $'$" {!modules_code}"'
00:00:12 verbose #307 > > +#. $'$" <Compile Include=\\\"{!fs_path}\\\" />"'
00:00:12 verbose #308 > > +#. $'$"</ItemGroup>"'
00:00:12 verbose #309 > >
00:00:12 verbose #310 > > +#. $'$"<ItemGroup>"'
00:00:12 verbose #311 > > +#. $'$" {!packages_code}"'
00:00:12 verbose #312 > > +#. $'$"</ItemGroup>"'
00:00:12 verbose #313 > >
00:00:12 verbose #314 > > +#. $'$"</Project>"'
00:00:12 verbose #315 > >
00:00:12 verbose #316 > > fsproj_code |> file_system.write_all_text_exists fsproj_path
00:00:12 verbose #317 > >
00:00:12 verbose #318 > > fsproj_path
00:00:13 verbose #319 > >
00:00:13 verbose #320 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #321 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #322 > > │ ### build_project │
00:00:13 verbose #323 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #324 > >
00:00:13 verbose #325 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #326 > > inl build_project runtime' output_dir path =
00:00:13 verbose #327 > > inl full_path = path |> file_system.get_full_path
00:00:13 verbose #328 > > inl file_dir = full_path |> file_system.get_directory_name
00:00:13 verbose #329 > > inl extension = full_path |> file_system.get_extension
00:00:13 verbose #330 > >
00:00:13 verbose #331 > > trace Debug
00:00:13 verbose #332 > > fun () => "build_project"
00:00:13 verbose #333 > > fun () => $'$"full_path: {!full_path} / {!_locals ()}"'
00:00:13 verbose #334 > >
00:00:13 verbose #335 > > match extension with
00:00:13 verbose #336 > > | "fsproj" => ()
00:00:13 verbose #337 > > | _ => failwith $'$"spiral_builder.build_project / Invalid project file
00:00:13 verbose #338 > > extension: {!extension}"'
00:00:13 verbose #339 > >
00:00:13 verbose #340 > > inl runtimes =
00:00:13 verbose #341 > > runtime'
00:00:13 verbose #342 > > |> optionm.map listm.singleton
00:00:13 verbose #343 > > |> optionm'.default_value [[ "linux-x64"; "win-x64" ]]
00:00:13 verbose #344 > >
00:00:13 verbose #345 > > inl output_dir = output_dir |> optionm'.default_value "dist"
00:00:13 verbose #346 > >
00:00:13 verbose #347 > > runtimes
00:00:13 verbose #348 > > |> listm.map fun runtime' =>
00:00:13 verbose #349 > > runtime.execution_options fun x => { x with
00:00:13 verbose #350 > > command = $'$@@"dotnet publish \"\"{!path}\"\" --configuration
00:00:13 verbose #351 > > Release --output \"\"{!output_dir}\"\" --runtime {!runtime'}"'
00:00:13 verbose #352 > > working_directory = file_dir |> Some |> optionm'.box
00:00:13 verbose #353 > > }
00:00:13 verbose #354 > > |> runtime.execute_with_options
00:00:13 verbose #355 > > |> fst
00:00:13 verbose #356 > > |> listm'.sum
00:00:13 verbose #357 > >
00:00:13 verbose #358 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #359 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #360 > > │ ### build_code │
00:00:13 verbose #361 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #362 > >
00:00:13 verbose #363 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #364 > > inl build_code runtime packages modules output_dir name code =
00:00:14 verbose #365 > > inl fsproj_path = code |> persist_code_project packages modules name None
00:00:14 verbose #366 > > inl exit_code = fsproj_path |> build_project runtime output_dir
00:00:14 verbose #367 > > if exit_code <>. 0 then
00:00:14 verbose #368 > > inl fsproj_text = fsproj_path |> file_system.read_all_text
00:00:14 verbose #369 > > trace Critical
00:00:14 verbose #370 > > fun () => "build_code"
00:00:14 verbose #371 > > fun () =>
00:00:14 verbose #372 > > inl code = code |> sm'.ellipsis_end 400
00:00:14 verbose #373 > > $'$"code: {!code} / fsproj_text: {!fsproj_text} / {!_locals
00:00:14 verbose #374 > > ()}"'
00:00:14 verbose #375 > > exit_code
00:00:14 verbose #376 > >
00:00:14 verbose #377 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #378 > > //// test
00:00:14 verbose #379 > > ///! rust -d encoding_rs encoding_rs_io regex
00:00:14 verbose #380 > >
00:00:14 verbose #381 > > types ()
00:00:14 verbose #382 > > "1 + 1 |> ignore"
00:00:14 verbose #383 > > |> build_code None [[]] [[]] None "test1"
00:00:14 verbose #384 > > |> _assert_eq 0
00:00:54 verbose #385 > >
00:00:54 verbose #386 > > ╭─[ 40.22s - return value ]────────────────────────────────────────────────────╮
00:00:54 verbose #387 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:00:54 verbose #388 > > │ c:\home\git\polyglot\target/spiral_builder\test1 │
00:00:54 verbose #389 > > │ 00:00:00 debug #2 build_project / full_path: │
00:00:54 verbose #390 > > │ \\?\C:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj │
00:00:54 verbose #391 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:00:54 verbose #392 > > │ arguments: ["publish", │
00:00:54 verbose #393 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj", │
00:00:54 verbose #394 > > │ "--configuration", "Release", "--output", "dist", "--runtime", "win-x64"] / │
00:00:54 verbose #395 > > │ options: (None, "dotnet publish │
00:00:54 verbose #396 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj" │
00:00:54 verbose #397 > > │ --configuration Release --output "dist" --runtime win-x64", Array(MutCell([ │
00:00:54 verbose #398 > > │ ])), None, None, true, │
00:00:54 verbose #399 > > │ Some("\\?\C:\home\git\polyglot\target\spiral_builder\test1")) │
00:00:54 verbose #400 > > │ 00:00:00 verbose #4 > MSBuild version │
00:00:54 verbose #401 > > │ 17.10.0-preview-24101-01+07fd5d51f for .NET │
00:00:54 verbose #402 > > │ 00:00:00 verbose #5 > Determining projects to restore... │
00:00:54 verbose #403 > > │ 00:00:01 verbose #6 > Restored │
00:00:54 verbose #404 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj (in 376 ms). │
00:00:54 verbose #405 > > │ 00:00:01 verbose #7 > │
00:00:54 verbose #406 > > │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
00:00:54 verbose #407 > > │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
00:00:54 verbose #408 > > │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
00:00:54 verbose #409 > > │ .NET. See: https://aka.ms/dotnet-support-policy [ │
00:00:54 verbose #410 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj] │
00:00:54 verbose #411 > > │ 00:00:02 verbose #8 > test1 -> │
00:00:54 verbose #412 > > │ c:\home\git\polyglot\target\spiral_builder\test1\bin\Release\net9.0\win-x6.. │
00:00:54 verbose #413 > > │ ..execute_with_options / file_name: dotnet / arguments: ["publish", │
00:00:54 verbose #414 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj", │
00:00:54 verbose #415 > > │ "--configuration", "Release", "--output", "dist", "--runtime", "linux-x64"] │
00:00:54 verbose #416 > > │ / options: (None, "dotnet publish │
00:00:54 verbose #417 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj" │
00:00:54 verbose #418 > > │ --configuration Release --output "dist" --runtime linux-x64", Array(MutCell( │
00:00:54 verbose #419 > > │ [])), None, None, true, │
00:00:54 verbose #420 > > │ Some("\\?\C:\home\git\polyglot\target\spiral_builder\test1")) │
00:00:54 verbose #421 > > │ 00:00:05 verbose #12 > MSBuild version │
00:00:54 verbose #422 > > │ 17.10.0-preview-24101-01+07fd5d51f for .NET │
00:00:54 verbose #423 > > │ 00:00:06 verbose #13 > Determining projects to restore... │
00:00:54 verbose #424 > > │ 00:00:07 verbose #14 > Restored │
00:00:54 verbose #425 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj (in 367 ms). │
00:00:54 verbose #426 > > │ 00:00:07 verbose #15 > │
00:00:54 verbose #427 > > │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
00:00:54 verbose #428 > > │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
00:00:54 verbose #429 > > │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
00:00:54 verbose #430 > > │ .NET. See: https://aka.ms/dotnet-support-policy [ │
00:00:54 verbose #431 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj] │
00:00:54 verbose #432 > > │ 00:00:08 verbose #16 > test1 -> │
00:00:54 verbose #433 > > │ c:\home\git\polyglot\target\spiral_builder\test1\bin\Release\net9.0\linux-x6 │
00:00:54 verbose #434 > > │ 4\test1.dll │
00:00:54 verbose #435 > > │ 00:00:10 verbose #17 > test1 -> │
00:00:54 verbose #436 > > │ \\?\C:\home\git\polyglot\target\spiral_builder\test1\dist\ │
00:00:54 verbose #437 > > │ 00:00:10 verbose #18 runtime.execute_with_options / result / │
00:00:54 verbose #438 > > │ exit_code: 0 / std_trace.Length: 689 │
00:00:54 verbose #439 > > │ assert_eq / actual: 0 / expected: 0 │
00:00:54 verbose #440 > > │ │
00:00:54 verbose #441 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 verbose #442 > >
00:00:54 verbose #443 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 verbose #444 > > //// test
00:00:54 verbose #445 > > ///! rust -d encoding_rs encoding_rs_io regex
00:00:54 verbose #446 > >
00:00:54 verbose #447 > > types ()
00:00:54 verbose #448 > > "1 + a |> ignore"
00:00:54 verbose #449 > > |> build_code None [[]] [[]] None "test2"
00:00:54 verbose #450 > > |> _assert_eq 2
00:01:34 verbose #451 > >
00:01:34 verbose #452 > > ╭─[ 39.33s - return value ]────────────────────────────────────────────────────╮
00:01:34 verbose #453 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:01:34 verbose #454 > > │ c:\home\git\polyglot\target/spiral_builder\test2 │
00:01:34 verbose #455 > > │ 00:00:00 debug #2 build_project / full_path: │
00:01:34 verbose #456 > > │ \\?\C:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj │
00:01:34 verbose #457 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:01:34 verbose #458 > > │ arguments: ["publish", │
00:01:34 verbose #459 > > │ "c:/home/git/polyglot/target/spiral_builder/test2/test2.fsproj", │
00:01:34 verbose #460 > > │ "--configuration", "Release", "--output", "dist", "--runtime", "win-x64"] / │
00:01:34 verbose #461 > > │ options: (None, "dotnet publish │
00:01:34 verbose #462 > > │ "c:/home/git/polyglot/target/spiral_builder/test2/test2.fsproj" │
00:01:34 verbose #463 > > │ --configuration Release --output "dist" --runtime win-x64", Array(MutCell([ │
00:01:34 verbose #464 > > │ ])), None, None, true, │
00:01:34 verbose #465 > > │ Some("\\?\C:\home\git\polyglot\target\spiral_builder\test2")) │
00:01:34 verbose #466 > > │ 00:00:00 verbose #4 > MSBuild version │
00:01:34 verbose #467 > > │ 17.10.0-preview-24101-01+07fd5d51f for .NET │
00:01:34 verbose #468 > > │ 00:00:00 verbose #5 > Determining projects to restore... │
00:01:34 verbose #469 > > │ 00:00:01 verbose #6 > Restored │
00:01:34 verbose #470 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj (in 388 ms). │
00:01:34 verbose #471 > > │ 00:00:01 verbose #7 > │
00:01:34 verbose #472 > > │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
00:01:34 verbose #473 > > │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
00:01:34 verbose #474 > > │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
00:01:34 verbose #475 > > │ .NET. See: https://aka.ms/dotnet-support-policy [ │
00:01:34 verbose #476 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj] │
00:01:34 verbose #477 > > │ 00:00:04 verbose #8 > │
00:01:34 verbose #478 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fs(1,5): error │
00:01:34 verbose #479 > > │ FS0039: The val...or FS0039: The value or constructor 'a' is not defined. [ │
00:01:34 verbose #480 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj] │
00:01:34 verbose #481 > > │ 00:00:08 verbose #16 runtime.execute_with_options / result / │
00:01:34 verbose #482 > > │ exit_code: 1 / std_trace.Length: 707 │
00:01:34 verbose #483 > > │ 00:00:08 critical #17 build_code / code: 1 + a |> ignore / │
00:01:34 verbose #484 > > │ fsproj_text: <Project Sdk="Microsoft.NET.Sdk"> │
00:01:34 verbose #485 > > │ <PropertyGroup> │
00:01:34 verbose #486 > > │ <TargetFramework>net9.0</TargetFramework> │
00:01:34 verbose #487 > > │ <LangVersion>preview</LangVersion> │
00:01:34 verbose #488 > > │ <RollForward>Major</RollForward> │
00:01:34 verbose #489 > > │ <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch> │
00:01:34 verbose #490 > > │ <PublishAot>false</PublishAot> │
00:01:34 verbose #491 > > │ <PublishTrimmed>false</PublishTrimmed> │
00:01:34 verbose #492 > > │ <PublishSingleFile>true</PublishSingleFile> │
00:01:34 verbose #493 > > │ <SelfContained>true</SelfContained> │
00:01:34 verbose #494 > > │ <Version>0.0.1-alpha.1</Version> │
00:01:34 verbose #495 > > │ <OutputType>Exe</OutputType> │
00:01:34 verbose #496 > > │ </PropertyGroup> │
00:01:34 verbose #497 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('FreeBSD'))"> │
00:01:34 verbose #498 > > │ <DefineConstants>_FREEBSD</DefineConstants> │
00:01:34 verbose #499 > > │ </PropertyGroup> │
00:01:34 verbose #500 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Linux'))"> │
00:01:34 verbose #501 > > │ <DefineConstants>_LINUX</DefineConstants> │
00:01:34 verbose #502 > > │ </PropertyGroup> │
00:01:34 verbose #503 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('OSX'))"> │
00:01:34 verbose #504 > > │ <DefineConstants>_OSX</DefineConstants> │
00:01:34 verbose #505 > > │ </PropertyGroup> │
00:01:34 verbose #506 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Windows'))"> │
00:01:34 verbose #507 > > │ <DefineConstants>_WINDOWS</DefineConstants> │
00:01:34 verbose #508 > > │ </PropertyGroup> │
00:01:34 verbose #509 > > │ <ItemGroup> │
00:01:34 verbose #510 > > │ │
00:01:34 verbose #511 > > │ <Compile │
00:01:34 verbose #512 > > │ Include="c:/home/git/polyglot/target/spiral_builder/test2/test2.fs" /> │
00:01:34 verbose #513 > > │ </ItemGroup> │
00:01:34 verbose #514 > > │ <ItemGroup> │
00:01:34 verbose #515 > > │ │
00:01:34 verbose #516 > > │ </ItemGroup> │
00:01:34 verbose #517 > > │ </Project> │
00:01:34 verbose #518 > > │ assert_eq / actual: 2 / expected: 2 │
00:01:34 verbose #519 > > │ │
00:01:34 verbose #520 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 verbose #521 > >
00:01:34 verbose #522 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 verbose #523 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 verbose #524 > > │ ### read_file │
00:01:34 verbose #525 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 verbose #526 > >
00:01:34 verbose #527 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:34 verbose #528 > > inl read_file path =
00:01:34 verbose #529 > > inl code =
00:01:34 verbose #530 > > path
00:01:34 verbose #531 > > |> file_system.read_all_text
00:01:34 verbose #532 > > |> sm'.replace_regex $'@@"(?P<a> *)(?P<b>let\\s+main\\s+.*?\\s*=)"'
00:01:34 verbose #533 > > "$a[[<EntryPoint>]]\n$a$b"
00:01:34 verbose #534 > >
00:01:34 verbose #535 > > inl code_trim = code |> sm'.trim_end ;[[]]
00:01:34 verbose #536 > > if code_trim |> sm'.ends_with "\\n()"
00:01:34 verbose #537 > > then code_trim |> sm'.slice 0i64 ((code_trim |> sm'.length) - 3)
00:01:34 verbose #538 > > else code
00:01:34 verbose #539 > >
00:01:34 verbose #540 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 verbose #541 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 verbose #542 > > │ ### persist_file │
00:01:34 verbose #543 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 verbose #544 > >
00:01:34 verbose #545 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:34 verbose #546 > > inl persist_file packages modules path =
00:01:34 verbose #547 > > inl full_path = path |> file_system.get_full_path
00:01:34 verbose #548 > > inl name = full_path |> file_system.get_file_name_without_extension
00:01:34 verbose #549 > > inl code = full_path |> read_file
00:01:34 verbose #550 > > code |> persist_code_project packages modules name None
00:01:35 verbose #551 > >
00:01:35 verbose #552 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:35 verbose #553 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:35 verbose #554 > > │ ### build_file │
00:01:35 verbose #555 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 verbose #556 > >
00:01:35 verbose #557 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:35 verbose #558 > > inl build_file runtime packages modules path =
00:01:35 verbose #559 > > inl full_path = path |> file_system.get_full_path
00:01:35 verbose #560 > > inl dir = full_path |> file_system.get_directory_name
00:01:35 verbose #561 > > inl name = full_path |> file_system.get_file_name_without_extension
00:01:35 verbose #562 > > inl code = full_path |> read_file
00:01:35 verbose #563 > > code |> build_code runtime packages modules (dir </> "dist" |> Some) name
00:01:36 verbose #564 > >
00:01:36 verbose #565 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:36 verbose #566 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:36 verbose #567 > > │ ## rust │
00:01:36 verbose #568 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:36 verbose #569 > >
00:01:36 verbose #570 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:36 verbose #571 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:36 verbose #572 > > │ ### get_workspace_cargo_toml_content │
00:01:36 verbose #573 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:36 verbose #574 > >
00:01:36 verbose #575 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:36 verbose #576 > > inl get_workspace_cargo_toml_content { workspace_root } : string =
00:01:36 verbose #577 > > inl workspace_root = workspace_root |> file_system.normalize_path
00:01:36 verbose #578 > > $'$"[[workspace]]"'
00:01:36 verbose #579 > > +#. $'$"resolver = \\\"2\\\""'
00:01:36 verbose #580 > > +#. $'$"members = [[\\\"packages/*\\\"]]"'
00:01:36 verbose #581 > > +#. $'$""'
00:01:36 verbose #582 > > +#. $'$"[[workspace.dependencies.fable_library_rust]]"'
00:01:36 verbose #583 > > +#. $'$"path =
00:01:36 verbose #584 > > \\\"{!workspace_root}/lib/rust/fable/fable_modules/fable-library-rust\\\""'
00:01:36 verbose #585 > > +#. $'$"default-features = false"'
00:01:36 verbose #586 > > +#. $'$"features = [[\\\"static_do_bindings\\\", \\\"datetime\\\",
00:01:36 verbose #587 > > \\\"guid\\\", \\\"threaded\\\"]]"'
00:01:36 verbose #588 > > +#. $'$""'
00:01:36 verbose #589 > > +#. $'$"[[workspace.dependencies]]"'
00:01:36 verbose #590 > > +#. $'$"inline_colorization = \\\"~0.1\\\""'
00:01:37 verbose #591 > >
00:01:37 verbose #592 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:37 verbose #593 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:37 verbose #594 > > │ ### get_cargo_toml_content │
00:01:37 verbose #595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:37 verbose #596 > >
00:01:37 verbose #597 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:37 verbose #598 > > inl get_cargo_toml_content { hash_hex deps } : string =
00:01:37 verbose #599 > > $'$"[[package]]"'
00:01:37 verbose #600 > > +#. $'$"name = \\\"spiral_builder_{!hash_hex}\\\""'
00:01:37 verbose #601 > > +#. $'$"version = \\\"0.0.1\\\""'
00:01:37 verbose #602 > > +#. $'$"edition = \\\"2021\\\""'
00:01:37 verbose #603 > > +#. $'$""'
00:01:37 verbose #604 > > +#. $'$"[[dependencies]]"'
00:01:37 verbose #605 > > +#. $'$"fable_library_rust = {{ workspace = true }}"'
00:01:37 verbose #606 > > +#. $'$"inline_colorization = {{ workspace = true }}"'
00:01:37 verbose #607 > > +#. $'$"{!deps}"'
00:01:37 verbose #608 > > +#. $'$""'
00:01:37 verbose #609 > > +#. $'$"[[[[bin]]]]"'
00:01:37 verbose #610 > > +#. $'$"name = \\\"spiral_builder_{!hash_hex}\\\""'
00:01:37 verbose #611 > > +#. $'$"path = \\\"spiral_builder.rs\\\" "'
00:01:37 verbose #612 > >
00:01:37 verbose #613 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:37 verbose #614 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:37 verbose #615 > > │ ### process_rust │
00:01:37 verbose #616 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:37 verbose #617 > >
00:01:37 verbose #618 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:37 verbose #619 > > inl process_rust { fs_path deps trace_level } =
00:01:37 verbose #620 > > inl is_trace = trace_level = Verbose
00:01:37 verbose #621 > > inl _trace (fn : () -> string) =
00:01:37 verbose #622 > > if is_trace
00:01:37 verbose #623 > > then trace Info (fun () => $'$"spiral_builder.process_rust / {!fn ()}"')
00:01:37 verbose #624 > > _locals
00:01:37 verbose #625 > > else fn () |> console.write_line
00:01:37 verbose #626 > >
00:01:37 verbose #627 > > inl extension = "rs"
00:01:37 verbose #628 > > inl code = fs_path |> file_system.read_all_text
00:01:37 verbose #629 > >
00:01:37 verbose #630 > > inl hash_hex = (extension, code) |> sm'.format_debug |> crypto.hash_text
00:01:37 verbose #631 > >
00:01:37 verbose #632 > > inl workspace_name = "spiral_builder"
00:01:37 verbose #633 > >
00:01:37 verbose #634 > > inl fsproj_path =
00:01:37 verbose #635 > > code
00:01:37 verbose #636 > > |> persist_code_project
00:01:37 verbose #637 > > [[ "Fable.Core" ]]
00:01:37 verbose #638 > > [[]]
00:01:37 verbose #639 > > workspace_name
00:01:37 verbose #640 > > (hash_hex |> Some)
00:01:37 verbose #641 > >
00:01:37 verbose #642 > > inl package_dir = fsproj_path |> file_system.get_directory_name
00:01:37 verbose #643 > >
00:01:37 verbose #644 > > inl cargo_toml_path = package_dir </> "Cargo.toml"
00:01:37 verbose #645 > >
00:01:37 verbose #646 > > inl workspace_dir = package_dir </> "../.."
00:01:37 verbose #647 > > inl workspace_cargo_toml_path = workspace_dir </> "Cargo.toml"
00:01:37 verbose #648 > >
00:01:37 verbose #649 > > inl empty_cargo_toml_content () =
00:01:37 verbose #650 > > inl guid = date_time.now () |> date_time.new_guid_from_date_time |>
00:01:37 verbose #651 > > sm'.obj_to_string
00:01:37 verbose #652 > > $'$"[[package]]"'
00:01:37 verbose #653 > > +#. $'$"name = \\\"spiral_builder_{!guid}\\\""'
00:01:37 verbose #654 > > +#. $'$"version = \\\"0.0.1\\\""'
00:01:37 verbose #655 > > +#. $'$"edition = \\\"2021\\\""'
00:01:37 verbose #656 > > +#. $'$""'
00:01:37 verbose #657 > > +#. $'$"[[[[bin]]]]"'
00:01:37 verbose #658 > > +#. $'$"name = \\\"spiral_builder_{!guid}\\\""'
00:01:37 verbose #659 > > +#. $'$"path = \\\"spiral_builder.{!extension}\\\""'
00:01:37 verbose #660 > >
00:01:37 verbose #661 > > if cargo_toml_path |> file_system.file_exists |> not
00:01:37 verbose #662 > > then empty_cargo_toml_content () |> file_system.write_all_text
00:01:37 verbose #663 > > cargo_toml_path
00:01:37 verbose #664 > >
00:01:37 verbose #665 > > if workspace_cargo_toml_path |> file_system.file_exists |> not
00:01:37 verbose #666 > > then empty_cargo_toml_content () |> file_system.write_all_text
00:01:37 verbose #667 > > workspace_cargo_toml_path
00:01:37 verbose #668 > >
00:01:37 verbose #669 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:01:37 verbose #670 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:01:37 verbose #671 > > resultm.unwrap_or_else id
00:01:37 verbose #672 > >
00:01:37 verbose #673 > > inl lib_link_target_path = workspace_root </>
00:01:37 verbose #674 > > "lib/rust/fable/fable_modules/fable-library-rust"
00:01:37 verbose #675 > > inl lib_link_path = package_dir </> "fable_modules/fable-library-rust"
00:01:37 verbose #676 > >
00:01:37 verbose #677 > > lib_link_path |> file_system.link_directory lib_link_target_path
00:01:37 verbose #678 > >
00:01:37 verbose #679 > > inl exit_code, dotnet_fable_result =
00:01:37 verbose #680 > > execute_dotnet_fable { workspace_root_external fsproj_path extension
00:01:37 verbose #681 > > package_dir }
00:01:37 verbose #682 > >
00:01:37 verbose #683 > > if exit_code <>. 0 then
00:01:37 verbose #684 > > trace Critical
00:01:37 verbose #685 > > fun () => "spiral_builder.process_rust / dotnet fable error"
00:01:37 verbose #686 > > fun () => $'$"exit_code: {!exit_code} / dotnet_fable_result:
00:01:37 verbose #687 > > {!dotnet_fable_result} / {!_locals ()}"'
00:01:37 verbose #688 > > { extension = Some extension; code = None; output = Some
00:01:37 verbose #689 > > dotnet_fable_result }
00:01:37 verbose #690 > > else
00:01:37 verbose #691 > > inl deps =
00:01:37 verbose #692 > > deps
00:01:37 verbose #693 > > |> am'.vec_map fun dep =>
00:01:37 verbose #694 > > inl dep = dep |> sm'.from_std_string
00:01:37 verbose #695 > > if dep |> sm'.contains "="
00:01:37 verbose #696 > > then dep
00:01:37 verbose #697 > > elif dep |> sm'.ends_with "]]"
00:01:37 verbose #698 > > then dep |> sm'.replace "[[" $'$"={{version=\'*\',features=[["'
00:01:37 verbose #699 > > |> fun x => $'$"{!x}}}"'
00:01:37 verbose #700 > > else $'$"{!dep}=\'*\'"'
00:01:37 verbose #701 > > |> am'.from_vec
00:01:37 verbose #702 > > |> fun x => x : _ i32 _
00:01:37 verbose #703 > > |> seq.of_array'
00:01:37 verbose #704 > > |> sm'.concat "\n"
00:01:37 verbose #705 > >
00:01:37 verbose #706 > > inl cargo_toml_content = get_cargo_toml_content { hash_hex deps }
00:01:37 verbose #707 > > inl workspace_cargo_toml_content = get_workspace_cargo_toml_content {
00:01:37 verbose #708 > > workspace_root }
00:01:37 verbose #709 > >
00:01:37 verbose #710 > > cargo_toml_content |> file_system.write_all_text_exists cargo_toml_path
00:01:37 verbose #711 > >
00:01:37 verbose #712 > > workspace_cargo_toml_content |> file_system.write_all_text_exists
00:01:37 verbose #713 > > workspace_cargo_toml_path
00:01:37 verbose #714 > >
00:01:37 verbose #715 > > inl range_rs_path = lib_link_path </> "src/Range.rs"
00:01:37 verbose #716 > > if range_rs_path |> file_system.file_exists then
00:01:37 verbose #717 > > inl text = range_rs_path |> file_system.read_all_text
00:01:37 verbose #718 > > text
00:01:37 verbose #719 > > |> sm'.replace "use crate::String_::fromCharCode;" "use
00:01:37 verbose #720 > > crate::String_::fromChar;"
00:01:37 verbose #721 > > |> sm'.replace "fromCharCode(c)" "std::char::from_u32(c).unwrap()"
00:01:37 verbose #722 > > |> file_system.write_all_text_exists range_rs_path
00:01:37 verbose #723 > >
00:01:37 verbose #724 > > inl exit_code, cargo_fmt_result =
00:01:37 verbose #725 > > fun () =>
00:01:37 verbose #726 > > inl exit_code, result =
00:01:37 verbose #727 > > runtime.execution_options fun x => { x with
00:01:37 verbose #728 > > command = $'$"cargo fmt --manifest-path
00:01:37 verbose #729 > > \\\"{!cargo_toml_path}\\\" --"'
00:01:37 verbose #730 > > working_directory = workspace_root_external |>
00:01:37 verbose #731 > > resultm.box |> resultm.ok'
00:01:37 verbose #732 > > }
00:01:37 verbose #733 > > |> runtime.execute_with_options
00:01:37 verbose #734 > >
00:01:37 verbose #735 > > inl return () =
00:01:37 verbose #736 > > if exit_code = 0
00:01:37 verbose #737 > > then Ok (exit_code, result)
00:01:37 verbose #738 > > else Error (exit_code, result)
00:01:37 verbose #739 > >
00:01:37 verbose #740 > > if result |> sm'.contains "failed to load manifest for workspace
00:01:37 verbose #741 > > member" |> not
00:01:37 verbose #742 > > then return ()
00:01:37 verbose #743 > > else
00:01:37 verbose #744 > > inl missing_toml_path =
00:01:37 verbose #745 > > "failed to read `(?<a>.*?Cargo.toml)`"
00:01:37 verbose #746 > > |> sm'.new_regex
00:01:37 verbose #747 > > |> resultm.unwrap'
00:01:37 verbose #748 > > |> sm'.regex_captures result
00:01:37 verbose #749 > > |> am'.from_vec
00:01:37 verbose #750 > > |> fun x => x : _ i32 _
00:01:37 verbose #751 > > |> am'.try_item 0
00:01:37 verbose #752 > > |> optionm.map (mapm.get "a" >> optionm'.unbox)
00:01:37 verbose #753 > > |> optionm'.flatten
00:01:37 verbose #754 > >
00:01:37 verbose #755 > > match missing_toml_path with
00:01:37 verbose #756 > > | None => Error (exit_code, result)
00:01:37 verbose #757 > > | Some missing_toml_path =>
00:01:37 verbose #758 > > if missing_toml_path |> file_system.file_exists |> not
00:01:37 verbose #759 > > then
00:01:37 verbose #760 > > missing_toml_path
00:01:37 verbose #761 > > |> file_system.get_directory_name
00:01:37 verbose #762 > > |> file_system.create_dir
00:01:37 verbose #763 > > |> ignore
00:01:37 verbose #764 > >
00:01:37 verbose #765 > > empty_cargo_toml_content ()
00:01:37 verbose #766 > > |> file_system.write_all_text missing_toml_path
00:01:37 verbose #767 > > return ()
00:01:37 verbose #768 > > |> retry_fn' 3u8
00:01:37 verbose #769 > >
00:01:37 verbose #770 > > if exit_code <>. 0 then
00:01:37 verbose #771 > > trace Critical
00:01:37 verbose #772 > > fun () => "spiral_builder.process_rust / cargo fmt error"
00:01:37 verbose #773 > > fun () => $'$"exit_code: {!exit_code} / cargo_fmt_result:
00:01:37 verbose #774 > > {!cargo_fmt_result} / {!_locals ()}"'
00:01:37 verbose #775 > >
00:01:37 verbose #776 > > inl new_code_path = package_dir </> $'$"{!workspace_name}.{!extension}"'
00:01:37 verbose #777 > > inl new_code = new_code_path |> file_system.read_all_text
00:01:37 verbose #778 > >
00:01:37 verbose #779 > > inl main_code_header =
00:01:37 verbose #780 > > "pub fn main() -> Result<(), String> " +. !\($'"\\\"{\\\".into()"')
00:01:37 verbose #781 > > inl main_code = $'$"{!main_code_header} Ok(()) }}"' : string
00:01:37 verbose #782 > >
00:01:37 verbose #783 > > inl cached = new_code |> sm'.contains main_code_header
00:01:37 verbose #784 > >
00:01:37 verbose #785 > > inl new_code =
00:01:37 verbose #786 > > if cached
00:01:37 verbose #787 > > then new_code
00:01:37 verbose #788 > > else
00:01:37 verbose #789 > > new_code
00:01:37 verbose #790 > > |> sm'.replace
00:01:37 verbose #791 > > ("),)" +. !\($'"\\\";\\\".into()"'))
00:01:37 verbose #792 > > "));"
00:01:37 verbose #793 > > |> sm'.replace
00:01:37 verbose #794 > > ("},)" +. !\($'"\\\";\\\".into()"'))
00:01:37 verbose #795 > > "});"
00:01:37 verbose #796 > > |> sm'.replace_regex
00:01:37 verbose #797 > > "\\s\\sdefaultOf\\(\\);"
00:01:37 verbose #798 > > " defaultOf::<()>();"
00:01:37 verbose #799 > > |> sm'.replace
00:01:37 verbose #800 > > ("defaultOf()" +. !\($'"\\\",\\\".into()"'))
00:01:37 verbose #801 > > "defaultOf::<std::sync::Arc<dyn IDisposable>>(),"
00:01:37 verbose #802 > > |> sm'.replace
00:01:37 verbose #803 > > ("_self" +. !\($'"\\\"_.\\\".into()"'))
00:01:37 verbose #804 > > "self."
00:01:37 verbose #805 > > |> sm'.replace
00:01:37 verbose #806 > > ("get_or_insert_wit" +. !\($'"\\\"h\\\".into()"'))
00:01:37 verbose #807 > > "get_or_init"
00:01:37 verbose #808 > > |> sm'.replace
00:01:37 verbose #809 > > ("use
00:01:37 verbose #810 > > fable_library_rust::System::Collections::Concurrent::ConcurrentStack_1" +.
00:01:37 verbose #811 > > !\($'"\\\";\\\".into()"'))
00:01:37 verbose #812 > > "type ConcurrentStack_1<T> = T;"
00:01:37 verbose #813 > > |> sm'.replace
00:01:37 verbose #814 > > ("use
00:01:37 verbose #815 > > fable_library_rust::System::Threading::CancellationToken" +.
00:01:37 verbose #816 > > !\($'"\\\";\\\".into()"'))
00:01:37 verbose #817 > > "type CancellationToken = ();"
00:01:37 verbose #818 > > |> sm'.replace
00:01:37 verbose #819 > > ("use fable_library_rust::System::TimeZoneInfo" +.
00:01:37 verbose #820 > > !\($'"\\\";\\\".into()"'))
00:01:37 verbose #821 > > "type TimeZoneInfo = i64;"
00:01:37 verbose #822 > > |> sm'.replace
00:01:37 verbose #823 > > ("use
00:01:37 verbose #824 > > fable_library_rust::System::Threading::Tasks::TaskCanceledException" +.
00:01:37 verbose #825 > > !\($'"\\\";\\\".into()"'))
00:01:37 verbose #826 > > "type TaskCanceledException = ();"
00:01:37 verbose #827 > >
00:01:37 verbose #828 > > if not cached
00:01:37 verbose #829 > > then
00:01:37 verbose #830 > > $'$"{!new_code}\\n\\n{!main_code}\\n"'
00:01:37 verbose #831 > > |> file_system.write_all_text_exists new_code_path
00:01:37 verbose #832 > >
00:01:37 verbose #833 > > inl command = $'$"cargo +nightly run --manifest-path
00:01:37 verbose #834 > > \\\"{!cargo_toml_path}\\\""'
00:01:37 verbose #835 > > inl environment_variables =
00:01:37 verbose #836 > > inl fast = false
00:01:37 verbose #837 > > ;[[
00:01:37 verbose #838 > > "TRACE_LEVEL", "Verbose"
00:01:37 verbose #839 > > "RUSTC_WRAPPER", "sccache"
00:01:37 verbose #840 > > "RUSTFLAGS",
00:01:37 verbose #841 > > if fast
00:01:37 verbose #842 > > then "-C prefer-dynamic -C strip=symbols -C link-arg=-s -C
00:01:37 verbose #843 > > debuginfo=0"
00:01:37 verbose #844 > > else "-C prefer-dynamic"
00:01:37 verbose #845 > > ]]
00:01:37 verbose #846 > > inl exit_code, cargo_run_result =
00:01:37 verbose #847 > > runtime.execution_options fun x => { x with
00:01:37 verbose #848 > > command
00:01:37 verbose #849 > > environment_variables
00:01:37 verbose #850 > > working_directory = workspace_root_external |> resultm.box |>
00:01:37 verbose #851 > > resultm.ok'
00:01:37 verbose #852 > > }
00:01:37 verbose #853 > > |> runtime.execute_with_options
00:01:37 verbose #854 > >
00:01:37 verbose #855 > > inl cleanup =
00:01:37 verbose #856 > > [[ ".d"; ".exe"; ".pdb"; "" ]]
00:01:37 verbose #857 > > |> listm.map fun ext => workspace_dir </>
00:01:37 verbose #858 > > $'$"target/debug/spiral_builder_{!hash_hex}{!ext}"'
00:01:37 verbose #859 > > |> listm.map fun path => path, path |> file_system.file_exists
00:01:37 verbose #860 > >
00:01:37 verbose #861 > > trace Verbose
00:01:37 verbose #862 > > fun () => "spiral_builder.process_rust"
00:01:37 verbose #863 > > fun () => $'$"new_code_path: {!new_code_path} / cleanup:
00:01:37 verbose #864 > > %A{!cleanup} / {!_locals ()}"'
00:01:37 verbose #865 > >
00:01:37 verbose #866 > > cleanup
00:01:37 verbose #867 > > |> listm'.filter snd
00:01:37 verbose #868 > > |> listm.iter (fst >> file_system.file_delete)
00:01:37 verbose #869 > >
00:01:37 verbose #870 > > inl external_command =
00:01:37 verbose #871 > > inl vars =
00:01:37 verbose #872 > > a environment_variables
00:01:37 verbose #873 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:01:37 verbose #874 > > |> fun x => x : _ i32 _
00:01:37 verbose #875 > > |> seq.of_array
00:01:37 verbose #876 > > |> sm'.concat ";"
00:01:37 verbose #877 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:01:37 verbose #878 > > if exit_code = 0 then
00:01:37 verbose #879 > > inl output =
00:01:37 verbose #880 > > try
00:01:37 verbose #881 > > fun () =>
00:01:37 verbose #882 > > cargo_run_result
00:01:37 verbose #883 > > |> sm'.split "\n"
00:01:37 verbose #884 > > |> fun x => a x : _ i32 _
00:01:37 verbose #885 > > |> am'.skip_while fun line =>
00:01:37 verbose #886 > > (line |> sm'.contains "profile [[optimized]] target"
00:01:37 verbose #887 > > |> not)
00:01:37 verbose #888 > > && (line |> sm'.contains "profile
00:01:37 verbose #889 > > [[unoptimized]] target" |> not)
00:01:37 verbose #890 > > && (line |> sm'.contains "profile [[unoptimized
00:01:37 verbose #891 > > + debuginfo]] target" |> not)
00:01:37 verbose #892 > > |> am'.skip 2
00:01:37 verbose #893 > > |> seq.of_array
00:01:37 verbose #894 > > |> sm'.concat "\n"
00:01:37 verbose #895 > > fun ex =>
00:01:37 verbose #896 > > trace Critical
00:01:37 verbose #897 > > fun () => "spiral_builder.process_rust / Exception"
00:01:37 verbose #898 > > fun () => $'$"ex: {!ex} / cargo_run_result:
00:01:37 verbose #899 > > {!cargo_run_result} / new_code_path: {!new_code_path} / external_command:
00:01:37 verbose #900 > > {!external_command} / {!_locals ()}"'
00:01:37 verbose #901 > > None
00:01:37 verbose #902 > > |> optionm'.box
00:01:37 verbose #903 > > |> optionm'.unwrap
00:01:37 verbose #904 > >
00:01:37 verbose #905 > > { extension = Some extension; code = Some new_code; output = Some
00:01:37 verbose #906 > > output }
00:01:37 verbose #907 > > else
00:01:37 verbose #908 > > trace Critical
00:01:37 verbose #909 > > fun () => "spiral_builder.process_rust / error"
00:01:37 verbose #910 > > fun () => $'$"exit_code: {!exit_code} / cargo_run_result:
00:01:37 verbose #911 > > {!cargo_run_result} / new_code_path: {!new_code_path} / external_command:
00:01:37 verbose #912 > > {!external_command}"'
00:01:37 verbose #913 > > { extension = Some extension; code = None; output = None }
00:01:38 verbose #914 > >
00:01:38 verbose #915 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #916 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #917 > > │ ## dib │
00:01:38 verbose #918 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #919 > >
00:01:38 verbose #920 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #921 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #922 > > │ ### process_dib │
00:01:38 verbose #923 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #924 > >
00:01:38 verbose #925 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #926 > > inl process_dib { path retries working_directory } =
00:01:38 verbose #927 > > inl exit_code, repl_result =
00:01:38 verbose #928 > > let rec loop retry =
00:01:38 verbose #929 > > inl exit_code, repl_result =
00:01:38 verbose #930 > > runtime.execution_options fun x => { x with
00:01:38 verbose #931 > > command = $'$"dotnet repl --exit-after-run --run
00:01:38 verbose #932 > > \\\"{!path}\\\" --output-path \\\"{!path}.ipynb\\\""'
00:01:38 verbose #933 > > environment_variables = ;[[
00:01:38 verbose #934 > > "TRACE_LEVEL", "Verbose"
00:01:38 verbose #935 > > "AUTOMATION", "True"
00:01:38 verbose #936 > > ]]
00:01:38 verbose #937 > > trace = false
00:01:38 verbose #938 > > working_directory
00:01:38 verbose #939 > > }
00:01:38 verbose #940 > > |> runtime.execute_with_options
00:01:38 verbose #941 > >
00:01:38 verbose #942 > > if exit_code = 0 || retry >= retries
00:01:38 verbose #943 > > then exit_code, repl_result
00:01:38 verbose #944 > > else
00:01:38 verbose #945 > > trace Debug
00:01:38 verbose #946 > > fun () => $'"spiral_builder.run / repl error"'
00:01:38 verbose #947 > > fun () => $'$"exit_code: {!exit_code} / retry:
00:01:38 verbose #948 > > {!retry}/{!retries} / repl_result: {!repl_result} / {!_locals ()}"'
00:01:38 verbose #949 > > loop (retry + 1)
00:01:38 verbose #950 > > loop 1
00:01:38 verbose #951 > >
00:01:38 verbose #952 > > inl exit_code, result =
00:01:38 verbose #953 > > if exit_code <>. 0
00:01:38 verbose #954 > > then exit_code, repl_result
00:01:38 verbose #955 > > else
00:01:38 verbose #956 > > inl exit_code, jupyter_result =
00:01:38 verbose #957 > > runtime.execution_options fun x => { x with
00:01:38 verbose #958 > > command = $'$"jupyter nbconvert \\\"{!path}.ipynb\\\" --to
00:01:38 verbose #959 > > html --HTMLExporter.theme=dark"'
00:01:38 verbose #960 > > }
00:01:38 verbose #961 > > |> runtime.execute_with_options
00:01:38 verbose #962 > >
00:01:38 verbose #963 > > trace Debug
00:01:38 verbose #964 > > fun () => $'"spiral_builder.run / dib / jupyter nbconvert"'
00:01:38 verbose #965 > > fun () => $'$"exit_code: {!exit_code} / jupyter_result.Length:
00:01:38 verbose #966 > > {!jupyter_result.Length} / {!_locals ()}"'
00:01:38 verbose #967 > >
00:01:38 verbose #968 > > if exit_code <>. 0
00:01:38 verbose #969 > > then exit_code, $'$"repl_result: {!repl_result}\n\njupyter_result:
00:01:38 verbose #970 > > {!jupyter_result}"'
00:01:38 verbose #971 > > else
00:01:38 verbose #972 > > inl exit_code, pwsh_replace_html_result =
00:01:38 verbose #973 > > inl path = path |> sm'.replace "'" "''"
00:01:38 verbose #974 > > runtime.execution_options fun x => { x with
00:01:38 verbose #975 > > command = $'$"pwsh -c \\\"$counter = 1; $path =
00:01:38 verbose #976 > > \'{!path}.html\'; (Get-Content $path -Raw) -replace
00:01:38 verbose #977 > > \'(id=\\\\\\"cell-id=)[[a-fA-F0-9]]{{8}}\', {{ $_.Groups[[1]].Value + $counter++
00:01:38 verbose #978 > > }} | Set-Content $path\\\""'
00:01:38 verbose #979 > > }
00:01:38 verbose #980 > > |> runtime.execute_with_options
00:01:38 verbose #981 > >
00:01:38 verbose #982 > > trace Debug
00:01:38 verbose #983 > > fun () => $'"spiral_builder.run / dib / html cell ids"'
00:01:38 verbose #984 > > fun () => $'$"exit_code: {!exit_code}
00:01:38 verbose #985 > > pwsh_replace_html_result.Length: {!pwsh_replace_html_result.Length} / {!_locals
00:01:38 verbose #986 > > ()}"'
00:01:38 verbose #987 > >
00:01:38 verbose #988 > > $'$"{!path}.html"'
00:01:38 verbose #989 > > |> file_system.read_all_text
00:01:38 verbose #990 > > |> sm'.replace "\r\n" "\n"
00:01:38 verbose #991 > > |> file_system.write_all_text $'$"{!path}.html"'
00:01:38 verbose #992 > >
00:01:38 verbose #993 > > $'$"{!path}.ipynb"'
00:01:38 verbose #994 > > |> file_system.read_all_text
00:01:38 verbose #995 > > |> sm'.replace "\r\n" "\n"
00:01:38 verbose #996 > > |> sm'.replace "\\r\\n" "\\n"
00:01:38 verbose #997 > > |> file_system.write_all_text $'$"{!path}.ipynb"'
00:01:38 verbose #998 > >
00:01:38 verbose #999 > > exit_code, $'$"repl_result: {!repl_result}\n\njupyter_result:
00:01:38 verbose #1000 > > {!jupyter_result}\n\npwsh_replace_html_result: {!pwsh_replace_html_result}"'
00:01:38 verbose #1001 > >
00:01:38 verbose #1002 > > trace Debug
00:01:38 verbose #1003 > > fun () => $'"spiral_builder.run / dib"'
00:01:38 verbose #1004 > > fun () => $'$"exit_code: {!exit_code} / result.Length: {!result.Length}
00:01:38 verbose #1005 > > / {!_locals ()}"'
00:01:38 verbose #1006 > >
00:01:38 verbose #1007 > > if exit_code <>. 0
00:01:38 verbose #1008 > > then failwith $'$"spiral_builder.run / dib / exit_code: {!exit_code}
00:01:38 verbose #1009 > > result: {!result} / {!_locals ()}"'
00:01:38 verbose #1010 > > ;[[
00:01:38 verbose #1011 > > "stdio",
00:01:38 verbose #1012 > > result
00:01:38 verbose #1013 > > ]]
00:01:39 verbose #1014 > >
00:01:39 verbose #1015 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:39 verbose #1016 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:39 verbose #1017 > > │ ## typescript │
00:01:39 verbose #1018 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:39 verbose #1019 > >
00:01:39 verbose #1020 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:39 verbose #1021 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:39 verbose #1022 > > │ ### process_typescript │
00:01:39 verbose #1023 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:39 verbose #1024 > >
00:01:39 verbose #1025 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:39 verbose #1026 > > inl process_typescript { fs_path deps trace_level } =
00:01:39 verbose #1027 > > inl extension = "ts"
00:01:39 verbose #1028 > > inl is_trace = trace_level = Verbose
00:01:39 verbose #1029 > > inl _trace (fn : () -> string) =
00:01:39 verbose #1030 > > if is_trace
00:01:39 verbose #1031 > > then trace Info (fun () => $'$"spiral_builder.process_typescript / {!fn
00:01:39 verbose #1032 > > ()}"') _locals
00:01:39 verbose #1033 > > else fn () |> console.write_line
00:01:39 verbose #1034 > >
00:01:39 verbose #1035 > > inl code = fs_path |> file_system.read_all_text
00:01:39 verbose #1036 > >
00:01:39 verbose #1037 > > inl hash_hex = (extension, code) |> sm'.format_debug |> crypto.hash_text
00:01:39 verbose #1038 > >
00:01:39 verbose #1039 > > inl workspace_name = "spiral_builder"
00:01:39 verbose #1040 > >
00:01:39 verbose #1041 > > inl fsproj_path =
00:01:39 verbose #1042 > > code
00:01:39 verbose #1043 > > |> persist_code_project
00:01:39 verbose #1044 > > [[ "Fable.Core" ]]
00:01:39 verbose #1045 > > [[]]
00:01:39 verbose #1046 > > workspace_name
00:01:39 verbose #1047 > > (hash_hex |> Some)
00:01:39 verbose #1048 > >
00:01:39 verbose #1049 > > inl package_dir = fsproj_path |> file_system.get_directory_name
00:01:39 verbose #1050 > >
00:01:39 verbose #1051 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:01:39 verbose #1052 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:01:39 verbose #1053 > > resultm.unwrap_or_else id
00:01:39 verbose #1054 > >
00:01:39 verbose #1055 > > inl lib_path = workspace_root </> "lib/typescript/fable/fable_modules"
00:01:39 verbose #1056 > >
00:01:39 verbose #1057 > > inl versions =
00:01:39 verbose #1058 > > lib_path
00:01:39 verbose #1059 > > |> file_system.new_walk_dir
00:01:39 verbose #1060 > > |> file_system.walk_dir_filter fun entry => async.future_init_send (2,
00:01:39 verbose #1061 > > 1) 1 fun () =>
00:01:39 verbose #1062 > > entry
00:01:39 verbose #1063 > > |> file_system.dir_entry_file_type
00:01:39 verbose #1064 > > |> async.await_send
00:01:39 verbose #1065 > > |> resultm.map_error' sm'.format'
00:01:39 verbose #1066 > > |> resultm.unbox
00:01:39 verbose #1067 > > |> function
00:01:39 verbose #1068 > > | Ok file_type when file_type |> file_system.file_type_is_dir |>
00:01:39 verbose #1069 > > not => file_system.Ignore
00:01:39 verbose #1070 > > | _ => file_system.Continue
00:01:39 verbose #1071 > > |> file_system.stream_filter_map fun entry =>
00:01:39 verbose #1072 > > inl entry = entry |> resultm.map_error' sm'.format' |> resultm.unbox
00:01:39 verbose #1073 > > match entry with
00:01:39 verbose #1074 > > | Ok entry =>
00:01:39 verbose #1075 > > inl path =
00:01:39 verbose #1076 > > entry
00:01:39 verbose #1077 > > |> file_system.dir_entry_path
00:01:39 verbose #1078 > > |> file_system.path_buf_display
00:01:39 verbose #1079 > > |> sm'.format'
00:01:39 verbose #1080 > > |> sm'.from_std_string
00:01:39 verbose #1081 > > inl version =
00:01:39 verbose #1082 > > $'$"fable-library-{!extension}\\.(?<a>[[\\d.]]+)$"'
00:01:39 verbose #1083 > > |> sm'.new_regex
00:01:39 verbose #1084 > > |> resultm.unwrap'
00:01:39 verbose #1085 > > |> sm'.regex_captures path
00:01:39 verbose #1086 > > |> am'.from_vec
00:01:39 verbose #1087 > > |> fun x => x : _ i32 _
00:01:39 verbose #1088 > > |> am'.try_item 0
00:01:39 verbose #1089 > > |> optionm.map (mapm.get "a" >> optionm'.unbox)
00:01:39 verbose #1090 > > |> optionm'.flatten
00:01:39 verbose #1091 > > match version with
00:01:39 verbose #1092 > > | None => None
00:01:39 verbose #1093 > > | Some version => Some (path, version)
00:01:39 verbose #1094 > > | Error error =>
00:01:39 verbose #1095 > > trace Critical
00:01:39 verbose #1096 > > fun () => $'"spiral_builder.process_typescript
00:01:39 verbose #1097 > > stream_filter_map"'
00:01:39 verbose #1098 > > fun () => $'$"error: {!error} / {!_locals ()}"'
00:01:39 verbose #1099 > > None
00:01:39 verbose #1100 > > |> optionm'.box
00:01:39 verbose #1101 > > |> async.into_par_iter
00:01:39 verbose #1102 > > |> async.par_map fun file =>
00:01:39 verbose #1103 > > file
00:01:39 verbose #1104 > > |> async.par_collect
00:01:39 verbose #1105 > >
00:01:39 verbose #1106 > > inl version =
00:01:39 verbose #1107 > > versions
00:01:39 verbose #1108 > > |> am'.from_vec
00:01:39 verbose #1109 > > |> fun x => x : _ i32 _
00:01:39 verbose #1110 > > |> am'.try_item 0
00:01:39 verbose #1111 > >
00:01:39 verbose #1112 > > trace Debug
00:01:39 verbose #1113 > > fun () => $'"spiral_builder.process_typescript"'
00:01:39 verbose #1114 > > fun () =>
00:01:39 verbose #1115 > > inl version = version |> sm'.format_pretty'
00:01:39 verbose #1116 > > $'$"version: {!version} / {!_locals ()}"'
00:01:39 verbose #1117 > >
00:01:39 verbose #1118 > > match version with
00:01:39 verbose #1119 > > | None => ()
00:01:39 verbose #1120 > > | Some (_path, version) =>
00:01:39 verbose #1121 > > inl lib_link_target_path = lib_path </>
00:01:39 verbose #1122 > > $'$"fable-library-{!extension}.{!version}"'
00:01:39 verbose #1123 > > inl lib_link_path = package_dir </>
00:01:39 verbose #1124 > > $'$"fable_modules/fable-library-{!extension}.{!version}"'
00:01:39 verbose #1125 > >
00:01:39 verbose #1126 > > lib_link_path |> file_system.link_directory lib_link_target_path
00:01:39 verbose #1127 > >
00:01:39 verbose #1128 > > inl exit_code, dotnet_fable_result =
00:01:39 verbose #1129 > > execute_dotnet_fable { workspace_root_external fsproj_path extension
00:01:39 verbose #1130 > > package_dir }
00:01:39 verbose #1131 > >
00:01:39 verbose #1132 > > if exit_code <>. 0 then
00:01:39 verbose #1133 > > trace Critical (fun () => $'$"spiral_builder.process_typescript
00:01:39 verbose #1134 > > exit_code: {!exit_code} / dotnet_fable_result: {!dotnet_fable_result}"') _locals
00:01:39 verbose #1135 > > { extension = Some extension; code = None; output = Some
00:01:39 verbose #1136 > > dotnet_fable_result }
00:01:39 verbose #1137 > > else
00:01:39 verbose #1138 > > inl deps =
00:01:39 verbose #1139 > > deps
00:01:39 verbose #1140 > > |> am'.vec_map fun dep =>
00:01:39 verbose #1141 > > inl dep = dep |> sm'.from_std_string
00:01:39 verbose #1142 > > if dep |> sm'.contains "="
00:01:39 verbose #1143 > > then dep
00:01:39 verbose #1144 > > else $'$"\\"{!dep}\\":\\"*\\""'
00:01:39 verbose #1145 > > |> am'.from_vec
00:01:39 verbose #1146 > > |> fun x => x : _ i32 _
00:01:39 verbose #1147 > > |> seq.of_array'
00:01:39 verbose #1148 > > |> sm'.concat ",\n"
00:01:39 verbose #1149 > >
00:01:39 verbose #1150 > > inl package_json_content =
00:01:39 verbose #1151 > > $'$"{{"'
00:01:39 verbose #1152 > > +. $'$" \\\"name\\\": \\\"spiral_builder_{!hash_hex}\\\","'
00:01:39 verbose #1153 > > +. $'$" \\\"dependencies\\\": {{"'
00:01:39 verbose #1154 > > +. deps
00:01:39 verbose #1155 > > +. $'$" }},"'
00:01:39 verbose #1156 > > +. $'$" \\\"devDependencies\\\": {{"'
00:01:39 verbose #1157 > > +. $'$" }},"'
00:01:39 verbose #1158 > > +. $'$"}}"'
00:01:39 verbose #1159 > >
00:01:39 verbose #1160 > > inl workspace_package_json_content =
00:01:39 verbose #1161 > > ""
00:01:39 verbose #1162 > >
00:01:39 verbose #1163 > > inl package_json_path = package_dir </> "package.json"
00:01:39 verbose #1164 > >
00:01:39 verbose #1165 > > inl workspace_dir = package_dir </> "../.."
00:01:39 verbose #1166 > > inl workspace_package_json_path = workspace_dir </> "package.json"
00:01:39 verbose #1167 > >
00:01:39 verbose #1168 > > package_json_content |> file_system.write_all_text_exists
00:01:39 verbose #1169 > > package_json_path
00:01:39 verbose #1170 > >
00:01:39 verbose #1171 > > workspace_package_json_content |> file_system.write_all_text_exists
00:01:39 verbose #1172 > > workspace_package_json_path
00:01:39 verbose #1173 > >
00:01:39 verbose #1174 > > inl new_code_path = package_dir </> $'$"{!workspace_name}.{!extension}"'
00:01:39 verbose #1175 > > trace Debug
00:01:39 verbose #1176 > > fun () => $'"spiral_builder.process_typescript"'
00:01:39 verbose #1177 > > fun () => $'$"new_code_path: {!new_code_path} / {!_locals ()}"'
00:01:39 verbose #1178 > > inl new_code = new_code_path |> file_system.read_all_text
00:01:39 verbose #1179 > >
00:01:39 verbose #1180 > > inl main_code_header =
00:01:39 verbose #1181 > > "// spiral_builder.process_typescript"
00:01:39 verbose #1182 > > inl main_code = "// spiral_builder.process_typescript"
00:01:39 verbose #1183 > >
00:01:39 verbose #1184 > > inl cached = new_code |> sm'.contains main_code_header
00:01:39 verbose #1185 > >
00:01:39 verbose #1186 > > inl new_code =
00:01:39 verbose #1187 > > if cached
00:01:39 verbose #1188 > > then new_code
00:01:39 verbose #1189 > > else
00:01:39 verbose #1190 > > new_code
00:01:39 verbose #1191 > > |> sm'.replace
00:01:39 verbose #1192 > > $'$"\\\"./fable_modules/fable-library-ts.{!version}/"'
00:01:39 verbose #1193 > >
00:01:39 verbose #1194 > > $'$"\\\"{!workspace_root}/lib/typescript/fable/fable_modules/fable-library-ts.{!
00:01:39 verbose #1195 > > version}/"'
00:01:39 verbose #1196 > > |> sm'.replace_regex
00:01:39 verbose #1197 > > "\\s\\sdefaultOf\\(\\);"
00:01:39 verbose #1198 > > " defaultOf::<()>();"
00:01:39 verbose #1199 > >
00:01:39 verbose #1200 > > if not cached then
00:01:39 verbose #1201 > > $'$"{!new_code}\\n\\n{!main_code}\\n"'
00:01:39 verbose #1202 > > |> file_system.write_all_text_exists new_code_path
00:01:39 verbose #1203 > >
00:01:39 verbose #1204 > > inl command = $'$"bun run \\\"{!new_code_path}\\\""'
00:01:39 verbose #1205 > > inl environment_variables =
00:01:39 verbose #1206 > > match "~/.bun/bin" |> env.append_path with
00:01:39 verbose #1207 > > | Some path => [[ "PATH", path ]]
00:01:39 verbose #1208 > > | None => [[]]
00:01:39 verbose #1209 > > ++ [[
00:01:39 verbose #1210 > > "TRACE_LEVEL", "Verbose"
00:01:39 verbose #1211 > > ]]
00:01:39 verbose #1212 > > |> listm'.box
00:01:39 verbose #1213 > > |> listm'.to_array'
00:01:39 verbose #1214 > > inl exit_code, run_result =
00:01:39 verbose #1215 > > runtime.execution_options fun x => { x with
00:01:39 verbose #1216 > > command
00:01:39 verbose #1217 > > environment_variables
00:01:39 verbose #1218 > > working_directory = workspace_root_external |> resultm.box |>
00:01:39 verbose #1219 > > resultm.ok'
00:01:39 verbose #1220 > > }
00:01:39 verbose #1221 > > |> runtime.execute_with_options
00:01:39 verbose #1222 > >
00:01:39 verbose #1223 > > inl external_command =
00:01:39 verbose #1224 > > inl vars =
00:01:39 verbose #1225 > > a environment_variables
00:01:39 verbose #1226 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:01:39 verbose #1227 > > |> fun x => x : _ i32 _
00:01:39 verbose #1228 > > |> seq.of_array
00:01:39 verbose #1229 > > |> sm'.concat ";"
00:01:39 verbose #1230 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:01:39 verbose #1231 > > if exit_code = 0 then
00:01:39 verbose #1232 > > inl output =
00:01:39 verbose #1233 > > try
00:01:39 verbose #1234 > > fun () =>
00:01:39 verbose #1235 > > run_result
00:01:39 verbose #1236 > > |> sm'.split "\n"
00:01:39 verbose #1237 > > |> fun x => a x : _ i32 _
00:01:39 verbose #1238 > > |> seq.of_array
00:01:39 verbose #1239 > > |> sm'.concat "\n"
00:01:39 verbose #1240 > > fun ex =>
00:01:39 verbose #1241 > > trace Critical
00:01:39 verbose #1242 > > fun () => "spiral_builder.process_typescript
00:01:39 verbose #1243 > > Exception"
00:01:39 verbose #1244 > > fun () => $'$"ex: {!ex} / new_code_path:
00:01:39 verbose #1245 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:01:39 verbose #1246 > > {!run_result} / {!_locals ()}"'
00:01:39 verbose #1247 > > None
00:01:39 verbose #1248 > > |> optionm'.box
00:01:39 verbose #1249 > > |> optionm'.unwrap
00:01:39 verbose #1250 > >
00:01:39 verbose #1251 > > { extension = Some extension; code = Some new_code; output = Some
00:01:39 verbose #1252 > > output }
00:01:39 verbose #1253 > > else
00:01:39 verbose #1254 > > trace Critical
00:01:39 verbose #1255 > > fun () => "spiral_builder.process_typescript / error"
00:01:39 verbose #1256 > > fun () => $'$"exit_code: {!exit_code} / run_result:
00:01:39 verbose #1257 > > {!run_result} / new_code_path: {!new_code_path} / external_command:
00:01:39 verbose #1258 > > {!external_command}"'
00:01:39 verbose #1259 > > { extension = Some extension; code = None; output = None }
00:01:40 verbose #1260 > >
00:01:40 verbose #1261 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 verbose #1262 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 verbose #1263 > > │ ## python │
00:01:40 verbose #1264 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #1265 > >
00:01:40 verbose #1266 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 verbose #1267 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 verbose #1268 > > │ ### process_python │
00:01:40 verbose #1269 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #1270 > >
00:01:40 verbose #1271 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:40 verbose #1272 > > inl process_python { fs_path deps trace_level } =
00:01:40 verbose #1273 > > inl extension = "py"
00:01:40 verbose #1274 > > inl is_trace = trace_level = Verbose
00:01:40 verbose #1275 > > inl _trace (fn : () -> string) =
00:01:40 verbose #1276 > > if is_trace
00:01:40 verbose #1277 > > then trace Info (fun () => $'$"spiral_builder.process_python / {!fn
00:01:40 verbose #1278 > > ()}"') _locals
00:01:40 verbose #1279 > > else fn () |> console.write_line
00:01:40 verbose #1280 > >
00:01:40 verbose #1281 > > inl code = fs_path |> file_system.read_all_text
00:01:40 verbose #1282 > >
00:01:40 verbose #1283 > > inl hash_hex = (extension, code) |> sm'.format_debug |> crypto.hash_text
00:01:40 verbose #1284 > >
00:01:40 verbose #1285 > > inl workspace_name = "spiral_builder"
00:01:40 verbose #1286 > >
00:01:40 verbose #1287 > > inl fsproj_path =
00:01:40 verbose #1288 > > code
00:01:40 verbose #1289 > > |> persist_code_project
00:01:40 verbose #1290 > > [[ "Fable.Core" ]]
00:01:40 verbose #1291 > > [[]]
00:01:40 verbose #1292 > > workspace_name
00:01:40 verbose #1293 > > (hash_hex |> Some)
00:01:40 verbose #1294 > >
00:01:40 verbose #1295 > > inl package_dir = fsproj_path |> file_system.get_directory_name
00:01:40 verbose #1296 > >
00:01:40 verbose #1297 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:01:40 verbose #1298 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:01:40 verbose #1299 > > resultm.unwrap_or_else id
00:01:40 verbose #1300 > >
00:01:40 verbose #1301 > > inl lib_path = workspace_root </> "lib/python/fable/fable_modules"
00:01:40 verbose #1302 > >
00:01:40 verbose #1303 > > inl lib_link_target_path = lib_path </> $'$"fable-library-{!extension}"'
00:01:40 verbose #1304 > > inl lib_link_path = package_dir </> $'$"fable_modules/fable-library"'
00:01:40 verbose #1305 > >
00:01:40 verbose #1306 > > lib_link_path |> file_system.link_directory lib_link_target_path
00:01:40 verbose #1307 > >
00:01:40 verbose #1308 > > inl exit_code, dotnet_fable_result =
00:01:40 verbose #1309 > > execute_dotnet_fable { workspace_root_external fsproj_path extension
00:01:40 verbose #1310 > > package_dir }
00:01:40 verbose #1311 > >
00:01:40 verbose #1312 > > if exit_code <>. 0 then
00:01:40 verbose #1313 > > trace Critical (fun () => $'$"spiral_builder.process_python / exit_code:
00:01:40 verbose #1314 > > {!exit_code} / dotnet_fable_result: {!dotnet_fable_result}"') _locals
00:01:40 verbose #1315 > > { extension = Some extension; code = None; output = Some
00:01:40 verbose #1316 > > dotnet_fable_result }
00:01:40 verbose #1317 > > else
00:01:40 verbose #1318 > > inl deps =
00:01:40 verbose #1319 > > deps
00:01:40 verbose #1320 > > |> am'.vec_map fun dep =>
00:01:40 verbose #1321 > > inl dep = dep |> sm'.from_std_string
00:01:40 verbose #1322 > > if dep |> sm'.contains "="
00:01:40 verbose #1323 > > then dep
00:01:40 verbose #1324 > > else $'$"\\"{!dep}\\":\\"*\\""'
00:01:40 verbose #1325 > > |> am'.from_vec
00:01:40 verbose #1326 > > |> fun x => x : _ i32 _
00:01:40 verbose #1327 > > |> seq.of_array'
00:01:40 verbose #1328 > > |> sm'.concat ",\n"
00:01:40 verbose #1329 > >
00:01:40 verbose #1330 > > inl package_json_content =
00:01:40 verbose #1331 > > $'$"{{"'
00:01:40 verbose #1332 > > +. $'$" \\\"name\\\": \\\"spiral_builder_{!hash_hex}\\\","'
00:01:40 verbose #1333 > > +. $'$" \\\"dependencies\\\": {{"'
00:01:40 verbose #1334 > > +. deps
00:01:40 verbose #1335 > > +. $'$" }},"'
00:01:40 verbose #1336 > > +. $'$" \\\"devDependencies\\\": {{"'
00:01:40 verbose #1337 > > +. $'$" }},"'
00:01:40 verbose #1338 > > +. $'$"}}"'
00:01:40 verbose #1339 > >
00:01:40 verbose #1340 > > inl workspace_package_json_content =
00:01:40 verbose #1341 > > ""
00:01:40 verbose #1342 > >
00:01:40 verbose #1343 > > inl package_json_path = package_dir </> "package.json"
00:01:40 verbose #1344 > >
00:01:40 verbose #1345 > > inl workspace_dir = package_dir </> "../.."
00:01:40 verbose #1346 > > inl workspace_package_json_path = workspace_dir </> "package.json"
00:01:40 verbose #1347 > >
00:01:40 verbose #1348 > > package_json_content |> file_system.write_all_text_exists
00:01:40 verbose #1349 > > package_json_path
00:01:40 verbose #1350 > >
00:01:40 verbose #1351 > > workspace_package_json_content |> file_system.write_all_text_exists
00:01:40 verbose #1352 > > workspace_package_json_path
00:01:40 verbose #1353 > >
00:01:40 verbose #1354 > > inl new_code_path = package_dir </> $'$"{!workspace_name}.{!extension}"'
00:01:40 verbose #1355 > > trace Debug
00:01:40 verbose #1356 > > fun () => $'"spiral_builder.process_python"'
00:01:40 verbose #1357 > > fun () => $'$"new_code_path: {!new_code_path} / {!_locals ()}"'
00:01:40 verbose #1358 > > inl new_code = new_code_path |> file_system.read_all_text
00:01:40 verbose #1359 > >
00:01:40 verbose #1360 > > inl main_code_header =
00:01:40 verbose #1361 > > "# spiral_builder.process_python"
00:01:40 verbose #1362 > > inl main_code = "# spiral_builder.process_python"
00:01:40 verbose #1363 > >
00:01:40 verbose #1364 > > inl cached = new_code |> sm'.contains main_code_header
00:01:40 verbose #1365 > >
00:01:40 verbose #1366 > > inl new_code =
00:01:40 verbose #1367 > > if cached
00:01:40 verbose #1368 > > then new_code
00:01:40 verbose #1369 > > else
00:01:40 verbose #1370 > > new_code
00:01:40 verbose #1371 > > |> sm'.replace
00:01:40 verbose #1372 > > ("),)" +. !\($'"\\\";\\\".into()"'))
00:01:40 verbose #1373 > > "));"
00:01:40 verbose #1374 > > |> sm'.replace_regex
00:01:40 verbose #1375 > > "\\s\\sdefaultOf\\(\\);"
00:01:40 verbose #1376 > > " defaultOf::<()>();"
00:01:40 verbose #1377 > >
00:01:40 verbose #1378 > > if not cached
00:01:40 verbose #1379 > > then
00:01:40 verbose #1380 > > $'$"{!new_code}\\n\\n{!main_code}\\n"'
00:01:40 verbose #1381 > > |> file_system.write_all_text_exists new_code_path
00:01:40 verbose #1382 > >
00:01:40 verbose #1383 > > inl command = $'$"python \\\"{!new_code_path}\\\""'
00:01:40 verbose #1384 > > inl environment_variables =
00:01:40 verbose #1385 > > ;[[
00:01:40 verbose #1386 > > "TRACE_LEVEL", "Verbose"
00:01:40 verbose #1387 > > ]]
00:01:40 verbose #1388 > > inl exit_code, run_result =
00:01:40 verbose #1389 > > runtime.execution_options fun x => { x with
00:01:40 verbose #1390 > > command
00:01:40 verbose #1391 > > environment_variables
00:01:40 verbose #1392 > > working_directory = workspace_root_external |> resultm.box |>
00:01:40 verbose #1393 > > resultm.ok'
00:01:40 verbose #1394 > > }
00:01:40 verbose #1395 > > |> runtime.execute_with_options
00:01:40 verbose #1396 > >
00:01:40 verbose #1397 > > inl external_command =
00:01:40 verbose #1398 > > inl vars =
00:01:40 verbose #1399 > > a environment_variables
00:01:40 verbose #1400 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:01:40 verbose #1401 > > |> fun x => x : _ i32 _
00:01:40 verbose #1402 > > |> seq.of_array
00:01:40 verbose #1403 > > |> sm'.concat ";"
00:01:40 verbose #1404 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:01:40 verbose #1405 > > if exit_code = 0 then
00:01:40 verbose #1406 > > inl output =
00:01:40 verbose #1407 > > try
00:01:40 verbose #1408 > > fun () =>
00:01:40 verbose #1409 > > run_result
00:01:40 verbose #1410 > > |> sm'.split "\n"
00:01:40 verbose #1411 > > |> fun x => a x : _ i32 _
00:01:40 verbose #1412 > > |> seq.of_array
00:01:40 verbose #1413 > > |> sm'.concat "\n"
00:01:40 verbose #1414 > > fun ex =>
00:01:40 verbose #1415 > > trace Critical
00:01:40 verbose #1416 > > fun () => "spiral_builder.process_python
00:01:40 verbose #1417 > > Exception"
00:01:40 verbose #1418 > > fun () => $'$"ex: {!ex} / run_result: {!run_result}
00:01:40 verbose #1419 > > / new_code_path: {!new_code_path} / external_command: {!external_command}
00:01:40 verbose #1420 > > {!_locals ()}"'
00:01:40 verbose #1421 > > None
00:01:40 verbose #1422 > > |> optionm'.box
00:01:40 verbose #1423 > > |> optionm'.unwrap
00:01:40 verbose #1424 > >
00:01:40 verbose #1425 > > { extension = Some extension; code = Some new_code; output = Some
00:01:40 verbose #1426 > > output }
00:01:40 verbose #1427 > > else
00:01:40 verbose #1428 > > trace Critical
00:01:40 verbose #1429 > > fun () => "spiral_builder.process_python / error"
00:01:40 verbose #1430 > > fun () => $'$"exit_code: {!exit_code} / run_result:
00:01:40 verbose #1431 > > {!run_result} / new_code_path: {!new_code_path} / external_command:
00:01:40 verbose #1432 > > {!external_command}"'
00:01:40 verbose #1433 > > { extension = Some extension; code = None; output = None }
00:01:41 verbose #1434 > >
00:01:41 verbose #1435 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 verbose #1436 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 verbose #1437 > > │ ## cuda │
00:01:41 verbose #1438 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #1439 > >
00:01:41 verbose #1440 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 verbose #1441 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 verbose #1442 > > │ ### process_cuda │
00:01:41 verbose #1443 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #1444 > >
00:01:41 verbose #1445 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 verbose #1446 > > inl process_cuda { py_path env deps } =
00:01:41 verbose #1447 > > inl extension = "py"
00:01:41 verbose #1448 > >
00:01:41 verbose #1449 > > inl new_code_path = py_path
00:01:41 verbose #1450 > > inl new_code = new_code_path |> file_system.read_all_text
00:01:41 verbose #1451 > >
00:01:41 verbose #1452 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:01:41 verbose #1453 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:01:41 verbose #1454 > > resultm.unwrap_or_else id
00:01:41 verbose #1455 > >
00:01:41 verbose #1456 > > inl package_dir = new_code_path |> file_system.get_directory_name
00:01:41 verbose #1457 > >
00:01:41 verbose #1458 > > inl manifest_path =
00:01:41 verbose #1459 > > match env with
00:01:41 verbose #1460 > > | Pip => package_dir </> "requirements.txt"
00:01:41 verbose #1461 > > | Poetry => package_dir </> "pyproject.toml"
00:01:41 verbose #1462 > >
00:01:41 verbose #1463 > > inl deps =
00:01:41 verbose #1464 > > deps
00:01:41 verbose #1465 > > |> am'.vec_map fun dep =>
00:01:41 verbose #1466 > > inl dep = dep |> sm'.from_std_string
00:01:41 verbose #1467 > > if dep |> sm'.contains "="
00:01:41 verbose #1468 > > then dep
00:01:41 verbose #1469 > > elif dep |> sm'.ends_with "]]"
00:01:41 verbose #1470 > > then dep |> sm'.replace "[[" $'$"={{version=\'*\',features=[["' |>
00:01:41 verbose #1471 > > fun x => $'$"{!x}}}"'
00:01:41 verbose #1472 > > else $'$"{!dep}=\'*\'"'
00:01:41 verbose #1473 > > |> am'.from_vec
00:01:41 verbose #1474 > > |> fun x => x : _ i32 _
00:01:41 verbose #1475 > > |> seq.of_array'
00:01:41 verbose #1476 > > |> sm'.concat "\n"
00:01:41 verbose #1477 > >
00:01:41 verbose #1478 > > inl exit_code, run_result =
00:01:41 verbose #1479 > > if deps = ""
00:01:41 verbose #1480 > > then 0, ""
00:01:41 verbose #1481 > > else
00:01:41 verbose #1482 > > inl manifest =
00:01:41 verbose #1483 > > match env with
00:01:41 verbose #1484 > > | Pip =>
00:01:41 verbose #1485 > > deps
00:01:41 verbose #1486 > > | Poetry =>
00:01:41 verbose #1487 > > $'$"[[tool.poetry]]"'
00:01:41 verbose #1488 > > +#. $'$"name = \\\"test\\\""'
00:01:41 verbose #1489 > > +#. $'$"version = \\\"0.0.1\\\""'
00:01:41 verbose #1490 > > +#. $'$"description = \\\"\\\""'
00:01:41 verbose #1491 > > +#. $'$"authors = [[]]"'
00:01:41 verbose #1492 > > +#. $'$""'
00:01:41 verbose #1493 > > +#. $'$"[[tool.poetry.dependencies]]"'
00:01:41 verbose #1494 > > +#. $'$"python=\\\"~3.12\\\""'
00:01:41 verbose #1495 > > +#. $'$"{!deps}"'
00:01:41 verbose #1496 > > +#. $'$""'
00:01:41 verbose #1497 > > +#. $'$"[[build-system]]"'
00:01:41 verbose #1498 > > +#. $'$"requires = [[\\\"poetry-core\\\"]]"'
00:01:41 verbose #1499 > > +#. $'$"build-backend = \\\"poetry.core.masonry.api\\\""'
00:01:41 verbose #1500 > >
00:01:41 verbose #1501 > > manifest |> file_system.write_all_text_exists manifest_path
00:01:41 verbose #1502 > >
00:01:41 verbose #1503 > > runtime.execution_options fun x => { x with
00:01:41 verbose #1504 > > command =
00:01:41 verbose #1505 > > match env with
00:01:41 verbose #1506 > > | Pip => $'$"pip install -r requirements.txt"'
00:01:41 verbose #1507 > > | Poetry => $'$"poetry install"'
00:01:41 verbose #1508 > > working_directory = package_dir |> optionm'.some'
00:01:41 verbose #1509 > > }
00:01:41 verbose #1510 > > |> runtime.execute_with_options
00:01:41 verbose #1511 > >
00:01:41 verbose #1512 > > if exit_code <>. 0 then
00:01:41 verbose #1513 > > trace Critical
00:01:41 verbose #1514 > > fun () => "spiral_builder.process_cuda / env install error"
00:01:41 verbose #1515 > > fun () => $'$"env: {!env} / exit_code: {!exit_code} / run_result:
00:01:41 verbose #1516 > > {!run_result} / new_code_path: {!new_code_path}"'
00:01:41 verbose #1517 > > { extension = Some extension; code = None; output = None }
00:01:41 verbose #1518 > > else
00:01:41 verbose #1519 > > inl command =
00:01:41 verbose #1520 > > match env with
00:01:41 verbose #1521 > > | Pip => $'$"python \\\"{!new_code_path}\\\""'
00:01:41 verbose #1522 > > | Poetry => $'$"poetry run python \\\"{!new_code_path}\\\""'
00:01:41 verbose #1523 > > inl environment_variables =
00:01:41 verbose #1524 > > ;[[
00:01:41 verbose #1525 > > "TRACE_LEVEL", "Verbose"
00:01:41 verbose #1526 > > ]]
00:01:41 verbose #1527 > > inl exit_code, run_result =
00:01:41 verbose #1528 > > runtime.execution_options fun x => { x with
00:01:41 verbose #1529 > > command
00:01:41 verbose #1530 > > environment_variables
00:01:41 verbose #1531 > > working_directory = package_dir |> optionm'.some'
00:01:41 verbose #1532 > > }
00:01:41 verbose #1533 > > |> runtime.execute_with_options
00:01:41 verbose #1534 > >
00:01:41 verbose #1535 > > inl external_command =
00:01:41 verbose #1536 > > inl vars =
00:01:41 verbose #1537 > > a environment_variables
00:01:41 verbose #1538 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:01:41 verbose #1539 > > |> fun x => x : _ i32 _
00:01:41 verbose #1540 > > |> seq.of_array
00:01:41 verbose #1541 > > |> sm'.concat ";"
00:01:41 verbose #1542 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:01:41 verbose #1543 > > if exit_code = 0
00:01:41 verbose #1544 > > || (run_result |> sm'.contains
00:01:41 verbose #1545 > > "cupy_backends.cuda.api.runtime.CUDARuntimeError: cudaErrorInsufficientDriver")
00:01:41 verbose #1546 > > then
00:01:41 verbose #1547 > > inl output =
00:01:41 verbose #1548 > > try
00:01:41 verbose #1549 > > fun () =>
00:01:41 verbose #1550 > > run_result
00:01:41 verbose #1551 > > |> sm'.split "\n"
00:01:41 verbose #1552 > > |> fun x => a x : _ i32 _
00:01:41 verbose #1553 > > |> seq.of_array
00:01:41 verbose #1554 > > |> sm'.concat "\n"
00:01:41 verbose #1555 > > fun ex =>
00:01:41 verbose #1556 > > trace Critical
00:01:41 verbose #1557 > > fun () => "spiral_builder.process_cuda / Exception"
00:01:41 verbose #1558 > > fun () => $'$"ex: {!ex} / run_result: {!run_result}
00:01:41 verbose #1559 > > / new_code_path: {!new_code_path} / external_command: {!external_command}
00:01:41 verbose #1560 > > {!_locals ()}"'
00:01:41 verbose #1561 > > None
00:01:41 verbose #1562 > > |> optionm'.box
00:01:41 verbose #1563 > > |> optionm'.unwrap
00:01:41 verbose #1564 > >
00:01:41 verbose #1565 > > { extension = Some extension; code = Some new_code; output = Some
00:01:41 verbose #1566 > > output }
00:01:41 verbose #1567 > > else
00:01:41 verbose #1568 > > trace Critical
00:01:41 verbose #1569 > > fun () => "spiral_builder.process_cuda / error"
00:01:41 verbose #1570 > > fun () => $'$"exit_code: {!exit_code} / run_result:
00:01:41 verbose #1571 > > {!run_result} / new_code_path: {!new_code_path} / external_command:
00:01:41 verbose #1572 > > {!external_command}"'
00:01:41 verbose #1573 > > { extension = Some extension; code = None; output = None }
00:01:41 verbose #1574 > >
00:01:41 verbose #1575 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 verbose #1576 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 verbose #1577 > > │ ## fsharp │
00:01:41 verbose #1578 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #1579 > >
00:01:41 verbose #1580 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 verbose #1581 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 verbose #1582 > > │ ### process_fsharp │
00:01:41 verbose #1583 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #1584 > >
00:01:41 verbose #1585 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 verbose #1586 > > inl process_fsharp { spi_path } =
00:01:41 verbose #1587 > > inl extension = "fsx"
00:01:41 verbose #1588 > >
00:01:41 verbose #1589 > > inl new_code_path = spi_path
00:01:41 verbose #1590 > > inl new_code = new_code_path |> file_system.read_all_text
00:01:41 verbose #1591 > >
00:01:41 verbose #1592 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:01:41 verbose #1593 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:01:41 verbose #1594 > > resultm.unwrap_or_else id
00:01:41 verbose #1595 > >
00:01:41 verbose #1596 > > inl supervisor_path = workspace_root </>
00:01:41 verbose #1597 > > $"apps/spiral/dist/Supervisor!(platform.get_executable_suffix ())"
00:01:41 verbose #1598 > > inl code_dir = new_code_path |> file_system.get_directory_name
00:01:41 verbose #1599 > > inl file_name = new_code_path |> file_system.get_file_name_without_extension
00:01:41 verbose #1600 > > inl output_path = code_dir </> $'$"{!file_name}.{!extension}"'
00:01:41 verbose #1601 > > inl command = $'$"{!supervisor_path} --build-file \\\"{!new_code_path}\\\"
00:01:41 verbose #1602 > > \\\"{!output_path}\\\""'
00:01:41 verbose #1603 > > inl environment_variables =
00:01:41 verbose #1604 > > ;[[
00:01:41 verbose #1605 > > "TRACE_LEVEL", "Verbose"
00:01:41 verbose #1606 > > ]]
00:01:41 verbose #1607 > > inl exit_code, run_result =
00:01:41 verbose #1608 > > runtime.execution_options fun x => { x with
00:01:41 verbose #1609 > > command
00:01:41 verbose #1610 > > environment_variables
00:01:41 verbose #1611 > > working_directory = workspace_root_external |> resultm.box |>
00:01:41 verbose #1612 > > resultm.ok'
00:01:41 verbose #1613 > > }
00:01:41 verbose #1614 > > |> runtime.execute_with_options
00:01:41 verbose #1615 > >
00:01:41 verbose #1616 > > inl external_command =
00:01:41 verbose #1617 > > inl vars =
00:01:41 verbose #1618 > > a environment_variables
00:01:41 verbose #1619 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:01:41 verbose #1620 > > |> fun x => x : _ i32 _
00:01:41 verbose #1621 > > |> seq.of_array
00:01:41 verbose #1622 > > |> sm'.concat ";"
00:01:41 verbose #1623 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:01:41 verbose #1624 > > if exit_code = 0 then
00:01:41 verbose #1625 > > inl output =
00:01:41 verbose #1626 > > try
00:01:41 verbose #1627 > > fun () =>
00:01:41 verbose #1628 > > run_result
00:01:41 verbose #1629 > > |> sm'.split "\n"
00:01:41 verbose #1630 > > |> fun x => a x : _ i32 _
00:01:41 verbose #1631 > > |> seq.of_array
00:01:41 verbose #1632 > > |> sm'.concat "\n"
00:01:41 verbose #1633 > > fun ex =>
00:01:41 verbose #1634 > > trace Critical
00:01:41 verbose #1635 > > fun () => "spiral_builder.process_fsharp / Exception"
00:01:41 verbose #1636 > > fun () => $'$"ex: {!ex} / run_result: {!run_result}
00:01:41 verbose #1637 > > new_code_path: {!new_code_path} / external_command: {!external_command}
00:01:41 verbose #1638 > > {!_locals ()}"'
00:01:41 verbose #1639 > > None
00:01:41 verbose #1640 > > |> optionm'.box
00:01:41 verbose #1641 > > |> optionm'.unwrap
00:01:41 verbose #1642 > >
00:01:41 verbose #1643 > > { extension = Some extension; code = Some new_code; output = Some output
00:01:41 verbose #1644 > > }
00:01:41 verbose #1645 > > else
00:01:41 verbose #1646 > > trace Critical
00:01:41 verbose #1647 > > fun () => "spiral_builder.process_fsharp / error"
00:01:41 verbose #1648 > > fun () => $'$"exit_code: {!exit_code} / run_result: {!run_result}
00:01:41 verbose #1649 > > new_code_path: {!new_code_path} / external_command: {!external_command}"'
00:01:41 verbose #1650 > > { extension = Some extension; code = None; output = None }
00:01:42 verbose #1651 > >
00:01:42 verbose #1652 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:42 verbose #1653 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:42 verbose #1654 > > │ ## run │
00:01:42 verbose #1655 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #1656 > >
00:01:42 verbose #1657 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #1658 > > let rec run trace_level (matches : runtime.arg_matches) : async.future_pin
00:01:42 verbose #1659 > > (resultm.result' string string) =
00:01:42 verbose #1660 > > fun () =>
00:01:42 verbose #1661 > > match matches |> runtime.matches_subcommand |> optionm'.unbox with
00:01:42 verbose #1662 > > | Some (subcommand, arg_matches)
00:01:42 verbose #1663 > > when (subcommand |> sm'.from_std_string) = (get_args () .cuda |>
00:01:42 verbose #1664 > > fst) =>
00:01:42 verbose #1665 > >
00:01:42 verbose #1666 > > inl py_path =
00:01:42 verbose #1667 > > arg_matches
00:01:42 verbose #1668 > > |> runtime.matches_get_one ((get_args () .cuda |> snd).py_path
00:01:42 verbose #1669 > > |> fst)
00:01:42 verbose #1670 > > |> optionm'.unbox
00:01:42 verbose #1671 > > |> optionm.value
00:01:42 verbose #1672 > > |> sm'.from_std_string
00:01:42 verbose #1673 > >
00:01:42 verbose #1674 > > inl env =
00:01:42 verbose #1675 > > arg_matches
00:01:42 verbose #1676 > > |> runtime.matches_get_one ((get_args () .cuda |> snd).env |>
00:01:42 verbose #1677 > > fst)
00:01:42 verbose #1678 > > |> optionm'.unbox
00:01:42 verbose #1679 > > |> optionm.map (
00:01:42 verbose #1680 > > sm'.from_std_string
00:01:42 verbose #1681 > > >> reflection.union_try_pick
00:01:42 verbose #1682 > > )
00:01:42 verbose #1683 > > |> optionm'.flatten
00:01:42 verbose #1684 > > |> optionm'.default_value Pip
00:01:42 verbose #1685 > >
00:01:42 verbose #1686 > > inl deps : am'.vec sm'.std_string =
00:01:42 verbose #1687 > > arg_matches
00:01:42 verbose #1688 > > |> runtime.matches_get_many ((get_args () .cuda |> snd).deps |>
00:01:42 verbose #1689 > > fst)
00:01:42 verbose #1690 > > |> optionm'.unbox
00:01:42 verbose #1691 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:01:42 verbose #1692 > >
00:01:42 verbose #1693 > > inl command_result =
00:01:42 verbose #1694 > > process_cuda { py_path env deps }
00:01:42 verbose #1695 > > |> fun { extension code output } =>
00:01:42 verbose #1696 > > ;[[
00:01:42 verbose #1697 > > "extension", extension |> optionm'.default_value ""
00:01:42 verbose #1698 > > "code", code |> optionm'.default_value ""
00:01:42 verbose #1699 > > "output", output |> optionm'.default_value ""
00:01:42 verbose #1700 > > ]]
00:01:42 verbose #1701 > >
00:01:42 verbose #1702 > > ;[[
00:01:42 verbose #1703 > > "command_result",
00:01:42 verbose #1704 > > command_result
00:01:42 verbose #1705 > > |> am'.to_vec
00:01:42 verbose #1706 > > |> am'.vec_map' fun k, v =>
00:01:42 verbose #1707 > > new_pair (sm'.to_std_string k) (sm'.to_std_string v)
00:01:42 verbose #1708 > > |> mapm.b_tree_map_from_vec_pairs
00:01:42 verbose #1709 > > |> sm'.serialize
00:01:42 verbose #1710 > > |> resultm.unwrap'
00:01:42 verbose #1711 > > |> sm'.from_std_string
00:01:42 verbose #1712 > > ]]
00:01:42 verbose #1713 > >
00:01:42 verbose #1714 > > | Some (subcommand, arg_matches)
00:01:42 verbose #1715 > > when (subcommand |> sm'.from_std_string) = (get_args () .fable
00:01:42 verbose #1716 > > |> fst) =>
00:01:42 verbose #1717 > >
00:01:42 verbose #1718 > > inl fs_path =
00:01:42 verbose #1719 > > arg_matches
00:01:42 verbose #1720 > > |> runtime.matches_get_one ((get_args () .fable |> snd).fs_path
00:01:42 verbose #1721 > > |> fst)
00:01:42 verbose #1722 > > |> optionm'.unbox
00:01:42 verbose #1723 > > |> optionm.value
00:01:42 verbose #1724 > > |> sm'.from_std_string
00:01:42 verbose #1725 > >
00:01:42 verbose #1726 > > inl command =
00:01:42 verbose #1727 > > arg_matches
00:01:42 verbose #1728 > > |> runtime.matches_get_one ((get_args () .fable |> snd).command
00:01:42 verbose #1729 > > |> fst)
00:01:42 verbose #1730 > > |> optionm'.unbox
00:01:42 verbose #1731 > > |> optionm.map sm'.from_std_string
00:01:42 verbose #1732 > >
00:01:42 verbose #1733 > > inl command_result =
00:01:42 verbose #1734 > > match command with
00:01:42 verbose #1735 > > | Some command =>
00:01:42 verbose #1736 > > get_command ()
00:01:42 verbose #1737 > > |> runtime.command_get_matches_from (
00:01:42 verbose #1738 > > $'$"_ {!command} --fs-path \\\"{!fs_path}\\\""' |>
00:01:42 verbose #1739 > > runtime.split_args |> resultm.get
00:01:42 verbose #1740 > > )
00:01:42 verbose #1741 > > |> run trace_level
00:01:42 verbose #1742 > > |> async.await
00:01:42 verbose #1743 > > |> resultm.unwrap'
00:01:42 verbose #1744 > > | None => "{}"
00:01:42 verbose #1745 > >
00:01:42 verbose #1746 > > ;[[
00:01:42 verbose #1747 > > "command_result",
00:01:42 verbose #1748 > > command_result
00:01:42 verbose #1749 > > ]]
00:01:42 verbose #1750 > >
00:01:42 verbose #1751 > > | Some (subcommand, arg_matches)
00:01:42 verbose #1752 > > when (subcommand |> sm'.from_std_string) = (get_args () .dib |> fst)
00:01:42 verbose #1753 > > =>
00:01:42 verbose #1754 > >
00:01:42 verbose #1755 > > inl path =
00:01:42 verbose #1756 > > arg_matches
00:01:42 verbose #1757 > > |> runtime.matches_get_one ((get_args () .dib |> snd).path |>
00:01:42 verbose #1758 > > fst)
00:01:42 verbose #1759 > > |> optionm'.map'' (
00:01:42 verbose #1760 > > sm'.from_std_string
00:01:42 verbose #1761 > > >> file_system.absolute_path
00:01:42 verbose #1762 > > )
00:01:42 verbose #1763 > > |> optionm'.unwrap
00:01:42 verbose #1764 > >
00:01:42 verbose #1765 > > inl retries =
00:01:42 verbose #1766 > > arg_matches
00:01:42 verbose #1767 > > |> runtime.matches_get_one ((get_args () .dib |> snd).retries |>
00:01:42 verbose #1768 > > fst)
00:01:42 verbose #1769 > > |> optionm'.default_value' 1u8
00:01:42 verbose #1770 > >
00:01:42 verbose #1771 > > inl working_directory : optionm'.option' string =
00:01:42 verbose #1772 > > arg_matches
00:01:42 verbose #1773 > > |> runtime.matches_get_one ((get_args () .dib |>
00:01:42 verbose #1774 > > snd).working_directory |> fst)
00:01:42 verbose #1775 > >
00:01:42 verbose #1776 > > process_dib { path retries working_directory }
00:01:42 verbose #1777 > >
00:01:42 verbose #1778 > > | matches =>
00:01:42 verbose #1779 > > match matches with
00:01:42 verbose #1780 > > | Some (subcommand, arg_matches)
00:01:42 verbose #1781 > > when (subcommand |> sm'.from_std_string) = (get_args ()
00:01:42 verbose #1782 > > .rust |> fst) =>
00:01:42 verbose #1783 > >
00:01:42 verbose #1784 > > inl fs_path =
00:01:42 verbose #1785 > > arg_matches
00:01:42 verbose #1786 > > |> runtime.matches_get_one ((get_args () .rust |>
00:01:42 verbose #1787 > > snd).fs_path |> fst)
00:01:42 verbose #1788 > > |> optionm'.unbox
00:01:42 verbose #1789 > > |> optionm.value
00:01:42 verbose #1790 > > |> sm'.from_std_string
00:01:42 verbose #1791 > >
00:01:42 verbose #1792 > > inl deps : am'.vec sm'.std_string =
00:01:42 verbose #1793 > > arg_matches
00:01:42 verbose #1794 > > |> runtime.matches_get_many ((get_args () .rust |> snd).deps
00:01:42 verbose #1795 > > |> fst)
00:01:42 verbose #1796 > > |> optionm'.unbox
00:01:42 verbose #1797 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:01:42 verbose #1798 > >
00:01:42 verbose #1799 > > process_rust { fs_path deps trace_level }
00:01:42 verbose #1800 > >
00:01:42 verbose #1801 > > | Some (subcommand, arg_matches)
00:01:42 verbose #1802 > > when (subcommand |> sm'.from_std_string) = (get_args ()
00:01:42 verbose #1803 > > .typescript |> fst) =>
00:01:42 verbose #1804 > >
00:01:42 verbose #1805 > > inl fs_path =
00:01:42 verbose #1806 > > arg_matches
00:01:42 verbose #1807 > > |> runtime.matches_get_one ((get_args () .typescript |>
00:01:42 verbose #1808 > > snd).fs_path |> fst)
00:01:42 verbose #1809 > > |> optionm'.unbox
00:01:42 verbose #1810 > > |> optionm.value
00:01:42 verbose #1811 > > |> sm'.from_std_string
00:01:42 verbose #1812 > >
00:01:42 verbose #1813 > > inl deps : am'.vec sm'.std_string =
00:01:42 verbose #1814 > > arg_matches
00:01:42 verbose #1815 > > |> runtime.matches_get_many ((get_args () .typescript |>
00:01:42 verbose #1816 > > snd).deps |> fst)
00:01:42 verbose #1817 > > |> optionm'.unbox
00:01:42 verbose #1818 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:01:42 verbose #1819 > >
00:01:42 verbose #1820 > > process_typescript { fs_path deps trace_level }
00:01:42 verbose #1821 > >
00:01:42 verbose #1822 > > | Some (subcommand, arg_matches)
00:01:42 verbose #1823 > > when (subcommand |> sm'.from_std_string) = (get_args ()
00:01:42 verbose #1824 > > .python |> fst) =>
00:01:42 verbose #1825 > > inl fs_path =
00:01:42 verbose #1826 > > arg_matches
00:01:42 verbose #1827 > > |> runtime.matches_get_one ((get_args () .python |>
00:01:42 verbose #1828 > > snd).fs_path |> fst)
00:01:42 verbose #1829 > > |> optionm'.unbox
00:01:42 verbose #1830 > > |> optionm.value
00:01:42 verbose #1831 > > |> sm'.from_std_string
00:01:42 verbose #1832 > >
00:01:42 verbose #1833 > > inl deps : am'.vec sm'.std_string =
00:01:42 verbose #1834 > > arg_matches
00:01:42 verbose #1835 > > |> runtime.matches_get_many ((get_args () .python |>
00:01:42 verbose #1836 > > snd).deps |> fst)
00:01:42 verbose #1837 > > |> optionm'.unbox
00:01:42 verbose #1838 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:01:42 verbose #1839 > >
00:01:42 verbose #1840 > > process_python { fs_path deps trace_level }
00:01:42 verbose #1841 > >
00:01:42 verbose #1842 > > | Some (subcommand, arg_matches) =>
00:01:42 verbose #1843 > > trace Debug
00:01:42 verbose #1844 > > fun () => $'"spiral_builder.run / invalid subcommand"'
00:01:42 verbose #1845 > > fun () => $'$"subcommand: {!subcommand} / arg_matches:
00:01:42 verbose #1846 > > %A{!arg_matches} / {!_locals ()}"'
00:01:42 verbose #1847 > >
00:01:42 verbose #1848 > > { extension = None; code = None; output = None }
00:01:42 verbose #1849 > > | _ =>
00:01:42 verbose #1850 > > { extension = None; code = None; output = None }
00:01:42 verbose #1851 > > |> fun { extension code output } =>
00:01:42 verbose #1852 > > ;[[
00:01:42 verbose #1853 > > "extension", extension |> optionm'.default_value ""
00:01:42 verbose #1854 > > "code", code |> optionm'.default_value ""
00:01:42 verbose #1855 > > "output", output |> optionm'.default_value ""
00:01:42 verbose #1856 > > ]]
00:01:42 verbose #1857 > > |> am'.to_vec
00:01:42 verbose #1858 > > |> am'.vec_map' fun k, v =>
00:01:42 verbose #1859 > > new_pair (sm'.to_std_string k) (sm'.to_std_string v)
00:01:42 verbose #1860 > > |> mapm.b_tree_map_from_vec_pairs
00:01:42 verbose #1861 > > |> sm'.serialize
00:01:42 verbose #1862 > > |> resultm.map_error' (sm'.format' >> sm'.from_std_string)
00:01:42 verbose #1863 > > |> resultm.map' sm'.from_std_string
00:01:42 verbose #1864 > > |> async.future_init (3, 2) 1
00:01:43 verbose #1865 > >
00:01:43 verbose #1866 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:43 verbose #1867 > > //// test
00:01:43 verbose #1868 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io futures rand
00:01:43 verbose #1869 > > rayon regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:01:43 verbose #1870 > >
00:01:43 verbose #1871 > > types ()
00:01:43 verbose #1872 > >
00:01:43 verbose #1873 > > inl file_name = "main.fs"
00:01:43 verbose #1874 > > inl code = "3 - 6 |> System.Console.WriteLine\n"
00:01:43 verbose #1875 > >
00:01:43 verbose #1876 > > inl temp_dir, disposable =
00:01:43 verbose #1877 > > (file_name, code)
00:01:43 verbose #1878 > > |> sm'.format_debug
00:01:43 verbose #1879 > > |> crypto.hash_text
00:01:43 verbose #1880 > > |> file_system.create_temp_dir'
00:01:43 verbose #1881 > > inl fs_path = temp_dir </> file_name
00:01:43 verbose #1882 > >
00:01:43 verbose #1883 > > code |> file_system.write_all_text fs_path
00:01:43 verbose #1884 > >
00:01:43 verbose #1885 > > get_command ()
00:01:43 verbose #1886 > > |> runtime.command_get_matches_from ($'$"_ fable -f \\\"{!fs_path}\\\" -c
00:01:43 verbose #1887 > > \\\"rust -d regex=\'*\'\\\""' |> runtime.split_args |> resultm.get)
00:01:43 verbose #1888 > > |> run Verbose
00:01:43 verbose #1889 > > |> async.block_on
00:01:43 verbose #1890 > > |> resultm.unwrap'
00:01:43 verbose #1891 > > |> sm'.deserialize
00:01:43 verbose #1892 > > |> resultm.unwrap'
00:01:43 verbose #1893 > > |> mapm.get ("command_result" |> sm'.to_std_string)
00:01:43 verbose #1894 > > |> optionm'.unwrap
00:01:43 verbose #1895 > > |> sm'.from_std_string
00:01:43 verbose #1896 > > |> sm'.deserialize
00:01:43 verbose #1897 > > |> resultm.unwrap'
00:01:43 verbose #1898 > > |> fun result =>
00:01:43 verbose #1899 > > result
00:01:43 verbose #1900 > > |> mapm.get ("extension" |> sm'.to_std_string)
00:01:43 verbose #1901 > > |> optionm'.unwrap
00:01:43 verbose #1902 > > |> sm'.from_std_string
00:01:43 verbose #1903 > > |> _assert_eq "rs"
00:01:43 verbose #1904 > > result
00:01:43 verbose #1905 > > |> mapm.get ("output" |> sm'.to_std_string)
00:01:43 verbose #1906 > > |> optionm'.unwrap
00:01:43 verbose #1907 > > |> sm'.from_std_string
00:01:43 verbose #1908 > > |> _assert_eq "-3"
00:01:43 verbose #1909 > >
00:01:43 verbose #1910 > > disposable |> use |> ignore
00:02:33 verbose #1911 > >
00:02:33 verbose #1912 > > ╭─[ 49.84s - return value ]────────────────────────────────────────────────────╮
00:02:33 verbose #1913 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:02:33 verbose #1914 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_e28f49f9 │
00:02:33 verbose #1915 > > │ e82020fd1b31690c097aec82172c7967c214b89889642a336e97be47\c6422374-71e4-07d4- │
00:02:33 verbose #1916 > > │ 0ba4-c3084b24fbba │
00:02:33 verbose #1917 > > │ 00:00:00 verbose #2 file_system.create_dir / dir: │
00:02:33 verbose #1918 > > │ c:\home\git\polyglot\target/spiral_builder\spiral_builder\packages\bbba338a4 │
00:02:33 verbose #1919 > > │ 7ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892 │
00:02:33 verbose #1920 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:02:33 verbose #1921 > > │ arguments: ["fable", │
00:02:33 verbose #1922 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:02:33 verbose #1923 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892/spiral_builder.fspr │
00:02:33 verbose #1924 > > │ oj", "--optimize", "--lang", "rs", "--extension", ".rs", "--outDir", │
00:02:33 verbose #1925 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:02:33 verbose #1926 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892", "--define", │
00:02:33 verbose #1927 > > │ "_WINDOWS"] / options: (None, "dotnet fable │
00:02:33 verbose #1928 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:02:33 verbose #1929 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892/spiral_builder.fspr │
00:02:33 verbose #1930 > > │ oj" --optimize --lang rs --extension .rs --outDir │
00:02:33 verbose #1931 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:02:33 verbose #1932 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892" --define │
00:02:33 verbose #1933 > > │ _WINDOWS", Array(MutCell([])), None, None, true, None) │
00:02:33 verbose #1934 > > │ 00:00:00 verbose #4 > Fable 4.17.0: F# to Rust compiler (status: │
00:02:33 verbose #1935 > > │ alpha) │
00:02:33 verbose #1936 > > │ 00:00:00 verbose #5 > │
00:02:33 verbose #1937 > > │ 00:00:00 verbose #6 > Thanks to the │
00:02:33 verbose #1938 > > │ con...277df176e65d83bd5db52892.exe` │
00:02:33 verbose #1939 > > │ 00:00:05 verbose #22 > -3 │
00:02:33 verbose #1940 > > │ 00:00:05 verbose #23 runtime.execute_with_options / result / │
00:02:33 verbose #1941 > > │ exit_code: 0 / std_trace.Length: 628 │
00:02:33 verbose #1942 > > │ 00:00:05 verbose #24 spiral_builder.process_rust / new_code_path: │
00:02:33 verbose #1943 > > │ c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a4 │
00:02:33 verbose #1944 > > │ 7ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\spiral_builder.rs / │
00:02:33 verbose #1945 > > │ cleanup: │
00:02:33 verbose #1946 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:02:33 verbose #1947 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:02:33 verbose #1948 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:02:33 verbose #1949 > > │ d5db52892.d", true, │
00:02:33 verbose #1950 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:02:33 verbose #1951 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:02:33 verbose #1952 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:02:33 verbose #1953 > > │ d5db52892.exe", true, │
00:02:33 verbose #1954 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:02:33 verbose #1955 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:02:33 verbose #1956 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:02:33 verbose #1957 > > │ d5db52892.pdb", true, │
00:02:33 verbose #1958 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:02:33 verbose #1959 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:02:33 verbose #1960 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:02:33 verbose #1961 > > │ d5db52892", false, UH3_0)))) │
00:02:33 verbose #1962 > > │ assert_eq / actual: "rs" / expected: "rs" │
00:02:33 verbose #1963 > > │ assert_eq / actual: "-3" / expected: "-3" │
00:02:33 verbose #1964 > > │ │
00:02:33 verbose #1965 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 verbose #1966 > >
00:02:33 verbose #1967 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:33 verbose #1968 > > //// test
00:02:33 verbose #1969 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io futures rand
00:02:33 verbose #1970 > > rayon regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:02:33 verbose #1971 > >
00:02:33 verbose #1972 > > types ()
00:02:33 verbose #1973 > >
00:02:33 verbose #1974 > > inl code = "3 - 6 |> System.Console.WriteLine\n"
00:02:33 verbose #1975 > > inl file_name = "main.fs"
00:02:33 verbose #1976 > >
00:02:33 verbose #1977 > > inl temp_dir, disposable =
00:02:33 verbose #1978 > > (file_name, code)
00:02:33 verbose #1979 > > |> sm'.format_debug
00:02:33 verbose #1980 > > |> crypto.hash_text
00:02:33 verbose #1981 > > |> file_system.create_temp_dir'
00:02:33 verbose #1982 > > inl fs_path = temp_dir </> file_name
00:02:33 verbose #1983 > >
00:02:33 verbose #1984 > > code |> file_system.write_all_text fs_path
00:02:33 verbose #1985 > >
00:02:33 verbose #1986 > > get_command ()
00:02:33 verbose #1987 > > |> runtime.command_get_matches_from ($'$"_ fable -f \\\"{!fs_path}\\\" -c
00:02:33 verbose #1988 > > \\\"typescript\\\""' |> runtime.split_args |> resultm.get)
00:02:33 verbose #1989 > > |> run Verbose
00:02:33 verbose #1990 > > |> async.block_on
00:02:33 verbose #1991 > > |> resultm.unwrap'
00:02:33 verbose #1992 > > |> sm'.deserialize
00:02:33 verbose #1993 > > |> resultm.unwrap'
00:02:33 verbose #1994 > > |> mapm.get ("command_result" |> sm'.to_std_string)
00:02:33 verbose #1995 > > |> optionm'.unwrap
00:02:33 verbose #1996 > > |> sm'.from_std_string
00:02:33 verbose #1997 > > |> sm'.deserialize
00:02:33 verbose #1998 > > |> resultm.unwrap'
00:02:33 verbose #1999 > > |> fun result =>
00:02:33 verbose #2000 > > result
00:02:33 verbose #2001 > > |> mapm.get ("extension" |> sm'.to_std_string)
00:02:33 verbose #2002 > > |> optionm'.unwrap
00:02:33 verbose #2003 > > |> sm'.from_std_string
00:02:33 verbose #2004 > > |> _assert_eq "ts"
00:02:33 verbose #2005 > > result
00:02:33 verbose #2006 > > |> mapm.get ("output" |> sm'.to_std_string)
00:02:33 verbose #2007 > > |> optionm'.unwrap
00:02:33 verbose #2008 > > |> sm'.from_std_string
00:02:33 verbose #2009 > > |> _assert_eq "-3"
00:02:33 verbose #2010 > >
00:02:33 verbose #2011 > > disposable |> use |> ignore
00:03:14 verbose #2012 > >
00:03:14 verbose #2013 > > ╭─[ 40.83s - return value ]────────────────────────────────────────────────────╮
00:03:14 verbose #2014 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:03:14 verbose #2015 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_33d0b59c │
00:03:14 verbose #2016 > > │ 016c9a799b0660ea688d227cef1b7edf2c248f1987f6da12c872eff1\c6422374-71e4-07d4- │
00:03:14 verbose #2017 > > │ 0ba4-c3084b24fbba │
00:03:14 verbose #2018 > > │ 00:00:00 verbose #2 file_system.create_dir / dir: │
00:03:14 verbose #2019 > > │ c:\home\git\polyglot\target/spiral_builder\spiral_builder\packages\702335b07 │
00:03:14 verbose #2020 > > │ 56baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8 │
00:03:14 verbose #2021 > > │ 00:00:00 debug #3 spiral_builder.process_typescript / version: │
00:03:14 verbose #2022 > > │ US38_1 │
00:03:14 verbose #2023 > > │ 00:00:00 debug #4 runtime.execute_with_options / file_name: dotnet / │
00:03:14 verbose #2024 > > │ arguments: ["fable", │
00:03:14 verbose #2025 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:03:14 verbose #2026 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8/spiral_builder.fspr │
00:03:14 verbose #2027 > > │ oj", "--optimize", "--lang", "ts", "--extension", ".ts", "--outDir", │
00:03:14 verbose #2028 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:03:14 verbose #2029 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8", "--define", │
00:03:14 verbose #2030 > > │ "_WINDOWS"] / options: (None, "dotnet fable │
00:03:14 verbose #2031 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:03:14 verbose #2032 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8/spiral_builder.fspr │
00:03:14 verbose #2033 > > │ oj" --optimize --lang ts --extension .ts --outDir │
00:03:14 verbose #2034 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:03:14 verbose #2035 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8" --define │
00:03:14 verbose #2036 > > │ _WINDOWS", Array(MutCell([])), None, None, true, None) │
00:03:14 verbose #2037 > > │ 00:00:00 verbose #5 > Fable 4.17.0: F# to TypeScript compiler │
00:03:14 verbose #2038 > > │ 00:00:00 │
00:03:14 verbose #2039 > > │ ...\current;C:\Users\i574n\scoop\apps\python\current;C:\Users\i574n\scoop\ap │
00:03:14 verbose #2040 > > │ ps\nircmd\current;C:\Users\i574n\scoop\apps\graalvm-nightly-jdk17\current\bi │
00:03:14 verbose #2041 > > │ n;C:\Users\i574n\scoop\apps\dotnet3-sdk\current;C:\WINDOWS\System32;C:\WINDO │
00:03:14 verbose #2042 > > │ WS;C:\WINDOWS\System32\wbem;C:\WINDOWS\System32\WindowsPowerShell\v1.0\;C:\W │
00:03:14 verbose #2043 > > │ INDOWS\System32\OpenSSH\;C:\Users\i574n\scoop\shims;C:\Users\i574n/scoop\shi │
00:03:14 verbose #2044 > > │ ms;C:\Users\i574n\AppData\Local\Microsoft\WindowsApps;C:\Users\i574n/scoop/b │
00:03:14 verbose #2045 > > │ uckets/mold/home/windows/path;C:\Users\i574n/scoop\persist\rustup\.cargo\bin │
00:03:14 verbose #2046 > > │ ;C:\Users\i574n/scoop\apps\nvm\current\nodejs\nodejs;C:\Users\i574n/scoop\ap │
00:03:14 verbose #2047 > > │ ps\cygwin\current\root\bin;C:\Users\i574n/scoop/persist/rustup/.cargo/bin;C: │
00:03:14 verbose #2048 > > │ \Users\i574n/scoop/apps/nvm/current/nodejs/nodejs;C:\Users\i574n/scoop/apps/ │
00:03:14 verbose #2049 > > │ cygwin/current/root/bin;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\AppData\ │
00:03:14 verbose #2050 > > │ Local\Programs\Microsoft VS Code\bin;C:\Program │
00:03:14 verbose #2051 > > │ Files\Intel\WiFi\bin\;C:\Program Files\Common │
00:03:14 verbose #2052 > > │ Files\Intel\WirelessCommon\;C:\Users\i574n\AppData\Local\Microsoft\WindowsAp │
00:03:14 verbose #2053 > > │ ps;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\Downloads\bun-windows-x64;C:\ │
00:03:14 verbose #2054 > > │ Users\i574n\.dotnet\tools;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\.bun\b │
00:03:14 verbose #2055 > > │ in;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\.dotnet\tools"), │
00:03:14 verbose #2056 > > │ ("TRACE_LEVEL", "Verbose")])), None, None, true, None) │
00:03:14 verbose #2057 > > │ 00:00:01 verbose #19 > -3 │
00:03:14 verbose #2058 > > │ 00:00:01 verbose #20 runtime.execute_with_options / result / │
00:03:14 verbose #2059 > > │ exit_code: 0 / std_trace.Length: 2 │
00:03:14 verbose #2060 > > │ assert_eq / actual: "ts" / expected: "ts" │
00:03:14 verbose #2061 > > │ assert_eq / actual: "-3" / expected: "-3" │
00:03:14 verbose #2062 > > │ │
00:03:14 verbose #2063 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 verbose #2064 > >
00:03:14 verbose #2065 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:14 verbose #2066 > > //// test
00:03:14 verbose #2067 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io futures rand
00:03:14 verbose #2068 > > rayon regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:03:14 verbose #2069 > >
00:03:14 verbose #2070 > > types ()
00:03:14 verbose #2071 > >
00:03:14 verbose #2072 > > inl file_name = "main.fs"
00:03:14 verbose #2073 > > inl code = "3 - 6 |> System.Console.WriteLine\n"
00:03:14 verbose #2074 > >
00:03:14 verbose #2075 > > inl temp_dir, disposable =
00:03:14 verbose #2076 > > (file_name, code)
00:03:14 verbose #2077 > > |> sm'.format_debug
00:03:14 verbose #2078 > > |> crypto.hash_text
00:03:14 verbose #2079 > > |> file_system.create_temp_dir'
00:03:14 verbose #2080 > > inl fs_path = temp_dir </> file_name
00:03:14 verbose #2081 > >
00:03:14 verbose #2082 > > code |> file_system.write_all_text fs_path
00:03:14 verbose #2083 > >
00:03:14 verbose #2084 > > get_command ()
00:03:14 verbose #2085 > > |> runtime.command_get_matches_from ($'$"_ fable -f \\\"{!fs_path}\\\" -c
00:03:14 verbose #2086 > > \\\"python\\\""' |> runtime.split_args |> resultm.get)
00:03:14 verbose #2087 > > |> run Verbose
00:03:14 verbose #2088 > > |> async.block_on
00:03:14 verbose #2089 > > |> resultm.unwrap'
00:03:14 verbose #2090 > > |> sm'.deserialize
00:03:14 verbose #2091 > > |> resultm.unwrap'
00:03:14 verbose #2092 > > |> mapm.get ("command_result" |> sm'.to_std_string)
00:03:14 verbose #2093 > > |> optionm'.unwrap
00:03:14 verbose #2094 > > |> sm'.from_std_string
00:03:14 verbose #2095 > > |> sm'.deserialize
00:03:14 verbose #2096 > > |> resultm.unwrap'
00:03:14 verbose #2097 > > |> fun result =>
00:03:14 verbose #2098 > > result
00:03:14 verbose #2099 > > |> mapm.get ("extension" |> sm'.to_std_string)
00:03:14 verbose #2100 > > |> optionm'.unwrap
00:03:14 verbose #2101 > > |> sm'.from_std_string
00:03:14 verbose #2102 > > |> _assert_eq "py"
00:03:14 verbose #2103 > > result
00:03:14 verbose #2104 > > |> mapm.get ("output" |> sm'.to_std_string)
00:03:14 verbose #2105 > > |> optionm'.unwrap
00:03:14 verbose #2106 > > |> sm'.from_std_string
00:03:14 verbose #2107 > > |> _assert_eq "-3"
00:03:14 verbose #2108 > >
00:03:14 verbose #2109 > > disposable |> use |> ignore
00:03:57 verbose #2110 > >
00:03:57 verbose #2111 > > ╭─[ 43.80s - return value ]────────────────────────────────────────────────────╮
00:03:57 verbose #2112 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:03:57 verbose #2113 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_7f16b4b0 │
00:03:57 verbose #2114 > > │ ea5050fcfbe05d76837fd884ef809d2050564d09f7eb59345942afd2\c6422374-71e4-07d4- │
00:03:57 verbose #2115 > > │ 0ba4-c3084b24fbba │
00:03:57 verbose #2116 > > │ 00:00:00 verbose #2 file_system.create_dir / dir: │
00:03:57 verbose #2117 > > │ c:\home\git\polyglot\target/spiral_builder\spiral_builder\packages\cb8f3dd33 │
00:03:57 verbose #2118 > > │ 197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce │
00:03:57 verbose #2119 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:03:57 verbose #2120 > > │ arguments: ["fable", │
00:03:57 verbose #2121 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:57 verbose #2122 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce/spiral_builder.fspr │
00:03:57 verbose #2123 > > │ oj", "--optimize", "--lang", "py", "--extension", ".py", "--outDir", │
00:03:57 verbose #2124 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:57 verbose #2125 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce", "--define", │
00:03:57 verbose #2126 > > │ "_WINDOWS"] / options: (None, "dotnet fable │
00:03:57 verbose #2127 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:57 verbose #2128 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce/spiral_builder.fspr │
00:03:57 verbose #2129 > > │ oj" --optimize --lang py --extension .py --outDir │
00:03:57 verbose #2130 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:57 verbose #2131 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce" --define │
00:03:57 verbose #2132 > > │ _WINDOWS", Array(MutCell([])), None, None, true, None) │
00:03:57 verbose #2133 > > │ 00:00:00 verbose #4 > Fable 4.17.0: F# to Python compiler (status: │
00:03:57 verbose #2134 > > │ beta) │
00:03:57 verbose #2135 > > │ 00:00:00 verbose #5 > │
00:03:57 verbose #2136 > > │ 00:00:00 verbose #6 > Thanks to the │
00:03:57 verbose #2137 > > │ co...7bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\spiral_builder.fs │
00:03:57 verbose #2138 > > │ proj... │
00:03:57 verbose #2139 > > │ 00:00:01 verbose #10 > Retrieving project options from cache, in case │
00:03:57 verbose #2140 > > │ of issues run `dotnet fable clean` or try `--noCache` option. │
00:03:57 verbose #2141 > > │ 00:00:01 verbose #11 > Project and references (1 source files) parsed │
00:03:57 verbose #2142 > > │ in 189ms │
00:03:57 verbose #2143 > > │ 00:00:01 verbose #12 > │
00:03:57 verbose #2144 > > │ 00:00:01 verbose #13 > Skipped compilation because all generated files │
00:03:57 verbose #2145 > > │ are up-to-date! │
00:03:57 verbose #2146 > > │ 00:00:01 verbose #14 runtime.execute_with_options / result / │
00:03:57 verbose #2147 > > │ exit_code: 0 / std_trace.Length: 521 │
00:03:57 verbose #2148 > > │ 00:00:01 debug #15 spiral_builder.process_python / new_code_path: │
00:03:57 verbose #2149 > > │ c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd33 │
00:03:57 verbose #2150 > > │ 197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\spiral_builder.py │
00:03:57 verbose #2151 > > │ 00:00:01 debug #16 runtime.execute_with_options / file_name: python │
00:03:57 verbose #2152 > > │ / arguments: [ │
00:03:57 verbose #2153 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:57 verbose #2154 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\\spiral_builder.py" │
00:03:57 verbose #2155 > > │ ] / options: (None, "python │
00:03:57 verbose #2156 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:57 verbose #2157 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\spiral_builder.py"" │
00:03:57 verbose #2158 > > │ , Array(MutCell([("TRACE_LEVEL", "Verbose")])), None, None, true, None) │
00:03:57 verbose #2159 > > │ 00:00:01 verbose #17 > -3 │
00:03:57 verbose #2160 > > │ 00:00:01 verbose #18 runtime.execute_with_options / result / │
00:03:57 verbose #2161 > > │ exit_code: 0 / std_trace.Length: 2 │
00:03:57 verbose #2162 > > │ assert_eq / actual: "py" / expected: "py" │
00:03:57 verbose #2163 > > │ assert_eq / actual: "-3" / expected: "-3" │
00:03:57 verbose #2164 > > │ │
00:03:57 verbose #2165 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #2166 > >
00:03:57 verbose #2167 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 verbose #2168 > > //// test
00:03:57 verbose #2169 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io rand rayon
00:03:57 verbose #2170 > > regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:03:57 verbose #2171 > >
00:03:57 verbose #2172 > > types ()
00:03:57 verbose #2173 > >
00:03:57 verbose #2174 > > inl file_name = "test.dib"
00:03:57 verbose #2175 > > inl code =
00:03:57 verbose #2176 > >
00:03:57 verbose #2177 > > "#!meta\n\n{\"kernelInfo\":{\"defaultKernelName\":\"fsharp\",\"items\":[[]]}}\n\
00:03:57 verbose #2178 > > n#!fsharp\n\n3 - 6\n"
00:03:57 verbose #2179 > >
00:03:57 verbose #2180 > > inl temp_dir, disposable =
00:03:57 verbose #2181 > > (file_name, code)
00:03:57 verbose #2182 > > |> sm'.format_debug
00:03:57 verbose #2183 > > |> crypto.hash_text
00:03:57 verbose #2184 > > |> file_system.create_temp_dir'
00:03:57 verbose #2185 > > inl path = temp_dir </> file_name |> file_system.normalize_path
00:03:57 verbose #2186 > >
00:03:57 verbose #2187 > > code
00:03:57 verbose #2188 > > |> file_system.write_all_text path
00:03:57 verbose #2189 > >
00:03:57 verbose #2190 > > get_command ()
00:03:57 verbose #2191 > > |> runtime.command_get_matches_from ($'$"_ dib -p {!path}"' |>
00:03:57 verbose #2192 > > runtime.split_args |> resultm.get)
00:03:57 verbose #2193 > > |> run Verbose
00:03:57 verbose #2194 > > |> async.block_on
00:03:57 verbose #2195 > > |> resultm.unwrap'
00:03:57 verbose #2196 > > |> __assert_string_contains false "<pre>-3 "
00:03:57 verbose #2197 > >
00:03:57 verbose #2198 > > $'$"{!path}.html"'
00:03:57 verbose #2199 > > |> file_system.read_all_text
00:03:57 verbose #2200 > > |> __assert_string_contains false "\"cell-id=1\""
00:03:57 verbose #2201 > >
00:03:57 verbose #2202 > > disposable |> use |> ignore
00:04:53 verbose #2203 > >
00:04:53 verbose #2204 > > ╭─[ 55.81s - return value ]────────────────────────────────────────────────────╮
00:04:53 verbose #2205 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:04:53 verbose #2206 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_eb9eca2e │
00:04:53 verbose #2207 > > │ 97f338e0fe2d9318a91fa5a098aa36f941ff65a98c08af820e7226cb\af524e22-8e9a-5d18- │
00:04:53 verbose #2208 > > │ 99ed-bd86e1b74623 │
00:04:53 verbose #2209 > > │ 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / │
00:04:53 verbose #2210 > > │ arguments: ["repl", "--exit-after-run", "--run", │
00:04:53 verbose #2211 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_eb9eca2 │
00:04:53 verbose #2212 > > │ e97f338e0fe2d9318a91fa5a098aa36f941ff65a98c08af820e7226cb/af524e22-8e9a-5d18 │
00:04:53 verbose #2213 > > │ -99ed-bd86e1b74623/test.dib", "--output-path", │
00:04:53 verbose #2214 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_eb9eca2 │
00:04:53 verbose #2215 > > │ e97f338e0fe2d9318a91fa5a098aa36f941ff65a98c08af820e7226cb/af524e22-8e9a-5d18 │
00:04:53 verbose #2216 > > │ -99ed-bd86e1b74623/test.dib.ipynb"] / options: (None, "dotnet repl │
00:04:53 verbose #2217 > > │ --exit-after-run --run │
00:04:53 verbose #2218 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_eb9eca2 │
00:04:53 verbose #2219 > > │ e97f338e0fe2d9318a91fa5a098aa36f941ff65a98c08af820e7226cb/af524e22-8e9a-5d18 │
00:04:53 verbose #2220 > > │ -99ed-bd86e1b74623/test.dib" --output-path │
00:04:53 verbose #2221 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_eb9eca2 │
00:04:53 verbose #2222 > > │ e97f338e0fe2d9318a91fa5a098aa36f941ff65a98c08af820e7226cb/af524e22-8e9a-5d18 │
00:04:53 verbose #2223 > > │ -99ed-bd86e1b74623/test.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", │
00:04:53 verbose #2224 > > │ "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) │
00:04:53 verbose #2225 > > │ > │
00:04:53 verbose #2226 > > │ > ── fsharp │
00:04:53 verbose #2227 > > │ ────────────────────────────────────────────────────────────────────── │
00:04:53 verbose #2228 > > │ > 3 - 6 │
00:04:53 verbose #2229 > > │ > │
00:04:53 verbose #2230 > > │ > ── fsharp - import │
00:04:53 verbose #2231 > > │ ───────────────────────────────────────────────────────────── │
00:04:53 verbose #2232 > > │ > #r │
00:04:53 verbose #2233 > > │ > │
00:04:53 verbose #2234 > > │ "C:/Users/i574n/.nuget/packages...97f338e0fe2d9318a91fa5a098aa36f941ff65a98c │
00:04:53 verbose #2235 > > │ 08af820e7226cb\af524e22-8e9a-5d18-99ed-bd86e1b74623\test.dib.html │
00:04:53 verbose #2236 > > │ 00:00:12 verbose #9 runtime.execute_with_options / result / exit_code: │
00:04:53 verbose #2237 > > │ 0 / std_trace.Length: 915 │
00:04:53 verbose #2238 > > │ 00:00:12 debug #10 spiral_builder.run / dib / jupyter nbconvert / │
00:04:53 verbose #2239 > > │ exit_code: 0 / jupyter_result.Length: 915 │
00:04:53 verbose #2240 > > │ 00:00:12 debug #11 runtime.execute_with_options / file_name: pwsh / │
00:04:53 verbose #2241 > > │ arguments: ["-c", "$counter = 1; $path = │
00:04:53 verbose #2242 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_eb9eca2 │
00:04:53 verbose #2243 > > │ e97f338e0fe2d9318a91fa5a098aa36f941ff65a98c08af820e7226cb/af524e22-8e9a-5d18 │
00:04:53 verbose #2244 > > │ -99ed-bd86e1b74623/test.dib.html'; (Get-Content $path -Raw) -replace │
00:04:53 verbose #2245 > > │ '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | │
00:04:53 verbose #2246 > > │ Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = │
00:04:53 verbose #2247 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_eb9eca2 │
00:04:53 verbose #2248 > > │ e97f338e0fe2d9318a91fa5a098aa36f941ff65a98c08af820e7226cb/af524e22-8e9a-5d18 │
00:04:53 verbose #2249 > > │ -99ed-bd86e1b74623/test.dib.html'; (Get-Content $path -Raw) -replace │
00:04:53 verbose #2250 > > │ '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | │
00:04:53 verbose #2251 > > │ Set-Content $path"", Array(MutCell([])), None, None, true, None) │
00:04:53 verbose #2252 > > │ 00:00:13 verbose #12 runtime.execute_with_options / result / │
00:04:53 verbose #2253 > > │ exit_code: 0 / std_trace.Length: 0 │
00:04:53 verbose #2254 > > │ 00:00:13 debug #13 spiral_builder.run / dib / html cell ids / │
00:04:53 verbose #2255 > > │ exit_code: 0 / pwsh_replace_html_result.Length: 0 │
00:04:53 verbose #2256 > > │ 00:00:14 debug #14 spiral_builder.run / dib / exit_code: 0 / │
00:04:53 verbose #2257 > > │ result.Length: 5290 │
00:04:53 verbose #2258 > > │ │
00:04:53 verbose #2259 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:53 verbose #2260 > >
00:04:53 verbose #2261 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:53 verbose #2262 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:53 verbose #2263 > > │ ## tests │
00:04:53 verbose #2264 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:53 verbose #2265 > >
00:04:53 verbose #2266 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:53 verbose #2267 > > inl tests () =
00:04:53 verbose #2268 > > rust.run_tests [[
00:04:53 verbose #2269 > > "verify_app", fun _ =>
00:04:53 verbose #2270 > > get_command () |> runtime.command_debug_assert
00:04:53 verbose #2271 > > ]]
00:04:54 verbose #2272 > >
00:04:54 verbose #2273 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:54 verbose #2274 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:54 verbose #2275 > > │ ## main │
00:04:54 verbose #2276 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 verbose #2277 > >
00:04:54 verbose #2278 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 verbose #2279 > > ///!
00:04:54 verbose #2280 > >
00:04:54 verbose #2281 > > inl main (args : array_base string) =
00:04:54 verbose #2282 > > inl trace_state = get_trace_state_or_init None
00:04:54 verbose #2283 > >
00:04:54 verbose #2284 > > trace Debug
00:04:54 verbose #2285 > > fun () => $'$"spiral_builder.main"'
00:04:54 verbose #2286 > > fun () => $'$"args: {!args} / {!_locals ()}"'
00:04:54 verbose #2287 > >
00:04:54 verbose #2288 > > inl command = get_command ()
00:04:54 verbose #2289 > > inl arg_matches = command |> runtime.command_get_matches
00:04:54 verbose #2290 > >
00:04:54 verbose #2291 > > inl trace_state_level = trace_state.level
00:04:54 verbose #2292 > >
00:04:54 verbose #2293 > > inl result =
00:04:54 verbose #2294 > > arg_matches
00:04:54 verbose #2295 > > |> run *trace_state_level
00:04:54 verbose #2296 > > |> async.block_on
00:04:54 verbose #2297 > > |> resultm.unwrap'
00:04:54 verbose #2298 > >
00:04:54 verbose #2299 > > if *trace_state_level = Info
00:04:54 verbose #2300 > > then result |> console.write_line
00:04:54 verbose #2301 > >
00:04:54 verbose #2302 > > 0i32
00:04:54 verbose #2303 > >
00:04:54 verbose #2304 > > inl main () =
00:04:54 verbose #2305 > > types ()
00:04:54 verbose #2306 > > $'let tests () = !tests ()' : ()
00:04:54 verbose #2307 > > $'let main args = !main args' : ()
00:04:55 verbose #2308 > 00:04:54 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 102214
00:04:55 verbose #2309 > 00:04:54 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:04:58 verbose #2310 > 00:04:56 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb to html
00:04:58 verbose #2311 > 00:04:56 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:58 verbose #2312 > 00:04:56 verbose #7 ! validate(nb)
00:05:02 verbose #2313 > 00:05:01 verbose #8 ! [NbConvertApp] Writing 560216 bytes to c:\home\git\polyglot\apps\spiral\builder\spiral_builder.dib.html
00:05:03 verbose #2314 > 00:05:01 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 677
00:05:03 verbose #2315 > 00:05:01 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 677
00:05:03 verbose #2316 > 00:05:01 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:05:04 verbose #2317 > 00:05:02 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:05:04 verbose #2318 > 00:05:02 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:05:04 verbose #2319 > 00:05:03 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 102950
00:05:04 debug #2320 runtime.execute_with_options_async / exit_code: 0 / output.Length: 109943
00:05:04 debug #1 main / executeCommand / exitCode: 0 / command: ../../../workspace/target/release/spiral_builder.exe dib --path spiral_builder.dib
00:00:00 debug #1 writeDibCode / output: Spi / path: spiral_builder.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: spiral_builder.dib
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #2 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #2 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 verbose #3 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # spiral_builder\nopen file_system_operators\nopen rust_operators\nopen ...ain args\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/apps/spiral/builder/spiral_builder.spi"}} / result:
00:00:01 verbose #4 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/spiral/builder/spiral_builder.spi"}} / result:
00:00:02 debug #5 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]
#endif...5 : (string -> unit) = System.Console.WriteLine
v25 v21
0
let v0 : (unit -> unit) = closure0()
let tests () = v0 ()
let v1 : ((string []) -> int32) = closure1()
let main args = v1 args
()
/ errors: [] / typeErrorCount: 0
00:00:02 debug #6 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: spiral_builder / hash: / code.Length: 592821
targetDir: C:\home\git\polyglot\target\Builder\spiral_builder
Fable 4.17.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @Nhowka
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing target\Builder\spiral_builder\spiral_builder.fsproj...
Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option.
Project and references (14 source files) parsed in 198ms
Started Fable compilation...
Fable compilation finished in 12433ms
.\lib\spiral\sm.fsx(581,0): (581,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\common.fsx(1316,0): (1316,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\common.fsx(1323,0): (1323,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\crypto.fsx(1624,0): (1624,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\async_.fsx(112,0): (112,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\threading.fsx(171,0): (171,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\date_time.fsx(1264,0): (1264,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\platform.fsx(108,0): (108,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\networking.fsx(3349,0): (3349,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\networking.fsx(3358,0): (3358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\trace.fsx(1217,0): (1217,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\trace.fsx(1220,0): (1220,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\runtime.fsx(3271,0): (3271,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\runtime.fsx(3282,0): (3282,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\file_system.fsx(6319,0): (6319,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\file_system.fsx(6358,0): (6358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust)
Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder)
Finished `release` profile [optimized] target(s) in 26.06s
Running unittests spiral_builder.rs (C:\home\git\polyglot\workspace\target\release\deps\spiral_builder-e564238b6fbbd08a.exe)
running 1 test
test module_7e2cd9e0::Spiral_builder::verify_app ... ok
successes:
successes:
module_7e2cd9e0::Spiral_builder::verify_app
test result: ok. 1 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.00s
Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust)
Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder)
error: failed to remove file `C:\home\git\polyglot\workspace\target\release\spiral_builder.exe`
Caused by:
Access is denied. (os error 5)
# Invoke-Block / $retry: 1/1 / $Location: / Get-Location: C:\home\git\polyglot\apps\spiral\builder / $OnError: Continue / $exitcode: 101 / $EnvVars: {} / $Error: '' / $ScriptBlock:
'cargo +nightly build --release'
In [ ]:
{ pwsh ../lib/fsharp/build.ps1 -sequential 1 } | Invoke-Block
00:00:01 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Async.dib --retries 3",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Async.dib", "--retries", "3"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/Async.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/Async.dib" --output-path "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:05 verbose #4 > >
00:00:05 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #7 > > │ # Async (Polyglot) │
00:00:05 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #9 > >
00:00:05 verbose #10 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #11 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:05 verbose #12 > > #!import ../../lib/fsharp/Testing.dib
00:00:05 verbose #13 > >
00:00:05 verbose #14 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:05 verbose #15 > > #r
00:00:05 verbose #16 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:05 verbose #17 > > spNetCore.Html.Abstractions.dll"
00:00:05 verbose #18 > > #r
00:00:05 verbose #19 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #20 > > otNet.Interactive.dll"
00:00:05 verbose #21 > > #r
00:00:05 verbose #22 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #23 > > otNet.Interactive.FSharp.dll"
00:00:05 verbose #24 > > #r
00:00:05 verbose #25 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #26 > > otNet.Interactive.Formatting.dll"
00:00:05 verbose #27 > > open System
00:00:05 verbose #28 > > open System.IO
00:00:05 verbose #29 > > open System.Text
00:00:05 verbose #30 > > open Microsoft.DotNet.Interactive.Formatting
00:00:09 verbose #31 > >
00:00:09 verbose #32 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #33 > > #r
00:00:09 verbose #34 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:09 verbose #35 > > otNet.Interactive.FSharp.dll"
00:00:09 verbose #36 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:09 verbose #37 > > #r
00:00:09 verbose #38 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:09 verbose #39 > > otNet.Interactive.dll"
00:00:09 verbose #40 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:10 verbose #41 > >
00:00:10 verbose #42 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #43 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:10 verbose #44 > >
00:00:10 verbose #45 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #46 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:10 verbose #47 > > TextWriter)->fprintfn writer "%120A" x)
00:00:10 verbose #48 > >
00:00:10 verbose #49 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #50 > > //// test
00:00:10 verbose #51 > >
00:00:10 verbose #52 > > Formatter.ListExpansionLimit <- 100
00:00:10 verbose #53 > >
00:00:10 verbose #54 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #55 > > #if FABLE_COMPILER
00:00:10 verbose #56 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:10 verbose #57 > > #endif
00:00:10 verbose #58 > > type std_env_VarError = class end
00:00:10 verbose #59 > > #if FABLE_COMPILER
00:00:10 verbose #60 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:10 verbose #61 > > #endif
00:00:10 verbose #62 > > type core_any_Any = class end
00:00:10 verbose #63 > > #if FABLE_COMPILER
00:00:10 verbose #64 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:10 verbose #65 > > #endif
00:00:10 verbose #66 > > type core_ops_Try<'T> = class end
00:00:10 verbose #67 > > #if FABLE_COMPILER
00:00:10 verbose #68 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:10 verbose #69 > > #endif
00:00:10 verbose #70 > > type Func0<'T> = class end
00:00:10 verbose #71 > > #if FABLE_COMPILER
00:00:10 verbose #72 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:10 verbose #73 > > #endif
00:00:10 verbose #74 > > type Func0<'T, 'U> = class end
00:00:10 verbose #75 > > #if FABLE_COMPILER
00:00:10 verbose #76 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:10 verbose #77 > > #endif
00:00:10 verbose #78 > > type Box<'T> = class end
00:00:10 verbose #79 > > #if FABLE_COMPILER
00:00:10 verbose #80 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:10 verbose #81 > > #endif
00:00:10 verbose #82 > > type Dyn<'T> = class end
00:00:10 verbose #83 > > #if FABLE_COMPILER
00:00:10 verbose #84 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:10 verbose #85 > > #endif
00:00:10 verbose #86 > > type Send<'T> = class end
00:00:10 verbose #87 > > #if FABLE_COMPILER
00:00:10 verbose #88 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:10 verbose #89 > > #endif
00:00:10 verbose #90 > > type Fn<'T> = class end
00:00:10 verbose #91 > > #if FABLE_COMPILER
00:00:10 verbose #92 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:10 verbose #93 > > #endif
00:00:10 verbose #94 > > type FnUnit = class end
00:00:10 verbose #95 > > #if FABLE_COMPILER
00:00:10 verbose #96 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:10 verbose #97 > > #endif
00:00:10 verbose #98 > > type FnOnce<'T> = class end
00:00:10 verbose #99 > > #if FABLE_COMPILER
00:00:10 verbose #100 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:10 verbose #101 > > #endif
00:00:10 verbose #102 > > type ActionFn<'T> = class end
00:00:10 verbose #103 > > #if FABLE_COMPILER
00:00:10 verbose #104 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:10 verbose #105 > > #endif
00:00:10 verbose #106 > > type ActionFn2<'T, 'U> = class end
00:00:10 verbose #107 > > #if FABLE_COMPILER
00:00:10 verbose #108 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:10 verbose #109 > > #endif
00:00:10 verbose #110 > > type Impl<'T> = class end
00:00:10 verbose #111 > > #if FABLE_COMPILER
00:00:10 verbose #112 > > [[<Fabl...2, v3, v4)
00:00:10 verbose #113 > > US5_1
00:00:10 verbose #114 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:10 verbose #115 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:10 verbose #116 > > let v4 : (US4 -> US5) = closure6()
00:00:10 verbose #117 > > let v5 : (exn -> US5) = closure7(v2)
00:00:10 verbose #118 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:10 verbose #119 > > match v6 with
00:00:10 verbose #120 > > | US5_1 -> (* None *)
00:00:10 verbose #121 > > let v8 : int32 = v2 + 1
00:00:10 verbose #122 > > method6(v0, v1, v8)
00:00:10 verbose #123 > > | US5_0(v7) -> (* Some *)
00:00:10 verbose #124 > > v7
00:00:10 verbose #125 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:10 verbose #126 > > let v2 : int32 = 0
00:00:10 verbose #127 > > let v3 : US4 = method6(v0, v1, v2)
00:00:10 verbose #128 > > match v3 with
00:00:10 verbose #129 > > | US4_1 -> (* None *)
00:00:10 verbose #130 > > let v5 : unit option = None
00:00:10 verbose #131 > > v5
00:00:10 verbose #132 > > | US4_0 -> (* Some *)
00:00:10 verbose #133 > > let v4 : unit option = Some ()
00:00:10 verbose #134 > > v4
00:00:10 verbose #135 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:10 verbose #136 > > closure4(v0)
00:00:10 verbose #137 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:10 verbose #138 > > v0
00:00:10 verbose #139 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:10 verbose #140 > > v0.Value
00:00:10 verbose #141 > > ()
00:00:10 verbose #142 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:10 verbose #143 > > let v1 : (unit -> unit) = method12(v0)
00:00:10 verbose #144 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:10 verbose #145 > > closure13(v2)
00:00:10 verbose #146 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:10 verbose #147 > > let v1 : US0 = US0_0
00:00:10 verbose #148 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:10 verbose #149 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:10 verbose #150 > > let new_disposable x = v2 x
00:00:10 verbose #151 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:10 verbose #152 > > let retry_fn x = v3 x
00:00:10 verbose #153 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:10 verbose #154 > > let memoize x = v4 x
00:00:10 verbose #155 > > ()
00:00:10 verbose #156 > >
00:00:12 verbose #157 > >
00:00:12 verbose #158 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #159 > > #if FABLE_COMPILER
00:00:12 verbose #160 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:12 verbose #161 > > #endif
00:00:12 verbose #162 > > type core_any_Any = class end
00:00:12 verbose #163 > > #if FABLE_COMPILER
00:00:12 verbose #164 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:12 verbose #165 > > #endif
00:00:12 verbose #166 > > type core_ops_Try<'T> = class end
00:00:12 verbose #167 > > #if FABLE_COMPILER
00:00:12 verbose #168 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:12 verbose #169 > > #endif
00:00:12 verbose #170 > > type Func0<'T> = class end
00:00:12 verbose #171 > > #if FABLE_COMPILER
00:00:12 verbose #172 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:12 verbose #173 > > #endif
00:00:12 verbose #174 > > type Func0<'T, 'U> = class end
00:00:12 verbose #175 > > #if FABLE_COMPILER
00:00:12 verbose #176 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:12 verbose #177 > > #endif
00:00:12 verbose #178 > > type Box<'T> = class end
00:00:12 verbose #179 > > #if FABLE_COMPILER
00:00:12 verbose #180 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:12 verbose #181 > > #endif
00:00:12 verbose #182 > > type Dyn<'T> = class end
00:00:12 verbose #183 > > #if FABLE_COMPILER
00:00:12 verbose #184 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:12 verbose #185 > > #endif
00:00:12 verbose #186 > > type Send<'T> = class end
00:00:12 verbose #187 > > #if FABLE_COMPILER
00:00:12 verbose #188 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:12 verbose #189 > > #endif
00:00:12 verbose #190 > > type Fn<'T> = class end
00:00:12 verbose #191 > > #if FABLE_COMPILER
00:00:12 verbose #192 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:12 verbose #193 > > #endif
00:00:12 verbose #194 > > type FnUnit = class end
00:00:12 verbose #195 > > #if FABLE_COMPILER
00:00:12 verbose #196 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:12 verbose #197 > > #endif
00:00:12 verbose #198 > > type FnOnce<'T> = class end
00:00:12 verbose #199 > > #if FABLE_COMPILER
00:00:12 verbose #200 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:12 verbose #201 > > #endif
00:00:12 verbose #202 > > type ActionFn<'T> = class end
00:00:12 verbose #203 > > #if FABLE_COMPILER
00:00:12 verbose #204 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:12 verbose #205 > > #endif
00:00:12 verbose #206 > > type ActionFn2<'T, 'U> = class end
00:00:12 verbose #207 > > #if FABLE_COMPILER
00:00:12 verbose #208 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:12 verbose #209 > > #endif
00:00:12 verbose #210 > > type Impl<'T> = class end
00:00:12 verbose #211 > > #if FABLE_COMPILER
00:00:12 verbose #212 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:12 verbose #213 > > #endif
00:00:12 verbose #214 > > type Mut<'T> = class end
00:00:12 verbose #215 > > #if FABLE_COMPILER
00:00:12 verbose #216 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:12 verbose #217 > > let replace x = v4 x
00:00:12 verbose #218 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:12 verbose #219 > > let replace_regex x = v5 x
00:00:12 verbose #220 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:12 verbose #221 > > let slice x = v6 x
00:00:12 verbose #222 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:12 verbose #223 > > let split x = v7 x
00:00:12 verbose #224 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:12 verbose #225 > > let split_string x = v8 x
00:00:12 verbose #226 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:12 verbose #227 > > let starts_with x = v9 x
00:00:12 verbose #228 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:12 verbose #229 > > let substring x = v10 x
00:00:12 verbose #230 > > let v11 : (string -> string) = closure28()
00:00:12 verbose #231 > > let to_lower x = v11 x
00:00:12 verbose #232 > > let v12 : (string -> string) = closure29()
00:00:12 verbose #233 > > let to_upper x = v12 x
00:00:12 verbose #234 > > let v13 : (string -> string) = closure30()
00:00:12 verbose #235 > > let trim x = v13 x
00:00:12 verbose #236 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:12 verbose #237 > > let trim_end x = v14 x
00:00:12 verbose #238 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:12 verbose #239 > > let trim_start x = v15 x
00:00:12 verbose #240 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:12 verbose #241 > > let ellipsis x = v16 x
00:00:12 verbose #242 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:12 verbose #243 > > let ellipsis_end x = v17 x
00:00:12 verbose #244 > > let v18 : (exn -> string) = closure39()
00:00:12 verbose #245 > > let format_exception x = v18 x
00:00:12 verbose #246 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:12 verbose #247 > > let concat_array_trailing x = v19 x
00:00:12 verbose #248 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:12 verbose #249 > > let concat x = v20 x
00:00:12 verbose #250 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:12 verbose #251 > > let join' x = v21 x
00:00:12 verbose #252 > > let v22 : (string -> (char [[]])) = closure46()
00:00:12 verbose #253 > > let to_char_array x = v22 x
00:00:12 verbose #254 > > ()
00:00:12 verbose #255 > >
00:00:13 verbose #256 > >
00:00:13 verbose #257 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #258 > > #if FABLE_COMPILER
00:00:13 verbose #259 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:13 verbose #260 > > #endif
00:00:13 verbose #261 > > type core_any_Any = class end
00:00:13 verbose #262 > > #if FABLE_COMPILER
00:00:13 verbose #263 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:13 verbose #264 > > #endif
00:00:13 verbose #265 > > type core_ops_Try<'T> = class end
00:00:13 verbose #266 > > #if FABLE_COMPILER
00:00:13 verbose #267 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:13 verbose #268 > > #endif
00:00:13 verbose #269 > > type Func0<'T> = class end
00:00:13 verbose #270 > > #if FABLE_COMPILER
00:00:13 verbose #271 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:13 verbose #272 > > #endif
00:00:13 verbose #273 > > type Func0<'T, 'U> = class end
00:00:13 verbose #274 > > #if FABLE_COMPILER
00:00:13 verbose #275 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:13 verbose #276 > > #endif
00:00:13 verbose #277 > > type Box<'T> = class end
00:00:13 verbose #278 > > #if FABLE_COMPILER
00:00:13 verbose #279 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:13 verbose #280 > > #endif
00:00:13 verbose #281 > > type Dyn<'T> = class end
00:00:13 verbose #282 > > #if FABLE_COMPILER
00:00:13 verbose #283 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:13 verbose #284 > > #endif
00:00:13 verbose #285 > > type Send<'T> = class end
00:00:13 verbose #286 > > #if FABLE_COMPILER
00:00:13 verbose #287 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:13 verbose #288 > > #endif
00:00:13 verbose #289 > > type Fn<'T> = class end
00:00:13 verbose #290 > > #if FABLE_COMPILER
00:00:13 verbose #291 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:13 verbose #292 > > #endif
00:00:13 verbose #293 > > type FnUnit = class end
00:00:13 verbose #294 > > #if FABLE_COMPILER
00:00:13 verbose #295 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:13 verbose #296 > > #endif
00:00:13 verbose #297 > > type FnOnce<'T> = class end
00:00:13 verbose #298 > > #if FABLE_COMPILER
00:00:13 verbose #299 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:13 verbose #300 > > #endif
00:00:13 verbose #301 > > type ActionFn<'T> = class end
00:00:13 verbose #302 > > #if FABLE_COMPILER
00:00:13 verbose #303 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:13 verbose #304 > > #endif
00:00:13 verbose #305 > > type ActionFn2<'T, 'U> = class end
00:00:13 verbose #306 > > #if FABLE_COMPILER
00:00:13 verbose #307 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:13 verbose #308 > > #endif
00:00:13 verbose #309 > > type Impl<'T> = class end
00:00:13 verbose #310 > > #if FABLE_COMPILER
00:00:13 verbose #311 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:13 verbose #312 > > #endif
00:00:13 verbose #313 > > type Mut<'T> = class end
00:00:13 verbose #314 > > #if FABLE_COMPILER
00:00:13 verbose #315 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:13 verbose #316 > > ()
00:00:13 verbose #317 > > #endif
00:00:13 verbose #318 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:13 verbose #319 > > let v28 : string = @"println!(""{}"", $0)"
00:00:13 verbose #320 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:13 verbose #321 > > ()
00:00:13 verbose #322 > > #endif
00:00:13 verbose #323 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:13 verbose #324 > > System.Console.WriteLine v24
00:00:13 verbose #325 > > ()
00:00:13 verbose #326 > > #endif
00:00:13 verbose #327 > > #if FABLE_COMPILER_PYTHON
00:00:13 verbose #328 > > System.Console.WriteLine v24
00:00:13 verbose #329 > > ()
00:00:13 verbose #330 > > #endif
00:00:13 verbose #331 > > #else
00:00:13 verbose #332 > > System.Console.WriteLine v24
00:00:13 verbose #333 > > ()
00:00:13 verbose #334 > > #endif
00:00:13 verbose #335 > > |> fun x -> _v25 <- Some x
00:00:13 verbose #336 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:13 verbose #337 > > _v25=None"
00:00:13 verbose #338 > > let v29 : (string -> unit) = v8.l0
00:00:13 verbose #339 > > v29 v24
00:00:13 verbose #340 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:13 verbose #341 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:13 verbose #342 > > method11(v0, v3)
00:00:13 verbose #343 > > and closure1 () (v0 : string) : uint16 =
00:00:13 verbose #344 > > let v1 : char = v0.[[int 0]]
00:00:13 verbose #345 > > let v2 : (char -> int32) = int32
00:00:13 verbose #346 > > let v3 : int32 = v2 v1
00:00:13 verbose #347 > > let v4 : string = v0.[[int 0..int 7]]
00:00:13 verbose #348 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:13 verbose #349 > > let v6 : int32 = v5 + v3
00:00:13 verbose #350 > > let v7 : (int32 -> uint16) = uint16
00:00:13 verbose #351 > > let v8 : uint16 = v7 v6
00:00:13 verbose #352 > > let v9 : US0 = US0_0
00:00:13 verbose #353 > > let v10 : (unit -> string) = closure2()
00:00:13 verbose #354 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:13 verbose #355 > > method3(v9, v10, v11)
00:00:13 verbose #356 > > let v12 : uint16 = v8 % 48128us
00:00:13 verbose #357 > > let v13 : uint16 = v12 + 1024us
00:00:13 verbose #358 > > v13
00:00:13 verbose #359 > > let v0 : (string -> string) = closure0()
00:00:13 verbose #360 > > let hash_text x = v0 x
00:00:13 verbose #361 > > let v1 : (string -> uint16) = closure1()
00:00:13 verbose #362 > > let hash_to_port x = v1 x
00:00:13 verbose #363 > > ()
00:00:13 verbose #364 > >
00:00:13 verbose #365 > >
00:00:13 verbose #366 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #367 > > #if FABLE_COMPILER
00:00:13 verbose #368 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:13 verbose #369 > > #endif
00:00:13 verbose #370 > > type core_any_Any = class end
00:00:13 verbose #371 > > #if FABLE_COMPILER
00:00:13 verbose #372 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:13 verbose #373 > > #endif
00:00:13 verbose #374 > > type core_ops_Try<'T> = class end
00:00:13 verbose #375 > > #if FABLE_COMPILER
00:00:13 verbose #376 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:13 verbose #377 > > #endif
00:00:13 verbose #378 > > type Func0<'T> = class end
00:00:13 verbose #379 > > #if FABLE_COMPILER
00:00:13 verbose #380 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:13 verbose #381 > > #endif
00:00:13 verbose #382 > > type Func0<'T, 'U> = class end
00:00:13 verbose #383 > > #if FABLE_COMPILER
00:00:13 verbose #384 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:13 verbose #385 > > #endif
00:00:13 verbose #386 > > type Box<'T> = class end
00:00:13 verbose #387 > > #if FABLE_COMPILER
00:00:13 verbose #388 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:13 verbose #389 > > #endif
00:00:13 verbose #390 > > type Dyn<'T> = class end
00:00:13 verbose #391 > > #if FABLE_COMPILER
00:00:13 verbose #392 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:13 verbose #393 > > #endif
00:00:13 verbose #394 > > type Send<'T> = class end
00:00:13 verbose #395 > > #if FABLE_COMPILER
00:00:13 verbose #396 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:13 verbose #397 > > #endif
00:00:13 verbose #398 > > type Fn<'T> = class end
00:00:13 verbose #399 > > #if FABLE_COMPILER
00:00:13 verbose #400 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:13 verbose #401 > > #endif
00:00:13 verbose #402 > > type FnUnit = class end
00:00:13 verbose #403 > > #if FABLE_COMPILER
00:00:13 verbose #404 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:13 verbose #405 > > #endif
00:00:13 verbose #406 > > type FnOnce<'T> = class end
00:00:13 verbose #407 > > #if FABLE_COMPILER
00:00:13 verbose #408 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:13 verbose #409 > > #endif
00:00:13 verbose #410 > > type ActionFn<'T> = class end
00:00:13 verbose #411 > > #if FABLE_COMPILER
00:00:13 verbose #412 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:13 verbose #413 > > #endif
00:00:13 verbose #414 > > type ActionFn2<'T, 'U> = class end
00:00:13 verbose #415 > > #if FABLE_COMPILER
00:00:13 verbose #416 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:13 verbose #417 > > #endif
00:00:13 verbose #418 > > type Impl<'T> = class end
00:00:13 verbose #419 > > #if FABLE_COMPILER
00:00:13 verbose #420 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:13 verbose #421 > > #endif
00:00:13 verbose #422 > > type Mut<'T> = class end
00:00:13 verbose #423 > > #if FABLE_COMPILER
00:00:13 verbose #424 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:13 verbose #425 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:13 verbose #426 > > let v2 : System.Guid = v1 ()
00:00:13 verbose #427 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:13 verbose #428 > > let v4 : string = v3 v2
00:00:13 verbose #429 > > let v5 : (int64 -> string) = _.ToString()
00:00:13 verbose #430 > > let v6 : string = v5 v0
00:00:13 verbose #431 > > let v7 : string = v6.PadLeft (18, '0')
00:00:13 verbose #432 > > let v8 : System.Guid = System.Guid
00:00:13 verbose #433 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:13 verbose #434 > > v8
00:00:13 verbose #435 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:13 verbose #436 > > let v2 : (string -> string) = v1.ToString
00:00:13 verbose #437 > > v2 v0
00:00:13 verbose #438 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:13 verbose #439 > > closure12(v0)
00:00:13 verbose #440 > > and closure13 () (v0 : System.DateTime) : string =
00:00:13 verbose #441 > > let v1 : (string -> string) = v0.ToString
00:00:13 verbose #442 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:13 verbose #443 > > v1 v2
00:00:13 verbose #444 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:13 verbose #445 > > let date_time_guid_from_date_time x = v0 x
00:00:13 verbose #446 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:13 verbose #447 > > let date_time_from_guid x = v1 x
00:00:13 verbose #448 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:13 verbose #449 > > let timestamp_guid_from_timestamp x = v2 x
00:00:13 verbose #450 > > let v3 : (System.Guid -> int64) = closure8()
00:00:13 verbose #451 > > let timestamp_from_guid x = v3 x
00:00:13 verbose #452 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:13 verbose #453 > > let new_guid_from_date_time x = v4 x
00:00:13 verbose #454 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:13 verbose #455 > > let new_guid_from_timestamp x = v5 x
00:00:13 verbose #456 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:13 verbose #457 > > let format x = v6 x
00:00:13 verbose #458 > > let v7 : (System.DateTime -> string) = closure13()
00:00:13 verbose #459 > > let format_iso8601 x = v7 x
00:00:13 verbose #460 > > ()
00:00:13 verbose #461 > >
00:00:14 verbose #462 > >
00:00:14 verbose #463 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #464 > > #if FABLE_COMPILER
00:00:14 verbose #465 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:14 verbose #466 > > #endif
00:00:14 verbose #467 > > type futures_future_JoinAll<'T> = class end
00:00:14 verbose #468 > > #if FABLE_COMPILER
00:00:14 verbose #469 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:14 verbose #470 > > #endif
00:00:14 verbose #471 > > type futures_future_TryJoinAll<'T> = class end
00:00:14 verbose #472 > > #if FABLE_COMPILER
00:00:14 verbose #473 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:14 verbose #474 > > #endif
00:00:14 verbose #475 > > type rayon_iter_Map<'T> = class end
00:00:14 verbose #476 > > #if FABLE_COMPILER
00:00:14 verbose #477 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:14 verbose #478 > > #endif
00:00:14 verbose #479 > > type rayon_vec_IntoIter<'T> = class end
00:00:14 verbose #480 > > #if FABLE_COMPILER
00:00:14 verbose #481 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:14 verbose #482 > > #endif
00:00:14 verbose #483 > > type std_future_Future<'T> = class end
00:00:14 verbose #484 > > #if FABLE_COMPILER
00:00:14 verbose #485 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:14 verbose #486 > > #endif
00:00:14 verbose #487 > > type futures_future_Fuse<'T> = class end
00:00:14 verbose #488 > > #if FABLE_COMPILER
00:00:14 verbose #489 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:14 verbose #490 > > #endif
00:00:14 verbose #491 > > type tokio_task_JoinHandle<'T> = class end
00:00:14 verbose #492 > > #if FABLE_COMPILER
00:00:14 verbose #493 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:14 verbose #494 > > #endif
00:00:14 verbose #495 > > type tokio_stream_StreamExt = class end
00:00:14 verbose #496 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:14 verbose #497 > > Async<System.Threading.CancellationToken> =
00:00:14 verbose #498 > > let v1 : bool = true
00:00:14 verbose #499 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:14 verbose #500 > >
00:00:14 verbose #501 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:14 verbose #502 > >
00:00:14 verbose #503 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:14 verbose #504 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:14 verbose #505 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:14 verbose #506 > > v12
00:00:14 verbose #507 > > #endif
00:00:14 verbose #508 > > #else
00:00:14 verbose #509 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:14 verbose #510 > > let mutable _v13 = v13
00:00:14 verbose #511 > > async {
00:00:14 verbose #512 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:14 verbose #513 > > Async.CancellationToken
00:00:14 verbose #514 > > let! v14 = v14
00:00:14 verbose #515 > > let v15 : System.Threading.CancellationToken = v14
00:00:14 verbose #516 > > let v16 : System.Threading.CancellationToken =
00:00:14 verbose #517 > > Async.DefaultCancellationToken
00:00:14 verbose #518 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:14 verbose #519 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:14 verbose #520 > > System.Threading.CancellationTokenSource) =
00:00:14 verbose #521 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:14 verbose #522 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:14 verbose #523 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:14 verbose #524 > > return v20
00:00:14 verbose #525 > > }
00:00:14 verbose #526 > > |> fun x -> _v13 <- Some x
00:00:14 verbose #527 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:14 verbose #528 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:14 verbose #529 > > v21
00:00:14 verbose #530 > > #endif
00:00:14 verbose #531 > > |> fun x -> _v7 <- Some x
00:00:14 verbose #532 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:14 verbose #533 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:14 verbose #534 > > v22
00:00:14 verbose #535 > > #endif
00:00:14 verbose #536 > > |> fun x -> _v1 <- Some x
00:00:14 verbose #537 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:14 verbose #538 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:14 verbose #539 > > v23
00:00:14 verbose #540 > > let v0 : (System.Threading.CancellationToken ->
00:00:14 verbose #541 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:14 verbose #542 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:14 verbose #543 > > ()
00:00:14 verbose #544 > >
00:00:14 verbose #545 > >
00:00:14 verbose #546 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #547 > > #if FABLE_COMPILER
00:00:14 verbose #548 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:14 verbose #549 > > #endif
00:00:14 verbose #550 > > type std_thread_JoinHandle<'T> = class end
00:00:14 verbose #551 > > #if FABLE_COMPILER
00:00:14 verbose #552 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:14 verbose #553 > > #endif
00:00:14 verbose #554 > > type std_sync_Arc<'T> = class end
00:00:14 verbose #555 > > #if FABLE_COMPILER
00:00:14 verbose #556 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:14 verbose #557 > > #endif
00:00:14 verbose #558 > > type std_sync_Mutex<'T> = class end
00:00:14 verbose #559 > > #if FABLE_COMPILER
00:00:14 verbose #560 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:14 verbose #561 > > #endif
00:00:14 verbose #562 > > type std_sync_MutexGuard<'T> = class end
00:00:14 verbose #563 > > #if FABLE_COMPILER
00:00:14 verbose #564 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:14 verbose #565 > > #endif
00:00:14 verbose #566 > > type std_sync_PoisonError<'T> = class end
00:00:14 verbose #567 > > #if FABLE_COMPILER
00:00:14 verbose #568 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:14 verbose #569 > > #endif
00:00:14 verbose #570 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:14 verbose #571 > > #if FABLE_COMPILER
00:00:14 verbose #572 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:14 verbose #573 > > #endif
00:00:14 verbose #574 > > type std_sync_mpsc_SendError<'T> = class end
00:00:14 verbose #575 > > #if FABLE_COMPILER
00:00:14 verbose #576 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:14 verbose #577 > > #endif
00:00:14 verbose #578 > > type std_sync_mpsc_Sender<'T> = class end
00:00:14 verbose #579 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:14 verbose #580 > > _.Dispose () = f ()
00:00:14 verbose #581 > > type [[<Struct>]] US0 =
00:00:14 verbose #582 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:14 verbose #583 > > | US0_1
00:00:14 verbose #584 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:14 verbose #585 > > let v1 : bool = true
00:00:14 verbose #586 > > let mutable _v1 : unit option = None
00:00:14 verbose #587 > >
00:00:14 verbose #588 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:14 verbose #589 > >
00:00:14 verbose #590 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:14 verbose #591 > > "$0()" )
00:00:14 verbose #592 > > v28
00:00:14 verbose #593 > > #endif
00:00:14 verbose #594 > > #if FABLE_COMPILER_RUST && WASM
00:00:14 verbose #595 > > let v29 : (unit -> unit) = method0(v25)
00:00:14 verbose #596 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:14 verbose #597 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:14 verbose #598 > > v30
00:00:14 verbose #599 > > #endif
00:00:14 verbose #600 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:14 verbose #601 > > let v31 : (unit -> unit) = method0(v25)
00:00:14 verbose #602 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:14 verbose #603 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:14 verbose #604 > > v32
00:00:14 verbose #605 > > #endif
00:00:14 verbose #606 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:14 verbose #607 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:14 verbose #608 > > v33
00:00:14 verbose #609 > > #endif
00:00:14 verbose #610 > > #if FABLE_COMPILER_PYTHON
00:00:14 verbose #611 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:14 verbose #612 > > v34
00:00:14 verbose #613 > > #endif
00:00:14 verbose #614 > > #else
00:00:14 verbose #615 > > let v35 : (unit -> unit) = method1(v25)
00:00:14 verbose #616 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:14 verbose #617 > > _.Dispose () = v35 () }
00:00:14 verbose #618 > > v36
00:00:14 verbose #619 > > #endif
00:00:14 verbose #620 > > |> fun x -> _v26 <- Some x
00:00:14 verbose #621 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:14 verbose #622 > > failwith "base.run_target / _v26=None"
00:00:14 verbose #623 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:14 verbose #624 > > struct (v38, v37)
00:00:14 verbose #625 > > #endif
00:00:14 verbose #626 > > |> fun x -> _v1 <- Some x
00:00:14 verbose #627 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:14 verbose #628 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:14 verbose #629 > > "base.run_target / _v1=None"
00:00:14 verbose #630 > > struct (v39, v40)
00:00:14 verbose #631 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:14 verbose #632 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:14 verbose #633 > > let new_disposable_token x = v0 x
00:00:14 verbose #634 > > ()
00:00:14 verbose #635 > >
00:00:14 verbose #636 > >
00:00:14 verbose #637 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #638 > > #if FABLE_COMPILER
00:00:14 verbose #639 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:14 verbose #640 > > #endif
00:00:14 verbose #641 > > type reqwest_Error = class end
00:00:14 verbose #642 > > #if FABLE_COMPILER
00:00:14 verbose #643 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:14 verbose #644 > > #endif
00:00:14 verbose #645 > > type reqwest_RequestBuilder = class end
00:00:14 verbose #646 > > #if FABLE_COMPILER
00:00:14 verbose #647 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:14 verbose #648 > > #endif
00:00:14 verbose #649 > > type reqwest_Response = class end
00:00:14 verbose #650 > > #if FABLE_COMPILER
00:00:14 verbose #651 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:14 verbose #652 > > #endif
00:00:14 verbose #653 > > type std_env_VarError = class end
00:00:14 verbose #654 > > #if FABLE_COMPILER
00:00:14 verbose #655 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:14 verbose #656 > > #endif
00:00:14 verbose #657 > > type core_any_Any = class end
00:00:14 verbose #658 > > #if FABLE_COMPILER
00:00:14 verbose #659 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:14 verbose #660 > > #endif
00:00:14 verbose #661 > > type core_ops_Try<'T> = class end
00:00:14 verbose #662 > > #if FABLE_COMPILER
00:00:14 verbose #663 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:14 verbose #664 > > #endif
00:00:14 verbose #665 > > type Func0<'T> = class end
00:00:14 verbose #666 > > #if FABLE_COMPILER
00:00:14 verbose #667 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:14 verbose #668 > > #endif
00:00:14 verbose #669 > > type Func0<'T, 'U> = class end
00:00:14 verbose #670 > > #if FABLE_COMPILER
00:00:14 verbose #671 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:14 verbose #672 > > #endif
00:00:14 verbose #673 > > type Box<'T> = class end
00:00:14 verbose #674 > > #if FABLE_COMPILER
00:00:14 verbose #675 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:14 verbose #676 > > #endif
00:00:14 verbose #677 > > type Dyn<'T> = class end
00:00:14 verbose #678 > > #if FABLE_COMPILER
00:00:14 verbose #679 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:14 verbose #680 > > #endif
00:00:14 verbose #681 > > type Send<'T> = class end
00:00:14 verbose #682 > > #if FABLE_COMPILER
00:00:14 verbose #683 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:14 verbose #684 > > #endif
00:00:14 verbose #685 > > type Fn<'T> = class end
00:00:14 verbose #686 > > #if FABLE_COMPILER
00:00:14 verbose #687 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:14 verbose #688 > > #endif
00:00:14 verbose #689 > > type FnUnit = class end
00:00:14 verbose #690 > > #if FABLE_COMPILER
00:00:14 verbose #691 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:14 verbose #692 > > ... v212 = v212
00:00:14 verbose #693 > > let v213 : bool = v212
00:00:14 verbose #694 > > let v214 : bool = v213 = false
00:00:14 verbose #695 > > if v214 then
00:00:14 verbose #696 > > return v2
00:00:14 verbose #697 > > (*
00:00:14 verbose #698 > > ()
00:00:14 verbose #699 > > else
00:00:14 verbose #700 > > *) else
00:00:14 verbose #701 > > let v215 : int32 = v2 + 1
00:00:14 verbose #702 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:14 verbose #703 > > return! v216
00:00:14 verbose #704 > > (*
00:00:14 verbose #705 > > ()
00:00:14 verbose #706 > > *)
00:00:14 verbose #707 > > }
00:00:14 verbose #708 > > |> fun x -> _v9 <- Some x
00:00:14 verbose #709 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:14 verbose #710 > > "async.new_async_unit / _v9=None"
00:00:14 verbose #711 > > v217
00:00:14 verbose #712 > > #endif
00:00:14 verbose #713 > > |> fun x -> _v3 <- Some x
00:00:14 verbose #714 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:14 verbose #715 > > "base.run_target / _v3=None"
00:00:14 verbose #716 > > v218
00:00:14 verbose #717 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:14 verbose #718 > > method10(v0, v1, v2)
00:00:14 verbose #719 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:14 verbose #720 > > closure23(v0, v1)
00:00:14 verbose #721 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:14 verbose #722 > > closure22(v0)
00:00:14 verbose #723 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:14 verbose #724 > > let v1 : US0 = US0_0
00:00:14 verbose #725 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:14 verbose #726 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:14 verbose #727 > > let test_port_open x = v2 x
00:00:14 verbose #728 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:14 verbose #729 > > let test_port_open_timeout x = v3 x
00:00:14 verbose #730 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:14 verbose #731 > > closure15()
00:00:14 verbose #732 > > let wait_for_port_access x = v4 x
00:00:14 verbose #733 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:14 verbose #734 > > let get_available_port x = v5 x
00:00:14 verbose #735 > > ()
00:00:14 verbose #736 > >
00:00:16 verbose #737 > >
00:00:16 verbose #738 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #739 > > type [[<Struct>]] US0 =
00:00:16 verbose #740 > > | US0_0
00:00:16 verbose #741 > > | US0_1
00:00:16 verbose #742 > > | US0_2
00:00:16 verbose #743 > > and [[<Struct>]] US1 =
00:00:16 verbose #744 > > | US1_0 of f0_0 : US0
00:00:16 verbose #745 > > | US1_1 of f1_0 : US0
00:00:16 verbose #746 > > | US1_2 of f2_0 : US0
00:00:16 verbose #747 > > | US1_3 of f3_0 : US0
00:00:16 verbose #748 > > | US1_4 of f4_0 : US0
00:00:16 verbose #749 > > let rec closure0 () () : bool =
00:00:16 verbose #750 > > let v0 : bool = true
00:00:16 verbose #751 > > let mutable _v0 : bool option = None
00:00:16 verbose #752 > >
00:00:16 verbose #753 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:16 verbose #754 > >
00:00:16 verbose #755 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:16 verbose #756 > > let v1 : string = "cfg!(windows)"
00:00:16 verbose #757 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:16 verbose #758 > > v2
00:00:16 verbose #759 > > #endif
00:00:16 verbose #760 > > #if FABLE_COMPILER_RUST && WASM
00:00:16 verbose #761 > > let v3 : string = "cfg!(windows)"
00:00:16 verbose #762 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:16 verbose #763 > > v4
00:00:16 verbose #764 > > #endif
00:00:16 verbose #765 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:16 verbose #766 > > let v5 : string = "cfg!(windows)"
00:00:16 verbose #767 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:16 verbose #768 > > v6
00:00:16 verbose #769 > > #endif
00:00:16 verbose #770 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:16 verbose #771 > > let v7 : US0 = US0_0
00:00:16 verbose #772 > > let v8 : US1 = US1_3(v7)
00:00:16 verbose #773 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:16 verbose #774 > > let v10 : bool = failwith<bool> v9
00:00:16 verbose #775 > > v10
00:00:16 verbose #776 > > #endif
00:00:16 verbose #777 > > #if FABLE_COMPILER_PYTHON
00:00:16 verbose #778 > > let v11 : US0 = US0_0
00:00:16 verbose #779 > > let v12 : US1 = US1_4(v11)
00:00:16 verbose #780 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:16 verbose #781 > > let v14 : bool = failwith<bool> v13
00:00:16 verbose #782 > > v14
00:00:16 verbose #783 > > #endif
00:00:16 verbose #784 > > #else
00:00:16 verbose #785 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:16 verbose #786 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:16 verbose #787 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:16 verbose #788 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:16 verbose #789 > > let v17 : b...: string = "cfg!(windows)"
00:00:16 verbose #790 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:16 verbose #791 > > v2
00:00:16 verbose #792 > > #endif
00:00:16 verbose #793 > > #if FABLE_COMPILER_RUST && WASM
00:00:16 verbose #794 > > let v3 : string = "cfg!(windows)"
00:00:16 verbose #795 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:16 verbose #796 > > v4
00:00:16 verbose #797 > > #endif
00:00:16 verbose #798 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:16 verbose #799 > > let v5 : string = "cfg!(windows)"
00:00:16 verbose #800 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:16 verbose #801 > > v6
00:00:16 verbose #802 > > #endif
00:00:16 verbose #803 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:16 verbose #804 > > let v7 : US0 = US0_0
00:00:16 verbose #805 > > let v8 : US1 = US1_3(v7)
00:00:16 verbose #806 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:16 verbose #807 > > let v10 : bool = failwith<bool> v9
00:00:16 verbose #808 > > v10
00:00:16 verbose #809 > > #endif
00:00:16 verbose #810 > > #if FABLE_COMPILER_PYTHON
00:00:16 verbose #811 > > let v11 : US0 = US0_0
00:00:16 verbose #812 > > let v12 : US1 = US1_4(v11)
00:00:16 verbose #813 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:16 verbose #814 > > let v14 : bool = failwith<bool> v13
00:00:16 verbose #815 > > v14
00:00:16 verbose #816 > > #endif
00:00:16 verbose #817 > > #else
00:00:16 verbose #818 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:16 verbose #819 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:16 verbose #820 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:16 verbose #821 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:16 verbose #822 > > let v17 : bool = v16 v15
00:00:16 verbose #823 > > v17
00:00:16 verbose #824 > > #endif
00:00:16 verbose #825 > > |> fun x -> _v0 <- Some x
00:00:16 verbose #826 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:16 verbose #827 > > "base.run_target / _v0=None"
00:00:16 verbose #828 > > if v18 then
00:00:16 verbose #829 > > let v19 : string = ".exe"
00:00:16 verbose #830 > > v19
00:00:16 verbose #831 > > else
00:00:16 verbose #832 > > let v20 : string = ""
00:00:16 verbose #833 > > v20
00:00:16 verbose #834 > > let v0 : (unit -> bool) = closure0()
00:00:16 verbose #835 > > let is_windows () = v0 ()
00:00:16 verbose #836 > > let v1 : (unit -> string) = closure1()
00:00:16 verbose #837 > > let get_executable_suffix () = v1 ()
00:00:16 verbose #838 > > ()
00:00:16 verbose #839 > >
00:00:16 verbose #840 > >
00:00:16 verbose #841 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #842 > > #if FABLE_COMPILER
00:00:16 verbose #843 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:16 verbose #844 > > #endif
00:00:16 verbose #845 > > type clap_Arg = class end
00:00:16 verbose #846 > > #if FABLE_COMPILER
00:00:16 verbose #847 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:16 verbose #848 > > #endif
00:00:16 verbose #849 > > type clap_ArgAction = class end
00:00:16 verbose #850 > > #if FABLE_COMPILER
00:00:16 verbose #851 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:16 verbose #852 > > #endif
00:00:16 verbose #853 > > type clap_Command = class end
00:00:16 verbose #854 > > #if FABLE_COMPILER
00:00:16 verbose #855 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:16 verbose #856 > > #endif
00:00:16 verbose #857 > > type clap_ArgMatches = class end
00:00:16 verbose #858 > > #if FABLE_COMPILER
00:00:16 verbose #859 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:16 verbose #860 > > #endif
00:00:16 verbose #861 > > type clap_builder_ValueRange = class end
00:00:16 verbose #862 > > #if FABLE_COMPILER
00:00:16 verbose #863 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:16 verbose #864 > > #endif
00:00:16 verbose #865 > > type clap_builder_ValueParser = class end
00:00:16 verbose #866 > > #if FABLE_COMPILER
00:00:16 verbose #867 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:16 verbose #868 > > #endif
00:00:16 verbose #869 > > type clap_builder_PossibleValue = class end
00:00:16 verbose #870 > > #if FABLE_COMPILER
00:00:16 verbose #871 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:16 verbose #872 > > #endif
00:00:16 verbose #873 > > type std_process_Child = class end
00:00:16 verbose #874 > > #if FABLE_COMPILER
00:00:16 verbose #875 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:16 verbose #876 > > #endif
00:00:16 verbose #877 > > type std_process_ChildStderr = class end
00:00:16 verbose #878 > > #if FABLE_COMPILER
00:00:16 verbose #879 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:16 verbose #880 > > #endif
00:00:16 verbose #881 > > type std_process_ChildStdout = class end
00:00:16 verbose #882 > > #if FABLE_COMPILER
00:00:16 verbose #883 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:16 verbose #884 > > #endif
00:00:16 verbose #885 > > type std_process_ChildStdin = class end
00:00:16 verbose #886 > > #if FABLE_COMPILER
00:00:16 verbose #887 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:16 verbose #888 > > #endif
00:00:16 verbose #889 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:00:16 verbose #890 > > List.toArray
00:00:16 verbose #891 > > let v20 : (string [[]]) = v19 v18
00:00:16 verbose #892 > > US8_0(v20)
00:00:16 verbose #893 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:00:16 verbose #894 > > let v1 : US8 = method16(v0)
00:00:16 verbose #895 > > match v1 with
00:00:16 verbose #896 > > | US8_1(v4) -> (* Error *)
00:00:16 verbose #897 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:16 verbose #898 > > v5
00:00:16 verbose #899 > > | US8_0(v2) -> (* Ok *)
00:00:16 verbose #900 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:16 verbose #901 > > v3
00:00:16 verbose #902 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:16 verbose #903 > > let v1 : US0 = US0_0
00:00:16 verbose #904 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:16 verbose #905 > > let v2 : (unit -> unit) = closure2()
00:00:16 verbose #906 > > let current_process_kill () = v2 ()
00:00:16 verbose #907 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:00:16 verbose #908 > > let execute_async x = v3 x
00:00:16 verbose #909 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:16 verbose #910 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:16 verbose #911 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:16 verbose #912 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:00:16 verbose #913 > > let execute_with_options_async x = v4 x
00:00:16 verbose #914 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:16 verbose #915 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:16 verbose #916 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:16 verbose #917 > > unit) option * bool * string option)) = closure20()
00:00:16 verbose #918 > > let execution_options x = v5 x
00:00:16 verbose #919 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:00:16 verbose #920 > > let split_args x = v6 x
00:00:16 verbose #921 > > ()
00:00:16 verbose #922 > >
00:00:19 verbose #923 > >
00:00:19 verbose #924 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:19 verbose #925 > > #if FABLE_COMPILER
00:00:19 verbose #926 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:19 verbose #927 > > #endif
00:00:19 verbose #928 > > type std_fs_File = class end
00:00:19 verbose #929 > > #if FABLE_COMPILER
00:00:19 verbose #930 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:19 verbose #931 > > #endif
00:00:19 verbose #932 > > type std_fs_FileType = class end
00:00:19 verbose #933 > > #if FABLE_COMPILER
00:00:19 verbose #934 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:19 verbose #935 > > #endif
00:00:19 verbose #936 > > type std_path_Display = class end
00:00:19 verbose #937 > > #if FABLE_COMPILER
00:00:19 verbose #938 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:19 verbose #939 > > #endif
00:00:19 verbose #940 > > type std_path_Path = class end
00:00:19 verbose #941 > > #if FABLE_COMPILER
00:00:19 verbose #942 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:19 verbose #943 > > #endif
00:00:19 verbose #944 > > type std_path_PathBuf = class end
00:00:19 verbose #945 > > #if FABLE_COMPILER
00:00:19 verbose #946 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:19 verbose #947 > > #endif
00:00:19 verbose #948 > > type async_walkdir_DirEntry = class end
00:00:19 verbose #949 > > #if FABLE_COMPILER
00:00:19 verbose #950 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:19 verbose #951 > > #endif
00:00:19 verbose #952 > > type async_walkdir_Filtering = class end
00:00:19 verbose #953 > > #if FABLE_COMPILER
00:00:19 verbose #954 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:19 verbose #955 > > #endif
00:00:19 verbose #956 > > type async_walkdir_WalkDir = class end
00:00:19 verbose #957 > > #if FABLE_COMPILER
00:00:19 verbose #958 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:19 verbose #959 > > #endif
00:00:19 verbose #960 > > type core_any_Any = class end
00:00:19 verbose #961 > > #if FABLE_COMPILER
00:00:19 verbose #962 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:19 verbose #963 > > #endif
00:00:19 verbose #964 > > type core_ops_Try<'T> = class end
00:00:19 verbose #965 > > #if FABLE_COMPILER
00:00:19 verbose #966 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:19 verbose #967 > > #endif
00:00:19 verbose #968 > > type Func0<'T> = class end
00:00:19 verbose #969 > > #if FABLE_COMPILER
00:00:19 verbose #970 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:19 verbose #971 > > #endif
00:00:19 verbose #972 > > type Func0<'T, 'U> = class end
00:00:19 verbose #973 > > #if FABLE_COMPILER
00:00:19 verbose #974 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:19 verbose #975 > > #endif
00:00:19 verbose #976 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:00:19 verbose #977 > > let wait_for_file_access x = v3 x
00:00:19 verbose #978 > > let v4 : (string -> Async<int64>) = closure12()
00:00:19 verbose #979 > > let wait_for_file_access_read x = v4 x
00:00:19 verbose #980 > > let v5 : (string -> Async<string>) = closure13()
00:00:19 verbose #981 > > let read_all_text_async x = v5 x
00:00:19 verbose #982 > > let v6 : (string -> (string -> bool)) = closure14()
00:00:19 verbose #983 > > let file_exists_content x = v6 x
00:00:19 verbose #984 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:19 verbose #985 > > let write_all_text_async x = v7 x
00:00:19 verbose #986 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:19 verbose #987 > > let write_all_text_exists x = v8 x
00:00:19 verbose #988 > > let v9 : (string -> Async<int64>) = closure20()
00:00:19 verbose #989 > > let delete_file_async x = v9 x
00:00:19 verbose #990 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:19 verbose #991 > > let move_file_async x = v10 x
00:00:19 verbose #992 > > let v11 : (string -> Async<string option>) = closure27()
00:00:19 verbose #993 > > let read_all_text_retry_async x = v11 x
00:00:19 verbose #994 > > let v12 : (unit -> string) = closure35()
00:00:19 verbose #995 > > let create_temp_path () = v12 ()
00:00:19 verbose #996 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:19 verbose #997 > > let create_temp_dir () = v13 ()
00:00:19 verbose #998 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:19 verbose #999 > > let create_temp_dir' x = v14 x
00:00:19 verbose #1000 > > let v15 : (unit -> string) = closure49()
00:00:19 verbose #1001 > > let get_source_directory () = v15 ()
00:00:19 verbose #1002 > > let v16 : (string -> string) = closure50()
00:00:19 verbose #1003 > > let normalize_path x = v16 x
00:00:19 verbose #1004 > > let v17 : (string -> string) = closure51()
00:00:19 verbose #1005 > > let new_file_uri x = v17 x
00:00:19 verbose #1006 > > let v18 : (unit -> string) = closure52()
00:00:19 verbose #1007 > > let get_workspace_root () = v18 ()
00:00:19 verbose #1008 > > let v19 : (bool -> unit) = closure56()
00:00:19 verbose #1009 > > let init_trace_file x = v19 x
00:00:19 verbose #1010 > > let v20 : (string -> (string -> string)) = closure58()
00:00:19 verbose #1011 > > let (</>) x = v20 x
00:00:19 verbose #1012 > > ()
00:00:19 verbose #1013 > >
00:00:21 verbose #1014 > >
00:00:21 verbose #1015 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1016 > > #if FABLE_COMPILER
00:00:21 verbose #1017 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:21 verbose #1018 > > #endif
00:00:21 verbose #1019 > > type core_any_Any = class end
00:00:21 verbose #1020 > > #if FABLE_COMPILER
00:00:21 verbose #1021 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:21 verbose #1022 > > #endif
00:00:21 verbose #1023 > > type core_ops_Try<'T> = class end
00:00:21 verbose #1024 > > #if FABLE_COMPILER
00:00:21 verbose #1025 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:21 verbose #1026 > > #endif
00:00:21 verbose #1027 > > type Func0<'T> = class end
00:00:21 verbose #1028 > > #if FABLE_COMPILER
00:00:21 verbose #1029 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:21 verbose #1030 > > #endif
00:00:21 verbose #1031 > > type Func0<'T, 'U> = class end
00:00:21 verbose #1032 > > #if FABLE_COMPILER
00:00:21 verbose #1033 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:21 verbose #1034 > > #endif
00:00:21 verbose #1035 > > type Box<'T> = class end
00:00:21 verbose #1036 > > #if FABLE_COMPILER
00:00:21 verbose #1037 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:21 verbose #1038 > > #endif
00:00:21 verbose #1039 > > type Dyn<'T> = class end
00:00:21 verbose #1040 > > #if FABLE_COMPILER
00:00:21 verbose #1041 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:21 verbose #1042 > > #endif
00:00:21 verbose #1043 > > type Send<'T> = class end
00:00:21 verbose #1044 > > #if FABLE_COMPILER
00:00:21 verbose #1045 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:21 verbose #1046 > > #endif
00:00:21 verbose #1047 > > type Fn<'T> = class end
00:00:21 verbose #1048 > > #if FABLE_COMPILER
00:00:21 verbose #1049 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:21 verbose #1050 > > #endif
00:00:21 verbose #1051 > > type FnUnit = class end
00:00:21 verbose #1052 > > #if FABLE_COMPILER
00:00:21 verbose #1053 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:21 verbose #1054 > > #endif
00:00:21 verbose #1055 > > type FnOnce<'T> = class end
00:00:21 verbose #1056 > > #if FABLE_COMPILER
00:00:21 verbose #1057 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:21 verbose #1058 > > #endif
00:00:21 verbose #1059 > > type ActionFn<'T> = class end
00:00:21 verbose #1060 > > #if FABLE_COMPILER
00:00:21 verbose #1061 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:21 verbose #1062 > > #endif
00:00:21 verbose #1063 > > type ActionFn2<'T, 'U> = class end
00:00:21 verbose #1064 > > #if FABLE_COMPILER
00:00:21 verbose #1065 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:21 verbose #1066 > > #endif
00:00:21 verbose #1067 > > type Impl<'T> = class end
00:00:21 verbose #1068 > > #if FABLE_COMPILER
00:00:21 verbose #1069 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:21 verbose #1070 > > #endif
00:00:21 verbose #1071 > > type Mut<'T> = class end
00:00:21 verbose #1072 > > #if FABLE_COMPILER
00:00:21 verbose #1073 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:21 verbose #1074 > > #if FABLE_COMPILER_RUST && WASM
00:00:21 verbose #1075 > > let v27 : string = @"println!(""{}"", $0)"
00:00:21 verbose #1076 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:21 verbose #1077 > > ()
00:00:21 verbose #1078 > > #endif
00:00:21 verbose #1079 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:21 verbose #1080 > > let v28 : string = @"println!(""{}"", $0)"
00:00:21 verbose #1081 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:21 verbose #1082 > > ()
00:00:21 verbose #1083 > > #endif
00:00:21 verbose #1084 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:21 verbose #1085 > > System.Console.WriteLine v24
00:00:21 verbose #1086 > > ()
00:00:21 verbose #1087 > > #endif
00:00:21 verbose #1088 > > #if FABLE_COMPILER_PYTHON
00:00:21 verbose #1089 > > System.Console.WriteLine v24
00:00:21 verbose #1090 > > ()
00:00:21 verbose #1091 > > #endif
00:00:21 verbose #1092 > > #else
00:00:21 verbose #1093 > > System.Console.WriteLine v24
00:00:21 verbose #1094 > > ()
00:00:21 verbose #1095 > > #endif
00:00:21 verbose #1096 > > |> fun x -> _v25 <- Some x
00:00:21 verbose #1097 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:21 verbose #1098 > > _v25=None"
00:00:21 verbose #1099 > > let v29 : (string -> unit) = v8.l0
00:00:21 verbose #1100 > > v29 v24
00:00:21 verbose #1101 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:21 verbose #1102 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:21 verbose #1103 > > method8(v0, v3)
00:00:21 verbose #1104 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:21 verbose #1105 > > method4(v0, v1, v2)
00:00:21 verbose #1106 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:21 verbose #1107 > > closure4(v0, v1)
00:00:21 verbose #1108 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:21 verbose #1109 > > closure3(v0)
00:00:21 verbose #1110 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:21 verbose #1111 > > let v1 : US0 = US0_0
00:00:21 verbose #1112 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:21 verbose #1113 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:21 verbose #1114 > > let trace x = v2 x
00:00:21 verbose #1115 > > ()
00:00:21 verbose #1116 > >
00:00:22 verbose #1117 > >
00:00:22 verbose #1118 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1119 > > module SpiralTrace =
00:00:22 verbose #1120 > > let trace x =
00:00:22 verbose #1121 > > #if !INTERACTIVE
00:00:22 verbose #1122 > > Trace.trace x
00:00:22 verbose #1123 > > #else
00:00:22 verbose #1124 > > trace x
00:00:22 verbose #1125 > > #endif
00:00:22 verbose #1126 > >
00:00:22 verbose #1127 > > type TraceLevel =
00:00:22 verbose #1128 > > #if !INTERACTIVE
00:00:22 verbose #1129 > > Trace.US0
00:00:22 verbose #1130 > > #else
00:00:22 verbose #1131 > > US0
00:00:22 verbose #1132 > > #endif
00:00:22 verbose #1133 > >
00:00:22 verbose #1134 > > module SpiralCrypto =
00:00:22 verbose #1135 > > let hash_text x =
00:00:22 verbose #1136 > > #if !INTERACTIVE
00:00:22 verbose #1137 > > Crypto.hash_text x
00:00:22 verbose #1138 > > #else
00:00:22 verbose #1139 > > hash_text x
00:00:22 verbose #1140 > > #endif
00:00:22 verbose #1141 > >
00:00:22 verbose #1142 > > let hash_to_port x =
00:00:22 verbose #1143 > > #if !INTERACTIVE
00:00:22 verbose #1144 > > Crypto.hash_to_port x
00:00:22 verbose #1145 > > #else
00:00:22 verbose #1146 > > hash_to_port x
00:00:22 verbose #1147 > > #endif
00:00:22 verbose #1148 > >
00:00:22 verbose #1149 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:22 verbose #1150 > >
00:00:22 verbose #1151 > > module SpiralAsync =
00:00:22 verbose #1152 > > let merge_cancellation_token_with_default_async x =
00:00:22 verbose #1153 > > #if !INTERACTIVE
00:00:22 verbose #1154 > > Async_.merge_cancellation_token_with_default_async x
00:00:22 verbose #1155 > > #else
00:00:22 verbose #1156 > > merge_cancellation_token_with_default_async x
00:00:22 verbose #1157 > > #endif
00:00:22 verbose #1158 > >
00:00:22 verbose #1159 > > module SpiralThreading =
00:00:22 verbose #1160 > > let new_disposable_token x =
00:00:22 verbose #1161 > > #if !INTERACTIVE
00:00:22 verbose #1162 > > Threading.new_disposable_token x
00:00:22 verbose #1163 > > #else
00:00:22 verbose #1164 > > new_disposable_token x
00:00:22 verbose #1165 > > #endif
00:00:22 verbose #1166 > >
00:00:22 verbose #1167 > > module SpiralNetworking =
00:00:22 verbose #1168 > > let test_port_open x =
00:00:22 verbose #1169 > > #if !INTERACTIVE
00:00:22 verbose #1170 > > Networking.test_port_open x
00:00:22 verbose #1171 > > #else
00:00:22 verbose #1172 > > test_port_open x
00:00:22 verbose #1173 > > #endif
00:00:22 verbose #1174 > >
00:00:22 verbose #1175 > > let test_port_open_timeout x =
00:00:22 verbose #1176 > > #if !INTERACTIVE
00:00:22 verbose #1177 > > Networking.test_port_open_timeout x
00:00:22 verbose #1178 > > #else
00:00:22 verbose #1179 > > test_port_open_timeout x
00:00:22 verbose #1180 > > #endif
00:00:22 verbose #1181 > >
00:00:22 verbose #1182 > > let wait_for_port_access x =
00:00:22 verbose #1183 > > #if !INTERACTIVE
00:00:22 verbose #1184 > > Networking.wait_for_port_access x
00:00:22 verbose #1185 > > #else
00:00:22 verbose #1186 > > wait_for_port_access x
00:00:22 verbose #1187 > > #endif
00:00:22 verbose #1188 > >
00:00:22 verbose #1189 > > let get_available_port x =
00:00:22 verbose #1190 > > #if !INTERACTIVE
00:00:22 verbose #1191 > > Networking.get_available_port x
00:00:22 verbose #1192 > > #else
00:00:22 verbose #1193 > > get_available_port x
00:00:22 verbose #1194 > > #endif
00:00:22 verbose #1195 > >
00:00:22 verbose #1196 > > module SpiralPlatform =
00:00:22 verbose #1197 > > let get_executable_suffix () =
00:00:22 verbose #1198 > > #if !INTERACTIVE
00:00:22 verbose #1199 > > Platform.g...e.trace_state
00:00:22 verbose #1200 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:22 verbose #1201 > > level.l0 <-
00:00:22 verbose #1202 > > match new_level with
00:00:22 verbose #1203 > > | Trace.US0_0 -> File_system.US0_0
00:00:22 verbose #1204 > > | Trace.US0_1 -> File_system.US0_1
00:00:22 verbose #1205 > > | Trace.US0_2 -> File_system.US0_2
00:00:22 verbose #1206 > > | Trace.US0_3 -> File_system.US0_3
00:00:22 verbose #1207 > > | Trace.US0_4 -> File_system.US0_4
00:00:22 verbose #1208 > > )
00:00:22 verbose #1209 > >
00:00:22 verbose #1210 > > Runtime.State.trace_state
00:00:22 verbose #1211 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:22 verbose #1212 > > level.l0 <-
00:00:22 verbose #1213 > > match new_level with
00:00:22 verbose #1214 > > | Trace.US0_0 -> Runtime.US0_0
00:00:22 verbose #1215 > > | Trace.US0_1 -> Runtime.US0_1
00:00:22 verbose #1216 > > | Trace.US0_2 -> Runtime.US0_2
00:00:22 verbose #1217 > > | Trace.US0_3 -> Runtime.US0_3
00:00:22 verbose #1218 > > | Trace.US0_4 -> Runtime.US0_4
00:00:22 verbose #1219 > > )
00:00:22 verbose #1220 > >
00:00:22 verbose #1221 > > Common.State.trace_state
00:00:22 verbose #1222 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:22 verbose #1223 > > level.l0 <-
00:00:22 verbose #1224 > > match new_level with
00:00:22 verbose #1225 > > | Trace.US0_0 -> Common.US0_0
00:00:22 verbose #1226 > > | Trace.US0_1 -> Common.US0_1
00:00:22 verbose #1227 > > | Trace.US0_2 -> Common.US0_2
00:00:22 verbose #1228 > > | Trace.US0_3 -> Common.US0_3
00:00:22 verbose #1229 > > | Trace.US0_4 -> Common.US0_4
00:00:22 verbose #1230 > > )
00:00:22 verbose #1231 > >
00:00:22 verbose #1232 > > Trace.State.trace_state
00:00:22 verbose #1233 > > #else
00:00:22 verbose #1234 > > State.trace_state
00:00:22 verbose #1235 > > #endif
00:00:22 verbose #1236 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:22 verbose #1237 > > level.l0 <- new_level
00:00:22 verbose #1238 > > )
00:00:22 verbose #1239 > >
00:00:22 verbose #1240 > > let get_trace_level () =
00:00:22 verbose #1241 > > #if !INTERACTIVE
00:00:22 verbose #1242 > > Trace.State.trace_state
00:00:22 verbose #1243 > > #else
00:00:22 verbose #1244 > > State.trace_state
00:00:22 verbose #1245 > > #endif
00:00:22 verbose #1246 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:22 verbose #1247 > > level.l0
00:00:22 verbose #1248 > > )
00:00:22 verbose #1249 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:22 verbose #1250 > > trace_state=None")
00:00:22 verbose #1251 > >
00:00:22 verbose #1252 > >
00:00:22 verbose #1253 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1254 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:22 verbose #1255 > >
00:00:22 verbose #1256 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1257 > > //// test
00:00:22 verbose #1258 > >
00:00:22 verbose #1259 > > type AssertExceptionFormatter (ex) =
00:00:22 verbose #1260 > > member _.Text =
00:00:22 verbose #1261 > > ex.ToString()
00:00:22 verbose #1262 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:22 verbose #1263 > > .Replace("36m", "</span>")
00:00:22 verbose #1264 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:22 verbose #1265 > > .Replace("\n", "<br/>\n")
00:00:22 verbose #1266 > >
00:00:22 verbose #1267 > >
00:00:22 verbose #1268 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:22 verbose #1269 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:22 verbose #1270 > >
00:00:22 verbose #1271 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1272 > > //// test
00:00:22 verbose #1273 > >
00:00:22 verbose #1274 > > let inline __expect fn log expected actual =
00:00:22 verbose #1275 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:22 verbose #1276 > > try
00:00:22 verbose #1277 > > "Testing.__expect" |> fn actual expected
00:00:22 verbose #1278 > > with :? Expecto.AssertException as ex ->
00:00:22 verbose #1279 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:22 verbose #1280 > > failwith (ex.GetType().FullName)
00:00:22 verbose #1281 > >
00:00:22 verbose #1282 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:22 verbose #1283 > > expected actual
00:00:22 verbose #1284 > > let inline _contains expected actual = __contains true expected actual
00:00:22 verbose #1285 > >
00:00:22 verbose #1286 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:22 verbose #1287 > > expected actual
00:00:22 verbose #1288 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:22 verbose #1289 > >
00:00:22 verbose #1290 > > let inline __isGreaterThan log expected actual = __expect
00:00:22 verbose #1291 > > Expecto.Expect.isGreaterThan log expected actual
00:00:22 verbose #1292 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:22 verbose #1293 > >
00:00:22 verbose #1294 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:22 verbose #1295 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:22 verbose #1296 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:22 verbose #1297 > > expected actual
00:00:22 verbose #1298 > >
00:00:22 verbose #1299 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:22 verbose #1300 > > log expected actual
00:00:22 verbose #1301 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:22 verbose #1302 > >
00:00:22 verbose #1303 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:22 verbose #1304 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:22 verbose #1305 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:22 verbose #1306 > > expected actual
00:00:22 verbose #1307 > >
00:00:22 verbose #1308 > > let inline __sequenceEqual log expected actual = __expect
00:00:22 verbose #1309 > > Expecto.Expect.sequenceEqual log expected actual
00:00:22 verbose #1310 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:22 verbose #1311 > >
00:00:22 verbose #1312 > > let inline __stringContains log expected actual = __expect
00:00:22 verbose #1313 > > Expecto.Expect.stringContains log expected actual
00:00:22 verbose #1314 > > let inline _stringContains expected actual = __stringContains true expected
00:00:22 verbose #1315 > > actual
00:00:22 verbose #1316 > >
00:00:22 verbose #1317 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:22 verbose #1318 > > log expected actual
00:00:22 verbose #1319 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:22 verbose #1320 > >
00:00:22 verbose #1321 > > let inline __stringStarts log expected actual = __expect
00:00:22 verbose #1322 > > Expecto.Expect.stringStarts log expected actual
00:00:22 verbose #1323 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:22 verbose #1324 > >
00:00:22 verbose #1325 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:22 verbose #1326 > > expected actual
00:00:22 verbose #1327 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:22 verbose #1328 > >
00:00:22 verbose #1329 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1330 > > //// test
00:00:22 verbose #1331 > >
00:00:22 verbose #1332 > > let inline __isBetween log a b actual =
00:00:22 verbose #1333 > > let inline isBetween actual (a, b) _ =
00:00:22 verbose #1334 > > __isGreaterThanOrEqual log a actual
00:00:22 verbose #1335 > > __isLessThanOrEqual log b actual
00:00:22 verbose #1336 > > __expect isBetween log (a, b) actual
00:00:22 verbose #1337 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:22 verbose #1338 > >
00:00:22 verbose #1339 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1340 > > #!import ../../lib/fsharp/Common.fs
00:00:22 verbose #1341 > >
00:00:22 verbose #1342 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1343 > > #if !INTERACTIVE
00:00:22 verbose #1344 > > namespace Polyglot
00:00:22 verbose #1345 > > #endif
00:00:22 verbose #1346 > >
00:00:22 verbose #1347 > > module Common =
00:00:22 verbose #1348 > >
00:00:22 verbose #1349 > > #if !INTERACTIVE
00:00:22 verbose #1350 > > open Lib
00:00:22 verbose #1351 > > #endif
00:00:22 verbose #1352 > >
00:00:22 verbose #1353 > > let nl = System.Environment.NewLine
00:00:22 verbose #1354 > > let q = @""""
00:00:22 verbose #1355 > >
00:00:22 verbose #1356 > > let inline cons head tail = head :: tail
00:00:22 verbose #1357 > >
00:00:22 verbose #1358 > > /// ## memoize
00:00:22 verbose #1359 > > let inline memoize fn =
00:00:22 verbose #1360 > > let result = lazy fn ()
00:00:22 verbose #1361 > > fun () -> result.Value
00:00:22 verbose #1362 > >
00:00:22 verbose #1363 > > /// ## TraceLevel
00:00:22 verbose #1364 > > type TraceLevel =
00:00:22 verbose #1365 > > | Verbose
00:00:22 verbose #1366 > > | Debug
00:00:22 verbose #1367 > > | Info
00:00:22 verbose #1368 > > | Warning
00:00:22 verbose #1369 > > | Critical
00:00:22 verbose #1370 > >
00:00:22 verbose #1371 > > let inline _locals () = ""
00:00:22 verbose #1372 > >
00:00:22 verbose #1373 > > /// ## trace
00:00:22 verbose #1374 > > let to_trace_level = function
00:00:22 verbose #1375 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:22 verbose #1376 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:22 verbose #1377 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:22 verbose #1378 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:22 verbose #1379 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:00:22 verbose #1380 > >
00:00:22 verbose #1381 > > let trace level fn locals =
00:00:22 verbose #1382 > > let level = level |> to_trace_level
00:00:22 verbose #1383 > > SpiralTrace.trace level fn locals
00:00:22 verbose #1384 > >
00:00:22 verbose #1385 > >
00:00:22 verbose #1386 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1387 > > #if !INTERACTIVE
00:00:22 verbose #1388 > > open Lib
00:00:22 verbose #1389 > > #endif
00:00:22 verbose #1390 > >
00:00:22 verbose #1391 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1392 > > open Common
00:00:23 verbose #1393 > >
00:00:23 verbose #1394 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1395 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1396 > > │ ## choice │
00:00:23 verbose #1397 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1398 > >
00:00:23 verbose #1399 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1400 > > let inline choice asyncs = async {
00:00:23 verbose #1401 > > let e = Event<_> ()
00:00:23 verbose #1402 > > use cts = new System.Threading.CancellationTokenSource ()
00:00:23 verbose #1403 > > let fn =
00:00:23 verbose #1404 > > asyncs
00:00:23 verbose #1405 > > |> Seq.map (fun a -> async {
00:00:23 verbose #1406 > > let! x = a
00:00:23 verbose #1407 > > e.Trigger x
00:00:23 verbose #1408 > > })
00:00:23 verbose #1409 > > |> Async.Parallel
00:00:23 verbose #1410 > > |> Async.Ignore
00:00:23 verbose #1411 > > Async.Start (fn, cts.Token)
00:00:23 verbose #1412 > > let! result = Async.AwaitEvent e.Publish
00:00:23 verbose #1413 > > cts.Cancel ()
00:00:23 verbose #1414 > > return result
00:00:23 verbose #1415 > > }
00:00:23 verbose #1416 > >
00:00:23 verbose #1417 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1418 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1419 > > │ ## map │
00:00:23 verbose #1420 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1421 > >
00:00:23 verbose #1422 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1423 > > let inline map fn a = async {
00:00:23 verbose #1424 > > let! x = a
00:00:23 verbose #1425 > > return fn x
00:00:23 verbose #1426 > > }
00:00:23 verbose #1427 > >
00:00:23 verbose #1428 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1429 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1430 > > │ ## catch │
00:00:23 verbose #1431 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1432 > >
00:00:23 verbose #1433 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1434 > > let inline catch a =
00:00:23 verbose #1435 > > a
00:00:23 verbose #1436 > > |> Async.Catch
00:00:23 verbose #1437 > > |> map (function
00:00:23 verbose #1438 > > | Choice1Of2 result -> Ok result
00:00:23 verbose #1439 > > | Choice2Of2 ex -> Error ex
00:00:23 verbose #1440 > > )
00:00:23 verbose #1441 > >
00:00:23 verbose #1442 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1443 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1444 > > │ ## runWithTimeoutChoiceAsync │
00:00:23 verbose #1445 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1446 > >
00:00:23 verbose #1447 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1448 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:00:23 verbose #1449 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:23 verbose #1450 > >
00:00:23 verbose #1451 > > let timeoutTask = async {
00:00:23 verbose #1452 > > do! Async.Sleep timeout
00:00:23 verbose #1453 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:00:23 verbose #1454 > > return None
00:00:23 verbose #1455 > > }
00:00:23 verbose #1456 > >
00:00:23 verbose #1457 > > let task = async {
00:00:23 verbose #1458 > > try
00:00:23 verbose #1459 > > let! result = fn
00:00:23 verbose #1460 > > return Some result
00:00:23 verbose #1461 > > with
00:00:23 verbose #1462 > > | :? System.AggregateException as ex when
00:00:23 verbose #1463 > > ex.InnerExceptions
00:00:23 verbose #1464 > > |> Seq.exists (function :?
00:00:23 verbose #1465 > > System.Threading.Tasks.TaskCanceledException -> true | _ -> false)
00:00:23 verbose #1466 > > ->
00:00:23 verbose #1467 > > trace Warning
00:00:23 verbose #1468 > > (fun () -> "runWithTimeoutChoiceAsync")
00:00:23 verbose #1469 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:23 verbose #1470 > > ()}")
00:00:23 verbose #1471 > > return None
00:00:23 verbose #1472 > > | ex ->
00:00:23 verbose #1473 > > trace Critical
00:00:23 verbose #1474 > > (fun () -> "runWithTimeoutChoiceAsync")
00:00:23 verbose #1475 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:23 verbose #1476 > > ()}")
00:00:23 verbose #1477 > > return None
00:00:23 verbose #1478 > > }
00:00:23 verbose #1479 > >
00:00:23 verbose #1480 > > [[ timeoutTask; task ]]
00:00:23 verbose #1481 > > |> choice
00:00:23 verbose #1482 > >
00:00:23 verbose #1483 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1484 > > let inline runWithTimeoutChoice timeout fn =
00:00:23 verbose #1485 > > fn
00:00:23 verbose #1486 > > |> runWithTimeoutChoiceAsync timeout
00:00:23 verbose #1487 > > |> Async.RunSynchronously
00:00:23 verbose #1488 > >
00:00:23 verbose #1489 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1490 > > //// test
00:00:23 verbose #1491 > >
00:00:23 verbose #1492 > > Async.Sleep 120
00:00:23 verbose #1493 > > |> runWithTimeoutChoice 10
00:00:23 verbose #1494 > > |> _assertEqual None
00:00:23 verbose #1495 > >
00:00:23 verbose #1496 > > ╭─[ 188.82ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1497 > > │ 00:00:01 debug #1 runWithTimeoutChoiceAsync / timeout: 10 │
00:00:23 verbose #1498 > > │ <null> │
00:00:23 verbose #1499 > > │ │
00:00:23 verbose #1500 > > │ │
00:00:23 verbose #1501 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1502 > >
00:00:23 verbose #1503 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1504 > > //// test
00:00:23 verbose #1505 > >
00:00:23 verbose #1506 > > Async.Sleep 10
00:00:23 verbose #1507 > > |> runWithTimeoutChoice 60
00:00:23 verbose #1508 > > |> _assertEqual (Some ())
00:00:23 verbose #1509 > >
00:00:23 verbose #1510 > > ╭─[ 170.02ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1511 > > │ Some () │
00:00:23 verbose #1512 > > │ │
00:00:23 verbose #1513 > > │ │
00:00:23 verbose #1514 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1515 > >
00:00:23 verbose #1516 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1517 > > //// test
00:00:23 verbose #1518 > >
00:00:23 verbose #1519 > > async {
00:00:23 verbose #1520 > > raise (exn "error")
00:00:23 verbose #1521 > > }
00:00:23 verbose #1522 > > |> runWithTimeoutChoice 60
00:00:23 verbose #1523 > > |> _assertEqual None
00:00:24 verbose #1524 > >
00:00:24 verbose #1525 > > ╭─[ 251.78ms - stdout ]────────────────────────────────────────────────────────╮
00:00:24 verbose #1526 > > │ 00:00:01 critical #2 runWithTimeoutChoiceAsync / ex: System.Exception: error │
00:00:24 verbose #1527 > > │ / timeout: 60 │
00:00:24 verbose #1528 > > │ <null> │
00:00:24 verbose #1529 > > │ │
00:00:24 verbose #1530 > > │ │
00:00:24 verbose #1531 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1532 > >
00:00:24 verbose #1533 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:24 verbose #1534 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:24 verbose #1535 > > │ ## runWithTimeoutAsync │
00:00:24 verbose #1536 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1537 > >
00:00:24 verbose #1538 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1539 > > let inline runWithTimeoutAsync (timeout : int) fn = async {
00:00:24 verbose #1540 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:24 verbose #1541 > > let! child = Async.StartChild (fn, timeout)
00:00:24 verbose #1542 > > return!
00:00:24 verbose #1543 > > child
00:00:24 verbose #1544 > > |> catch
00:00:24 verbose #1545 > > |> map (function
00:00:24 verbose #1546 > > | Ok result -> Some result
00:00:24 verbose #1547 > > | Error (:? System.TimeoutException as ex) ->
00:00:24 verbose #1548 > > trace Debug (fun () -> $"runWithTimeoutAsync") _locals
00:00:24 verbose #1549 > > None
00:00:24 verbose #1550 > > | Error ex ->
00:00:24 verbose #1551 > > trace Critical (fun () -> $"runWithTimeoutAsync** / ex: %A{ex}")
00:00:24 verbose #1552 > > _locals
00:00:24 verbose #1553 > > None
00:00:24 verbose #1554 > > )
00:00:24 verbose #1555 > > }
00:00:24 verbose #1556 > >
00:00:24 verbose #1557 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1558 > > let inline runWithTimeout timeout fn =
00:00:24 verbose #1559 > > fn
00:00:24 verbose #1560 > > |> runWithTimeoutAsync timeout
00:00:24 verbose #1561 > > |> Async.RunSynchronously
00:00:24 verbose #1562 > >
00:00:24 verbose #1563 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1564 > > //// test
00:00:24 verbose #1565 > >
00:00:24 verbose #1566 > > Async.Sleep 60
00:00:24 verbose #1567 > > |> runWithTimeout 10
00:00:24 verbose #1568 > > |> _assertEqual None
00:00:24 verbose #1569 > >
00:00:24 verbose #1570 > > ╭─[ 116.85ms - stdout ]────────────────────────────────────────────────────────╮
00:00:24 verbose #1571 > > │ 00:00:02 debug #3 runWithTimeoutAsync / timeout: 10 │
00:00:24 verbose #1572 > > │ <null> │
00:00:24 verbose #1573 > > │ │
00:00:24 verbose #1574 > > │ │
00:00:24 verbose #1575 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1576 > >
00:00:24 verbose #1577 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1578 > > //// test
00:00:24 verbose #1579 > >
00:00:24 verbose #1580 > > Async.Sleep 10
00:00:24 verbose #1581 > > |> runWithTimeout 60
00:00:24 verbose #1582 > > |> _assertEqual (Some ())
00:00:24 verbose #1583 > >
00:00:24 verbose #1584 > > ╭─[ 87.39ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:24 verbose #1585 > > │ Some () │
00:00:24 verbose #1586 > > │ │
00:00:24 verbose #1587 > > │ │
00:00:24 verbose #1588 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1589 > >
00:00:24 verbose #1590 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1591 > > //// test
00:00:24 verbose #1592 > >
00:00:24 verbose #1593 > > async {
00:00:24 verbose #1594 > > raise (exn "error")
00:00:24 verbose #1595 > > }
00:00:24 verbose #1596 > > |> runWithTimeout 60
00:00:24 verbose #1597 > > |> _assertEqual None
00:00:24 verbose #1598 > >
00:00:24 verbose #1599 > > ╭─[ 124.40ms - stdout ]────────────────────────────────────────────────────────╮
00:00:24 verbose #1600 > > │ 00:00:02 critical #4 runWithTimeoutAsync** / ex: System.Exception: error │
00:00:24 verbose #1601 > > │ at FSI_0036.it@4-119.Invoke(Unit unitVar) │
00:00:24 verbose #1602 > > │ at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvoke[ │
00:00:24 verbose #1603 > > │ T,TResult](AsyncActivation`1 ctxt, TResult result1, FSharpFunc`2 part2) in │
00:00:24 verbose #1604 > > │ D:\a\_work\1\s\src\FSharp.Core\async.fs:line 510 │
00:00:24 verbose #1605 > > │ at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) │
00:00:24 verbose #1606 > > │ in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 112 │
00:00:24 verbose #1607 > > │ --- End of stack trace from previous location --- │
00:00:24 verbose #1608 > > │ at Microsoft.FSharp.Control.AsyncResult`1.Commit() in │
00:00:24 verbose #1609 > > │ D:\a\_work\1\s\src\FSharp.Core\async.fs:line 454 │
00:00:24 verbose #1610 > > │ at │
00:00:24 verbose #1611 > > │ <StartupCode$FSharp-Core>.$Async.AwaitAndBindChildResult@1962-4.Invoke(Unit │
00:00:24 verbose #1612 > > │ unitVar) in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 1964 │
00:00:24 verbose #1613 > > │ at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvoke[ │
00:00:24 verbose #1614 > > │ T,TResult](AsyncActivation`1 ctxt, TResult result1, FSharpFunc`2 part2) in │
00:00:24 verbose #1615 > > │ D:\a\_work\1\s\src\FSharp.Core\async.fs:line 510 │
00:00:24 verbose #1616 > > │ at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) │
00:00:24 verbose #1617 > > │ in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 112 / timeout: 60 │
00:00:24 verbose #1618 > > │ <null> │
00:00:24 verbose #1619 > > │ │
00:00:24 verbose #1620 > > │ │
00:00:24 verbose #1621 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1622 > >
00:00:24 verbose #1623 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:24 verbose #1624 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:24 verbose #1625 > > │ ## runWithTimeoutStrict │
00:00:24 verbose #1626 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1627 > >
00:00:24 verbose #1628 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1629 > > let inline runWithTimeoutStrict (timeout : int) fn =
00:00:24 verbose #1630 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:24 verbose #1631 > >
00:00:24 verbose #1632 > > let timeoutTask = async {
00:00:24 verbose #1633 > > do! Async.Sleep timeout
00:00:24 verbose #1634 > > return None, _locals
00:00:24 verbose #1635 > > }
00:00:24 verbose #1636 > >
00:00:24 verbose #1637 > > let task = async {
00:00:24 verbose #1638 > > try
00:00:24 verbose #1639 > > return Async.RunSynchronously (fn, timeout) |> Some, _locals
00:00:24 verbose #1640 > > with
00:00:24 verbose #1641 > > | :? System.TimeoutException as ex ->
00:00:24 verbose #1642 > > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:24 verbose #1643 > > ()}"
00:00:24 verbose #1644 > > return None, _locals
00:00:24 verbose #1645 > > | ex ->
00:00:24 verbose #1646 > > trace Critical
00:00:24 verbose #1647 > > (fun () -> "runWithTimeoutStrict / async error")
00:00:24 verbose #1648 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:24 verbose #1649 > > ()}")
00:00:24 verbose #1650 > > return raise ex
00:00:24 verbose #1651 > > }
00:00:24 verbose #1652 > >
00:00:24 verbose #1653 > > try
00:00:24 verbose #1654 > > [[| timeoutTask; task |]]
00:00:24 verbose #1655 > > |> Array.map Async.StartAsTask
00:00:24 verbose #1656 > > |> System.Threading.Tasks.Task.WhenAny
00:00:24 verbose #1657 > > |> fun task ->
00:00:24 verbose #1658 > > match task.Result.Result with
00:00:24 verbose #1659 > > | None, _locals ->
00:00:24 verbose #1660 > > trace Debug (fun () -> "runWithTimeoutStrict") _locals
00:00:24 verbose #1661 > > None
00:00:24 verbose #1662 > > | result, _ -> result
00:00:24 verbose #1663 > > with
00:00:24 verbose #1664 > > | :? System.AggregateException as ex when
00:00:24 verbose #1665 > > ex.InnerExceptions
00:00:24 verbose #1666 > > |> Seq.exists (function :? System.Threading.Tasks.TaskCanceledException
00:00:24 verbose #1667 > > -> true | _ -> false)
00:00:24 verbose #1668 > > ->
00:00:24 verbose #1669 > > trace Warning
00:00:24 verbose #1670 > > (fun () -> "runWithTimeoutStrict")
00:00:24 verbose #1671 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals ()}")
00:00:24 verbose #1672 > > None
00:00:24 verbose #1673 > > | ex ->
00:00:24 verbose #1674 > > trace Critical
00:00:24 verbose #1675 > > (fun () -> "runWithTimeoutStrict / task error")
00:00:24 verbose #1676 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals ()}")
00:00:24 verbose #1677 > > None
00:00:24 verbose #1678 > >
00:00:24 verbose #1679 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1680 > > //// test
00:00:24 verbose #1681 > >
00:00:24 verbose #1682 > > Async.Sleep 60
00:00:24 verbose #1683 > > |> runWithTimeoutStrict 10
00:00:24 verbose #1684 > > |> _assertEqual None
00:00:24 verbose #1685 > >
00:00:24 verbose #1686 > > ╭─[ 147.75ms - stdout ]────────────────────────────────────────────────────────╮
00:00:24 verbose #1687 > > │ 00:00:02 debug #5 runWithTimeoutStrict / timeout: 10 │
00:00:24 verbose #1688 > > │ <null> │
00:00:24 verbose #1689 > > │ │
00:00:24 verbose #1690 > > │ │
00:00:24 verbose #1691 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1692 > >
00:00:24 verbose #1693 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1694 > > //// test
00:00:24 verbose #1695 > >
00:00:24 verbose #1696 > > Async.Sleep 10
00:00:24 verbose #1697 > > |> runWithTimeoutStrict 60
00:00:24 verbose #1698 > > |> _assertEqual (Some ())
00:00:25 verbose #1699 > >
00:00:25 verbose #1700 > > ╭─[ 138.16ms - stdout ]────────────────────────────────────────────────────────╮
00:00:25 verbose #1701 > > │ Some () │
00:00:25 verbose #1702 > > │ │
00:00:25 verbose #1703 > > │ │
00:00:25 verbose #1704 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1705 > >
00:00:25 verbose #1706 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1707 > > //// test
00:00:25 verbose #1708 > >
00:00:25 verbose #1709 > > async {
00:00:25 verbose #1710 > > raise (exn "error")
00:00:25 verbose #1711 > > }
00:00:25 verbose #1712 > > |> runWithTimeoutStrict 60
00:00:25 verbose #1713 > > |> _assertEqual None
00:00:25 verbose #1714 > >
00:00:25 verbose #1715 > > ╭─[ 165.44ms - stdout ]────────────────────────────────────────────────────────╮
00:00:25 verbose #1716 > > │ 00:00:02 critical #6 runWithTimeoutStrict / async error / ex: │
00:00:25 verbose #1717 > > │ System.Exception: error / timeout: 60 │
00:00:25 verbose #1718 > > │ 00:00:02 critical #7 runWithTimeoutStrict / task error / ex: │
00:00:25 verbose #1719 > > │ System.AggregateException: One or more errors occurred. (error) / timeout: │
00:00:25 verbose #1720 > > │ 60 │
00:00:25 verbose #1721 > > │ <null> │
00:00:25 verbose #1722 > > │ │
00:00:25 verbose #1723 > > │ │
00:00:25 verbose #1724 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1725 > >
00:00:25 verbose #1726 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1727 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1728 > > │ ## awaitValueTask │
00:00:25 verbose #1729 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1730 > >
00:00:25 verbose #1731 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1732 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:25 verbose #1733 > > task.AsTask () |> Async.AwaitTask
00:00:25 verbose #1734 > >
00:00:25 verbose #1735 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:25 verbose #1736 > > task.AsTask () |> Async.AwaitTask
00:00:25 verbose #1737 > >
00:00:25 verbose #1738 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1739 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1740 > > │ ## init │
00:00:25 verbose #1741 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1742 > >
00:00:25 verbose #1743 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1744 > > let inline init x = async {
00:00:25 verbose #1745 > > return x
00:00:25 verbose #1746 > > }
00:00:25 verbose #1747 > >
00:00:25 verbose #1748 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1749 > > //// test
00:00:25 verbose #1750 > >
00:00:25 verbose #1751 > > init 1
00:00:25 verbose #1752 > > |> Async.RunSynchronously
00:00:25 verbose #1753 > > |> _assertEqual 1
00:00:25 verbose #1754 > >
00:00:25 verbose #1755 > > ╭─[ 35.18ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:25 verbose #1756 > > │ 1 │
00:00:25 verbose #1757 > > │ │
00:00:25 verbose #1758 > > │ │
00:00:25 verbose #1759 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1760 > >
00:00:25 verbose #1761 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1762 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1763 > > │ ## withCancellationToken │
00:00:25 verbose #1764 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1765 > >
00:00:25 verbose #1766 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1767 > > let inline withCancellationToken (ct : System.Threading.CancellationToken) fn =
00:00:25 verbose #1768 > > Async.StartImmediateAsTask (fn, ct)
00:00:25 verbose #1769 > > |> Async.AwaitTask
00:00:25 verbose #1770 > >
00:00:25 verbose #1771 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1772 > > //// test
00:00:25 verbose #1773 > >
00:00:25 verbose #1774 > > let cts = new System.Threading.CancellationTokenSource ()
00:00:25 verbose #1775 > >
00:00:25 verbose #1776 > > async {
00:00:25 verbose #1777 > > let run = async {
00:00:25 verbose #1778 > > do! Async.Sleep 100
00:00:25 verbose #1779 > > return 1
00:00:25 verbose #1780 > > }
00:00:25 verbose #1781 > >
00:00:25 verbose #1782 > > let! child =
00:00:25 verbose #1783 > > run
00:00:25 verbose #1784 > > |> withCancellationToken cts.Token
00:00:25 verbose #1785 > > |> catch
00:00:25 verbose #1786 > > |> Async.StartChild
00:00:25 verbose #1787 > >
00:00:25 verbose #1788 > > do! Async.Sleep 50
00:00:25 verbose #1789 > > cts.Cancel ()
00:00:25 verbose #1790 > > return! child
00:00:25 verbose #1791 > > }
00:00:25 verbose #1792 > > |> Async.RunSynchronously
00:00:25 verbose #1793 > > |> Result.mapError _.Message
00:00:25 verbose #1794 > > |> _assertEqual (Error ("A task was canceled."))
00:00:25 verbose #1795 > >
00:00:25 verbose #1796 > > ╭─[ 195.16ms - stdout ]────────────────────────────────────────────────────────╮
00:00:25 verbose #1797 > > │ Error "A task was canceled." │
00:00:25 verbose #1798 > > │ │
00:00:25 verbose #1799 > > │ │
00:00:25 verbose #1800 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1801 > >
00:00:25 verbose #1802 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1803 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1804 > > │ ## retryAsync │
00:00:25 verbose #1805 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1806 > >
00:00:25 verbose #1807 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1808 > > let inline retryAsync retries fn =
00:00:25 verbose #1809 > > let rec loop retry lastError = async {
00:00:25 verbose #1810 > > try
00:00:25 verbose #1811 > > return!
00:00:25 verbose #1812 > > if retry <= retries
00:00:25 verbose #1813 > > then fn |> map Ok
00:00:25 verbose #1814 > > else lastError |> Error |> init
00:00:25 verbose #1815 > > with ex ->
00:00:25 verbose #1816 > > trace Debug (fun () -> $"Async.retryAsync / retry: {retry}/{retries}
00:00:25 verbose #1817 > > / ex: {ex |> SpiralSm.format_exception}") _locals
00:00:25 verbose #1818 > > do! Async.Sleep 1
00:00:25 verbose #1819 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:00:25 verbose #1820 > > }
00:00:25 verbose #1821 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:00:25 verbose #1822 > >
00:00:25 verbose #1823 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1824 > > //// test
00:00:25 verbose #1825 > >
00:00:25 verbose #1826 > > let retry_fn_test = ref 0
00:00:25 verbose #1827 > > async {
00:00:25 verbose #1828 > > retry_fn_test.Value <- retry_fn_test.Value + 1
00:00:25 verbose #1829 > > return retry_fn_test.Value
00:00:25 verbose #1830 > > }
00:00:25 verbose #1831 > > |> retryAsync 3
00:00:25 verbose #1832 > > |> Async.RunSynchronously
00:00:25 verbose #1833 > > |> _assertEqual (Ok 1)
00:00:25 verbose #1834 > >
00:00:25 verbose #1835 > > ╭─[ 112.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:25 verbose #1836 > > │ Ok 1 │
00:00:25 verbose #1837 > > │ │
00:00:25 verbose #1838 > > │ │
00:00:25 verbose #1839 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1840 > >
00:00:25 verbose #1841 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1842 > > //// test
00:00:25 verbose #1843 > >
00:00:25 verbose #1844 > > let retry_fn_test = ref 0
00:00:25 verbose #1845 > > async {
00:00:25 verbose #1846 > > return
00:00:25 verbose #1847 > > if retry_fn_test.Value >= 2
00:00:25 verbose #1848 > > then retry_fn_test.Value
00:00:25 verbose #1849 > > else
00:00:25 verbose #1850 > > retry_fn_test.Value <- retry_fn_test.Value + 1
00:00:25 verbose #1851 > > failwith "test"
00:00:25 verbose #1852 > > }
00:00:25 verbose #1853 > > |> retryAsync 3
00:00:25 verbose #1854 > > |> Async.RunSynchronously
00:00:25 verbose #1855 > > |> _assertEqual (Ok 2)
00:00:25 verbose #1856 > >
00:00:25 verbose #1857 > > ╭─[ 153.00ms - stdout ]────────────────────────────────────────────────────────╮
00:00:25 verbose #1858 > > │ 00:00:03 debug #8 Async.retryAsync / retry: 1/3 / ex: System.Exception: │
00:00:25 verbose #1859 > > │ test │
00:00:25 verbose #1860 > > │ 00:00:03 debug #9 Async.retryAsync / retry: 2/3 / ex: System.Exception: │
00:00:25 verbose #1861 > > │ test │
00:00:25 verbose #1862 > > │ Ok 2 │
00:00:25 verbose #1863 > > │ │
00:00:25 verbose #1864 > > │ │
00:00:25 verbose #1865 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1866 > >
00:00:25 verbose #1867 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1868 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1869 > > │ ## fold │
00:00:25 verbose #1870 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1871 > >
00:00:25 verbose #1872 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1873 > > let fold folder state array =
00:00:25 verbose #1874 > > let rec loop acc i =
00:00:25 verbose #1875 > > async {
00:00:25 verbose #1876 > > if i < Array.length array then
00:00:25 verbose #1877 > > let! newAcc = folder acc array.[[i]]
00:00:25 verbose #1878 > > return! loop newAcc (i + 1)
00:00:25 verbose #1879 > > else
00:00:25 verbose #1880 > > return acc
00:00:25 verbose #1881 > > }
00:00:25 verbose #1882 > > loop state 0
00:00:26 verbose #1883 > 00:00:24 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 64748
00:00:26 verbose #1884 > 00:00:24 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:28 verbose #1885 > 00:00:26 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb to html
00:00:28 verbose #1886 > 00:00:26 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:28 verbose #1887 > 00:00:26 verbose #7 ! validate(nb)
00:00:30 verbose #1888 > 00:00:28 verbose #8 ! [NbConvertApp] Writing 332386 bytes to c:\home\git\polyglot\lib\fsharp\Async.dib.html
00:00:30 verbose #1889 > 00:00:28 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641
00:00:30 verbose #1890 > 00:00:28 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641
00:00:30 verbose #1891 > 00:00:28 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Async.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Async.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:32 verbose #1892 > 00:00:30 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:32 verbose #1893 > 00:00:30 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:33 verbose #1894 > 00:00:31 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 65448
00:00:33 debug #1895 runtime.execute_with_options_async / exit_code: 0 / output.Length: 71454
00:00:33 debug #1 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Async.dib --retries 3
00:00:33 debug #1896 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path AsyncSeq.dib --retries 3",
[||], None, None, true, None)
00:00:33 verbose #1897 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "AsyncSeq.dib", "--retries", "3"])
00:00:33 verbose #1898 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib" --output-path "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:36 verbose #1899 > >
00:00:36 verbose #1900 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1901 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1902 > > │ # AsyncSeq (Polyglot) │
00:00:36 verbose #1903 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1904 > >
00:00:36 verbose #1905 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1906 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:36 verbose #1907 > > #!import ../../lib/fsharp/Testing.dib
00:00:36 verbose #1908 > >
00:00:36 verbose #1909 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:36 verbose #1910 > > #r
00:00:36 verbose #1911 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:36 verbose #1912 > > spNetCore.Html.Abstractions.dll"
00:00:36 verbose #1913 > > #r
00:00:36 verbose #1914 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 verbose #1915 > > otNet.Interactive.dll"
00:00:36 verbose #1916 > > #r
00:00:36 verbose #1917 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 verbose #1918 > > otNet.Interactive.FSharp.dll"
00:00:36 verbose #1919 > > #r
00:00:36 verbose #1920 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 verbose #1921 > > otNet.Interactive.Formatting.dll"
00:00:36 verbose #1922 > > open System
00:00:36 verbose #1923 > > open System.IO
00:00:36 verbose #1924 > > open System.Text
00:00:36 verbose #1925 > > open Microsoft.DotNet.Interactive.Formatting
00:00:41 verbose #1926 > >
00:00:41 verbose #1927 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 verbose #1928 > > #r
00:00:41 verbose #1929 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:41 verbose #1930 > > otNet.Interactive.FSharp.dll"
00:00:41 verbose #1931 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:41 verbose #1932 > > #r
00:00:41 verbose #1933 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:41 verbose #1934 > > otNet.Interactive.dll"
00:00:41 verbose #1935 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:41 verbose #1936 > >
00:00:41 verbose #1937 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 verbose #1938 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:42 verbose #1939 > >
00:00:42 verbose #1940 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:42 verbose #1941 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:42 verbose #1942 > > TextWriter)->fprintfn writer "%120A" x)
00:00:42 verbose #1943 > >
00:00:42 verbose #1944 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:42 verbose #1945 > > //// test
00:00:42 verbose #1946 > >
00:00:42 verbose #1947 > > Formatter.ListExpansionLimit <- 100
00:00:42 verbose #1948 > >
00:00:42 verbose #1949 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:42 verbose #1950 > > #if FABLE_COMPILER
00:00:42 verbose #1951 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:42 verbose #1952 > > #endif
00:00:42 verbose #1953 > > type std_env_VarError = class end
00:00:42 verbose #1954 > > #if FABLE_COMPILER
00:00:42 verbose #1955 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:42 verbose #1956 > > #endif
00:00:42 verbose #1957 > > type core_any_Any = class end
00:00:42 verbose #1958 > > #if FABLE_COMPILER
00:00:42 verbose #1959 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:42 verbose #1960 > > #endif
00:00:42 verbose #1961 > > type core_ops_Try<'T> = class end
00:00:42 verbose #1962 > > #if FABLE_COMPILER
00:00:42 verbose #1963 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:42 verbose #1964 > > #endif
00:00:42 verbose #1965 > > type Func0<'T> = class end
00:00:42 verbose #1966 > > #if FABLE_COMPILER
00:00:42 verbose #1967 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:42 verbose #1968 > > #endif
00:00:42 verbose #1969 > > type Func0<'T, 'U> = class end
00:00:42 verbose #1970 > > #if FABLE_COMPILER
00:00:42 verbose #1971 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:42 verbose #1972 > > #endif
00:00:42 verbose #1973 > > type Box<'T> = class end
00:00:42 verbose #1974 > > #if FABLE_COMPILER
00:00:42 verbose #1975 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:42 verbose #1976 > > #endif
00:00:42 verbose #1977 > > type Dyn<'T> = class end
00:00:42 verbose #1978 > > #if FABLE_COMPILER
00:00:42 verbose #1979 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:42 verbose #1980 > > #endif
00:00:42 verbose #1981 > > type Send<'T> = class end
00:00:42 verbose #1982 > > #if FABLE_COMPILER
00:00:42 verbose #1983 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:42 verbose #1984 > > #endif
00:00:42 verbose #1985 > > type Fn<'T> = class end
00:00:42 verbose #1986 > > #if FABLE_COMPILER
00:00:42 verbose #1987 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:42 verbose #1988 > > #endif
00:00:42 verbose #1989 > > type FnUnit = class end
00:00:42 verbose #1990 > > #if FABLE_COMPILER
00:00:42 verbose #1991 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:42 verbose #1992 > > #endif
00:00:42 verbose #1993 > > type FnOnce<'T> = class end
00:00:42 verbose #1994 > > #if FABLE_COMPILER
00:00:42 verbose #1995 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:42 verbose #1996 > > #endif
00:00:42 verbose #1997 > > type ActionFn<'T> = class end
00:00:42 verbose #1998 > > #if FABLE_COMPILER
00:00:42 verbose #1999 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:42 verbose #2000 > > #endif
00:00:42 verbose #2001 > > type ActionFn2<'T, 'U> = class end
00:00:42 verbose #2002 > > #if FABLE_COMPILER
00:00:42 verbose #2003 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:42 verbose #2004 > > #endif
00:00:42 verbose #2005 > > type Impl<'T> = class end
00:00:42 verbose #2006 > > #if FABLE_COMPILER
00:00:42 verbose #2007 > > [[<Fabl...2, v3, v4)
00:00:42 verbose #2008 > > US5_1
00:00:42 verbose #2009 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:42 verbose #2010 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:42 verbose #2011 > > let v4 : (US4 -> US5) = closure6()
00:00:42 verbose #2012 > > let v5 : (exn -> US5) = closure7(v2)
00:00:42 verbose #2013 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:42 verbose #2014 > > match v6 with
00:00:42 verbose #2015 > > | US5_1 -> (* None *)
00:00:42 verbose #2016 > > let v8 : int32 = v2 + 1
00:00:42 verbose #2017 > > method6(v0, v1, v8)
00:00:42 verbose #2018 > > | US5_0(v7) -> (* Some *)
00:00:42 verbose #2019 > > v7
00:00:42 verbose #2020 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:42 verbose #2021 > > let v2 : int32 = 0
00:00:42 verbose #2022 > > let v3 : US4 = method6(v0, v1, v2)
00:00:42 verbose #2023 > > match v3 with
00:00:42 verbose #2024 > > | US4_1 -> (* None *)
00:00:42 verbose #2025 > > let v5 : unit option = None
00:00:42 verbose #2026 > > v5
00:00:42 verbose #2027 > > | US4_0 -> (* Some *)
00:00:42 verbose #2028 > > let v4 : unit option = Some ()
00:00:42 verbose #2029 > > v4
00:00:42 verbose #2030 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:42 verbose #2031 > > closure4(v0)
00:00:42 verbose #2032 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:42 verbose #2033 > > v0
00:00:42 verbose #2034 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:42 verbose #2035 > > v0.Value
00:00:42 verbose #2036 > > ()
00:00:42 verbose #2037 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:42 verbose #2038 > > let v1 : (unit -> unit) = method12(v0)
00:00:42 verbose #2039 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:42 verbose #2040 > > closure13(v2)
00:00:42 verbose #2041 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:42 verbose #2042 > > let v1 : US0 = US0_0
00:00:42 verbose #2043 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:42 verbose #2044 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:42 verbose #2045 > > let new_disposable x = v2 x
00:00:42 verbose #2046 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:42 verbose #2047 > > let retry_fn x = v3 x
00:00:42 verbose #2048 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:42 verbose #2049 > > let memoize x = v4 x
00:00:42 verbose #2050 > > ()
00:00:42 verbose #2051 > >
00:00:44 verbose #2052 > >
00:00:44 verbose #2053 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:44 verbose #2054 > > #if FABLE_COMPILER
00:00:44 verbose #2055 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:44 verbose #2056 > > #endif
00:00:44 verbose #2057 > > type core_any_Any = class end
00:00:44 verbose #2058 > > #if FABLE_COMPILER
00:00:44 verbose #2059 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:44 verbose #2060 > > #endif
00:00:44 verbose #2061 > > type core_ops_Try<'T> = class end
00:00:44 verbose #2062 > > #if FABLE_COMPILER
00:00:44 verbose #2063 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:44 verbose #2064 > > #endif
00:00:44 verbose #2065 > > type Func0<'T> = class end
00:00:44 verbose #2066 > > #if FABLE_COMPILER
00:00:44 verbose #2067 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:44 verbose #2068 > > #endif
00:00:44 verbose #2069 > > type Func0<'T, 'U> = class end
00:00:44 verbose #2070 > > #if FABLE_COMPILER
00:00:44 verbose #2071 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:44 verbose #2072 > > #endif
00:00:44 verbose #2073 > > type Box<'T> = class end
00:00:44 verbose #2074 > > #if FABLE_COMPILER
00:00:44 verbose #2075 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:44 verbose #2076 > > #endif
00:00:44 verbose #2077 > > type Dyn<'T> = class end
00:00:44 verbose #2078 > > #if FABLE_COMPILER
00:00:44 verbose #2079 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:44 verbose #2080 > > #endif
00:00:44 verbose #2081 > > type Send<'T> = class end
00:00:44 verbose #2082 > > #if FABLE_COMPILER
00:00:44 verbose #2083 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:44 verbose #2084 > > #endif
00:00:44 verbose #2085 > > type Fn<'T> = class end
00:00:44 verbose #2086 > > #if FABLE_COMPILER
00:00:44 verbose #2087 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:44 verbose #2088 > > #endif
00:00:44 verbose #2089 > > type FnUnit = class end
00:00:44 verbose #2090 > > #if FABLE_COMPILER
00:00:44 verbose #2091 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:44 verbose #2092 > > #endif
00:00:44 verbose #2093 > > type FnOnce<'T> = class end
00:00:44 verbose #2094 > > #if FABLE_COMPILER
00:00:44 verbose #2095 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:44 verbose #2096 > > #endif
00:00:44 verbose #2097 > > type ActionFn<'T> = class end
00:00:44 verbose #2098 > > #if FABLE_COMPILER
00:00:44 verbose #2099 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:44 verbose #2100 > > #endif
00:00:44 verbose #2101 > > type ActionFn2<'T, 'U> = class end
00:00:44 verbose #2102 > > #if FABLE_COMPILER
00:00:44 verbose #2103 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:44 verbose #2104 > > #endif
00:00:44 verbose #2105 > > type Impl<'T> = class end
00:00:44 verbose #2106 > > #if FABLE_COMPILER
00:00:44 verbose #2107 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:44 verbose #2108 > > #endif
00:00:44 verbose #2109 > > type Mut<'T> = class end
00:00:44 verbose #2110 > > #if FABLE_COMPILER
00:00:44 verbose #2111 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:44 verbose #2112 > > let replace x = v4 x
00:00:44 verbose #2113 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:44 verbose #2114 > > let replace_regex x = v5 x
00:00:44 verbose #2115 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:44 verbose #2116 > > let slice x = v6 x
00:00:44 verbose #2117 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:44 verbose #2118 > > let split x = v7 x
00:00:44 verbose #2119 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:44 verbose #2120 > > let split_string x = v8 x
00:00:44 verbose #2121 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:44 verbose #2122 > > let starts_with x = v9 x
00:00:44 verbose #2123 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:44 verbose #2124 > > let substring x = v10 x
00:00:44 verbose #2125 > > let v11 : (string -> string) = closure28()
00:00:44 verbose #2126 > > let to_lower x = v11 x
00:00:44 verbose #2127 > > let v12 : (string -> string) = closure29()
00:00:44 verbose #2128 > > let to_upper x = v12 x
00:00:44 verbose #2129 > > let v13 : (string -> string) = closure30()
00:00:44 verbose #2130 > > let trim x = v13 x
00:00:44 verbose #2131 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:44 verbose #2132 > > let trim_end x = v14 x
00:00:44 verbose #2133 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:44 verbose #2134 > > let trim_start x = v15 x
00:00:44 verbose #2135 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:44 verbose #2136 > > let ellipsis x = v16 x
00:00:44 verbose #2137 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:44 verbose #2138 > > let ellipsis_end x = v17 x
00:00:44 verbose #2139 > > let v18 : (exn -> string) = closure39()
00:00:44 verbose #2140 > > let format_exception x = v18 x
00:00:44 verbose #2141 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:44 verbose #2142 > > let concat_array_trailing x = v19 x
00:00:44 verbose #2143 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:44 verbose #2144 > > let concat x = v20 x
00:00:44 verbose #2145 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:44 verbose #2146 > > let join' x = v21 x
00:00:44 verbose #2147 > > let v22 : (string -> (char [[]])) = closure46()
00:00:44 verbose #2148 > > let to_char_array x = v22 x
00:00:44 verbose #2149 > > ()
00:00:44 verbose #2150 > >
00:00:44 verbose #2151 > >
00:00:44 verbose #2152 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:44 verbose #2153 > > #if FABLE_COMPILER
00:00:44 verbose #2154 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:44 verbose #2155 > > #endif
00:00:44 verbose #2156 > > type core_any_Any = class end
00:00:44 verbose #2157 > > #if FABLE_COMPILER
00:00:44 verbose #2158 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:44 verbose #2159 > > #endif
00:00:44 verbose #2160 > > type core_ops_Try<'T> = class end
00:00:44 verbose #2161 > > #if FABLE_COMPILER
00:00:44 verbose #2162 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:44 verbose #2163 > > #endif
00:00:44 verbose #2164 > > type Func0<'T> = class end
00:00:44 verbose #2165 > > #if FABLE_COMPILER
00:00:44 verbose #2166 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:44 verbose #2167 > > #endif
00:00:44 verbose #2168 > > type Func0<'T, 'U> = class end
00:00:44 verbose #2169 > > #if FABLE_COMPILER
00:00:44 verbose #2170 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:44 verbose #2171 > > #endif
00:00:44 verbose #2172 > > type Box<'T> = class end
00:00:44 verbose #2173 > > #if FABLE_COMPILER
00:00:44 verbose #2174 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:44 verbose #2175 > > #endif
00:00:44 verbose #2176 > > type Dyn<'T> = class end
00:00:44 verbose #2177 > > #if FABLE_COMPILER
00:00:44 verbose #2178 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:44 verbose #2179 > > #endif
00:00:44 verbose #2180 > > type Send<'T> = class end
00:00:44 verbose #2181 > > #if FABLE_COMPILER
00:00:44 verbose #2182 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:44 verbose #2183 > > #endif
00:00:44 verbose #2184 > > type Fn<'T> = class end
00:00:44 verbose #2185 > > #if FABLE_COMPILER
00:00:44 verbose #2186 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:44 verbose #2187 > > #endif
00:00:44 verbose #2188 > > type FnUnit = class end
00:00:44 verbose #2189 > > #if FABLE_COMPILER
00:00:44 verbose #2190 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:44 verbose #2191 > > #endif
00:00:44 verbose #2192 > > type FnOnce<'T> = class end
00:00:44 verbose #2193 > > #if FABLE_COMPILER
00:00:44 verbose #2194 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:44 verbose #2195 > > #endif
00:00:44 verbose #2196 > > type ActionFn<'T> = class end
00:00:44 verbose #2197 > > #if FABLE_COMPILER
00:00:44 verbose #2198 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:44 verbose #2199 > > #endif
00:00:44 verbose #2200 > > type ActionFn2<'T, 'U> = class end
00:00:44 verbose #2201 > > #if FABLE_COMPILER
00:00:44 verbose #2202 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:44 verbose #2203 > > #endif
00:00:44 verbose #2204 > > type Impl<'T> = class end
00:00:44 verbose #2205 > > #if FABLE_COMPILER
00:00:44 verbose #2206 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:44 verbose #2207 > > #endif
00:00:44 verbose #2208 > > type Mut<'T> = class end
00:00:44 verbose #2209 > > #if FABLE_COMPILER
00:00:44 verbose #2210 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:44 verbose #2211 > > ()
00:00:44 verbose #2212 > > #endif
00:00:44 verbose #2213 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:44 verbose #2214 > > let v28 : string = @"println!(""{}"", $0)"
00:00:44 verbose #2215 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:44 verbose #2216 > > ()
00:00:44 verbose #2217 > > #endif
00:00:44 verbose #2218 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:44 verbose #2219 > > System.Console.WriteLine v24
00:00:44 verbose #2220 > > ()
00:00:44 verbose #2221 > > #endif
00:00:44 verbose #2222 > > #if FABLE_COMPILER_PYTHON
00:00:44 verbose #2223 > > System.Console.WriteLine v24
00:00:44 verbose #2224 > > ()
00:00:44 verbose #2225 > > #endif
00:00:44 verbose #2226 > > #else
00:00:44 verbose #2227 > > System.Console.WriteLine v24
00:00:44 verbose #2228 > > ()
00:00:44 verbose #2229 > > #endif
00:00:44 verbose #2230 > > |> fun x -> _v25 <- Some x
00:00:44 verbose #2231 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:44 verbose #2232 > > _v25=None"
00:00:44 verbose #2233 > > let v29 : (string -> unit) = v8.l0
00:00:44 verbose #2234 > > v29 v24
00:00:44 verbose #2235 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:44 verbose #2236 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:44 verbose #2237 > > method11(v0, v3)
00:00:44 verbose #2238 > > and closure1 () (v0 : string) : uint16 =
00:00:44 verbose #2239 > > let v1 : char = v0.[[int 0]]
00:00:44 verbose #2240 > > let v2 : (char -> int32) = int32
00:00:44 verbose #2241 > > let v3 : int32 = v2 v1
00:00:44 verbose #2242 > > let v4 : string = v0.[[int 0..int 7]]
00:00:44 verbose #2243 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:44 verbose #2244 > > let v6 : int32 = v5 + v3
00:00:44 verbose #2245 > > let v7 : (int32 -> uint16) = uint16
00:00:44 verbose #2246 > > let v8 : uint16 = v7 v6
00:00:44 verbose #2247 > > let v9 : US0 = US0_0
00:00:44 verbose #2248 > > let v10 : (unit -> string) = closure2()
00:00:44 verbose #2249 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:44 verbose #2250 > > method3(v9, v10, v11)
00:00:44 verbose #2251 > > let v12 : uint16 = v8 % 48128us
00:00:44 verbose #2252 > > let v13 : uint16 = v12 + 1024us
00:00:44 verbose #2253 > > v13
00:00:44 verbose #2254 > > let v0 : (string -> string) = closure0()
00:00:44 verbose #2255 > > let hash_text x = v0 x
00:00:44 verbose #2256 > > let v1 : (string -> uint16) = closure1()
00:00:44 verbose #2257 > > let hash_to_port x = v1 x
00:00:44 verbose #2258 > > ()
00:00:44 verbose #2259 > >
00:00:45 verbose #2260 > >
00:00:45 verbose #2261 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 verbose #2262 > > #if FABLE_COMPILER
00:00:45 verbose #2263 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:45 verbose #2264 > > #endif
00:00:45 verbose #2265 > > type core_any_Any = class end
00:00:45 verbose #2266 > > #if FABLE_COMPILER
00:00:45 verbose #2267 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:45 verbose #2268 > > #endif
00:00:45 verbose #2269 > > type core_ops_Try<'T> = class end
00:00:45 verbose #2270 > > #if FABLE_COMPILER
00:00:45 verbose #2271 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:45 verbose #2272 > > #endif
00:00:45 verbose #2273 > > type Func0<'T> = class end
00:00:45 verbose #2274 > > #if FABLE_COMPILER
00:00:45 verbose #2275 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:45 verbose #2276 > > #endif
00:00:45 verbose #2277 > > type Func0<'T, 'U> = class end
00:00:45 verbose #2278 > > #if FABLE_COMPILER
00:00:45 verbose #2279 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:45 verbose #2280 > > #endif
00:00:45 verbose #2281 > > type Box<'T> = class end
00:00:45 verbose #2282 > > #if FABLE_COMPILER
00:00:45 verbose #2283 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:45 verbose #2284 > > #endif
00:00:45 verbose #2285 > > type Dyn<'T> = class end
00:00:45 verbose #2286 > > #if FABLE_COMPILER
00:00:45 verbose #2287 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:45 verbose #2288 > > #endif
00:00:45 verbose #2289 > > type Send<'T> = class end
00:00:45 verbose #2290 > > #if FABLE_COMPILER
00:00:45 verbose #2291 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:45 verbose #2292 > > #endif
00:00:45 verbose #2293 > > type Fn<'T> = class end
00:00:45 verbose #2294 > > #if FABLE_COMPILER
00:00:45 verbose #2295 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:45 verbose #2296 > > #endif
00:00:45 verbose #2297 > > type FnUnit = class end
00:00:45 verbose #2298 > > #if FABLE_COMPILER
00:00:45 verbose #2299 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:45 verbose #2300 > > #endif
00:00:45 verbose #2301 > > type FnOnce<'T> = class end
00:00:45 verbose #2302 > > #if FABLE_COMPILER
00:00:45 verbose #2303 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:45 verbose #2304 > > #endif
00:00:45 verbose #2305 > > type ActionFn<'T> = class end
00:00:45 verbose #2306 > > #if FABLE_COMPILER
00:00:45 verbose #2307 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:45 verbose #2308 > > #endif
00:00:45 verbose #2309 > > type ActionFn2<'T, 'U> = class end
00:00:45 verbose #2310 > > #if FABLE_COMPILER
00:00:45 verbose #2311 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:45 verbose #2312 > > #endif
00:00:45 verbose #2313 > > type Impl<'T> = class end
00:00:45 verbose #2314 > > #if FABLE_COMPILER
00:00:45 verbose #2315 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:45 verbose #2316 > > #endif
00:00:45 verbose #2317 > > type Mut<'T> = class end
00:00:45 verbose #2318 > > #if FABLE_COMPILER
00:00:45 verbose #2319 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:45 verbose #2320 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:45 verbose #2321 > > let v2 : System.Guid = v1 ()
00:00:45 verbose #2322 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:45 verbose #2323 > > let v4 : string = v3 v2
00:00:45 verbose #2324 > > let v5 : (int64 -> string) = _.ToString()
00:00:45 verbose #2325 > > let v6 : string = v5 v0
00:00:45 verbose #2326 > > let v7 : string = v6.PadLeft (18, '0')
00:00:45 verbose #2327 > > let v8 : System.Guid = System.Guid
00:00:45 verbose #2328 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:45 verbose #2329 > > v8
00:00:45 verbose #2330 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:45 verbose #2331 > > let v2 : (string -> string) = v1.ToString
00:00:45 verbose #2332 > > v2 v0
00:00:45 verbose #2333 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:45 verbose #2334 > > closure12(v0)
00:00:45 verbose #2335 > > and closure13 () (v0 : System.DateTime) : string =
00:00:45 verbose #2336 > > let v1 : (string -> string) = v0.ToString
00:00:45 verbose #2337 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:45 verbose #2338 > > v1 v2
00:00:45 verbose #2339 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:45 verbose #2340 > > let date_time_guid_from_date_time x = v0 x
00:00:45 verbose #2341 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:45 verbose #2342 > > let date_time_from_guid x = v1 x
00:00:45 verbose #2343 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:45 verbose #2344 > > let timestamp_guid_from_timestamp x = v2 x
00:00:45 verbose #2345 > > let v3 : (System.Guid -> int64) = closure8()
00:00:45 verbose #2346 > > let timestamp_from_guid x = v3 x
00:00:45 verbose #2347 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:45 verbose #2348 > > let new_guid_from_date_time x = v4 x
00:00:45 verbose #2349 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:45 verbose #2350 > > let new_guid_from_timestamp x = v5 x
00:00:45 verbose #2351 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:45 verbose #2352 > > let format x = v6 x
00:00:45 verbose #2353 > > let v7 : (System.DateTime -> string) = closure13()
00:00:45 verbose #2354 > > let format_iso8601 x = v7 x
00:00:45 verbose #2355 > > ()
00:00:45 verbose #2356 > >
00:00:45 verbose #2357 > >
00:00:45 verbose #2358 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 verbose #2359 > > #if FABLE_COMPILER
00:00:45 verbose #2360 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:45 verbose #2361 > > #endif
00:00:45 verbose #2362 > > type futures_future_JoinAll<'T> = class end
00:00:45 verbose #2363 > > #if FABLE_COMPILER
00:00:45 verbose #2364 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:45 verbose #2365 > > #endif
00:00:45 verbose #2366 > > type futures_future_TryJoinAll<'T> = class end
00:00:45 verbose #2367 > > #if FABLE_COMPILER
00:00:45 verbose #2368 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:45 verbose #2369 > > #endif
00:00:45 verbose #2370 > > type rayon_iter_Map<'T> = class end
00:00:45 verbose #2371 > > #if FABLE_COMPILER
00:00:45 verbose #2372 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:45 verbose #2373 > > #endif
00:00:45 verbose #2374 > > type rayon_vec_IntoIter<'T> = class end
00:00:45 verbose #2375 > > #if FABLE_COMPILER
00:00:45 verbose #2376 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:45 verbose #2377 > > #endif
00:00:45 verbose #2378 > > type std_future_Future<'T> = class end
00:00:45 verbose #2379 > > #if FABLE_COMPILER
00:00:45 verbose #2380 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:45 verbose #2381 > > #endif
00:00:45 verbose #2382 > > type futures_future_Fuse<'T> = class end
00:00:45 verbose #2383 > > #if FABLE_COMPILER
00:00:45 verbose #2384 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:45 verbose #2385 > > #endif
00:00:45 verbose #2386 > > type tokio_task_JoinHandle<'T> = class end
00:00:45 verbose #2387 > > #if FABLE_COMPILER
00:00:45 verbose #2388 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:45 verbose #2389 > > #endif
00:00:45 verbose #2390 > > type tokio_stream_StreamExt = class end
00:00:45 verbose #2391 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:45 verbose #2392 > > Async<System.Threading.CancellationToken> =
00:00:45 verbose #2393 > > let v1 : bool = true
00:00:45 verbose #2394 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:45 verbose #2395 > >
00:00:45 verbose #2396 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:45 verbose #2397 > >
00:00:45 verbose #2398 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:45 verbose #2399 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:45 verbose #2400 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:45 verbose #2401 > > v12
00:00:45 verbose #2402 > > #endif
00:00:45 verbose #2403 > > #else
00:00:45 verbose #2404 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:45 verbose #2405 > > let mutable _v13 = v13
00:00:45 verbose #2406 > > async {
00:00:45 verbose #2407 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:45 verbose #2408 > > Async.CancellationToken
00:00:45 verbose #2409 > > let! v14 = v14
00:00:45 verbose #2410 > > let v15 : System.Threading.CancellationToken = v14
00:00:45 verbose #2411 > > let v16 : System.Threading.CancellationToken =
00:00:45 verbose #2412 > > Async.DefaultCancellationToken
00:00:45 verbose #2413 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:45 verbose #2414 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:45 verbose #2415 > > System.Threading.CancellationTokenSource) =
00:00:45 verbose #2416 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:45 verbose #2417 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:45 verbose #2418 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:45 verbose #2419 > > return v20
00:00:45 verbose #2420 > > }
00:00:45 verbose #2421 > > |> fun x -> _v13 <- Some x
00:00:45 verbose #2422 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:45 verbose #2423 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:45 verbose #2424 > > v21
00:00:45 verbose #2425 > > #endif
00:00:45 verbose #2426 > > |> fun x -> _v7 <- Some x
00:00:45 verbose #2427 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:45 verbose #2428 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:45 verbose #2429 > > v22
00:00:45 verbose #2430 > > #endif
00:00:45 verbose #2431 > > |> fun x -> _v1 <- Some x
00:00:45 verbose #2432 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:45 verbose #2433 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:45 verbose #2434 > > v23
00:00:45 verbose #2435 > > let v0 : (System.Threading.CancellationToken ->
00:00:45 verbose #2436 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:45 verbose #2437 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:45 verbose #2438 > > ()
00:00:45 verbose #2439 > >
00:00:46 verbose #2440 > >
00:00:46 verbose #2441 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:46 verbose #2442 > > #if FABLE_COMPILER
00:00:46 verbose #2443 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:46 verbose #2444 > > #endif
00:00:46 verbose #2445 > > type std_thread_JoinHandle<'T> = class end
00:00:46 verbose #2446 > > #if FABLE_COMPILER
00:00:46 verbose #2447 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:46 verbose #2448 > > #endif
00:00:46 verbose #2449 > > type std_sync_Arc<'T> = class end
00:00:46 verbose #2450 > > #if FABLE_COMPILER
00:00:46 verbose #2451 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:46 verbose #2452 > > #endif
00:00:46 verbose #2453 > > type std_sync_Mutex<'T> = class end
00:00:46 verbose #2454 > > #if FABLE_COMPILER
00:00:46 verbose #2455 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:46 verbose #2456 > > #endif
00:00:46 verbose #2457 > > type std_sync_MutexGuard<'T> = class end
00:00:46 verbose #2458 > > #if FABLE_COMPILER
00:00:46 verbose #2459 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:46 verbose #2460 > > #endif
00:00:46 verbose #2461 > > type std_sync_PoisonError<'T> = class end
00:00:46 verbose #2462 > > #if FABLE_COMPILER
00:00:46 verbose #2463 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:46 verbose #2464 > > #endif
00:00:46 verbose #2465 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:46 verbose #2466 > > #if FABLE_COMPILER
00:00:46 verbose #2467 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:46 verbose #2468 > > #endif
00:00:46 verbose #2469 > > type std_sync_mpsc_SendError<'T> = class end
00:00:46 verbose #2470 > > #if FABLE_COMPILER
00:00:46 verbose #2471 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:46 verbose #2472 > > #endif
00:00:46 verbose #2473 > > type std_sync_mpsc_Sender<'T> = class end
00:00:46 verbose #2474 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:46 verbose #2475 > > _.Dispose () = f ()
00:00:46 verbose #2476 > > type [[<Struct>]] US0 =
00:00:46 verbose #2477 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:46 verbose #2478 > > | US0_1
00:00:46 verbose #2479 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:46 verbose #2480 > > let v1 : bool = true
00:00:46 verbose #2481 > > let mutable _v1 : unit option = None
00:00:46 verbose #2482 > >
00:00:46 verbose #2483 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:46 verbose #2484 > >
00:00:46 verbose #2485 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:46 verbose #2486 > > "$0()" )
00:00:46 verbose #2487 > > v28
00:00:46 verbose #2488 > > #endif
00:00:46 verbose #2489 > > #if FABLE_COMPILER_RUST && WASM
00:00:46 verbose #2490 > > let v29 : (unit -> unit) = method0(v25)
00:00:46 verbose #2491 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:46 verbose #2492 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:46 verbose #2493 > > v30
00:00:46 verbose #2494 > > #endif
00:00:46 verbose #2495 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:46 verbose #2496 > > let v31 : (unit -> unit) = method0(v25)
00:00:46 verbose #2497 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:46 verbose #2498 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:46 verbose #2499 > > v32
00:00:46 verbose #2500 > > #endif
00:00:46 verbose #2501 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:46 verbose #2502 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:46 verbose #2503 > > v33
00:00:46 verbose #2504 > > #endif
00:00:46 verbose #2505 > > #if FABLE_COMPILER_PYTHON
00:00:46 verbose #2506 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:46 verbose #2507 > > v34
00:00:46 verbose #2508 > > #endif
00:00:46 verbose #2509 > > #else
00:00:46 verbose #2510 > > let v35 : (unit -> unit) = method1(v25)
00:00:46 verbose #2511 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:46 verbose #2512 > > _.Dispose () = v35 () }
00:00:46 verbose #2513 > > v36
00:00:46 verbose #2514 > > #endif
00:00:46 verbose #2515 > > |> fun x -> _v26 <- Some x
00:00:46 verbose #2516 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:46 verbose #2517 > > failwith "base.run_target / _v26=None"
00:00:46 verbose #2518 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:46 verbose #2519 > > struct (v38, v37)
00:00:46 verbose #2520 > > #endif
00:00:46 verbose #2521 > > |> fun x -> _v1 <- Some x
00:00:46 verbose #2522 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:46 verbose #2523 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:46 verbose #2524 > > "base.run_target / _v1=None"
00:00:46 verbose #2525 > > struct (v39, v40)
00:00:46 verbose #2526 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:46 verbose #2527 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:46 verbose #2528 > > let new_disposable_token x = v0 x
00:00:46 verbose #2529 > > ()
00:00:46 verbose #2530 > >
00:00:46 verbose #2531 > >
00:00:46 verbose #2532 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:46 verbose #2533 > > #if FABLE_COMPILER
00:00:46 verbose #2534 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:46 verbose #2535 > > #endif
00:00:46 verbose #2536 > > type reqwest_Error = class end
00:00:46 verbose #2537 > > #if FABLE_COMPILER
00:00:46 verbose #2538 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:46 verbose #2539 > > #endif
00:00:46 verbose #2540 > > type reqwest_RequestBuilder = class end
00:00:46 verbose #2541 > > #if FABLE_COMPILER
00:00:46 verbose #2542 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:46 verbose #2543 > > #endif
00:00:46 verbose #2544 > > type reqwest_Response = class end
00:00:46 verbose #2545 > > #if FABLE_COMPILER
00:00:46 verbose #2546 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:46 verbose #2547 > > #endif
00:00:46 verbose #2548 > > type std_env_VarError = class end
00:00:46 verbose #2549 > > #if FABLE_COMPILER
00:00:46 verbose #2550 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:46 verbose #2551 > > #endif
00:00:46 verbose #2552 > > type core_any_Any = class end
00:00:46 verbose #2553 > > #if FABLE_COMPILER
00:00:46 verbose #2554 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:46 verbose #2555 > > #endif
00:00:46 verbose #2556 > > type core_ops_Try<'T> = class end
00:00:46 verbose #2557 > > #if FABLE_COMPILER
00:00:46 verbose #2558 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:46 verbose #2559 > > #endif
00:00:46 verbose #2560 > > type Func0<'T> = class end
00:00:46 verbose #2561 > > #if FABLE_COMPILER
00:00:46 verbose #2562 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:46 verbose #2563 > > #endif
00:00:46 verbose #2564 > > type Func0<'T, 'U> = class end
00:00:46 verbose #2565 > > #if FABLE_COMPILER
00:00:46 verbose #2566 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:46 verbose #2567 > > #endif
00:00:46 verbose #2568 > > type Box<'T> = class end
00:00:46 verbose #2569 > > #if FABLE_COMPILER
00:00:46 verbose #2570 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:46 verbose #2571 > > #endif
00:00:46 verbose #2572 > > type Dyn<'T> = class end
00:00:46 verbose #2573 > > #if FABLE_COMPILER
00:00:46 verbose #2574 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:46 verbose #2575 > > #endif
00:00:46 verbose #2576 > > type Send<'T> = class end
00:00:46 verbose #2577 > > #if FABLE_COMPILER
00:00:46 verbose #2578 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:46 verbose #2579 > > #endif
00:00:46 verbose #2580 > > type Fn<'T> = class end
00:00:46 verbose #2581 > > #if FABLE_COMPILER
00:00:46 verbose #2582 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:46 verbose #2583 > > #endif
00:00:46 verbose #2584 > > type FnUnit = class end
00:00:46 verbose #2585 > > #if FABLE_COMPILER
00:00:46 verbose #2586 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:46 verbose #2587 > > ... v212 = v212
00:00:46 verbose #2588 > > let v213 : bool = v212
00:00:46 verbose #2589 > > let v214 : bool = v213 = false
00:00:46 verbose #2590 > > if v214 then
00:00:46 verbose #2591 > > return v2
00:00:46 verbose #2592 > > (*
00:00:46 verbose #2593 > > ()
00:00:46 verbose #2594 > > else
00:00:46 verbose #2595 > > *) else
00:00:46 verbose #2596 > > let v215 : int32 = v2 + 1
00:00:46 verbose #2597 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:46 verbose #2598 > > return! v216
00:00:46 verbose #2599 > > (*
00:00:46 verbose #2600 > > ()
00:00:46 verbose #2601 > > *)
00:00:46 verbose #2602 > > }
00:00:46 verbose #2603 > > |> fun x -> _v9 <- Some x
00:00:46 verbose #2604 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:46 verbose #2605 > > "async.new_async_unit / _v9=None"
00:00:46 verbose #2606 > > v217
00:00:46 verbose #2607 > > #endif
00:00:46 verbose #2608 > > |> fun x -> _v3 <- Some x
00:00:46 verbose #2609 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:46 verbose #2610 > > "base.run_target / _v3=None"
00:00:46 verbose #2611 > > v218
00:00:46 verbose #2612 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:46 verbose #2613 > > method10(v0, v1, v2)
00:00:46 verbose #2614 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:46 verbose #2615 > > closure23(v0, v1)
00:00:46 verbose #2616 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:46 verbose #2617 > > closure22(v0)
00:00:46 verbose #2618 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:46 verbose #2619 > > let v1 : US0 = US0_0
00:00:46 verbose #2620 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:46 verbose #2621 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:46 verbose #2622 > > let test_port_open x = v2 x
00:00:46 verbose #2623 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:46 verbose #2624 > > let test_port_open_timeout x = v3 x
00:00:46 verbose #2625 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:46 verbose #2626 > > closure15()
00:00:46 verbose #2627 > > let wait_for_port_access x = v4 x
00:00:46 verbose #2628 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:46 verbose #2629 > > let get_available_port x = v5 x
00:00:46 verbose #2630 > > ()
00:00:46 verbose #2631 > >
00:00:48 verbose #2632 > >
00:00:48 verbose #2633 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:48 verbose #2634 > > type [[<Struct>]] US0 =
00:00:48 verbose #2635 > > | US0_0
00:00:48 verbose #2636 > > | US0_1
00:00:48 verbose #2637 > > | US0_2
00:00:48 verbose #2638 > > and [[<Struct>]] US1 =
00:00:48 verbose #2639 > > | US1_0 of f0_0 : US0
00:00:48 verbose #2640 > > | US1_1 of f1_0 : US0
00:00:48 verbose #2641 > > | US1_2 of f2_0 : US0
00:00:48 verbose #2642 > > | US1_3 of f3_0 : US0
00:00:48 verbose #2643 > > | US1_4 of f4_0 : US0
00:00:48 verbose #2644 > > let rec closure0 () () : bool =
00:00:48 verbose #2645 > > let v0 : bool = true
00:00:48 verbose #2646 > > let mutable _v0 : bool option = None
00:00:48 verbose #2647 > >
00:00:48 verbose #2648 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:48 verbose #2649 > >
00:00:48 verbose #2650 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:48 verbose #2651 > > let v1 : string = "cfg!(windows)"
00:00:48 verbose #2652 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:48 verbose #2653 > > v2
00:00:48 verbose #2654 > > #endif
00:00:48 verbose #2655 > > #if FABLE_COMPILER_RUST && WASM
00:00:48 verbose #2656 > > let v3 : string = "cfg!(windows)"
00:00:48 verbose #2657 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:48 verbose #2658 > > v4
00:00:48 verbose #2659 > > #endif
00:00:48 verbose #2660 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:48 verbose #2661 > > let v5 : string = "cfg!(windows)"
00:00:48 verbose #2662 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:48 verbose #2663 > > v6
00:00:48 verbose #2664 > > #endif
00:00:48 verbose #2665 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:48 verbose #2666 > > let v7 : US0 = US0_0
00:00:48 verbose #2667 > > let v8 : US1 = US1_3(v7)
00:00:48 verbose #2668 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:48 verbose #2669 > > let v10 : bool = failwith<bool> v9
00:00:48 verbose #2670 > > v10
00:00:48 verbose #2671 > > #endif
00:00:48 verbose #2672 > > #if FABLE_COMPILER_PYTHON
00:00:48 verbose #2673 > > let v11 : US0 = US0_0
00:00:48 verbose #2674 > > let v12 : US1 = US1_4(v11)
00:00:48 verbose #2675 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:48 verbose #2676 > > let v14 : bool = failwith<bool> v13
00:00:48 verbose #2677 > > v14
00:00:48 verbose #2678 > > #endif
00:00:48 verbose #2679 > > #else
00:00:48 verbose #2680 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:48 verbose #2681 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:48 verbose #2682 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:48 verbose #2683 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:48 verbose #2684 > > let v17 : b...: string = "cfg!(windows)"
00:00:48 verbose #2685 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:48 verbose #2686 > > v2
00:00:48 verbose #2687 > > #endif
00:00:48 verbose #2688 > > #if FABLE_COMPILER_RUST && WASM
00:00:48 verbose #2689 > > let v3 : string = "cfg!(windows)"
00:00:48 verbose #2690 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:48 verbose #2691 > > v4
00:00:48 verbose #2692 > > #endif
00:00:48 verbose #2693 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:48 verbose #2694 > > let v5 : string = "cfg!(windows)"
00:00:48 verbose #2695 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:48 verbose #2696 > > v6
00:00:48 verbose #2697 > > #endif
00:00:48 verbose #2698 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:48 verbose #2699 > > let v7 : US0 = US0_0
00:00:48 verbose #2700 > > let v8 : US1 = US1_3(v7)
00:00:48 verbose #2701 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:48 verbose #2702 > > let v10 : bool = failwith<bool> v9
00:00:48 verbose #2703 > > v10
00:00:48 verbose #2704 > > #endif
00:00:48 verbose #2705 > > #if FABLE_COMPILER_PYTHON
00:00:48 verbose #2706 > > let v11 : US0 = US0_0
00:00:48 verbose #2707 > > let v12 : US1 = US1_4(v11)
00:00:48 verbose #2708 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:48 verbose #2709 > > let v14 : bool = failwith<bool> v13
00:00:48 verbose #2710 > > v14
00:00:48 verbose #2711 > > #endif
00:00:48 verbose #2712 > > #else
00:00:48 verbose #2713 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:48 verbose #2714 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:48 verbose #2715 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:48 verbose #2716 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:48 verbose #2717 > > let v17 : bool = v16 v15
00:00:48 verbose #2718 > > v17
00:00:48 verbose #2719 > > #endif
00:00:48 verbose #2720 > > |> fun x -> _v0 <- Some x
00:00:48 verbose #2721 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:48 verbose #2722 > > "base.run_target / _v0=None"
00:00:48 verbose #2723 > > if v18 then
00:00:48 verbose #2724 > > let v19 : string = ".exe"
00:00:48 verbose #2725 > > v19
00:00:48 verbose #2726 > > else
00:00:48 verbose #2727 > > let v20 : string = ""
00:00:48 verbose #2728 > > v20
00:00:48 verbose #2729 > > let v0 : (unit -> bool) = closure0()
00:00:48 verbose #2730 > > let is_windows () = v0 ()
00:00:48 verbose #2731 > > let v1 : (unit -> string) = closure1()
00:00:48 verbose #2732 > > let get_executable_suffix () = v1 ()
00:00:48 verbose #2733 > > ()
00:00:48 verbose #2734 > >
00:00:48 verbose #2735 > >
00:00:48 verbose #2736 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:48 verbose #2737 > > #if FABLE_COMPILER
00:00:48 verbose #2738 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:48 verbose #2739 > > #endif
00:00:48 verbose #2740 > > type clap_Arg = class end
00:00:48 verbose #2741 > > #if FABLE_COMPILER
00:00:48 verbose #2742 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:48 verbose #2743 > > #endif
00:00:48 verbose #2744 > > type clap_ArgAction = class end
00:00:48 verbose #2745 > > #if FABLE_COMPILER
00:00:48 verbose #2746 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:48 verbose #2747 > > #endif
00:00:48 verbose #2748 > > type clap_Command = class end
00:00:48 verbose #2749 > > #if FABLE_COMPILER
00:00:48 verbose #2750 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:48 verbose #2751 > > #endif
00:00:48 verbose #2752 > > type clap_ArgMatches = class end
00:00:48 verbose #2753 > > #if FABLE_COMPILER
00:00:48 verbose #2754 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:48 verbose #2755 > > #endif
00:00:48 verbose #2756 > > type clap_builder_ValueRange = class end
00:00:48 verbose #2757 > > #if FABLE_COMPILER
00:00:48 verbose #2758 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:48 verbose #2759 > > #endif
00:00:48 verbose #2760 > > type clap_builder_ValueParser = class end
00:00:48 verbose #2761 > > #if FABLE_COMPILER
00:00:48 verbose #2762 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:48 verbose #2763 > > #endif
00:00:48 verbose #2764 > > type clap_builder_PossibleValue = class end
00:00:48 verbose #2765 > > #if FABLE_COMPILER
00:00:48 verbose #2766 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:48 verbose #2767 > > #endif
00:00:48 verbose #2768 > > type std_process_Child = class end
00:00:48 verbose #2769 > > #if FABLE_COMPILER
00:00:48 verbose #2770 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:48 verbose #2771 > > #endif
00:00:48 verbose #2772 > > type std_process_ChildStderr = class end
00:00:48 verbose #2773 > > #if FABLE_COMPILER
00:00:48 verbose #2774 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:48 verbose #2775 > > #endif
00:00:48 verbose #2776 > > type std_process_ChildStdout = class end
00:00:48 verbose #2777 > > #if FABLE_COMPILER
00:00:48 verbose #2778 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:48 verbose #2779 > > #endif
00:00:48 verbose #2780 > > type std_process_ChildStdin = class end
00:00:48 verbose #2781 > > #if FABLE_COMPILER
00:00:48 verbose #2782 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:48 verbose #2783 > > #endif
00:00:48 verbose #2784 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:00:48 verbose #2785 > > List.toArray
00:00:48 verbose #2786 > > let v20 : (string [[]]) = v19 v18
00:00:48 verbose #2787 > > US8_0(v20)
00:00:48 verbose #2788 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:00:48 verbose #2789 > > let v1 : US8 = method16(v0)
00:00:48 verbose #2790 > > match v1 with
00:00:48 verbose #2791 > > | US8_1(v4) -> (* Error *)
00:00:48 verbose #2792 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:48 verbose #2793 > > v5
00:00:48 verbose #2794 > > | US8_0(v2) -> (* Ok *)
00:00:48 verbose #2795 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:48 verbose #2796 > > v3
00:00:48 verbose #2797 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:48 verbose #2798 > > let v1 : US0 = US0_0
00:00:48 verbose #2799 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:48 verbose #2800 > > let v2 : (unit -> unit) = closure2()
00:00:48 verbose #2801 > > let current_process_kill () = v2 ()
00:00:48 verbose #2802 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:00:48 verbose #2803 > > let execute_async x = v3 x
00:00:48 verbose #2804 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:48 verbose #2805 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:48 verbose #2806 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:48 verbose #2807 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:00:48 verbose #2808 > > let execute_with_options_async x = v4 x
00:00:48 verbose #2809 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:48 verbose #2810 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:48 verbose #2811 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:48 verbose #2812 > > unit) option * bool * string option)) = closure20()
00:00:48 verbose #2813 > > let execution_options x = v5 x
00:00:48 verbose #2814 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:00:48 verbose #2815 > > let split_args x = v6 x
00:00:48 verbose #2816 > > ()
00:00:48 verbose #2817 > >
00:00:50 verbose #2818 > >
00:00:50 verbose #2819 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:50 verbose #2820 > > #if FABLE_COMPILER
00:00:50 verbose #2821 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:50 verbose #2822 > > #endif
00:00:50 verbose #2823 > > type std_fs_File = class end
00:00:50 verbose #2824 > > #if FABLE_COMPILER
00:00:50 verbose #2825 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:50 verbose #2826 > > #endif
00:00:50 verbose #2827 > > type std_fs_FileType = class end
00:00:50 verbose #2828 > > #if FABLE_COMPILER
00:00:50 verbose #2829 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:50 verbose #2830 > > #endif
00:00:50 verbose #2831 > > type std_path_Display = class end
00:00:50 verbose #2832 > > #if FABLE_COMPILER
00:00:50 verbose #2833 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:50 verbose #2834 > > #endif
00:00:50 verbose #2835 > > type std_path_Path = class end
00:00:50 verbose #2836 > > #if FABLE_COMPILER
00:00:50 verbose #2837 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:50 verbose #2838 > > #endif
00:00:50 verbose #2839 > > type std_path_PathBuf = class end
00:00:50 verbose #2840 > > #if FABLE_COMPILER
00:00:50 verbose #2841 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:50 verbose #2842 > > #endif
00:00:50 verbose #2843 > > type async_walkdir_DirEntry = class end
00:00:50 verbose #2844 > > #if FABLE_COMPILER
00:00:50 verbose #2845 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:50 verbose #2846 > > #endif
00:00:50 verbose #2847 > > type async_walkdir_Filtering = class end
00:00:50 verbose #2848 > > #if FABLE_COMPILER
00:00:50 verbose #2849 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:50 verbose #2850 > > #endif
00:00:50 verbose #2851 > > type async_walkdir_WalkDir = class end
00:00:50 verbose #2852 > > #if FABLE_COMPILER
00:00:50 verbose #2853 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:50 verbose #2854 > > #endif
00:00:50 verbose #2855 > > type core_any_Any = class end
00:00:50 verbose #2856 > > #if FABLE_COMPILER
00:00:50 verbose #2857 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:50 verbose #2858 > > #endif
00:00:50 verbose #2859 > > type core_ops_Try<'T> = class end
00:00:50 verbose #2860 > > #if FABLE_COMPILER
00:00:50 verbose #2861 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:50 verbose #2862 > > #endif
00:00:50 verbose #2863 > > type Func0<'T> = class end
00:00:50 verbose #2864 > > #if FABLE_COMPILER
00:00:50 verbose #2865 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:50 verbose #2866 > > #endif
00:00:50 verbose #2867 > > type Func0<'T, 'U> = class end
00:00:50 verbose #2868 > > #if FABLE_COMPILER
00:00:50 verbose #2869 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:50 verbose #2870 > > #endif
00:00:50 verbose #2871 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:00:50 verbose #2872 > > let wait_for_file_access x = v3 x
00:00:50 verbose #2873 > > let v4 : (string -> Async<int64>) = closure12()
00:00:50 verbose #2874 > > let wait_for_file_access_read x = v4 x
00:00:50 verbose #2875 > > let v5 : (string -> Async<string>) = closure13()
00:00:50 verbose #2876 > > let read_all_text_async x = v5 x
00:00:50 verbose #2877 > > let v6 : (string -> (string -> bool)) = closure14()
00:00:50 verbose #2878 > > let file_exists_content x = v6 x
00:00:50 verbose #2879 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:50 verbose #2880 > > let write_all_text_async x = v7 x
00:00:50 verbose #2881 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:50 verbose #2882 > > let write_all_text_exists x = v8 x
00:00:50 verbose #2883 > > let v9 : (string -> Async<int64>) = closure20()
00:00:50 verbose #2884 > > let delete_file_async x = v9 x
00:00:50 verbose #2885 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:50 verbose #2886 > > let move_file_async x = v10 x
00:00:50 verbose #2887 > > let v11 : (string -> Async<string option>) = closure27()
00:00:50 verbose #2888 > > let read_all_text_retry_async x = v11 x
00:00:50 verbose #2889 > > let v12 : (unit -> string) = closure35()
00:00:50 verbose #2890 > > let create_temp_path () = v12 ()
00:00:50 verbose #2891 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:50 verbose #2892 > > let create_temp_dir () = v13 ()
00:00:50 verbose #2893 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:50 verbose #2894 > > let create_temp_dir' x = v14 x
00:00:50 verbose #2895 > > let v15 : (unit -> string) = closure49()
00:00:50 verbose #2896 > > let get_source_directory () = v15 ()
00:00:50 verbose #2897 > > let v16 : (string -> string) = closure50()
00:00:50 verbose #2898 > > let normalize_path x = v16 x
00:00:50 verbose #2899 > > let v17 : (string -> string) = closure51()
00:00:50 verbose #2900 > > let new_file_uri x = v17 x
00:00:50 verbose #2901 > > let v18 : (unit -> string) = closure52()
00:00:50 verbose #2902 > > let get_workspace_root () = v18 ()
00:00:50 verbose #2903 > > let v19 : (bool -> unit) = closure56()
00:00:50 verbose #2904 > > let init_trace_file x = v19 x
00:00:50 verbose #2905 > > let v20 : (string -> (string -> string)) = closure58()
00:00:50 verbose #2906 > > let (</>) x = v20 x
00:00:50 verbose #2907 > > ()
00:00:50 verbose #2908 > >
00:00:53 verbose #2909 > >
00:00:53 verbose #2910 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:53 verbose #2911 > > #if FABLE_COMPILER
00:00:53 verbose #2912 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:53 verbose #2913 > > #endif
00:00:53 verbose #2914 > > type core_any_Any = class end
00:00:53 verbose #2915 > > #if FABLE_COMPILER
00:00:53 verbose #2916 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:53 verbose #2917 > > #endif
00:00:53 verbose #2918 > > type core_ops_Try<'T> = class end
00:00:53 verbose #2919 > > #if FABLE_COMPILER
00:00:53 verbose #2920 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:53 verbose #2921 > > #endif
00:00:53 verbose #2922 > > type Func0<'T> = class end
00:00:53 verbose #2923 > > #if FABLE_COMPILER
00:00:53 verbose #2924 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:53 verbose #2925 > > #endif
00:00:53 verbose #2926 > > type Func0<'T, 'U> = class end
00:00:53 verbose #2927 > > #if FABLE_COMPILER
00:00:53 verbose #2928 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:53 verbose #2929 > > #endif
00:00:53 verbose #2930 > > type Box<'T> = class end
00:00:53 verbose #2931 > > #if FABLE_COMPILER
00:00:53 verbose #2932 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:53 verbose #2933 > > #endif
00:00:53 verbose #2934 > > type Dyn<'T> = class end
00:00:53 verbose #2935 > > #if FABLE_COMPILER
00:00:53 verbose #2936 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:53 verbose #2937 > > #endif
00:00:53 verbose #2938 > > type Send<'T> = class end
00:00:53 verbose #2939 > > #if FABLE_COMPILER
00:00:53 verbose #2940 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:53 verbose #2941 > > #endif
00:00:53 verbose #2942 > > type Fn<'T> = class end
00:00:53 verbose #2943 > > #if FABLE_COMPILER
00:00:53 verbose #2944 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:53 verbose #2945 > > #endif
00:00:53 verbose #2946 > > type FnUnit = class end
00:00:53 verbose #2947 > > #if FABLE_COMPILER
00:00:53 verbose #2948 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:53 verbose #2949 > > #endif
00:00:53 verbose #2950 > > type FnOnce<'T> = class end
00:00:53 verbose #2951 > > #if FABLE_COMPILER
00:00:53 verbose #2952 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:53 verbose #2953 > > #endif
00:00:53 verbose #2954 > > type ActionFn<'T> = class end
00:00:53 verbose #2955 > > #if FABLE_COMPILER
00:00:53 verbose #2956 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:53 verbose #2957 > > #endif
00:00:53 verbose #2958 > > type ActionFn2<'T, 'U> = class end
00:00:53 verbose #2959 > > #if FABLE_COMPILER
00:00:53 verbose #2960 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:53 verbose #2961 > > #endif
00:00:53 verbose #2962 > > type Impl<'T> = class end
00:00:53 verbose #2963 > > #if FABLE_COMPILER
00:00:53 verbose #2964 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:53 verbose #2965 > > #endif
00:00:53 verbose #2966 > > type Mut<'T> = class end
00:00:53 verbose #2967 > > #if FABLE_COMPILER
00:00:53 verbose #2968 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:53 verbose #2969 > > #if FABLE_COMPILER_RUST && WASM
00:00:53 verbose #2970 > > let v27 : string = @"println!(""{}"", $0)"
00:00:53 verbose #2971 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:53 verbose #2972 > > ()
00:00:53 verbose #2973 > > #endif
00:00:53 verbose #2974 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:53 verbose #2975 > > let v28 : string = @"println!(""{}"", $0)"
00:00:53 verbose #2976 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:53 verbose #2977 > > ()
00:00:53 verbose #2978 > > #endif
00:00:53 verbose #2979 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:53 verbose #2980 > > System.Console.WriteLine v24
00:00:53 verbose #2981 > > ()
00:00:53 verbose #2982 > > #endif
00:00:53 verbose #2983 > > #if FABLE_COMPILER_PYTHON
00:00:53 verbose #2984 > > System.Console.WriteLine v24
00:00:53 verbose #2985 > > ()
00:00:53 verbose #2986 > > #endif
00:00:53 verbose #2987 > > #else
00:00:53 verbose #2988 > > System.Console.WriteLine v24
00:00:53 verbose #2989 > > ()
00:00:53 verbose #2990 > > #endif
00:00:53 verbose #2991 > > |> fun x -> _v25 <- Some x
00:00:53 verbose #2992 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:53 verbose #2993 > > _v25=None"
00:00:53 verbose #2994 > > let v29 : (string -> unit) = v8.l0
00:00:53 verbose #2995 > > v29 v24
00:00:53 verbose #2996 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:53 verbose #2997 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:53 verbose #2998 > > method8(v0, v3)
00:00:53 verbose #2999 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:53 verbose #3000 > > method4(v0, v1, v2)
00:00:53 verbose #3001 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:53 verbose #3002 > > closure4(v0, v1)
00:00:53 verbose #3003 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:53 verbose #3004 > > closure3(v0)
00:00:53 verbose #3005 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:53 verbose #3006 > > let v1 : US0 = US0_0
00:00:53 verbose #3007 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:53 verbose #3008 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:53 verbose #3009 > > let trace x = v2 x
00:00:53 verbose #3010 > > ()
00:00:53 verbose #3011 > >
00:00:54 verbose #3012 > >
00:00:54 verbose #3013 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:54 verbose #3014 > > module SpiralTrace =
00:00:54 verbose #3015 > > let trace x =
00:00:54 verbose #3016 > > #if !INTERACTIVE
00:00:54 verbose #3017 > > Trace.trace x
00:00:54 verbose #3018 > > #else
00:00:54 verbose #3019 > > trace x
00:00:54 verbose #3020 > > #endif
00:00:54 verbose #3021 > >
00:00:54 verbose #3022 > > type TraceLevel =
00:00:54 verbose #3023 > > #if !INTERACTIVE
00:00:54 verbose #3024 > > Trace.US0
00:00:54 verbose #3025 > > #else
00:00:54 verbose #3026 > > US0
00:00:54 verbose #3027 > > #endif
00:00:54 verbose #3028 > >
00:00:54 verbose #3029 > > module SpiralCrypto =
00:00:54 verbose #3030 > > let hash_text x =
00:00:54 verbose #3031 > > #if !INTERACTIVE
00:00:54 verbose #3032 > > Crypto.hash_text x
00:00:54 verbose #3033 > > #else
00:00:54 verbose #3034 > > hash_text x
00:00:54 verbose #3035 > > #endif
00:00:54 verbose #3036 > >
00:00:54 verbose #3037 > > let hash_to_port x =
00:00:54 verbose #3038 > > #if !INTERACTIVE
00:00:54 verbose #3039 > > Crypto.hash_to_port x
00:00:54 verbose #3040 > > #else
00:00:54 verbose #3041 > > hash_to_port x
00:00:54 verbose #3042 > > #endif
00:00:54 verbose #3043 > >
00:00:54 verbose #3044 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:54 verbose #3045 > >
00:00:54 verbose #3046 > > module SpiralAsync =
00:00:54 verbose #3047 > > let merge_cancellation_token_with_default_async x =
00:00:54 verbose #3048 > > #if !INTERACTIVE
00:00:54 verbose #3049 > > Async_.merge_cancellation_token_with_default_async x
00:00:54 verbose #3050 > > #else
00:00:54 verbose #3051 > > merge_cancellation_token_with_default_async x
00:00:54 verbose #3052 > > #endif
00:00:54 verbose #3053 > >
00:00:54 verbose #3054 > > module SpiralThreading =
00:00:54 verbose #3055 > > let new_disposable_token x =
00:00:54 verbose #3056 > > #if !INTERACTIVE
00:00:54 verbose #3057 > > Threading.new_disposable_token x
00:00:54 verbose #3058 > > #else
00:00:54 verbose #3059 > > new_disposable_token x
00:00:54 verbose #3060 > > #endif
00:00:54 verbose #3061 > >
00:00:54 verbose #3062 > > module SpiralNetworking =
00:00:54 verbose #3063 > > let test_port_open x =
00:00:54 verbose #3064 > > #if !INTERACTIVE
00:00:54 verbose #3065 > > Networking.test_port_open x
00:00:54 verbose #3066 > > #else
00:00:54 verbose #3067 > > test_port_open x
00:00:54 verbose #3068 > > #endif
00:00:54 verbose #3069 > >
00:00:54 verbose #3070 > > let test_port_open_timeout x =
00:00:54 verbose #3071 > > #if !INTERACTIVE
00:00:54 verbose #3072 > > Networking.test_port_open_timeout x
00:00:54 verbose #3073 > > #else
00:00:54 verbose #3074 > > test_port_open_timeout x
00:00:54 verbose #3075 > > #endif
00:00:54 verbose #3076 > >
00:00:54 verbose #3077 > > let wait_for_port_access x =
00:00:54 verbose #3078 > > #if !INTERACTIVE
00:00:54 verbose #3079 > > Networking.wait_for_port_access x
00:00:54 verbose #3080 > > #else
00:00:54 verbose #3081 > > wait_for_port_access x
00:00:54 verbose #3082 > > #endif
00:00:54 verbose #3083 > >
00:00:54 verbose #3084 > > let get_available_port x =
00:00:54 verbose #3085 > > #if !INTERACTIVE
00:00:54 verbose #3086 > > Networking.get_available_port x
00:00:54 verbose #3087 > > #else
00:00:54 verbose #3088 > > get_available_port x
00:00:54 verbose #3089 > > #endif
00:00:54 verbose #3090 > >
00:00:54 verbose #3091 > > module SpiralPlatform =
00:00:54 verbose #3092 > > let get_executable_suffix () =
00:00:54 verbose #3093 > > #if !INTERACTIVE
00:00:54 verbose #3094 > > Platform.g...e.trace_state
00:00:54 verbose #3095 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:54 verbose #3096 > > level.l0 <-
00:00:54 verbose #3097 > > match new_level with
00:00:54 verbose #3098 > > | Trace.US0_0 -> File_system.US0_0
00:00:54 verbose #3099 > > | Trace.US0_1 -> File_system.US0_1
00:00:54 verbose #3100 > > | Trace.US0_2 -> File_system.US0_2
00:00:54 verbose #3101 > > | Trace.US0_3 -> File_system.US0_3
00:00:54 verbose #3102 > > | Trace.US0_4 -> File_system.US0_4
00:00:54 verbose #3103 > > )
00:00:54 verbose #3104 > >
00:00:54 verbose #3105 > > Runtime.State.trace_state
00:00:54 verbose #3106 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:54 verbose #3107 > > level.l0 <-
00:00:54 verbose #3108 > > match new_level with
00:00:54 verbose #3109 > > | Trace.US0_0 -> Runtime.US0_0
00:00:54 verbose #3110 > > | Trace.US0_1 -> Runtime.US0_1
00:00:54 verbose #3111 > > | Trace.US0_2 -> Runtime.US0_2
00:00:54 verbose #3112 > > | Trace.US0_3 -> Runtime.US0_3
00:00:54 verbose #3113 > > | Trace.US0_4 -> Runtime.US0_4
00:00:54 verbose #3114 > > )
00:00:54 verbose #3115 > >
00:00:54 verbose #3116 > > Common.State.trace_state
00:00:54 verbose #3117 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:54 verbose #3118 > > level.l0 <-
00:00:54 verbose #3119 > > match new_level with
00:00:54 verbose #3120 > > | Trace.US0_0 -> Common.US0_0
00:00:54 verbose #3121 > > | Trace.US0_1 -> Common.US0_1
00:00:54 verbose #3122 > > | Trace.US0_2 -> Common.US0_2
00:00:54 verbose #3123 > > | Trace.US0_3 -> Common.US0_3
00:00:54 verbose #3124 > > | Trace.US0_4 -> Common.US0_4
00:00:54 verbose #3125 > > )
00:00:54 verbose #3126 > >
00:00:54 verbose #3127 > > Trace.State.trace_state
00:00:54 verbose #3128 > > #else
00:00:54 verbose #3129 > > State.trace_state
00:00:54 verbose #3130 > > #endif
00:00:54 verbose #3131 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:54 verbose #3132 > > level.l0 <- new_level
00:00:54 verbose #3133 > > )
00:00:54 verbose #3134 > >
00:00:54 verbose #3135 > > let get_trace_level () =
00:00:54 verbose #3136 > > #if !INTERACTIVE
00:00:54 verbose #3137 > > Trace.State.trace_state
00:00:54 verbose #3138 > > #else
00:00:54 verbose #3139 > > State.trace_state
00:00:54 verbose #3140 > > #endif
00:00:54 verbose #3141 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:54 verbose #3142 > > level.l0
00:00:54 verbose #3143 > > )
00:00:54 verbose #3144 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:54 verbose #3145 > > trace_state=None")
00:00:54 verbose #3146 > >
00:00:54 verbose #3147 > >
00:00:54 verbose #3148 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:54 verbose #3149 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:54 verbose #3150 > >
00:00:54 verbose #3151 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:54 verbose #3152 > > //// test
00:00:54 verbose #3153 > >
00:00:54 verbose #3154 > > type AssertExceptionFormatter (ex) =
00:00:54 verbose #3155 > > member _.Text =
00:00:54 verbose #3156 > > ex.ToString()
00:00:54 verbose #3157 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:54 verbose #3158 > > .Replace("36m", "</span>")
00:00:54 verbose #3159 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:54 verbose #3160 > > .Replace("\n", "<br/>\n")
00:00:54 verbose #3161 > >
00:00:54 verbose #3162 > >
00:00:54 verbose #3163 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:54 verbose #3164 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:54 verbose #3165 > >
00:00:54 verbose #3166 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:54 verbose #3167 > > //// test
00:00:54 verbose #3168 > >
00:00:54 verbose #3169 > > let inline __expect fn log expected actual =
00:00:54 verbose #3170 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:54 verbose #3171 > > try
00:00:54 verbose #3172 > > "Testing.__expect" |> fn actual expected
00:00:54 verbose #3173 > > with :? Expecto.AssertException as ex ->
00:00:54 verbose #3174 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:54 verbose #3175 > > failwith (ex.GetType().FullName)
00:00:54 verbose #3176 > >
00:00:54 verbose #3177 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:54 verbose #3178 > > expected actual
00:00:54 verbose #3179 > > let inline _contains expected actual = __contains true expected actual
00:00:54 verbose #3180 > >
00:00:54 verbose #3181 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:54 verbose #3182 > > expected actual
00:00:54 verbose #3183 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:54 verbose #3184 > >
00:00:54 verbose #3185 > > let inline __isGreaterThan log expected actual = __expect
00:00:54 verbose #3186 > > Expecto.Expect.isGreaterThan log expected actual
00:00:54 verbose #3187 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:54 verbose #3188 > >
00:00:54 verbose #3189 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:54 verbose #3190 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:54 verbose #3191 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:54 verbose #3192 > > expected actual
00:00:54 verbose #3193 > >
00:00:54 verbose #3194 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:54 verbose #3195 > > log expected actual
00:00:54 verbose #3196 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:54 verbose #3197 > >
00:00:54 verbose #3198 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:54 verbose #3199 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:54 verbose #3200 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:54 verbose #3201 > > expected actual
00:00:54 verbose #3202 > >
00:00:54 verbose #3203 > > let inline __sequenceEqual log expected actual = __expect
00:00:54 verbose #3204 > > Expecto.Expect.sequenceEqual log expected actual
00:00:54 verbose #3205 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:54 verbose #3206 > >
00:00:54 verbose #3207 > > let inline __stringContains log expected actual = __expect
00:00:54 verbose #3208 > > Expecto.Expect.stringContains log expected actual
00:00:54 verbose #3209 > > let inline _stringContains expected actual = __stringContains true expected
00:00:54 verbose #3210 > > actual
00:00:54 verbose #3211 > >
00:00:54 verbose #3212 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:54 verbose #3213 > > log expected actual
00:00:54 verbose #3214 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:54 verbose #3215 > >
00:00:54 verbose #3216 > > let inline __stringStarts log expected actual = __expect
00:00:54 verbose #3217 > > Expecto.Expect.stringStarts log expected actual
00:00:54 verbose #3218 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:54 verbose #3219 > >
00:00:54 verbose #3220 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:54 verbose #3221 > > expected actual
00:00:54 verbose #3222 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:54 verbose #3223 > >
00:00:54 verbose #3224 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:54 verbose #3225 > > //// test
00:00:54 verbose #3226 > >
00:00:54 verbose #3227 > > let inline __isBetween log a b actual =
00:00:54 verbose #3228 > > let inline isBetween actual (a, b) _ =
00:00:54 verbose #3229 > > __isGreaterThanOrEqual log a actual
00:00:54 verbose #3230 > > __isLessThanOrEqual log b actual
00:00:54 verbose #3231 > > __expect isBetween log (a, b) actual
00:00:54 verbose #3232 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:55 verbose #3233 > >
00:00:55 verbose #3234 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:55 verbose #3235 > > #r
00:00:55 verbose #3236 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:00:55 verbose #3237 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:00:55 verbose #3238 > > #r
00:00:55 verbose #3239 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:00:55 verbose #3240 > > 0/System.Reactive.dll"
00:00:55 verbose #3241 > > #r
00:00:55 verbose #3242 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:00:55 verbose #3243 > > netstandard2.0/System.Reactive.Linq.dll"
00:00:55 verbose #3244 > >
00:00:55 verbose #3245 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:55 verbose #3246 > > #!import ../../lib/fsharp/Common.fs
00:00:55 verbose #3247 > > #!import ../../lib/fsharp/Async.fs
00:00:55 verbose #3248 > >
00:00:55 verbose #3249 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 verbose #3250 > > #if !INTERACTIVE
00:00:55 verbose #3251 > > namespace Polyglot
00:00:55 verbose #3252 > > #endif
00:00:55 verbose #3253 > >
00:00:55 verbose #3254 > > module Common =
00:00:55 verbose #3255 > >
00:00:55 verbose #3256 > > #if !INTERACTIVE
00:00:55 verbose #3257 > > open Lib
00:00:55 verbose #3258 > > #endif
00:00:55 verbose #3259 > >
00:00:55 verbose #3260 > > let nl = System.Environment.NewLine
00:00:55 verbose #3261 > > let q = @""""
00:00:55 verbose #3262 > >
00:00:55 verbose #3263 > > let inline cons head tail = head :: tail
00:00:55 verbose #3264 > >
00:00:55 verbose #3265 > > /// ## memoize
00:00:55 verbose #3266 > > let inline memoize fn =
00:00:55 verbose #3267 > > let result = lazy fn ()
00:00:55 verbose #3268 > > fun () -> result.Value
00:00:55 verbose #3269 > >
00:00:55 verbose #3270 > > /// ## TraceLevel
00:00:55 verbose #3271 > > type TraceLevel =
00:00:55 verbose #3272 > > | Verbose
00:00:55 verbose #3273 > > | Debug
00:00:55 verbose #3274 > > | Info
00:00:55 verbose #3275 > > | Warning
00:00:55 verbose #3276 > > | Critical
00:00:55 verbose #3277 > >
00:00:55 verbose #3278 > > let inline _locals () = ""
00:00:55 verbose #3279 > >
00:00:55 verbose #3280 > > /// ## trace
00:00:55 verbose #3281 > > let to_trace_level = function
00:00:55 verbose #3282 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:55 verbose #3283 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:55 verbose #3284 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:55 verbose #3285 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:55 verbose #3286 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:00:55 verbose #3287 > >
00:00:55 verbose #3288 > > let trace level fn locals =
00:00:55 verbose #3289 > > let level = level |> to_trace_level
00:00:55 verbose #3290 > > SpiralTrace.trace level fn locals
00:00:55 verbose #3291 > >
00:00:55 verbose #3292 > >
00:00:55 verbose #3293 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 verbose #3294 > > #if !INTERACTIVE
00:00:55 verbose #3295 > > namespace Polyglot
00:00:55 verbose #3296 > > #endif
00:00:55 verbose #3297 > >
00:00:55 verbose #3298 > > module Async =
00:00:55 verbose #3299 > >
00:00:55 verbose #3300 > > #if !INTERACTIVE
00:00:55 verbose #3301 > > open Lib
00:00:55 verbose #3302 > > #endif
00:00:55 verbose #3303 > >
00:00:55 verbose #3304 > > open Common
00:00:55 verbose #3305 > >
00:00:55 verbose #3306 > > /// ## choice
00:00:55 verbose #3307 > > let inline choice asyncs = async {
00:00:55 verbose #3308 > > let e = Event<_> ()
00:00:55 verbose #3309 > > use cts = new System.Threading.CancellationTokenSource ()
00:00:55 verbose #3310 > > let fn =
00:00:55 verbose #3311 > > asyncs
00:00:55 verbose #3312 > > |> Seq.map (fun a -> async {
00:00:55 verbose #3313 > > let! x = a
00:00:55 verbose #3314 > > e.Trigger x
00:00:55 verbose #3315 > > })
00:00:55 verbose #3316 > > |> Async.Parallel
00:00:55 verbose #3317 > > |> Async.Ignore
00:00:55 verbose #3318 > > Async.Start (fn, cts.Token)
00:00:55 verbose #3319 > > let! result = Async.AwaitEvent e.Publish
00:00:55 verbose #3320 > > cts.Cancel ()
00:00:55 verbose #3321 > > return result
00:00:55 verbose #3322 > > }
00:00:55 verbose #3323 > >
00:00:55 verbose #3324 > > /// ## map
00:00:55 verbose #3325 > > let inline map fn a = async {
00:00:55 verbose #3326 > > let! x = a
00:00:55 verbose #3327 > > return fn x
00:00:55 verbose #3328 > > }
00:00:55 verbose #3329 > >
00:00:55 verbose #3330 > > /// ## catch
00:00:55 verbose #3331 > > let inline catch a =
00:00:55 verbose #3332 > > a
00:00:55 verbose #3333 > > |> Async.Catch
00:00:55 verbose #3334 > > |> map (function
00:00:55 verbose #3335 > > | Choice1Of2 result -> Ok result
00:00:55 verbose #3336 > > | Choice2Of2 ex -> Error ex
00:00:55 verbose #3337 > > )
00:00:55 verbose #3338 > >
00:00:55 verbose #3339 > > /// ## runWithTimeoutChoiceAsync
00:00:55 verbose #3340 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:00:55 verbose #3341 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:55 verbose #3342 > >
00:00:55 verbose #3343 > > let timeoutTask = async {
00:00:55 verbose #3344 > > do! Async.Sleep timeout
00:00:55 verbose #3345 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:00:55 verbose #3346 > > return None
00:00:55 verbose #3347 > > }
00:00:55 verbose #3348 > >
00:00:55 verbose #3349 > > let task = async {
00:00:55 verbose #3350 > > try
00:00:55 verbose #3351 > > let! result = fn
00:00:55 verbose #3352 > > return Some result
00:00:55 verbose #3353 > > with
00:00:55 verbose #3354 > > | :? System.AggregateException as ex when
00:00:55 verbose #3355 > > ex.InnerExceptions
00:00:55 verbose #3356 > > |> Seq.exists (function :? Sy... None
00:00:55 verbose #3357 > >
00:00:55 verbose #3358 > > /// ## awaitValueTask
00:00:55 verbose #3359 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:55 verbose #3360 > > task.AsTask () |> Async.AwaitTask
00:00:55 verbose #3361 > >
00:00:55 verbose #3362 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:55 verbose #3363 > > task.AsTask () |> Async.AwaitTask
00:00:55 verbose #3364 > >
00:00:55 verbose #3365 > > /// ## init
00:00:55 verbose #3366 > > let inline init x = async {
00:00:55 verbose #3367 > > return x
00:00:55 verbose #3368 > > }
00:00:55 verbose #3369 > >
00:00:55 verbose #3370 > > /// ## withCancellationToken
00:00:55 verbose #3371 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:00:55 verbose #3372 > > fn =
00:00:55 verbose #3373 > > Async.StartImmediateAsTask (fn, ct)
00:00:55 verbose #3374 > > |> Async.AwaitTask
00:00:55 verbose #3375 > >
00:00:55 verbose #3376 > > /// ## retryAsync
00:00:55 verbose #3377 > > let inline retryAsync retries fn =
00:00:55 verbose #3378 > > let rec loop retry lastError = async {
00:00:55 verbose #3379 > > try
00:00:55 verbose #3380 > > return!
00:00:55 verbose #3381 > > if retry <= retries
00:00:55 verbose #3382 > > then fn |> map Ok
00:00:55 verbose #3383 > > else lastError |> Error |> init
00:00:55 verbose #3384 > > with ex ->
00:00:55 verbose #3385 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:00:55 verbose #3386 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:00:55 verbose #3387 > > do! Async.Sleep 1
00:00:55 verbose #3388 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:00:55 verbose #3389 > > }
00:00:55 verbose #3390 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:00:55 verbose #3391 > >
00:00:55 verbose #3392 > > /// ## fold
00:00:55 verbose #3393 > > let fold folder state array =
00:00:55 verbose #3394 > > let rec loop acc i =
00:00:55 verbose #3395 > > async {
00:00:55 verbose #3396 > > if i < Array.length array then
00:00:55 verbose #3397 > > let! newAcc = folder acc array.[[i]]
00:00:55 verbose #3398 > > return! loop newAcc (i + 1)
00:00:55 verbose #3399 > > else
00:00:55 verbose #3400 > > return acc
00:00:55 verbose #3401 > > }
00:00:55 verbose #3402 > > loop state 0
00:00:55 verbose #3403 > >
00:00:56 verbose #3404 > >
00:00:56 verbose #3405 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #3406 > > #if !INTERACTIVE
00:00:56 verbose #3407 > > open Lib
00:00:56 verbose #3408 > > #endif
00:00:56 verbose #3409 > >
00:00:56 verbose #3410 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #3411 > > open Common
00:00:56 verbose #3412 > >
00:00:56 verbose #3413 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:56 verbose #3414 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:56 verbose #3415 > > │ ## subscribeEvent │
00:00:56 verbose #3416 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 verbose #3417 > >
00:00:56 verbose #3418 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #3419 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:00:56 verbose #3420 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:00:56 verbose #3421 > > 'A>(event.AddHandler, event.RemoveHandler)
00:00:56 verbose #3422 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:00:56 verbose #3423 > > event.EventArgs)
00:00:56 verbose #3424 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:00:56 verbose #3425 > >
00:00:56 verbose #3426 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #3427 > > //// test
00:00:56 verbose #3428 > >
00:00:56 verbose #3429 > > type TestEvent () as self =
00:00:56 verbose #3430 > > member val Calls = [[]] with get, set
00:00:56 verbose #3431 > > member val Event = Event<ErrorEventHandler, ErrorEventArgs> () with get
00:00:56 verbose #3432 > >
00:00:56 verbose #3433 > > member _.AddCall text =
00:00:56 verbose #3434 > > self.Calls <- self.Calls @ [[ text ]]
00:00:56 verbose #3435 > >
00:00:56 verbose #3436 > > member _.EventInterface =
00:00:56 verbose #3437 > > { new IEvent<ErrorEventHandler, ErrorEventArgs> with
00:00:56 verbose #3438 > > member _.AddHandler handler =
00:00:56 verbose #3439 > > self.AddCall "AddHandler"
00:00:56 verbose #3440 > > self.Event.Publish.AddHandler handler
00:00:56 verbose #3441 > >
00:00:56 verbose #3442 > > member _.RemoveHandler handler =
00:00:56 verbose #3443 > > self.AddCall "RemoveHandler"
00:00:56 verbose #3444 > > self.Event.Publish.RemoveHandler handler
00:00:56 verbose #3445 > >
00:00:56 verbose #3446 > > member _.Subscribe observer =
00:00:56 verbose #3447 > > self.AddCall "IObservable.Subscribe"
00:00:56 verbose #3448 > > let disposable = self.Event.Publish.Subscribe observer
00:00:56 verbose #3449 > > new_disposable (fun () ->
00:00:56 verbose #3450 > > self.AddCall "IObservable.Dispose"
00:00:56 verbose #3451 > > disposable.Dispose ()
00:00:56 verbose #3452 > > )
00:00:56 verbose #3453 > > }
00:00:56 verbose #3454 > >
00:00:56 verbose #3455 > > member _.Subscribe () =
00:00:56 verbose #3456 > > subscribeEvent
00:00:56 verbose #3457 > > self.EventInterface
00:00:56 verbose #3458 > > (fun args ->
00:00:56 verbose #3459 > > let result = args.GetException () |> SpiralSm.format_exception
00:00:56 verbose #3460 > > self.AddCall $"TestEvent.Subscribe({result})"
00:00:56 verbose #3461 > > result
00:00:56 verbose #3462 > > )
00:00:56 verbose #3463 > >
00:00:56 verbose #3464 > > member _.Iter subscription =
00:00:56 verbose #3465 > > subscription
00:00:56 verbose #3466 > > |> FSharp.Control.AsyncSeq.iteriAsync (fun i error -> async {
00:00:56 verbose #3467 > > self.AddCall $"TestEvent.Iter({i}: {error})"
00:00:56 verbose #3468 > > })
00:00:56 verbose #3469 > >
00:00:56 verbose #3470 > > member _.WaitCall text = async {
00:00:56 verbose #3471 > > while self.Calls |> List.last <> text do
00:00:56 verbose #3472 > > do! Async.SwitchToThreadPool ()
00:00:56 verbose #3473 > > }
00:00:56 verbose #3474 > >
00:00:56 verbose #3475 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #3476 > > //// test
00:00:56 verbose #3477 > >
00:00:56 verbose #3478 > > let testEvent = TestEvent ()
00:00:56 verbose #3479 > >
00:00:56 verbose #3480 > > async {
00:00:56 verbose #3481 > > testEvent.AddCall "1"
00:00:56 verbose #3482 > > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:56 verbose #3483 > > do! testEvent.WaitCall "AddHandler"
00:00:56 verbose #3484 > > testEvent.AddCall "2"
00:00:56 verbose #3485 > > do! child
00:00:56 verbose #3486 > > testEvent.AddCall "3"
00:00:56 verbose #3487 > > }
00:00:56 verbose #3488 > > |> Async.runWithTimeout 300
00:00:56 verbose #3489 > > |> _assertEqual None
00:00:56 verbose #3490 > >
00:00:56 verbose #3491 > > testEvent.Calls
00:00:56 verbose #3492 > > |> Seq.toList
00:00:56 verbose #3493 > > |> _assertEqual [[ "1"; "AddHandler"; "2"; "RemoveHandler" ]]
00:00:56 verbose #3494 > >
00:00:56 verbose #3495 > > ╭─[ 522.45ms - stdout ]────────────────────────────────────────────────────────╮
00:00:56 verbose #3496 > > │ 00:00:02 debug #1 runWithTimeoutAsync / timeout: 300 │
00:00:56 verbose #3497 > > │ <null> │
00:00:56 verbose #3498 > > │ │
00:00:56 verbose #3499 > > │ ["1"; "AddHandler"; "2"; "RemoveHandler"] │
00:00:56 verbose #3500 > > │ │
00:00:56 verbose #3501 > > │ │
00:00:56 verbose #3502 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 verbose #3503 > >
00:00:56 verbose #3504 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #3505 > > //// test
00:00:56 verbose #3506 > >
00:00:56 verbose #3507 > > let testEvent = TestEvent ()
00:00:56 verbose #3508 > >
00:00:56 verbose #3509 > > async {
00:00:56 verbose #3510 > > testEvent.AddCall "1"
00:00:56 verbose #3511 > > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:56 verbose #3512 > > do! testEvent.WaitCall "AddHandler"
00:00:56 verbose #3513 > > testEvent.AddCall "2"
00:00:56 verbose #3514 > > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:56 verbose #3515 > > testEvent.AddCall $"testEvent.EventInterface.Subscribe({args})"
00:00:56 verbose #3516 > > )
00:00:56 verbose #3517 > > testEvent.AddCall "3"
00:00:56 verbose #3518 > > do! child
00:00:56 verbose #3519 > > testEvent.AddCall "4"
00:00:56 verbose #3520 > > }
00:00:56 verbose #3521 > > |> Async.runWithTimeout 300
00:00:56 verbose #3522 > > |> _assertEqual None
00:00:56 verbose #3523 > >
00:00:56 verbose #3524 > > testEvent.Calls
00:00:56 verbose #3525 > > |> _assertEqual [[ "1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3";
00:00:56 verbose #3526 > > "RemoveHandler"; "IObservable.Dispose" ]]
00:00:57 verbose #3527 > >
00:00:57 verbose #3528 > > ╭─[ 452.02ms - stdout ]────────────────────────────────────────────────────────╮
00:00:57 verbose #3529 > > │ 00:00:02 debug #2 runWithTimeoutAsync / timeout: 300 │
00:00:57 verbose #3530 > > │ <null> │
00:00:57 verbose #3531 > > │ │
00:00:57 verbose #3532 > > │ ["1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3"; "RemoveHandler"; │
00:00:57 verbose #3533 > > │ "IObservable.Dispose"] │
00:00:57 verbose #3534 > > │ │
00:00:57 verbose #3535 > > │ │
00:00:57 verbose #3536 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 verbose #3537 > >
00:00:57 verbose #3538 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #3539 > > //// test
00:00:57 verbose #3540 > >
00:00:57 verbose #3541 > > let testEvent = TestEvent ()
00:00:57 verbose #3542 > >
00:00:57 verbose #3543 > > async {
00:00:57 verbose #3544 > > testEvent.AddCall "1"
00:00:57 verbose #3545 > > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:57 verbose #3546 > > do! testEvent.WaitCall "AddHandler"
00:00:57 verbose #3547 > > testEvent.AddCall "2"
00:00:57 verbose #3548 > > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:57 verbose #3549 > > async {
00:00:57 verbose #3550 > > do! testEvent.WaitCall "TestEvent.Iter(0: System.Exception: error)"
00:00:57 verbose #3551 > > testEvent.AddCall
00:00:57 verbose #3552 > > $"testEvent.EventInterface.Subscribe({args.GetException () |>
00:00:57 verbose #3553 > > SpiralSm.format_exception})"
00:00:57 verbose #3554 > > }
00:00:57 verbose #3555 > > |> Async.RunSynchronously
00:00:57 verbose #3556 > > )
00:00:57 verbose #3557 > > testEvent.AddCall "3"
00:00:57 verbose #3558 > > testEvent.Event.Trigger (null, ErrorEventArgs (Exception "error"))
00:00:57 verbose #3559 > > testEvent.AddCall "4"
00:00:57 verbose #3560 > > do! child
00:00:57 verbose #3561 > > testEvent.AddCall "5"
00:00:57 verbose #3562 > > }
00:00:57 verbose #3563 > > |> Async.runWithTimeout 300
00:00:57 verbose #3564 > > |> _assertEqual None
00:00:57 verbose #3565 > >
00:00:57 verbose #3566 > > testEvent.Calls
00:00:57 verbose #3567 > > |> _assertEqual [[
00:00:57 verbose #3568 > > "1"
00:00:57 verbose #3569 > > "AddHandler"
00:00:57 verbose #3570 > > "2"
00:00:57 verbose #3571 > > "IObservable.Subscribe"
00:00:57 verbose #3572 > > "3"
00:00:57 verbose #3573 > > "TestEvent.Subscribe(System.Exception: error)"
00:00:57 verbose #3574 > > "TestEvent.Iter(0: System.Exception: error)"
00:00:57 verbose #3575 > > "testEvent.EventInterface.Subscribe(System.Exception: error)"
00:00:57 verbose #3576 > > "4"
00:00:57 verbose #3577 > > "RemoveHandler"
00:00:57 verbose #3578 > > "IObservable.Dispose"
00:00:57 verbose #3579 > > ]]
00:00:57 verbose #3580 > >
00:00:57 verbose #3581 > > ╭─[ 450.82ms - stdout ]────────────────────────────────────────────────────────╮
00:00:57 verbose #3582 > > │ 00:00:03 debug #3 runWithTimeoutAsync / timeout: 300 │
00:00:57 verbose #3583 > > │ <null> │
00:00:57 verbose #3584 > > │ │
00:00:57 verbose #3585 > > │ ["1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3"; │
00:00:57 verbose #3586 > > │ "TestEvent.Subscribe(System.Exception: error)"; │
00:00:57 verbose #3587 > > │ "TestEvent.Iter(0: System.Exception: error)"; │
00:00:57 verbose #3588 > > │ "testEvent.EventInterface.Subscribe(System.Exception: error)"; "4"; │
00:00:57 verbose #3589 > > │ "RemoveHandler"; "IObservable.Dispose"] │
00:00:57 verbose #3590 > > │ │
00:00:57 verbose #3591 > > │ │
00:00:57 verbose #3592 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 verbose #3593 > >
00:00:57 verbose #3594 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:57 verbose #3595 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:57 verbose #3596 > > │ ## subscribeToken │
00:00:57 verbose #3597 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 verbose #3598 > >
00:00:57 verbose #3599 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #3600 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:00:57 verbose #3601 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:00:57 verbose #3602 > > System.Action tcs.SetResult |> token.Register |> ignore
00:00:57 verbose #3603 > > let start = System.DateTime.Now.Ticks
00:00:57 verbose #3604 > > FSharp.Control.AsyncSeq.unfoldAsync
00:00:57 verbose #3605 > > (fun () -> async {
00:00:57 verbose #3606 > > do! tcs.Task |> Async.AwaitTask
00:00:57 verbose #3607 > > return Some (System.DateTime.Now.Ticks - start, ())
00:00:57 verbose #3608 > > })
00:00:57 verbose #3609 > > ()
00:00:57 verbose #3610 > >
00:00:57 verbose #3611 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #3612 > > //// test
00:00:57 verbose #3613 > >
00:00:57 verbose #3614 > > let cts = new System.Threading.CancellationTokenSource ()
00:00:57 verbose #3615 > >
00:00:57 verbose #3616 > > async {
00:00:57 verbose #3617 > > let! child =
00:00:57 verbose #3618 > > cts.Token
00:00:57 verbose #3619 > > |> subscribeToken
00:00:57 verbose #3620 > > |> FSharp.Control.AsyncSeq.tryFirst
00:00:57 verbose #3621 > > |> Async.StartChild
00:00:57 verbose #3622 > >
00:00:57 verbose #3623 > > do! Async.Sleep 100
00:00:57 verbose #3624 > > cts.Cancel ()
00:00:57 verbose #3625 > > return! child
00:00:57 verbose #3626 > > }
00:00:57 verbose #3627 > > |> Async.RunSynchronously
00:00:57 verbose #3628 > > |> Option.get
00:00:57 verbose #3629 > > |> fun x -> x > 900000
00:00:57 verbose #3630 > > |> _assertEqual true
00:00:57 verbose #3631 > >
00:00:57 verbose #3632 > > ╭─[ 182.01ms - stdout ]────────────────────────────────────────────────────────╮
00:00:57 verbose #3633 > > │ true │
00:00:57 verbose #3634 > > │ │
00:00:57 verbose #3635 > > │ │
00:00:57 verbose #3636 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #3637 > 00:00:24 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 56451
00:00:58 verbose #3638 > 00:00:24 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:00 verbose #3639 > 00:00:27 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb to html
00:01:00 verbose #3640 > 00:00:27 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:00 verbose #3641 > 00:00:27 verbose #7 ! validate(nb)
00:01:02 verbose #3642 > 00:00:28 verbose #8 ! [NbConvertApp] Writing 302746 bytes to c:\home\git\polyglot\lib\fsharp\AsyncSeq.dib.html
00:01:02 verbose #3643 > 00:00:29 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 647
00:01:02 verbose #3644 > 00:00:29 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 647
00:01:02 verbose #3645 > 00:00:29 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:03 verbose #3646 > 00:00:30 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:03 verbose #3647 > 00:00:30 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:04 verbose #3648 > 00:00:30 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 57157
00:01:04 debug #3649 runtime.execute_with_options_async / exit_code: 0 / output.Length: 62908
00:01:04 debug #2 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path AsyncSeq.dib --retries 3
00:01:04 debug #3650 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Common.dib --retries 3",
[||], None, None, true, None)
00:01:04 verbose #3651 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Common.dib", "--retries", "3"])
00:01:04 verbose #3652 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/Common.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/Common.dib" --output-path "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:06 verbose #3653 > >
00:01:06 verbose #3654 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:06 verbose #3655 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:06 verbose #3656 > > │ # Common (Polyglot) │
00:01:06 verbose #3657 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:06 verbose #3658 > >
00:01:06 verbose #3659 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:06 verbose #3660 > > #!import ../../lib/fsharp/Notebooks.dib
00:01:06 verbose #3661 > > #!import ../../lib/fsharp/Testing.dib
00:01:06 verbose #3662 > >
00:01:06 verbose #3663 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:06 verbose #3664 > > #r
00:01:06 verbose #3665 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:06 verbose #3666 > > spNetCore.Html.Abstractions.dll"
00:01:06 verbose #3667 > > #r
00:01:06 verbose #3668 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:06 verbose #3669 > > otNet.Interactive.dll"
00:01:06 verbose #3670 > > #r
00:01:06 verbose #3671 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:06 verbose #3672 > > otNet.Interactive.FSharp.dll"
00:01:06 verbose #3673 > > #r
00:01:06 verbose #3674 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:06 verbose #3675 > > otNet.Interactive.Formatting.dll"
00:01:06 verbose #3676 > > open System
00:01:06 verbose #3677 > > open System.IO
00:01:06 verbose #3678 > > open System.Text
00:01:06 verbose #3679 > > open Microsoft.DotNet.Interactive.Formatting
00:01:10 verbose #3680 > >
00:01:10 verbose #3681 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 verbose #3682 > > #r
00:01:10 verbose #3683 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:10 verbose #3684 > > otNet.Interactive.FSharp.dll"
00:01:10 verbose #3685 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:10 verbose #3686 > > #r
00:01:10 verbose #3687 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:10 verbose #3688 > > otNet.Interactive.dll"
00:01:10 verbose #3689 > > open type Microsoft.DotNet.Interactive.Kernel
00:01:10 verbose #3690 > >
00:01:10 verbose #3691 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 verbose #3692 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:01:11 verbose #3693 > >
00:01:11 verbose #3694 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:11 verbose #3695 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:01:11 verbose #3696 > > TextWriter)->fprintfn writer "%120A" x)
00:01:11 verbose #3697 > >
00:01:11 verbose #3698 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:11 verbose #3699 > > //// test
00:01:11 verbose #3700 > >
00:01:11 verbose #3701 > > Formatter.ListExpansionLimit <- 100
00:01:11 verbose #3702 > >
00:01:11 verbose #3703 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:11 verbose #3704 > > #if FABLE_COMPILER
00:01:11 verbose #3705 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:11 verbose #3706 > > #endif
00:01:11 verbose #3707 > > type std_env_VarError = class end
00:01:11 verbose #3708 > > #if FABLE_COMPILER
00:01:11 verbose #3709 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:11 verbose #3710 > > #endif
00:01:11 verbose #3711 > > type core_any_Any = class end
00:01:11 verbose #3712 > > #if FABLE_COMPILER
00:01:11 verbose #3713 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:11 verbose #3714 > > #endif
00:01:11 verbose #3715 > > type core_ops_Try<'T> = class end
00:01:11 verbose #3716 > > #if FABLE_COMPILER
00:01:11 verbose #3717 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:11 verbose #3718 > > #endif
00:01:11 verbose #3719 > > type Func0<'T> = class end
00:01:11 verbose #3720 > > #if FABLE_COMPILER
00:01:11 verbose #3721 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:11 verbose #3722 > > #endif
00:01:11 verbose #3723 > > type Func0<'T, 'U> = class end
00:01:11 verbose #3724 > > #if FABLE_COMPILER
00:01:11 verbose #3725 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:11 verbose #3726 > > #endif
00:01:11 verbose #3727 > > type Box<'T> = class end
00:01:11 verbose #3728 > > #if FABLE_COMPILER
00:01:11 verbose #3729 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:11 verbose #3730 > > #endif
00:01:11 verbose #3731 > > type Dyn<'T> = class end
00:01:11 verbose #3732 > > #if FABLE_COMPILER
00:01:11 verbose #3733 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:11 verbose #3734 > > #endif
00:01:11 verbose #3735 > > type Send<'T> = class end
00:01:11 verbose #3736 > > #if FABLE_COMPILER
00:01:11 verbose #3737 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:11 verbose #3738 > > #endif
00:01:11 verbose #3739 > > type Fn<'T> = class end
00:01:11 verbose #3740 > > #if FABLE_COMPILER
00:01:11 verbose #3741 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:11 verbose #3742 > > #endif
00:01:11 verbose #3743 > > type FnUnit = class end
00:01:11 verbose #3744 > > #if FABLE_COMPILER
00:01:11 verbose #3745 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:11 verbose #3746 > > #endif
00:01:11 verbose #3747 > > type FnOnce<'T> = class end
00:01:11 verbose #3748 > > #if FABLE_COMPILER
00:01:11 verbose #3749 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:11 verbose #3750 > > #endif
00:01:11 verbose #3751 > > type ActionFn<'T> = class end
00:01:11 verbose #3752 > > #if FABLE_COMPILER
00:01:11 verbose #3753 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:11 verbose #3754 > > #endif
00:01:11 verbose #3755 > > type ActionFn2<'T, 'U> = class end
00:01:11 verbose #3756 > > #if FABLE_COMPILER
00:01:11 verbose #3757 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:11 verbose #3758 > > #endif
00:01:11 verbose #3759 > > type Impl<'T> = class end
00:01:11 verbose #3760 > > #if FABLE_COMPILER
00:01:11 verbose #3761 > > [[<Fabl...2, v3, v4)
00:01:11 verbose #3762 > > US5_1
00:01:11 verbose #3763 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:01:11 verbose #3764 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:01:11 verbose #3765 > > let v4 : (US4 -> US5) = closure6()
00:01:11 verbose #3766 > > let v5 : (exn -> US5) = closure7(v2)
00:01:11 verbose #3767 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:01:11 verbose #3768 > > match v6 with
00:01:11 verbose #3769 > > | US5_1 -> (* None *)
00:01:11 verbose #3770 > > let v8 : int32 = v2 + 1
00:01:11 verbose #3771 > > method6(v0, v1, v8)
00:01:11 verbose #3772 > > | US5_0(v7) -> (* Some *)
00:01:11 verbose #3773 > > v7
00:01:11 verbose #3774 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:01:11 verbose #3775 > > let v2 : int32 = 0
00:01:11 verbose #3776 > > let v3 : US4 = method6(v0, v1, v2)
00:01:11 verbose #3777 > > match v3 with
00:01:11 verbose #3778 > > | US4_1 -> (* None *)
00:01:11 verbose #3779 > > let v5 : unit option = None
00:01:11 verbose #3780 > > v5
00:01:11 verbose #3781 > > | US4_0 -> (* Some *)
00:01:11 verbose #3782 > > let v4 : unit option = Some ()
00:01:11 verbose #3783 > > v4
00:01:11 verbose #3784 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:01:11 verbose #3785 > > closure4(v0)
00:01:11 verbose #3786 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:01:11 verbose #3787 > > v0
00:01:11 verbose #3788 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:01:11 verbose #3789 > > v0.Value
00:01:11 verbose #3790 > > ()
00:01:11 verbose #3791 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:01:11 verbose #3792 > > let v1 : (unit -> unit) = method12(v0)
00:01:11 verbose #3793 > > let v2 : Lazy<unit> = lazy v1 ()
00:01:11 verbose #3794 > > closure13(v2)
00:01:11 verbose #3795 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:11 verbose #3796 > > let v1 : US0 = US0_0
00:01:11 verbose #3797 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:11 verbose #3798 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:01:11 verbose #3799 > > let new_disposable x = v2 x
00:01:11 verbose #3800 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:01:11 verbose #3801 > > let retry_fn x = v3 x
00:01:11 verbose #3802 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:01:11 verbose #3803 > > let memoize x = v4 x
00:01:11 verbose #3804 > > ()
00:01:11 verbose #3805 > >
00:01:13 verbose #3806 > >
00:01:13 verbose #3807 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 verbose #3808 > > #if FABLE_COMPILER
00:01:13 verbose #3809 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:13 verbose #3810 > > #endif
00:01:13 verbose #3811 > > type core_any_Any = class end
00:01:13 verbose #3812 > > #if FABLE_COMPILER
00:01:13 verbose #3813 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:13 verbose #3814 > > #endif
00:01:13 verbose #3815 > > type core_ops_Try<'T> = class end
00:01:13 verbose #3816 > > #if FABLE_COMPILER
00:01:13 verbose #3817 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:13 verbose #3818 > > #endif
00:01:13 verbose #3819 > > type Func0<'T> = class end
00:01:13 verbose #3820 > > #if FABLE_COMPILER
00:01:13 verbose #3821 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:13 verbose #3822 > > #endif
00:01:13 verbose #3823 > > type Func0<'T, 'U> = class end
00:01:13 verbose #3824 > > #if FABLE_COMPILER
00:01:13 verbose #3825 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:13 verbose #3826 > > #endif
00:01:13 verbose #3827 > > type Box<'T> = class end
00:01:13 verbose #3828 > > #if FABLE_COMPILER
00:01:13 verbose #3829 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:13 verbose #3830 > > #endif
00:01:13 verbose #3831 > > type Dyn<'T> = class end
00:01:13 verbose #3832 > > #if FABLE_COMPILER
00:01:13 verbose #3833 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:13 verbose #3834 > > #endif
00:01:13 verbose #3835 > > type Send<'T> = class end
00:01:13 verbose #3836 > > #if FABLE_COMPILER
00:01:13 verbose #3837 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:13 verbose #3838 > > #endif
00:01:13 verbose #3839 > > type Fn<'T> = class end
00:01:13 verbose #3840 > > #if FABLE_COMPILER
00:01:13 verbose #3841 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:13 verbose #3842 > > #endif
00:01:13 verbose #3843 > > type FnUnit = class end
00:01:13 verbose #3844 > > #if FABLE_COMPILER
00:01:13 verbose #3845 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:13 verbose #3846 > > #endif
00:01:13 verbose #3847 > > type FnOnce<'T> = class end
00:01:13 verbose #3848 > > #if FABLE_COMPILER
00:01:13 verbose #3849 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:13 verbose #3850 > > #endif
00:01:13 verbose #3851 > > type ActionFn<'T> = class end
00:01:13 verbose #3852 > > #if FABLE_COMPILER
00:01:13 verbose #3853 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:13 verbose #3854 > > #endif
00:01:13 verbose #3855 > > type ActionFn2<'T, 'U> = class end
00:01:13 verbose #3856 > > #if FABLE_COMPILER
00:01:13 verbose #3857 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:13 verbose #3858 > > #endif
00:01:13 verbose #3859 > > type Impl<'T> = class end
00:01:13 verbose #3860 > > #if FABLE_COMPILER
00:01:13 verbose #3861 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:13 verbose #3862 > > #endif
00:01:13 verbose #3863 > > type Mut<'T> = class end
00:01:13 verbose #3864 > > #if FABLE_COMPILER
00:01:13 verbose #3865 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:01:13 verbose #3866 > > let replace x = v4 x
00:01:13 verbose #3867 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:01:13 verbose #3868 > > let replace_regex x = v5 x
00:01:13 verbose #3869 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:01:13 verbose #3870 > > let slice x = v6 x
00:01:13 verbose #3871 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:01:13 verbose #3872 > > let split x = v7 x
00:01:13 verbose #3873 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:01:13 verbose #3874 > > let split_string x = v8 x
00:01:13 verbose #3875 > > let v9 : (string -> (string -> bool)) = closure23()
00:01:13 verbose #3876 > > let starts_with x = v9 x
00:01:13 verbose #3877 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:01:13 verbose #3878 > > let substring x = v10 x
00:01:13 verbose #3879 > > let v11 : (string -> string) = closure28()
00:01:13 verbose #3880 > > let to_lower x = v11 x
00:01:13 verbose #3881 > > let v12 : (string -> string) = closure29()
00:01:13 verbose #3882 > > let to_upper x = v12 x
00:01:13 verbose #3883 > > let v13 : (string -> string) = closure30()
00:01:13 verbose #3884 > > let trim x = v13 x
00:01:13 verbose #3885 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:01:13 verbose #3886 > > let trim_end x = v14 x
00:01:13 verbose #3887 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:01:13 verbose #3888 > > let trim_start x = v15 x
00:01:13 verbose #3889 > > let v16 : (int32 -> (string -> string)) = closure35()
00:01:13 verbose #3890 > > let ellipsis x = v16 x
00:01:13 verbose #3891 > > let v17 : (int64 -> (string -> string)) = closure37()
00:01:13 verbose #3892 > > let ellipsis_end x = v17 x
00:01:13 verbose #3893 > > let v18 : (exn -> string) = closure39()
00:01:13 verbose #3894 > > let format_exception x = v18 x
00:01:13 verbose #3895 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:01:13 verbose #3896 > > let concat_array_trailing x = v19 x
00:01:13 verbose #3897 > > let v20 : (string -> (string seq -> string)) = closure42()
00:01:13 verbose #3898 > > let concat x = v20 x
00:01:13 verbose #3899 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:01:13 verbose #3900 > > let join' x = v21 x
00:01:13 verbose #3901 > > let v22 : (string -> (char [[]])) = closure46()
00:01:13 verbose #3902 > > let to_char_array x = v22 x
00:01:13 verbose #3903 > > ()
00:01:13 verbose #3904 > >
00:01:13 verbose #3905 > >
00:01:13 verbose #3906 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:13 verbose #3907 > > #if FABLE_COMPILER
00:01:13 verbose #3908 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:13 verbose #3909 > > #endif
00:01:13 verbose #3910 > > type core_any_Any = class end
00:01:13 verbose #3911 > > #if FABLE_COMPILER
00:01:13 verbose #3912 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:13 verbose #3913 > > #endif
00:01:13 verbose #3914 > > type core_ops_Try<'T> = class end
00:01:13 verbose #3915 > > #if FABLE_COMPILER
00:01:13 verbose #3916 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:13 verbose #3917 > > #endif
00:01:13 verbose #3918 > > type Func0<'T> = class end
00:01:13 verbose #3919 > > #if FABLE_COMPILER
00:01:13 verbose #3920 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:13 verbose #3921 > > #endif
00:01:13 verbose #3922 > > type Func0<'T, 'U> = class end
00:01:13 verbose #3923 > > #if FABLE_COMPILER
00:01:13 verbose #3924 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:13 verbose #3925 > > #endif
00:01:13 verbose #3926 > > type Box<'T> = class end
00:01:13 verbose #3927 > > #if FABLE_COMPILER
00:01:13 verbose #3928 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:13 verbose #3929 > > #endif
00:01:13 verbose #3930 > > type Dyn<'T> = class end
00:01:13 verbose #3931 > > #if FABLE_COMPILER
00:01:13 verbose #3932 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:13 verbose #3933 > > #endif
00:01:13 verbose #3934 > > type Send<'T> = class end
00:01:13 verbose #3935 > > #if FABLE_COMPILER
00:01:13 verbose #3936 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:13 verbose #3937 > > #endif
00:01:13 verbose #3938 > > type Fn<'T> = class end
00:01:13 verbose #3939 > > #if FABLE_COMPILER
00:01:13 verbose #3940 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:13 verbose #3941 > > #endif
00:01:13 verbose #3942 > > type FnUnit = class end
00:01:13 verbose #3943 > > #if FABLE_COMPILER
00:01:13 verbose #3944 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:13 verbose #3945 > > #endif
00:01:13 verbose #3946 > > type FnOnce<'T> = class end
00:01:13 verbose #3947 > > #if FABLE_COMPILER
00:01:13 verbose #3948 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:13 verbose #3949 > > #endif
00:01:13 verbose #3950 > > type ActionFn<'T> = class end
00:01:13 verbose #3951 > > #if FABLE_COMPILER
00:01:13 verbose #3952 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:13 verbose #3953 > > #endif
00:01:13 verbose #3954 > > type ActionFn2<'T, 'U> = class end
00:01:13 verbose #3955 > > #if FABLE_COMPILER
00:01:13 verbose #3956 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:13 verbose #3957 > > #endif
00:01:13 verbose #3958 > > type Impl<'T> = class end
00:01:13 verbose #3959 > > #if FABLE_COMPILER
00:01:13 verbose #3960 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:13 verbose #3961 > > #endif
00:01:13 verbose #3962 > > type Mut<'T> = class end
00:01:13 verbose #3963 > > #if FABLE_COMPILER
00:01:13 verbose #3964 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:01:13 verbose #3965 > > ()
00:01:13 verbose #3966 > > #endif
00:01:13 verbose #3967 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:13 verbose #3968 > > let v28 : string = @"println!(""{}"", $0)"
00:01:13 verbose #3969 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:13 verbose #3970 > > ()
00:01:13 verbose #3971 > > #endif
00:01:13 verbose #3972 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:13 verbose #3973 > > System.Console.WriteLine v24
00:01:13 verbose #3974 > > ()
00:01:13 verbose #3975 > > #endif
00:01:13 verbose #3976 > > #if FABLE_COMPILER_PYTHON
00:01:13 verbose #3977 > > System.Console.WriteLine v24
00:01:13 verbose #3978 > > ()
00:01:13 verbose #3979 > > #endif
00:01:13 verbose #3980 > > #else
00:01:13 verbose #3981 > > System.Console.WriteLine v24
00:01:13 verbose #3982 > > ()
00:01:13 verbose #3983 > > #endif
00:01:13 verbose #3984 > > |> fun x -> _v25 <- Some x
00:01:13 verbose #3985 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:13 verbose #3986 > > _v25=None"
00:01:13 verbose #3987 > > let v29 : (string -> unit) = v8.l0
00:01:13 verbose #3988 > > v29 v24
00:01:13 verbose #3989 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:13 verbose #3990 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:13 verbose #3991 > > method11(v0, v3)
00:01:13 verbose #3992 > > and closure1 () (v0 : string) : uint16 =
00:01:13 verbose #3993 > > let v1 : char = v0.[[int 0]]
00:01:13 verbose #3994 > > let v2 : (char -> int32) = int32
00:01:13 verbose #3995 > > let v3 : int32 = v2 v1
00:01:13 verbose #3996 > > let v4 : string = v0.[[int 0..int 7]]
00:01:13 verbose #3997 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:01:13 verbose #3998 > > let v6 : int32 = v5 + v3
00:01:13 verbose #3999 > > let v7 : (int32 -> uint16) = uint16
00:01:13 verbose #4000 > > let v8 : uint16 = v7 v6
00:01:13 verbose #4001 > > let v9 : US0 = US0_0
00:01:13 verbose #4002 > > let v10 : (unit -> string) = closure2()
00:01:13 verbose #4003 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:01:13 verbose #4004 > > method3(v9, v10, v11)
00:01:13 verbose #4005 > > let v12 : uint16 = v8 % 48128us
00:01:13 verbose #4006 > > let v13 : uint16 = v12 + 1024us
00:01:13 verbose #4007 > > v13
00:01:13 verbose #4008 > > let v0 : (string -> string) = closure0()
00:01:13 verbose #4009 > > let hash_text x = v0 x
00:01:13 verbose #4010 > > let v1 : (string -> uint16) = closure1()
00:01:13 verbose #4011 > > let hash_to_port x = v1 x
00:01:13 verbose #4012 > > ()
00:01:13 verbose #4013 > >
00:01:14 verbose #4014 > >
00:01:14 verbose #4015 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 verbose #4016 > > #if FABLE_COMPILER
00:01:14 verbose #4017 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:14 verbose #4018 > > #endif
00:01:14 verbose #4019 > > type core_any_Any = class end
00:01:14 verbose #4020 > > #if FABLE_COMPILER
00:01:14 verbose #4021 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:14 verbose #4022 > > #endif
00:01:14 verbose #4023 > > type core_ops_Try<'T> = class end
00:01:14 verbose #4024 > > #if FABLE_COMPILER
00:01:14 verbose #4025 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:14 verbose #4026 > > #endif
00:01:14 verbose #4027 > > type Func0<'T> = class end
00:01:14 verbose #4028 > > #if FABLE_COMPILER
00:01:14 verbose #4029 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:14 verbose #4030 > > #endif
00:01:14 verbose #4031 > > type Func0<'T, 'U> = class end
00:01:14 verbose #4032 > > #if FABLE_COMPILER
00:01:14 verbose #4033 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:14 verbose #4034 > > #endif
00:01:14 verbose #4035 > > type Box<'T> = class end
00:01:14 verbose #4036 > > #if FABLE_COMPILER
00:01:14 verbose #4037 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:14 verbose #4038 > > #endif
00:01:14 verbose #4039 > > type Dyn<'T> = class end
00:01:14 verbose #4040 > > #if FABLE_COMPILER
00:01:14 verbose #4041 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:14 verbose #4042 > > #endif
00:01:14 verbose #4043 > > type Send<'T> = class end
00:01:14 verbose #4044 > > #if FABLE_COMPILER
00:01:14 verbose #4045 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:14 verbose #4046 > > #endif
00:01:14 verbose #4047 > > type Fn<'T> = class end
00:01:14 verbose #4048 > > #if FABLE_COMPILER
00:01:14 verbose #4049 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:14 verbose #4050 > > #endif
00:01:14 verbose #4051 > > type FnUnit = class end
00:01:14 verbose #4052 > > #if FABLE_COMPILER
00:01:14 verbose #4053 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:14 verbose #4054 > > #endif
00:01:14 verbose #4055 > > type FnOnce<'T> = class end
00:01:14 verbose #4056 > > #if FABLE_COMPILER
00:01:14 verbose #4057 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:14 verbose #4058 > > #endif
00:01:14 verbose #4059 > > type ActionFn<'T> = class end
00:01:14 verbose #4060 > > #if FABLE_COMPILER
00:01:14 verbose #4061 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:14 verbose #4062 > > #endif
00:01:14 verbose #4063 > > type ActionFn2<'T, 'U> = class end
00:01:14 verbose #4064 > > #if FABLE_COMPILER
00:01:14 verbose #4065 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:14 verbose #4066 > > #endif
00:01:14 verbose #4067 > > type Impl<'T> = class end
00:01:14 verbose #4068 > > #if FABLE_COMPILER
00:01:14 verbose #4069 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:14 verbose #4070 > > #endif
00:01:14 verbose #4071 > > type Mut<'T> = class end
00:01:14 verbose #4072 > > #if FABLE_COMPILER
00:01:14 verbose #4073 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:01:14 verbose #4074 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:01:14 verbose #4075 > > let v2 : System.Guid = v1 ()
00:01:14 verbose #4076 > > let v3 : (System.Guid -> string) = _.ToString()
00:01:14 verbose #4077 > > let v4 : string = v3 v2
00:01:14 verbose #4078 > > let v5 : (int64 -> string) = _.ToString()
00:01:14 verbose #4079 > > let v6 : string = v5 v0
00:01:14 verbose #4080 > > let v7 : string = v6.PadLeft (18, '0')
00:01:14 verbose #4081 > > let v8 : System.Guid = System.Guid
00:01:14 verbose #4082 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:01:14 verbose #4083 > > v8
00:01:14 verbose #4084 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:01:14 verbose #4085 > > let v2 : (string -> string) = v1.ToString
00:01:14 verbose #4086 > > v2 v0
00:01:14 verbose #4087 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:01:14 verbose #4088 > > closure12(v0)
00:01:14 verbose #4089 > > and closure13 () (v0 : System.DateTime) : string =
00:01:14 verbose #4090 > > let v1 : (string -> string) = v0.ToString
00:01:14 verbose #4091 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:01:14 verbose #4092 > > v1 v2
00:01:14 verbose #4093 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:01:14 verbose #4094 > > let date_time_guid_from_date_time x = v0 x
00:01:14 verbose #4095 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:01:14 verbose #4096 > > let date_time_from_guid x = v1 x
00:01:14 verbose #4097 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:01:14 verbose #4098 > > let timestamp_guid_from_timestamp x = v2 x
00:01:14 verbose #4099 > > let v3 : (System.Guid -> int64) = closure8()
00:01:14 verbose #4100 > > let timestamp_from_guid x = v3 x
00:01:14 verbose #4101 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:01:14 verbose #4102 > > let new_guid_from_date_time x = v4 x
00:01:14 verbose #4103 > > let v5 : (int64 -> System.Guid) = closure10()
00:01:14 verbose #4104 > > let new_guid_from_timestamp x = v5 x
00:01:14 verbose #4105 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:01:14 verbose #4106 > > let format x = v6 x
00:01:14 verbose #4107 > > let v7 : (System.DateTime -> string) = closure13()
00:01:14 verbose #4108 > > let format_iso8601 x = v7 x
00:01:14 verbose #4109 > > ()
00:01:14 verbose #4110 > >
00:01:14 verbose #4111 > >
00:01:14 verbose #4112 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 verbose #4113 > > #if FABLE_COMPILER
00:01:14 verbose #4114 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:01:14 verbose #4115 > > #endif
00:01:14 verbose #4116 > > type futures_future_JoinAll<'T> = class end
00:01:14 verbose #4117 > > #if FABLE_COMPILER
00:01:14 verbose #4118 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:01:14 verbose #4119 > > #endif
00:01:14 verbose #4120 > > type futures_future_TryJoinAll<'T> = class end
00:01:14 verbose #4121 > > #if FABLE_COMPILER
00:01:14 verbose #4122 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:01:14 verbose #4123 > > #endif
00:01:14 verbose #4124 > > type rayon_iter_Map<'T> = class end
00:01:14 verbose #4125 > > #if FABLE_COMPILER
00:01:14 verbose #4126 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:01:14 verbose #4127 > > #endif
00:01:14 verbose #4128 > > type rayon_vec_IntoIter<'T> = class end
00:01:14 verbose #4129 > > #if FABLE_COMPILER
00:01:14 verbose #4130 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:01:14 verbose #4131 > > #endif
00:01:14 verbose #4132 > > type std_future_Future<'T> = class end
00:01:14 verbose #4133 > > #if FABLE_COMPILER
00:01:14 verbose #4134 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:01:14 verbose #4135 > > #endif
00:01:14 verbose #4136 > > type futures_future_Fuse<'T> = class end
00:01:14 verbose #4137 > > #if FABLE_COMPILER
00:01:14 verbose #4138 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:01:14 verbose #4139 > > #endif
00:01:14 verbose #4140 > > type tokio_task_JoinHandle<'T> = class end
00:01:14 verbose #4141 > > #if FABLE_COMPILER
00:01:14 verbose #4142 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:01:14 verbose #4143 > > #endif
00:01:14 verbose #4144 > > type tokio_stream_StreamExt = class end
00:01:14 verbose #4145 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:14 verbose #4146 > > Async<System.Threading.CancellationToken> =
00:01:14 verbose #4147 > > let v1 : bool = true
00:01:14 verbose #4148 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:01:14 verbose #4149 > >
00:01:14 verbose #4150 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:14 verbose #4151 > >
00:01:14 verbose #4152 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:14 verbose #4153 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:14 verbose #4154 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:01:14 verbose #4155 > > v12
00:01:14 verbose #4156 > > #endif
00:01:14 verbose #4157 > > #else
00:01:14 verbose #4158 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:01:14 verbose #4159 > > let mutable _v13 = v13
00:01:14 verbose #4160 > > async {
00:01:14 verbose #4161 > > let v14 : Async<System.Threading.CancellationToken> =
00:01:14 verbose #4162 > > Async.CancellationToken
00:01:14 verbose #4163 > > let! v14 = v14
00:01:14 verbose #4164 > > let v15 : System.Threading.CancellationToken = v14
00:01:14 verbose #4165 > > let v16 : System.Threading.CancellationToken =
00:01:14 verbose #4166 > > Async.DefaultCancellationToken
00:01:14 verbose #4167 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:01:14 verbose #4168 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:01:14 verbose #4169 > > System.Threading.CancellationTokenSource) =
00:01:14 verbose #4170 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:01:14 verbose #4171 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:01:14 verbose #4172 > > let v20 : System.Threading.CancellationToken = v19.Token
00:01:14 verbose #4173 > > return v20
00:01:14 verbose #4174 > > }
00:01:14 verbose #4175 > > |> fun x -> _v13 <- Some x
00:01:14 verbose #4176 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:01:14 verbose #4177 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:01:14 verbose #4178 > > v21
00:01:14 verbose #4179 > > #endif
00:01:14 verbose #4180 > > |> fun x -> _v7 <- Some x
00:01:14 verbose #4181 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:01:14 verbose #4182 > > -> x | None -> failwith "base.run_target / _v7=None"
00:01:14 verbose #4183 > > v22
00:01:14 verbose #4184 > > #endif
00:01:14 verbose #4185 > > |> fun x -> _v1 <- Some x
00:01:14 verbose #4186 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:01:14 verbose #4187 > > -> x | None -> failwith "base.run_target / _v1=None"
00:01:14 verbose #4188 > > v23
00:01:14 verbose #4189 > > let v0 : (System.Threading.CancellationToken ->
00:01:14 verbose #4190 > > Async<System.Threading.CancellationToken>) = closure0()
00:01:14 verbose #4191 > > let merge_cancellation_token_with_default_async x = v0 x
00:01:14 verbose #4192 > > ()
00:01:14 verbose #4193 > >
00:01:14 verbose #4194 > >
00:01:14 verbose #4195 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 verbose #4196 > > #if FABLE_COMPILER
00:01:14 verbose #4197 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:01:14 verbose #4198 > > #endif
00:01:14 verbose #4199 > > type std_thread_JoinHandle<'T> = class end
00:01:14 verbose #4200 > > #if FABLE_COMPILER
00:01:14 verbose #4201 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:01:14 verbose #4202 > > #endif
00:01:14 verbose #4203 > > type std_sync_Arc<'T> = class end
00:01:14 verbose #4204 > > #if FABLE_COMPILER
00:01:14 verbose #4205 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:01:14 verbose #4206 > > #endif
00:01:14 verbose #4207 > > type std_sync_Mutex<'T> = class end
00:01:14 verbose #4208 > > #if FABLE_COMPILER
00:01:14 verbose #4209 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:01:14 verbose #4210 > > #endif
00:01:14 verbose #4211 > > type std_sync_MutexGuard<'T> = class end
00:01:14 verbose #4212 > > #if FABLE_COMPILER
00:01:14 verbose #4213 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:01:14 verbose #4214 > > #endif
00:01:14 verbose #4215 > > type std_sync_PoisonError<'T> = class end
00:01:14 verbose #4216 > > #if FABLE_COMPILER
00:01:14 verbose #4217 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:01:14 verbose #4218 > > #endif
00:01:14 verbose #4219 > > type std_sync_mpsc_Receiver<'T> = class end
00:01:14 verbose #4220 > > #if FABLE_COMPILER
00:01:14 verbose #4221 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:01:14 verbose #4222 > > #endif
00:01:14 verbose #4223 > > type std_sync_mpsc_SendError<'T> = class end
00:01:14 verbose #4224 > > #if FABLE_COMPILER
00:01:14 verbose #4225 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:01:14 verbose #4226 > > #endif
00:01:14 verbose #4227 > > type std_sync_mpsc_Sender<'T> = class end
00:01:14 verbose #4228 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:01:14 verbose #4229 > > _.Dispose () = f ()
00:01:14 verbose #4230 > > type [[<Struct>]] US0 =
00:01:14 verbose #4231 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:01:14 verbose #4232 > > | US0_1
00:01:14 verbose #4233 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:01:14 verbose #4234 > > let v1 : bool = true
00:01:14 verbose #4235 > > let mutable _v1 : unit option = None
00:01:14 verbose #4236 > >
00:01:14 verbose #4237 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:14 verbose #4238 > >
00:01:14 verbose #4239 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:01:14 verbose #4240 > > "$0()" )
00:01:14 verbose #4241 > > v28
00:01:14 verbose #4242 > > #endif
00:01:14 verbose #4243 > > #if FABLE_COMPILER_RUST && WASM
00:01:14 verbose #4244 > > let v29 : (unit -> unit) = method0(v25)
00:01:14 verbose #4245 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:01:14 verbose #4246 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:01:14 verbose #4247 > > v30
00:01:14 verbose #4248 > > #endif
00:01:14 verbose #4249 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:14 verbose #4250 > > let v31 : (unit -> unit) = method0(v25)
00:01:14 verbose #4251 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:01:14 verbose #4252 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:01:14 verbose #4253 > > v32
00:01:14 verbose #4254 > > #endif
00:01:14 verbose #4255 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:14 verbose #4256 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:14 verbose #4257 > > v33
00:01:14 verbose #4258 > > #endif
00:01:14 verbose #4259 > > #if FABLE_COMPILER_PYTHON
00:01:14 verbose #4260 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:14 verbose #4261 > > v34
00:01:14 verbose #4262 > > #endif
00:01:14 verbose #4263 > > #else
00:01:14 verbose #4264 > > let v35 : (unit -> unit) = method1(v25)
00:01:14 verbose #4265 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:01:14 verbose #4266 > > _.Dispose () = v35 () }
00:01:14 verbose #4267 > > v36
00:01:14 verbose #4268 > > #endif
00:01:14 verbose #4269 > > |> fun x -> _v26 <- Some x
00:01:14 verbose #4270 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:01:14 verbose #4271 > > failwith "base.run_target / _v26=None"
00:01:14 verbose #4272 > > let v38 : System.Threading.CancellationToken = v25.Token
00:01:14 verbose #4273 > > struct (v38, v37)
00:01:14 verbose #4274 > > #endif
00:01:14 verbose #4275 > > |> fun x -> _v1 <- Some x
00:01:14 verbose #4276 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:01:14 verbose #4277 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:01:14 verbose #4278 > > "base.run_target / _v1=None"
00:01:14 verbose #4279 > > struct (v39, v40)
00:01:14 verbose #4280 > > let v0 : (System.Threading.CancellationToken option -> struct
00:01:14 verbose #4281 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:01:14 verbose #4282 > > let new_disposable_token x = v0 x
00:01:14 verbose #4283 > > ()
00:01:14 verbose #4284 > >
00:01:15 verbose #4285 > >
00:01:15 verbose #4286 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:15 verbose #4287 > > #if FABLE_COMPILER
00:01:15 verbose #4288 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:01:15 verbose #4289 > > #endif
00:01:15 verbose #4290 > > type reqwest_Error = class end
00:01:15 verbose #4291 > > #if FABLE_COMPILER
00:01:15 verbose #4292 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:01:15 verbose #4293 > > #endif
00:01:15 verbose #4294 > > type reqwest_RequestBuilder = class end
00:01:15 verbose #4295 > > #if FABLE_COMPILER
00:01:15 verbose #4296 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:01:15 verbose #4297 > > #endif
00:01:15 verbose #4298 > > type reqwest_Response = class end
00:01:15 verbose #4299 > > #if FABLE_COMPILER
00:01:15 verbose #4300 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:15 verbose #4301 > > #endif
00:01:15 verbose #4302 > > type std_env_VarError = class end
00:01:15 verbose #4303 > > #if FABLE_COMPILER
00:01:15 verbose #4304 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:15 verbose #4305 > > #endif
00:01:15 verbose #4306 > > type core_any_Any = class end
00:01:15 verbose #4307 > > #if FABLE_COMPILER
00:01:15 verbose #4308 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:15 verbose #4309 > > #endif
00:01:15 verbose #4310 > > type core_ops_Try<'T> = class end
00:01:15 verbose #4311 > > #if FABLE_COMPILER
00:01:15 verbose #4312 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:15 verbose #4313 > > #endif
00:01:15 verbose #4314 > > type Func0<'T> = class end
00:01:15 verbose #4315 > > #if FABLE_COMPILER
00:01:15 verbose #4316 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:15 verbose #4317 > > #endif
00:01:15 verbose #4318 > > type Func0<'T, 'U> = class end
00:01:15 verbose #4319 > > #if FABLE_COMPILER
00:01:15 verbose #4320 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:15 verbose #4321 > > #endif
00:01:15 verbose #4322 > > type Box<'T> = class end
00:01:15 verbose #4323 > > #if FABLE_COMPILER
00:01:15 verbose #4324 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:15 verbose #4325 > > #endif
00:01:15 verbose #4326 > > type Dyn<'T> = class end
00:01:15 verbose #4327 > > #if FABLE_COMPILER
00:01:15 verbose #4328 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:15 verbose #4329 > > #endif
00:01:15 verbose #4330 > > type Send<'T> = class end
00:01:15 verbose #4331 > > #if FABLE_COMPILER
00:01:15 verbose #4332 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:15 verbose #4333 > > #endif
00:01:15 verbose #4334 > > type Fn<'T> = class end
00:01:15 verbose #4335 > > #if FABLE_COMPILER
00:01:15 verbose #4336 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:15 verbose #4337 > > #endif
00:01:15 verbose #4338 > > type FnUnit = class end
00:01:15 verbose #4339 > > #if FABLE_COMPILER
00:01:15 verbose #4340 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:15 verbose #4341 > > ... v212 = v212
00:01:15 verbose #4342 > > let v213 : bool = v212
00:01:15 verbose #4343 > > let v214 : bool = v213 = false
00:01:15 verbose #4344 > > if v214 then
00:01:15 verbose #4345 > > return v2
00:01:15 verbose #4346 > > (*
00:01:15 verbose #4347 > > ()
00:01:15 verbose #4348 > > else
00:01:15 verbose #4349 > > *) else
00:01:15 verbose #4350 > > let v215 : int32 = v2 + 1
00:01:15 verbose #4351 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:01:15 verbose #4352 > > return! v216
00:01:15 verbose #4353 > > (*
00:01:15 verbose #4354 > > ()
00:01:15 verbose #4355 > > *)
00:01:15 verbose #4356 > > }
00:01:15 verbose #4357 > > |> fun x -> _v9 <- Some x
00:01:15 verbose #4358 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:01:15 verbose #4359 > > "async.new_async_unit / _v9=None"
00:01:15 verbose #4360 > > v217
00:01:15 verbose #4361 > > #endif
00:01:15 verbose #4362 > > |> fun x -> _v3 <- Some x
00:01:15 verbose #4363 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:01:15 verbose #4364 > > "base.run_target / _v3=None"
00:01:15 verbose #4365 > > v218
00:01:15 verbose #4366 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:01:15 verbose #4367 > > method10(v0, v1, v2)
00:01:15 verbose #4368 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:01:15 verbose #4369 > > closure23(v0, v1)
00:01:15 verbose #4370 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:01:15 verbose #4371 > > closure22(v0)
00:01:15 verbose #4372 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:15 verbose #4373 > > let v1 : US0 = US0_0
00:01:15 verbose #4374 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:15 verbose #4375 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:01:15 verbose #4376 > > let test_port_open x = v2 x
00:01:15 verbose #4377 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:01:15 verbose #4378 > > let test_port_open_timeout x = v3 x
00:01:15 verbose #4379 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:01:15 verbose #4380 > > closure15()
00:01:15 verbose #4381 > > let wait_for_port_access x = v4 x
00:01:15 verbose #4382 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:01:15 verbose #4383 > > let get_available_port x = v5 x
00:01:15 verbose #4384 > > ()
00:01:15 verbose #4385 > >
00:01:17 verbose #4386 > >
00:01:17 verbose #4387 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:17 verbose #4388 > > type [[<Struct>]] US0 =
00:01:17 verbose #4389 > > | US0_0
00:01:17 verbose #4390 > > | US0_1
00:01:17 verbose #4391 > > | US0_2
00:01:17 verbose #4392 > > and [[<Struct>]] US1 =
00:01:17 verbose #4393 > > | US1_0 of f0_0 : US0
00:01:17 verbose #4394 > > | US1_1 of f1_0 : US0
00:01:17 verbose #4395 > > | US1_2 of f2_0 : US0
00:01:17 verbose #4396 > > | US1_3 of f3_0 : US0
00:01:17 verbose #4397 > > | US1_4 of f4_0 : US0
00:01:17 verbose #4398 > > let rec closure0 () () : bool =
00:01:17 verbose #4399 > > let v0 : bool = true
00:01:17 verbose #4400 > > let mutable _v0 : bool option = None
00:01:17 verbose #4401 > >
00:01:17 verbose #4402 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:17 verbose #4403 > >
00:01:17 verbose #4404 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:17 verbose #4405 > > let v1 : string = "cfg!(windows)"
00:01:17 verbose #4406 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:17 verbose #4407 > > v2
00:01:17 verbose #4408 > > #endif
00:01:17 verbose #4409 > > #if FABLE_COMPILER_RUST && WASM
00:01:17 verbose #4410 > > let v3 : string = "cfg!(windows)"
00:01:17 verbose #4411 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:17 verbose #4412 > > v4
00:01:17 verbose #4413 > > #endif
00:01:17 verbose #4414 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:17 verbose #4415 > > let v5 : string = "cfg!(windows)"
00:01:17 verbose #4416 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:17 verbose #4417 > > v6
00:01:17 verbose #4418 > > #endif
00:01:17 verbose #4419 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:17 verbose #4420 > > let v7 : US0 = US0_0
00:01:17 verbose #4421 > > let v8 : US1 = US1_3(v7)
00:01:17 verbose #4422 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:17 verbose #4423 > > let v10 : bool = failwith<bool> v9
00:01:17 verbose #4424 > > v10
00:01:17 verbose #4425 > > #endif
00:01:17 verbose #4426 > > #if FABLE_COMPILER_PYTHON
00:01:17 verbose #4427 > > let v11 : US0 = US0_0
00:01:17 verbose #4428 > > let v12 : US1 = US1_4(v11)
00:01:17 verbose #4429 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:17 verbose #4430 > > let v14 : bool = failwith<bool> v13
00:01:17 verbose #4431 > > v14
00:01:17 verbose #4432 > > #endif
00:01:17 verbose #4433 > > #else
00:01:17 verbose #4434 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:17 verbose #4435 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:17 verbose #4436 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:17 verbose #4437 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:17 verbose #4438 > > let v17 : b...: string = "cfg!(windows)"
00:01:17 verbose #4439 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:17 verbose #4440 > > v2
00:01:17 verbose #4441 > > #endif
00:01:17 verbose #4442 > > #if FABLE_COMPILER_RUST && WASM
00:01:17 verbose #4443 > > let v3 : string = "cfg!(windows)"
00:01:17 verbose #4444 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:17 verbose #4445 > > v4
00:01:17 verbose #4446 > > #endif
00:01:17 verbose #4447 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:17 verbose #4448 > > let v5 : string = "cfg!(windows)"
00:01:17 verbose #4449 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:17 verbose #4450 > > v6
00:01:17 verbose #4451 > > #endif
00:01:17 verbose #4452 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:17 verbose #4453 > > let v7 : US0 = US0_0
00:01:17 verbose #4454 > > let v8 : US1 = US1_3(v7)
00:01:17 verbose #4455 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:17 verbose #4456 > > let v10 : bool = failwith<bool> v9
00:01:17 verbose #4457 > > v10
00:01:17 verbose #4458 > > #endif
00:01:17 verbose #4459 > > #if FABLE_COMPILER_PYTHON
00:01:17 verbose #4460 > > let v11 : US0 = US0_0
00:01:17 verbose #4461 > > let v12 : US1 = US1_4(v11)
00:01:17 verbose #4462 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:17 verbose #4463 > > let v14 : bool = failwith<bool> v13
00:01:17 verbose #4464 > > v14
00:01:17 verbose #4465 > > #endif
00:01:17 verbose #4466 > > #else
00:01:17 verbose #4467 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:17 verbose #4468 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:17 verbose #4469 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:17 verbose #4470 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:17 verbose #4471 > > let v17 : bool = v16 v15
00:01:17 verbose #4472 > > v17
00:01:17 verbose #4473 > > #endif
00:01:17 verbose #4474 > > |> fun x -> _v0 <- Some x
00:01:17 verbose #4475 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:01:17 verbose #4476 > > "base.run_target / _v0=None"
00:01:17 verbose #4477 > > if v18 then
00:01:17 verbose #4478 > > let v19 : string = ".exe"
00:01:17 verbose #4479 > > v19
00:01:17 verbose #4480 > > else
00:01:17 verbose #4481 > > let v20 : string = ""
00:01:17 verbose #4482 > > v20
00:01:17 verbose #4483 > > let v0 : (unit -> bool) = closure0()
00:01:17 verbose #4484 > > let is_windows () = v0 ()
00:01:17 verbose #4485 > > let v1 : (unit -> string) = closure1()
00:01:17 verbose #4486 > > let get_executable_suffix () = v1 ()
00:01:17 verbose #4487 > > ()
00:01:17 verbose #4488 > >
00:01:17 verbose #4489 > >
00:01:17 verbose #4490 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:17 verbose #4491 > > #if FABLE_COMPILER
00:01:17 verbose #4492 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:01:17 verbose #4493 > > #endif
00:01:17 verbose #4494 > > type clap_Arg = class end
00:01:17 verbose #4495 > > #if FABLE_COMPILER
00:01:17 verbose #4496 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:01:17 verbose #4497 > > #endif
00:01:17 verbose #4498 > > type clap_ArgAction = class end
00:01:17 verbose #4499 > > #if FABLE_COMPILER
00:01:17 verbose #4500 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:01:17 verbose #4501 > > #endif
00:01:17 verbose #4502 > > type clap_Command = class end
00:01:17 verbose #4503 > > #if FABLE_COMPILER
00:01:17 verbose #4504 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:01:17 verbose #4505 > > #endif
00:01:17 verbose #4506 > > type clap_ArgMatches = class end
00:01:17 verbose #4507 > > #if FABLE_COMPILER
00:01:17 verbose #4508 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:01:17 verbose #4509 > > #endif
00:01:17 verbose #4510 > > type clap_builder_ValueRange = class end
00:01:17 verbose #4511 > > #if FABLE_COMPILER
00:01:17 verbose #4512 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:01:17 verbose #4513 > > #endif
00:01:17 verbose #4514 > > type clap_builder_ValueParser = class end
00:01:17 verbose #4515 > > #if FABLE_COMPILER
00:01:17 verbose #4516 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:01:17 verbose #4517 > > #endif
00:01:17 verbose #4518 > > type clap_builder_PossibleValue = class end
00:01:17 verbose #4519 > > #if FABLE_COMPILER
00:01:17 verbose #4520 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:01:17 verbose #4521 > > #endif
00:01:17 verbose #4522 > > type std_process_Child = class end
00:01:17 verbose #4523 > > #if FABLE_COMPILER
00:01:17 verbose #4524 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:01:17 verbose #4525 > > #endif
00:01:17 verbose #4526 > > type std_process_ChildStderr = class end
00:01:17 verbose #4527 > > #if FABLE_COMPILER
00:01:17 verbose #4528 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:01:17 verbose #4529 > > #endif
00:01:17 verbose #4530 > > type std_process_ChildStdout = class end
00:01:17 verbose #4531 > > #if FABLE_COMPILER
00:01:17 verbose #4532 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:01:17 verbose #4533 > > #endif
00:01:17 verbose #4534 > > type std_process_ChildStdin = class end
00:01:17 verbose #4535 > > #if FABLE_COMPILER
00:01:17 verbose #4536 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:01:17 verbose #4537 > > #endif
00:01:17 verbose #4538 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:01:17 verbose #4539 > > List.toArray
00:01:17 verbose #4540 > > let v20 : (string [[]]) = v19 v18
00:01:17 verbose #4541 > > US8_0(v20)
00:01:17 verbose #4542 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:01:17 verbose #4543 > > let v1 : US8 = method16(v0)
00:01:17 verbose #4544 > > match v1 with
00:01:17 verbose #4545 > > | US8_1(v4) -> (* Error *)
00:01:17 verbose #4546 > > let v5 : Result<(string [[]]), string> = Error v4
00:01:17 verbose #4547 > > v5
00:01:17 verbose #4548 > > | US8_0(v2) -> (* Ok *)
00:01:17 verbose #4549 > > let v3 : Result<(string [[]]), string> = Ok v2
00:01:17 verbose #4550 > > v3
00:01:17 verbose #4551 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:17 verbose #4552 > > let v1 : US0 = US0_0
00:01:17 verbose #4553 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:17 verbose #4554 > > let v2 : (unit -> unit) = closure2()
00:01:17 verbose #4555 > > let current_process_kill () = v2 ()
00:01:17 verbose #4556 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:01:17 verbose #4557 > > let execute_async x = v3 x
00:01:17 verbose #4558 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:01:17 verbose #4559 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:01:17 verbose #4560 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:01:17 verbose #4561 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:01:17 verbose #4562 > > let execute_with_options_async x = v4 x
00:01:17 verbose #4563 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:01:17 verbose #4564 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:01:17 verbose #4565 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:01:17 verbose #4566 > > unit) option * bool * string option)) = closure20()
00:01:17 verbose #4567 > > let execution_options x = v5 x
00:01:17 verbose #4568 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:01:17 verbose #4569 > > let split_args x = v6 x
00:01:17 verbose #4570 > > ()
00:01:17 verbose #4571 > >
00:01:19 verbose #4572 > >
00:01:19 verbose #4573 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #4574 > > #if FABLE_COMPILER
00:01:19 verbose #4575 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:01:19 verbose #4576 > > #endif
00:01:19 verbose #4577 > > type std_fs_File = class end
00:01:19 verbose #4578 > > #if FABLE_COMPILER
00:01:19 verbose #4579 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:01:19 verbose #4580 > > #endif
00:01:19 verbose #4581 > > type std_fs_FileType = class end
00:01:19 verbose #4582 > > #if FABLE_COMPILER
00:01:19 verbose #4583 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:01:19 verbose #4584 > > #endif
00:01:19 verbose #4585 > > type std_path_Display = class end
00:01:19 verbose #4586 > > #if FABLE_COMPILER
00:01:19 verbose #4587 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:01:19 verbose #4588 > > #endif
00:01:19 verbose #4589 > > type std_path_Path = class end
00:01:19 verbose #4590 > > #if FABLE_COMPILER
00:01:19 verbose #4591 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:01:19 verbose #4592 > > #endif
00:01:19 verbose #4593 > > type std_path_PathBuf = class end
00:01:19 verbose #4594 > > #if FABLE_COMPILER
00:01:19 verbose #4595 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:01:19 verbose #4596 > > #endif
00:01:19 verbose #4597 > > type async_walkdir_DirEntry = class end
00:01:19 verbose #4598 > > #if FABLE_COMPILER
00:01:19 verbose #4599 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:01:19 verbose #4600 > > #endif
00:01:19 verbose #4601 > > type async_walkdir_Filtering = class end
00:01:19 verbose #4602 > > #if FABLE_COMPILER
00:01:19 verbose #4603 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:01:19 verbose #4604 > > #endif
00:01:19 verbose #4605 > > type async_walkdir_WalkDir = class end
00:01:19 verbose #4606 > > #if FABLE_COMPILER
00:01:19 verbose #4607 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:19 verbose #4608 > > #endif
00:01:19 verbose #4609 > > type core_any_Any = class end
00:01:19 verbose #4610 > > #if FABLE_COMPILER
00:01:19 verbose #4611 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:19 verbose #4612 > > #endif
00:01:19 verbose #4613 > > type core_ops_Try<'T> = class end
00:01:19 verbose #4614 > > #if FABLE_COMPILER
00:01:19 verbose #4615 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:19 verbose #4616 > > #endif
00:01:19 verbose #4617 > > type Func0<'T> = class end
00:01:19 verbose #4618 > > #if FABLE_COMPILER
00:01:19 verbose #4619 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:19 verbose #4620 > > #endif
00:01:19 verbose #4621 > > type Func0<'T, 'U> = class end
00:01:19 verbose #4622 > > #if FABLE_COMPILER
00:01:19 verbose #4623 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:19 verbose #4624 > > #endif
00:01:19 verbose #4625 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:01:19 verbose #4626 > > let wait_for_file_access x = v3 x
00:01:19 verbose #4627 > > let v4 : (string -> Async<int64>) = closure12()
00:01:19 verbose #4628 > > let wait_for_file_access_read x = v4 x
00:01:19 verbose #4629 > > let v5 : (string -> Async<string>) = closure13()
00:01:19 verbose #4630 > > let read_all_text_async x = v5 x
00:01:19 verbose #4631 > > let v6 : (string -> (string -> bool)) = closure14()
00:01:19 verbose #4632 > > let file_exists_content x = v6 x
00:01:19 verbose #4633 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:01:19 verbose #4634 > > let write_all_text_async x = v7 x
00:01:19 verbose #4635 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:01:19 verbose #4636 > > let write_all_text_exists x = v8 x
00:01:19 verbose #4637 > > let v9 : (string -> Async<int64>) = closure20()
00:01:19 verbose #4638 > > let delete_file_async x = v9 x
00:01:19 verbose #4639 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:01:19 verbose #4640 > > let move_file_async x = v10 x
00:01:19 verbose #4641 > > let v11 : (string -> Async<string option>) = closure27()
00:01:19 verbose #4642 > > let read_all_text_retry_async x = v11 x
00:01:19 verbose #4643 > > let v12 : (unit -> string) = closure35()
00:01:19 verbose #4644 > > let create_temp_path () = v12 ()
00:01:19 verbose #4645 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:01:19 verbose #4646 > > let create_temp_dir () = v13 ()
00:01:19 verbose #4647 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:01:19 verbose #4648 > > let create_temp_dir' x = v14 x
00:01:19 verbose #4649 > > let v15 : (unit -> string) = closure49()
00:01:19 verbose #4650 > > let get_source_directory () = v15 ()
00:01:19 verbose #4651 > > let v16 : (string -> string) = closure50()
00:01:19 verbose #4652 > > let normalize_path x = v16 x
00:01:19 verbose #4653 > > let v17 : (string -> string) = closure51()
00:01:19 verbose #4654 > > let new_file_uri x = v17 x
00:01:19 verbose #4655 > > let v18 : (unit -> string) = closure52()
00:01:19 verbose #4656 > > let get_workspace_root () = v18 ()
00:01:19 verbose #4657 > > let v19 : (bool -> unit) = closure56()
00:01:19 verbose #4658 > > let init_trace_file x = v19 x
00:01:19 verbose #4659 > > let v20 : (string -> (string -> string)) = closure58()
00:01:19 verbose #4660 > > let (</>) x = v20 x
00:01:19 verbose #4661 > > ()
00:01:19 verbose #4662 > >
00:01:21 verbose #4663 > >
00:01:21 verbose #4664 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:21 verbose #4665 > > #if FABLE_COMPILER
00:01:21 verbose #4666 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:21 verbose #4667 > > #endif
00:01:21 verbose #4668 > > type core_any_Any = class end
00:01:21 verbose #4669 > > #if FABLE_COMPILER
00:01:21 verbose #4670 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:21 verbose #4671 > > #endif
00:01:21 verbose #4672 > > type core_ops_Try<'T> = class end
00:01:21 verbose #4673 > > #if FABLE_COMPILER
00:01:21 verbose #4674 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:21 verbose #4675 > > #endif
00:01:21 verbose #4676 > > type Func0<'T> = class end
00:01:21 verbose #4677 > > #if FABLE_COMPILER
00:01:21 verbose #4678 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:21 verbose #4679 > > #endif
00:01:21 verbose #4680 > > type Func0<'T, 'U> = class end
00:01:21 verbose #4681 > > #if FABLE_COMPILER
00:01:21 verbose #4682 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:21 verbose #4683 > > #endif
00:01:21 verbose #4684 > > type Box<'T> = class end
00:01:21 verbose #4685 > > #if FABLE_COMPILER
00:01:21 verbose #4686 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:21 verbose #4687 > > #endif
00:01:21 verbose #4688 > > type Dyn<'T> = class end
00:01:21 verbose #4689 > > #if FABLE_COMPILER
00:01:21 verbose #4690 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:21 verbose #4691 > > #endif
00:01:21 verbose #4692 > > type Send<'T> = class end
00:01:21 verbose #4693 > > #if FABLE_COMPILER
00:01:21 verbose #4694 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:21 verbose #4695 > > #endif
00:01:21 verbose #4696 > > type Fn<'T> = class end
00:01:21 verbose #4697 > > #if FABLE_COMPILER
00:01:21 verbose #4698 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:21 verbose #4699 > > #endif
00:01:21 verbose #4700 > > type FnUnit = class end
00:01:21 verbose #4701 > > #if FABLE_COMPILER
00:01:21 verbose #4702 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:21 verbose #4703 > > #endif
00:01:21 verbose #4704 > > type FnOnce<'T> = class end
00:01:21 verbose #4705 > > #if FABLE_COMPILER
00:01:21 verbose #4706 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:21 verbose #4707 > > #endif
00:01:21 verbose #4708 > > type ActionFn<'T> = class end
00:01:21 verbose #4709 > > #if FABLE_COMPILER
00:01:21 verbose #4710 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:21 verbose #4711 > > #endif
00:01:21 verbose #4712 > > type ActionFn2<'T, 'U> = class end
00:01:21 verbose #4713 > > #if FABLE_COMPILER
00:01:21 verbose #4714 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:21 verbose #4715 > > #endif
00:01:21 verbose #4716 > > type Impl<'T> = class end
00:01:21 verbose #4717 > > #if FABLE_COMPILER
00:01:21 verbose #4718 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:21 verbose #4719 > > #endif
00:01:21 verbose #4720 > > type Mut<'T> = class end
00:01:21 verbose #4721 > > #if FABLE_COMPILER
00:01:21 verbose #4722 > > [[<Fable.Core.Erase; Fable.C... #endif
00:01:21 verbose #4723 > > #if FABLE_COMPILER_RUST && WASM
00:01:21 verbose #4724 > > let v27 : string = @"println!(""{}"", $0)"
00:01:21 verbose #4725 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:01:21 verbose #4726 > > ()
00:01:21 verbose #4727 > > #endif
00:01:21 verbose #4728 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:21 verbose #4729 > > let v28 : string = @"println!(""{}"", $0)"
00:01:21 verbose #4730 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:21 verbose #4731 > > ()
00:01:21 verbose #4732 > > #endif
00:01:21 verbose #4733 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:21 verbose #4734 > > System.Console.WriteLine v24
00:01:21 verbose #4735 > > ()
00:01:21 verbose #4736 > > #endif
00:01:21 verbose #4737 > > #if FABLE_COMPILER_PYTHON
00:01:21 verbose #4738 > > System.Console.WriteLine v24
00:01:21 verbose #4739 > > ()
00:01:21 verbose #4740 > > #endif
00:01:21 verbose #4741 > > #else
00:01:21 verbose #4742 > > System.Console.WriteLine v24
00:01:21 verbose #4743 > > ()
00:01:21 verbose #4744 > > #endif
00:01:21 verbose #4745 > > |> fun x -> _v25 <- Some x
00:01:21 verbose #4746 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:21 verbose #4747 > > _v25=None"
00:01:21 verbose #4748 > > let v29 : (string -> unit) = v8.l0
00:01:21 verbose #4749 > > v29 v24
00:01:21 verbose #4750 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:21 verbose #4751 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:21 verbose #4752 > > method8(v0, v3)
00:01:21 verbose #4753 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:01:21 verbose #4754 > > method4(v0, v1, v2)
00:01:21 verbose #4755 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:01:21 verbose #4756 > > closure4(v0, v1)
00:01:21 verbose #4757 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:01:21 verbose #4758 > > closure3(v0)
00:01:21 verbose #4759 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:21 verbose #4760 > > let v1 : US0 = US0_0
00:01:21 verbose #4761 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:21 verbose #4762 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:01:21 verbose #4763 > > let trace x = v2 x
00:01:21 verbose #4764 > > ()
00:01:21 verbose #4765 > >
00:01:22 verbose #4766 > >
00:01:22 verbose #4767 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:22 verbose #4768 > > module SpiralTrace =
00:01:22 verbose #4769 > > let trace x =
00:01:22 verbose #4770 > > #if !INTERACTIVE
00:01:22 verbose #4771 > > Trace.trace x
00:01:22 verbose #4772 > > #else
00:01:22 verbose #4773 > > trace x
00:01:22 verbose #4774 > > #endif
00:01:22 verbose #4775 > >
00:01:22 verbose #4776 > > type TraceLevel =
00:01:22 verbose #4777 > > #if !INTERACTIVE
00:01:22 verbose #4778 > > Trace.US0
00:01:22 verbose #4779 > > #else
00:01:22 verbose #4780 > > US0
00:01:22 verbose #4781 > > #endif
00:01:22 verbose #4782 > >
00:01:22 verbose #4783 > > module SpiralCrypto =
00:01:22 verbose #4784 > > let hash_text x =
00:01:22 verbose #4785 > > #if !INTERACTIVE
00:01:22 verbose #4786 > > Crypto.hash_text x
00:01:22 verbose #4787 > > #else
00:01:22 verbose #4788 > > hash_text x
00:01:22 verbose #4789 > > #endif
00:01:22 verbose #4790 > >
00:01:22 verbose #4791 > > let hash_to_port x =
00:01:22 verbose #4792 > > #if !INTERACTIVE
00:01:22 verbose #4793 > > Crypto.hash_to_port x
00:01:22 verbose #4794 > > #else
00:01:22 verbose #4795 > > hash_to_port x
00:01:22 verbose #4796 > > #endif
00:01:22 verbose #4797 > >
00:01:22 verbose #4798 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:22 verbose #4799 > >
00:01:22 verbose #4800 > > module SpiralAsync =
00:01:22 verbose #4801 > > let merge_cancellation_token_with_default_async x =
00:01:22 verbose #4802 > > #if !INTERACTIVE
00:01:22 verbose #4803 > > Async_.merge_cancellation_token_with_default_async x
00:01:22 verbose #4804 > > #else
00:01:22 verbose #4805 > > merge_cancellation_token_with_default_async x
00:01:22 verbose #4806 > > #endif
00:01:22 verbose #4807 > >
00:01:22 verbose #4808 > > module SpiralThreading =
00:01:22 verbose #4809 > > let new_disposable_token x =
00:01:22 verbose #4810 > > #if !INTERACTIVE
00:01:22 verbose #4811 > > Threading.new_disposable_token x
00:01:22 verbose #4812 > > #else
00:01:22 verbose #4813 > > new_disposable_token x
00:01:22 verbose #4814 > > #endif
00:01:22 verbose #4815 > >
00:01:22 verbose #4816 > > module SpiralNetworking =
00:01:22 verbose #4817 > > let test_port_open x =
00:01:22 verbose #4818 > > #if !INTERACTIVE
00:01:22 verbose #4819 > > Networking.test_port_open x
00:01:22 verbose #4820 > > #else
00:01:22 verbose #4821 > > test_port_open x
00:01:22 verbose #4822 > > #endif
00:01:22 verbose #4823 > >
00:01:22 verbose #4824 > > let test_port_open_timeout x =
00:01:22 verbose #4825 > > #if !INTERACTIVE
00:01:22 verbose #4826 > > Networking.test_port_open_timeout x
00:01:22 verbose #4827 > > #else
00:01:22 verbose #4828 > > test_port_open_timeout x
00:01:22 verbose #4829 > > #endif
00:01:22 verbose #4830 > >
00:01:22 verbose #4831 > > let wait_for_port_access x =
00:01:22 verbose #4832 > > #if !INTERACTIVE
00:01:22 verbose #4833 > > Networking.wait_for_port_access x
00:01:22 verbose #4834 > > #else
00:01:22 verbose #4835 > > wait_for_port_access x
00:01:22 verbose #4836 > > #endif
00:01:22 verbose #4837 > >
00:01:22 verbose #4838 > > let get_available_port x =
00:01:22 verbose #4839 > > #if !INTERACTIVE
00:01:22 verbose #4840 > > Networking.get_available_port x
00:01:22 verbose #4841 > > #else
00:01:22 verbose #4842 > > get_available_port x
00:01:22 verbose #4843 > > #endif
00:01:22 verbose #4844 > >
00:01:22 verbose #4845 > > module SpiralPlatform =
00:01:22 verbose #4846 > > let get_executable_suffix () =
00:01:22 verbose #4847 > > #if !INTERACTIVE
00:01:22 verbose #4848 > > Platform.g...e.trace_state
00:01:22 verbose #4849 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:22 verbose #4850 > > level.l0 <-
00:01:22 verbose #4851 > > match new_level with
00:01:22 verbose #4852 > > | Trace.US0_0 -> File_system.US0_0
00:01:22 verbose #4853 > > | Trace.US0_1 -> File_system.US0_1
00:01:22 verbose #4854 > > | Trace.US0_2 -> File_system.US0_2
00:01:22 verbose #4855 > > | Trace.US0_3 -> File_system.US0_3
00:01:22 verbose #4856 > > | Trace.US0_4 -> File_system.US0_4
00:01:22 verbose #4857 > > )
00:01:22 verbose #4858 > >
00:01:22 verbose #4859 > > Runtime.State.trace_state
00:01:22 verbose #4860 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:22 verbose #4861 > > level.l0 <-
00:01:22 verbose #4862 > > match new_level with
00:01:22 verbose #4863 > > | Trace.US0_0 -> Runtime.US0_0
00:01:22 verbose #4864 > > | Trace.US0_1 -> Runtime.US0_1
00:01:22 verbose #4865 > > | Trace.US0_2 -> Runtime.US0_2
00:01:22 verbose #4866 > > | Trace.US0_3 -> Runtime.US0_3
00:01:22 verbose #4867 > > | Trace.US0_4 -> Runtime.US0_4
00:01:22 verbose #4868 > > )
00:01:22 verbose #4869 > >
00:01:22 verbose #4870 > > Common.State.trace_state
00:01:22 verbose #4871 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:22 verbose #4872 > > level.l0 <-
00:01:22 verbose #4873 > > match new_level with
00:01:22 verbose #4874 > > | Trace.US0_0 -> Common.US0_0
00:01:22 verbose #4875 > > | Trace.US0_1 -> Common.US0_1
00:01:22 verbose #4876 > > | Trace.US0_2 -> Common.US0_2
00:01:22 verbose #4877 > > | Trace.US0_3 -> Common.US0_3
00:01:22 verbose #4878 > > | Trace.US0_4 -> Common.US0_4
00:01:22 verbose #4879 > > )
00:01:22 verbose #4880 > >
00:01:22 verbose #4881 > > Trace.State.trace_state
00:01:22 verbose #4882 > > #else
00:01:22 verbose #4883 > > State.trace_state
00:01:22 verbose #4884 > > #endif
00:01:22 verbose #4885 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:01:22 verbose #4886 > > level.l0 <- new_level
00:01:22 verbose #4887 > > )
00:01:22 verbose #4888 > >
00:01:22 verbose #4889 > > let get_trace_level () =
00:01:22 verbose #4890 > > #if !INTERACTIVE
00:01:22 verbose #4891 > > Trace.State.trace_state
00:01:22 verbose #4892 > > #else
00:01:22 verbose #4893 > > State.trace_state
00:01:22 verbose #4894 > > #endif
00:01:22 verbose #4895 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:01:22 verbose #4896 > > level.l0
00:01:22 verbose #4897 > > )
00:01:22 verbose #4898 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:01:22 verbose #4899 > > trace_state=None")
00:01:22 verbose #4900 > >
00:01:22 verbose #4901 > >
00:01:22 verbose #4902 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:22 verbose #4903 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:22 verbose #4904 > >
00:01:22 verbose #4905 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:22 verbose #4906 > > //// test
00:01:22 verbose #4907 > >
00:01:22 verbose #4908 > > type AssertExceptionFormatter (ex) =
00:01:22 verbose #4909 > > member _.Text =
00:01:22 verbose #4910 > > ex.ToString()
00:01:22 verbose #4911 > > .Replace("32m", "<span style=\"color: green;\">")
00:01:22 verbose #4912 > > .Replace("36m", "</span>")
00:01:22 verbose #4913 > > .Replace("31m", "<span style=\"color: red;\">")
00:01:22 verbose #4914 > > .Replace("\n", "<br/>\n")
00:01:22 verbose #4915 > >
00:01:22 verbose #4916 > >
00:01:22 verbose #4917 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:22 verbose #4918 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:22 verbose #4919 > >
00:01:22 verbose #4920 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:22 verbose #4921 > > //// test
00:01:22 verbose #4922 > >
00:01:22 verbose #4923 > > let inline __expect fn log expected actual =
00:01:22 verbose #4924 > > if log then printfn $"{actual.ToDisplayString ()}"
00:01:22 verbose #4925 > > try
00:01:22 verbose #4926 > > "Testing.__expect" |> fn actual expected
00:01:22 verbose #4927 > > with :? Expecto.AssertException as ex ->
00:01:22 verbose #4928 > > AssertExceptionFormatter(ex).Display () |> ignore
00:01:22 verbose #4929 > > failwith (ex.GetType().FullName)
00:01:22 verbose #4930 > >
00:01:22 verbose #4931 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:22 verbose #4932 > > expected actual
00:01:22 verbose #4933 > > let inline _contains expected actual = __contains true expected actual
00:01:22 verbose #4934 > >
00:01:22 verbose #4935 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:22 verbose #4936 > > expected actual
00:01:22 verbose #4937 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:22 verbose #4938 > >
00:01:22 verbose #4939 > > let inline __isGreaterThan log expected actual = __expect
00:01:22 verbose #4940 > > Expecto.Expect.isGreaterThan log expected actual
00:01:22 verbose #4941 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:01:22 verbose #4942 > >
00:01:22 verbose #4943 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:01:22 verbose #4944 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:01:22 verbose #4945 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:01:22 verbose #4946 > > expected actual
00:01:22 verbose #4947 > >
00:01:22 verbose #4948 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:01:22 verbose #4949 > > log expected actual
00:01:22 verbose #4950 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:01:22 verbose #4951 > >
00:01:22 verbose #4952 > > let inline __isLessThanOrEqual log expected actual = __expect
00:01:22 verbose #4953 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:01:22 verbose #4954 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:01:22 verbose #4955 > > expected actual
00:01:22 verbose #4956 > >
00:01:22 verbose #4957 > > let inline __sequenceEqual log expected actual = __expect
00:01:22 verbose #4958 > > Expecto.Expect.sequenceEqual log expected actual
00:01:22 verbose #4959 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:01:22 verbose #4960 > >
00:01:22 verbose #4961 > > let inline __stringContains log expected actual = __expect
00:01:22 verbose #4962 > > Expecto.Expect.stringContains log expected actual
00:01:22 verbose #4963 > > let inline _stringContains expected actual = __stringContains true expected
00:01:22 verbose #4964 > > actual
00:01:22 verbose #4965 > >
00:01:22 verbose #4966 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:01:22 verbose #4967 > > log expected actual
00:01:22 verbose #4968 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:01:22 verbose #4969 > >
00:01:22 verbose #4970 > > let inline __stringStarts log expected actual = __expect
00:01:22 verbose #4971 > > Expecto.Expect.stringStarts log expected actual
00:01:22 verbose #4972 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:01:22 verbose #4973 > >
00:01:22 verbose #4974 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:01:22 verbose #4975 > > expected actual
00:01:22 verbose #4976 > > let inline _throwsC expected actual = __throwsC true expected actual
00:01:22 verbose #4977 > >
00:01:22 verbose #4978 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:22 verbose #4979 > > //// test
00:01:22 verbose #4980 > >
00:01:22 verbose #4981 > > let inline __isBetween log a b actual =
00:01:22 verbose #4982 > > let inline isBetween actual (a, b) _ =
00:01:22 verbose #4983 > > __isGreaterThanOrEqual log a actual
00:01:22 verbose #4984 > > __isLessThanOrEqual log b actual
00:01:22 verbose #4985 > > __expect isBetween log (a, b) actual
00:01:22 verbose #4986 > > let inline _isBetween a b actual = __isBetween true a b actual
00:01:22 verbose #4987 > >
00:01:22 verbose #4988 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #4989 > > #if !INTERACTIVE
00:01:22 verbose #4990 > > open Lib
00:01:22 verbose #4991 > > #endif
00:01:22 verbose #4992 > >
00:01:22 verbose #4993 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #4994 > > let nl = System.Environment.NewLine
00:01:22 verbose #4995 > > let q = @""""
00:01:22 verbose #4996 > >
00:01:22 verbose #4997 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #4998 > > let inline cons head tail = head :: tail
00:01:22 verbose #4999 > >
00:01:22 verbose #5000 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #5001 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #5002 > > │ ## memoize │
00:01:22 verbose #5003 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #5004 > >
00:01:22 verbose #5005 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #5006 > > let inline memoize fn =
00:01:22 verbose #5007 > > let result = lazy fn ()
00:01:22 verbose #5008 > > fun () -> result.Value
00:01:22 verbose #5009 > >
00:01:22 verbose #5010 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #5011 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #5012 > > │ ## TraceLevel │
00:01:22 verbose #5013 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #5014 > >
00:01:22 verbose #5015 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #5016 > > type TraceLevel =
00:01:22 verbose #5017 > > | Verbose
00:01:22 verbose #5018 > > | Debug
00:01:22 verbose #5019 > > | Info
00:01:22 verbose #5020 > > | Warning
00:01:22 verbose #5021 > > | Critical
00:01:22 verbose #5022 > >
00:01:22 verbose #5023 > > let inline _locals () = ""
00:01:22 verbose #5024 > >
00:01:22 verbose #5025 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #5026 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #5027 > > │ ## trace │
00:01:22 verbose #5028 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #5029 > >
00:01:22 verbose #5030 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #5031 > > let to_trace_level = function
00:01:22 verbose #5032 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:22 verbose #5033 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:22 verbose #5034 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:22 verbose #5035 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:22 verbose #5036 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:01:22 verbose #5037 > >
00:01:22 verbose #5038 > > let trace level fn locals =
00:01:22 verbose #5039 > > let level = level |> to_trace_level
00:01:22 verbose #5040 > > SpiralTrace.trace level fn locals
00:01:22 verbose #5041 > >
00:01:22 verbose #5042 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #5043 > > //// test
00:01:22 verbose #5044 > >
00:01:22 verbose #5045 > > trace Debug (fun () -> "test") _locals
00:01:22 verbose #5046 > >
00:01:22 verbose #5047 > > ╭─[ 22.79ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:22 verbose #5048 > > │ 00:00:00 debug #1 test │
00:01:22 verbose #5049 > > │ │
00:01:22 verbose #5050 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:23 verbose #5051 > 00:00:18 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 45439
00:01:23 verbose #5052 > 00:00:18 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:25 verbose #5053 > 00:00:21 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb to html
00:01:25 verbose #5054 > 00:00:21 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:25 verbose #5055 > 00:00:21 verbose #7 ! validate(nb)
00:01:26 verbose #5056 > 00:00:22 verbose #8 ! [NbConvertApp] Writing 280692 bytes to c:\home\git\polyglot\lib\fsharp\Common.dib.html
00:01:26 verbose #5057 > 00:00:22 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:01:26 verbose #5058 > 00:00:22 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:01:26 verbose #5059 > 00:00:22 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Common.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Common.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:27 verbose #5060 > 00:00:23 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:27 verbose #5061 > 00:00:23 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:28 verbose #5062 > 00:00:23 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 46141
00:01:28 debug #5063 runtime.execute_with_options_async / exit_code: 0 / output.Length: 51194
00:01:28 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Common.dib --retries 3
00:01:28 debug #5064 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path CommonFSharp.dib --retries 3",
[||], None, None, true, None)
00:01:28 verbose #5065 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "CommonFSharp.dib", "--retries", "3"])
00:01:28 verbose #5066 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib" --output-path "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:30 verbose #5067 > >
00:01:30 verbose #5068 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:30 verbose #5069 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:30 verbose #5070 > > │ # CommonFSharp (Polyglot) │
00:01:30 verbose #5071 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 verbose #5072 > >
00:01:30 verbose #5073 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:30 verbose #5074 > > #!import ../../lib/fsharp/Notebooks.dib
00:01:30 verbose #5075 > > #!import ../../lib/fsharp/Testing.dib
00:01:30 verbose #5076 > >
00:01:30 verbose #5077 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:30 verbose #5078 > > #r
00:01:30 verbose #5079 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:30 verbose #5080 > > spNetCore.Html.Abstractions.dll"
00:01:30 verbose #5081 > > #r
00:01:30 verbose #5082 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:30 verbose #5083 > > otNet.Interactive.dll"
00:01:30 verbose #5084 > > #r
00:01:30 verbose #5085 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:30 verbose #5086 > > otNet.Interactive.FSharp.dll"
00:01:30 verbose #5087 > > #r
00:01:30 verbose #5088 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:30 verbose #5089 > > otNet.Interactive.Formatting.dll"
00:01:30 verbose #5090 > > open System
00:01:30 verbose #5091 > > open System.IO
00:01:30 verbose #5092 > > open System.Text
00:01:30 verbose #5093 > > open Microsoft.DotNet.Interactive.Formatting
00:01:34 verbose #5094 > >
00:01:34 verbose #5095 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:34 verbose #5096 > > #r
00:01:34 verbose #5097 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:34 verbose #5098 > > otNet.Interactive.FSharp.dll"
00:01:34 verbose #5099 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:34 verbose #5100 > > #r
00:01:34 verbose #5101 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:34 verbose #5102 > > otNet.Interactive.dll"
00:01:34 verbose #5103 > > open type Microsoft.DotNet.Interactive.Kernel
00:01:34 verbose #5104 > >
00:01:34 verbose #5105 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:34 verbose #5106 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:01:35 verbose #5107 > >
00:01:35 verbose #5108 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:35 verbose #5109 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:01:35 verbose #5110 > > TextWriter)->fprintfn writer "%120A" x)
00:01:35 verbose #5111 > >
00:01:35 verbose #5112 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:35 verbose #5113 > > //// test
00:01:35 verbose #5114 > >
00:01:35 verbose #5115 > > Formatter.ListExpansionLimit <- 100
00:01:35 verbose #5116 > >
00:01:35 verbose #5117 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:35 verbose #5118 > > #if FABLE_COMPILER
00:01:35 verbose #5119 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:35 verbose #5120 > > #endif
00:01:35 verbose #5121 > > type std_env_VarError = class end
00:01:35 verbose #5122 > > #if FABLE_COMPILER
00:01:35 verbose #5123 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:35 verbose #5124 > > #endif
00:01:35 verbose #5125 > > type core_any_Any = class end
00:01:35 verbose #5126 > > #if FABLE_COMPILER
00:01:35 verbose #5127 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:35 verbose #5128 > > #endif
00:01:35 verbose #5129 > > type core_ops_Try<'T> = class end
00:01:35 verbose #5130 > > #if FABLE_COMPILER
00:01:35 verbose #5131 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:35 verbose #5132 > > #endif
00:01:35 verbose #5133 > > type Func0<'T> = class end
00:01:35 verbose #5134 > > #if FABLE_COMPILER
00:01:35 verbose #5135 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:35 verbose #5136 > > #endif
00:01:35 verbose #5137 > > type Func0<'T, 'U> = class end
00:01:35 verbose #5138 > > #if FABLE_COMPILER
00:01:35 verbose #5139 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:35 verbose #5140 > > #endif
00:01:35 verbose #5141 > > type Box<'T> = class end
00:01:35 verbose #5142 > > #if FABLE_COMPILER
00:01:35 verbose #5143 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:35 verbose #5144 > > #endif
00:01:35 verbose #5145 > > type Dyn<'T> = class end
00:01:35 verbose #5146 > > #if FABLE_COMPILER
00:01:35 verbose #5147 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:35 verbose #5148 > > #endif
00:01:35 verbose #5149 > > type Send<'T> = class end
00:01:35 verbose #5150 > > #if FABLE_COMPILER
00:01:35 verbose #5151 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:35 verbose #5152 > > #endif
00:01:35 verbose #5153 > > type Fn<'T> = class end
00:01:35 verbose #5154 > > #if FABLE_COMPILER
00:01:35 verbose #5155 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:35 verbose #5156 > > #endif
00:01:35 verbose #5157 > > type FnUnit = class end
00:01:35 verbose #5158 > > #if FABLE_COMPILER
00:01:35 verbose #5159 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:35 verbose #5160 > > #endif
00:01:35 verbose #5161 > > type FnOnce<'T> = class end
00:01:35 verbose #5162 > > #if FABLE_COMPILER
00:01:35 verbose #5163 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:35 verbose #5164 > > #endif
00:01:35 verbose #5165 > > type ActionFn<'T> = class end
00:01:35 verbose #5166 > > #if FABLE_COMPILER
00:01:35 verbose #5167 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:35 verbose #5168 > > #endif
00:01:35 verbose #5169 > > type ActionFn2<'T, 'U> = class end
00:01:35 verbose #5170 > > #if FABLE_COMPILER
00:01:35 verbose #5171 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:35 verbose #5172 > > #endif
00:01:35 verbose #5173 > > type Impl<'T> = class end
00:01:35 verbose #5174 > > #if FABLE_COMPILER
00:01:35 verbose #5175 > > [[<Fabl...2, v3, v4)
00:01:35 verbose #5176 > > US5_1
00:01:35 verbose #5177 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:01:35 verbose #5178 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:01:35 verbose #5179 > > let v4 : (US4 -> US5) = closure6()
00:01:35 verbose #5180 > > let v5 : (exn -> US5) = closure7(v2)
00:01:35 verbose #5181 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:01:35 verbose #5182 > > match v6 with
00:01:35 verbose #5183 > > | US5_1 -> (* None *)
00:01:35 verbose #5184 > > let v8 : int32 = v2 + 1
00:01:35 verbose #5185 > > method6(v0, v1, v8)
00:01:35 verbose #5186 > > | US5_0(v7) -> (* Some *)
00:01:35 verbose #5187 > > v7
00:01:35 verbose #5188 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:01:35 verbose #5189 > > let v2 : int32 = 0
00:01:35 verbose #5190 > > let v3 : US4 = method6(v0, v1, v2)
00:01:35 verbose #5191 > > match v3 with
00:01:35 verbose #5192 > > | US4_1 -> (* None *)
00:01:35 verbose #5193 > > let v5 : unit option = None
00:01:35 verbose #5194 > > v5
00:01:35 verbose #5195 > > | US4_0 -> (* Some *)
00:01:35 verbose #5196 > > let v4 : unit option = Some ()
00:01:35 verbose #5197 > > v4
00:01:35 verbose #5198 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:01:35 verbose #5199 > > closure4(v0)
00:01:35 verbose #5200 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:01:35 verbose #5201 > > v0
00:01:35 verbose #5202 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:01:35 verbose #5203 > > v0.Value
00:01:35 verbose #5204 > > ()
00:01:35 verbose #5205 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:01:35 verbose #5206 > > let v1 : (unit -> unit) = method12(v0)
00:01:35 verbose #5207 > > let v2 : Lazy<unit> = lazy v1 ()
00:01:35 verbose #5208 > > closure13(v2)
00:01:35 verbose #5209 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:35 verbose #5210 > > let v1 : US0 = US0_0
00:01:35 verbose #5211 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:35 verbose #5212 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:01:35 verbose #5213 > > let new_disposable x = v2 x
00:01:35 verbose #5214 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:01:35 verbose #5215 > > let retry_fn x = v3 x
00:01:35 verbose #5216 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:01:35 verbose #5217 > > let memoize x = v4 x
00:01:35 verbose #5218 > > ()
00:01:35 verbose #5219 > >
00:01:37 verbose #5220 > >
00:01:37 verbose #5221 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #5222 > > #if FABLE_COMPILER
00:01:37 verbose #5223 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:37 verbose #5224 > > #endif
00:01:37 verbose #5225 > > type core_any_Any = class end
00:01:37 verbose #5226 > > #if FABLE_COMPILER
00:01:37 verbose #5227 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:37 verbose #5228 > > #endif
00:01:37 verbose #5229 > > type core_ops_Try<'T> = class end
00:01:37 verbose #5230 > > #if FABLE_COMPILER
00:01:37 verbose #5231 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:37 verbose #5232 > > #endif
00:01:37 verbose #5233 > > type Func0<'T> = class end
00:01:37 verbose #5234 > > #if FABLE_COMPILER
00:01:37 verbose #5235 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:37 verbose #5236 > > #endif
00:01:37 verbose #5237 > > type Func0<'T, 'U> = class end
00:01:37 verbose #5238 > > #if FABLE_COMPILER
00:01:37 verbose #5239 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:37 verbose #5240 > > #endif
00:01:37 verbose #5241 > > type Box<'T> = class end
00:01:37 verbose #5242 > > #if FABLE_COMPILER
00:01:37 verbose #5243 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:37 verbose #5244 > > #endif
00:01:37 verbose #5245 > > type Dyn<'T> = class end
00:01:37 verbose #5246 > > #if FABLE_COMPILER
00:01:37 verbose #5247 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:37 verbose #5248 > > #endif
00:01:37 verbose #5249 > > type Send<'T> = class end
00:01:37 verbose #5250 > > #if FABLE_COMPILER
00:01:37 verbose #5251 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:37 verbose #5252 > > #endif
00:01:37 verbose #5253 > > type Fn<'T> = class end
00:01:37 verbose #5254 > > #if FABLE_COMPILER
00:01:37 verbose #5255 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:37 verbose #5256 > > #endif
00:01:37 verbose #5257 > > type FnUnit = class end
00:01:37 verbose #5258 > > #if FABLE_COMPILER
00:01:37 verbose #5259 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:37 verbose #5260 > > #endif
00:01:37 verbose #5261 > > type FnOnce<'T> = class end
00:01:37 verbose #5262 > > #if FABLE_COMPILER
00:01:37 verbose #5263 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:37 verbose #5264 > > #endif
00:01:37 verbose #5265 > > type ActionFn<'T> = class end
00:01:37 verbose #5266 > > #if FABLE_COMPILER
00:01:37 verbose #5267 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:37 verbose #5268 > > #endif
00:01:37 verbose #5269 > > type ActionFn2<'T, 'U> = class end
00:01:37 verbose #5270 > > #if FABLE_COMPILER
00:01:37 verbose #5271 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:37 verbose #5272 > > #endif
00:01:37 verbose #5273 > > type Impl<'T> = class end
00:01:37 verbose #5274 > > #if FABLE_COMPILER
00:01:37 verbose #5275 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:37 verbose #5276 > > #endif
00:01:37 verbose #5277 > > type Mut<'T> = class end
00:01:37 verbose #5278 > > #if FABLE_COMPILER
00:01:37 verbose #5279 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:01:37 verbose #5280 > > let replace x = v4 x
00:01:37 verbose #5281 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:01:37 verbose #5282 > > let replace_regex x = v5 x
00:01:37 verbose #5283 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:01:37 verbose #5284 > > let slice x = v6 x
00:01:37 verbose #5285 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:01:37 verbose #5286 > > let split x = v7 x
00:01:37 verbose #5287 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:01:37 verbose #5288 > > let split_string x = v8 x
00:01:37 verbose #5289 > > let v9 : (string -> (string -> bool)) = closure23()
00:01:37 verbose #5290 > > let starts_with x = v9 x
00:01:37 verbose #5291 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:01:37 verbose #5292 > > let substring x = v10 x
00:01:37 verbose #5293 > > let v11 : (string -> string) = closure28()
00:01:37 verbose #5294 > > let to_lower x = v11 x
00:01:37 verbose #5295 > > let v12 : (string -> string) = closure29()
00:01:37 verbose #5296 > > let to_upper x = v12 x
00:01:37 verbose #5297 > > let v13 : (string -> string) = closure30()
00:01:37 verbose #5298 > > let trim x = v13 x
00:01:37 verbose #5299 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:01:37 verbose #5300 > > let trim_end x = v14 x
00:01:37 verbose #5301 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:01:37 verbose #5302 > > let trim_start x = v15 x
00:01:37 verbose #5303 > > let v16 : (int32 -> (string -> string)) = closure35()
00:01:37 verbose #5304 > > let ellipsis x = v16 x
00:01:37 verbose #5305 > > let v17 : (int64 -> (string -> string)) = closure37()
00:01:37 verbose #5306 > > let ellipsis_end x = v17 x
00:01:37 verbose #5307 > > let v18 : (exn -> string) = closure39()
00:01:37 verbose #5308 > > let format_exception x = v18 x
00:01:37 verbose #5309 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:01:37 verbose #5310 > > let concat_array_trailing x = v19 x
00:01:37 verbose #5311 > > let v20 : (string -> (string seq -> string)) = closure42()
00:01:37 verbose #5312 > > let concat x = v20 x
00:01:37 verbose #5313 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:01:37 verbose #5314 > > let join' x = v21 x
00:01:37 verbose #5315 > > let v22 : (string -> (char [[]])) = closure46()
00:01:37 verbose #5316 > > let to_char_array x = v22 x
00:01:37 verbose #5317 > > ()
00:01:37 verbose #5318 > >
00:01:38 verbose #5319 > >
00:01:38 verbose #5320 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:38 verbose #5321 > > #if FABLE_COMPILER
00:01:38 verbose #5322 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:38 verbose #5323 > > #endif
00:01:38 verbose #5324 > > type core_any_Any = class end
00:01:38 verbose #5325 > > #if FABLE_COMPILER
00:01:38 verbose #5326 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:38 verbose #5327 > > #endif
00:01:38 verbose #5328 > > type core_ops_Try<'T> = class end
00:01:38 verbose #5329 > > #if FABLE_COMPILER
00:01:38 verbose #5330 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:38 verbose #5331 > > #endif
00:01:38 verbose #5332 > > type Func0<'T> = class end
00:01:38 verbose #5333 > > #if FABLE_COMPILER
00:01:38 verbose #5334 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:38 verbose #5335 > > #endif
00:01:38 verbose #5336 > > type Func0<'T, 'U> = class end
00:01:38 verbose #5337 > > #if FABLE_COMPILER
00:01:38 verbose #5338 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:38 verbose #5339 > > #endif
00:01:38 verbose #5340 > > type Box<'T> = class end
00:01:38 verbose #5341 > > #if FABLE_COMPILER
00:01:38 verbose #5342 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:38 verbose #5343 > > #endif
00:01:38 verbose #5344 > > type Dyn<'T> = class end
00:01:38 verbose #5345 > > #if FABLE_COMPILER
00:01:38 verbose #5346 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:38 verbose #5347 > > #endif
00:01:38 verbose #5348 > > type Send<'T> = class end
00:01:38 verbose #5349 > > #if FABLE_COMPILER
00:01:38 verbose #5350 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:38 verbose #5351 > > #endif
00:01:38 verbose #5352 > > type Fn<'T> = class end
00:01:38 verbose #5353 > > #if FABLE_COMPILER
00:01:38 verbose #5354 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:38 verbose #5355 > > #endif
00:01:38 verbose #5356 > > type FnUnit = class end
00:01:38 verbose #5357 > > #if FABLE_COMPILER
00:01:38 verbose #5358 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:38 verbose #5359 > > #endif
00:01:38 verbose #5360 > > type FnOnce<'T> = class end
00:01:38 verbose #5361 > > #if FABLE_COMPILER
00:01:38 verbose #5362 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:38 verbose #5363 > > #endif
00:01:38 verbose #5364 > > type ActionFn<'T> = class end
00:01:38 verbose #5365 > > #if FABLE_COMPILER
00:01:38 verbose #5366 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:38 verbose #5367 > > #endif
00:01:38 verbose #5368 > > type ActionFn2<'T, 'U> = class end
00:01:38 verbose #5369 > > #if FABLE_COMPILER
00:01:38 verbose #5370 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:38 verbose #5371 > > #endif
00:01:38 verbose #5372 > > type Impl<'T> = class end
00:01:38 verbose #5373 > > #if FABLE_COMPILER
00:01:38 verbose #5374 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:38 verbose #5375 > > #endif
00:01:38 verbose #5376 > > type Mut<'T> = class end
00:01:38 verbose #5377 > > #if FABLE_COMPILER
00:01:38 verbose #5378 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:01:38 verbose #5379 > > ()
00:01:38 verbose #5380 > > #endif
00:01:38 verbose #5381 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:38 verbose #5382 > > let v28 : string = @"println!(""{}"", $0)"
00:01:38 verbose #5383 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:38 verbose #5384 > > ()
00:01:38 verbose #5385 > > #endif
00:01:38 verbose #5386 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:38 verbose #5387 > > System.Console.WriteLine v24
00:01:38 verbose #5388 > > ()
00:01:38 verbose #5389 > > #endif
00:01:38 verbose #5390 > > #if FABLE_COMPILER_PYTHON
00:01:38 verbose #5391 > > System.Console.WriteLine v24
00:01:38 verbose #5392 > > ()
00:01:38 verbose #5393 > > #endif
00:01:38 verbose #5394 > > #else
00:01:38 verbose #5395 > > System.Console.WriteLine v24
00:01:38 verbose #5396 > > ()
00:01:38 verbose #5397 > > #endif
00:01:38 verbose #5398 > > |> fun x -> _v25 <- Some x
00:01:38 verbose #5399 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:38 verbose #5400 > > _v25=None"
00:01:38 verbose #5401 > > let v29 : (string -> unit) = v8.l0
00:01:38 verbose #5402 > > v29 v24
00:01:38 verbose #5403 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:38 verbose #5404 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:38 verbose #5405 > > method11(v0, v3)
00:01:38 verbose #5406 > > and closure1 () (v0 : string) : uint16 =
00:01:38 verbose #5407 > > let v1 : char = v0.[[int 0]]
00:01:38 verbose #5408 > > let v2 : (char -> int32) = int32
00:01:38 verbose #5409 > > let v3 : int32 = v2 v1
00:01:38 verbose #5410 > > let v4 : string = v0.[[int 0..int 7]]
00:01:38 verbose #5411 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:01:38 verbose #5412 > > let v6 : int32 = v5 + v3
00:01:38 verbose #5413 > > let v7 : (int32 -> uint16) = uint16
00:01:38 verbose #5414 > > let v8 : uint16 = v7 v6
00:01:38 verbose #5415 > > let v9 : US0 = US0_0
00:01:38 verbose #5416 > > let v10 : (unit -> string) = closure2()
00:01:38 verbose #5417 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:01:38 verbose #5418 > > method3(v9, v10, v11)
00:01:38 verbose #5419 > > let v12 : uint16 = v8 % 48128us
00:01:38 verbose #5420 > > let v13 : uint16 = v12 + 1024us
00:01:38 verbose #5421 > > v13
00:01:38 verbose #5422 > > let v0 : (string -> string) = closure0()
00:01:38 verbose #5423 > > let hash_text x = v0 x
00:01:38 verbose #5424 > > let v1 : (string -> uint16) = closure1()
00:01:38 verbose #5425 > > let hash_to_port x = v1 x
00:01:38 verbose #5426 > > ()
00:01:38 verbose #5427 > >
00:01:38 verbose #5428 > >
00:01:38 verbose #5429 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:39 verbose #5430 > > #if FABLE_COMPILER
00:01:39 verbose #5431 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:39 verbose #5432 > > #endif
00:01:39 verbose #5433 > > type core_any_Any = class end
00:01:39 verbose #5434 > > #if FABLE_COMPILER
00:01:39 verbose #5435 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:39 verbose #5436 > > #endif
00:01:39 verbose #5437 > > type core_ops_Try<'T> = class end
00:01:39 verbose #5438 > > #if FABLE_COMPILER
00:01:39 verbose #5439 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:39 verbose #5440 > > #endif
00:01:39 verbose #5441 > > type Func0<'T> = class end
00:01:39 verbose #5442 > > #if FABLE_COMPILER
00:01:39 verbose #5443 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:39 verbose #5444 > > #endif
00:01:39 verbose #5445 > > type Func0<'T, 'U> = class end
00:01:39 verbose #5446 > > #if FABLE_COMPILER
00:01:39 verbose #5447 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:39 verbose #5448 > > #endif
00:01:39 verbose #5449 > > type Box<'T> = class end
00:01:39 verbose #5450 > > #if FABLE_COMPILER
00:01:39 verbose #5451 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:39 verbose #5452 > > #endif
00:01:39 verbose #5453 > > type Dyn<'T> = class end
00:01:39 verbose #5454 > > #if FABLE_COMPILER
00:01:39 verbose #5455 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:39 verbose #5456 > > #endif
00:01:39 verbose #5457 > > type Send<'T> = class end
00:01:39 verbose #5458 > > #if FABLE_COMPILER
00:01:39 verbose #5459 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:39 verbose #5460 > > #endif
00:01:39 verbose #5461 > > type Fn<'T> = class end
00:01:39 verbose #5462 > > #if FABLE_COMPILER
00:01:39 verbose #5463 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:39 verbose #5464 > > #endif
00:01:39 verbose #5465 > > type FnUnit = class end
00:01:39 verbose #5466 > > #if FABLE_COMPILER
00:01:39 verbose #5467 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:39 verbose #5468 > > #endif
00:01:39 verbose #5469 > > type FnOnce<'T> = class end
00:01:39 verbose #5470 > > #if FABLE_COMPILER
00:01:39 verbose #5471 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:39 verbose #5472 > > #endif
00:01:39 verbose #5473 > > type ActionFn<'T> = class end
00:01:39 verbose #5474 > > #if FABLE_COMPILER
00:01:39 verbose #5475 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:39 verbose #5476 > > #endif
00:01:39 verbose #5477 > > type ActionFn2<'T, 'U> = class end
00:01:39 verbose #5478 > > #if FABLE_COMPILER
00:01:39 verbose #5479 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:39 verbose #5480 > > #endif
00:01:39 verbose #5481 > > type Impl<'T> = class end
00:01:39 verbose #5482 > > #if FABLE_COMPILER
00:01:39 verbose #5483 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:39 verbose #5484 > > #endif
00:01:39 verbose #5485 > > type Mut<'T> = class end
00:01:39 verbose #5486 > > #if FABLE_COMPILER
00:01:39 verbose #5487 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:01:39 verbose #5488 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:01:39 verbose #5489 > > let v2 : System.Guid = v1 ()
00:01:39 verbose #5490 > > let v3 : (System.Guid -> string) = _.ToString()
00:01:39 verbose #5491 > > let v4 : string = v3 v2
00:01:39 verbose #5492 > > let v5 : (int64 -> string) = _.ToString()
00:01:39 verbose #5493 > > let v6 : string = v5 v0
00:01:39 verbose #5494 > > let v7 : string = v6.PadLeft (18, '0')
00:01:39 verbose #5495 > > let v8 : System.Guid = System.Guid
00:01:39 verbose #5496 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:01:39 verbose #5497 > > v8
00:01:39 verbose #5498 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:01:39 verbose #5499 > > let v2 : (string -> string) = v1.ToString
00:01:39 verbose #5500 > > v2 v0
00:01:39 verbose #5501 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:01:39 verbose #5502 > > closure12(v0)
00:01:39 verbose #5503 > > and closure13 () (v0 : System.DateTime) : string =
00:01:39 verbose #5504 > > let v1 : (string -> string) = v0.ToString
00:01:39 verbose #5505 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:01:39 verbose #5506 > > v1 v2
00:01:39 verbose #5507 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:01:39 verbose #5508 > > let date_time_guid_from_date_time x = v0 x
00:01:39 verbose #5509 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:01:39 verbose #5510 > > let date_time_from_guid x = v1 x
00:01:39 verbose #5511 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:01:39 verbose #5512 > > let timestamp_guid_from_timestamp x = v2 x
00:01:39 verbose #5513 > > let v3 : (System.Guid -> int64) = closure8()
00:01:39 verbose #5514 > > let timestamp_from_guid x = v3 x
00:01:39 verbose #5515 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:01:39 verbose #5516 > > let new_guid_from_date_time x = v4 x
00:01:39 verbose #5517 > > let v5 : (int64 -> System.Guid) = closure10()
00:01:39 verbose #5518 > > let new_guid_from_timestamp x = v5 x
00:01:39 verbose #5519 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:01:39 verbose #5520 > > let format x = v6 x
00:01:39 verbose #5521 > > let v7 : (System.DateTime -> string) = closure13()
00:01:39 verbose #5522 > > let format_iso8601 x = v7 x
00:01:39 verbose #5523 > > ()
00:01:39 verbose #5524 > >
00:01:39 verbose #5525 > >
00:01:39 verbose #5526 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:39 verbose #5527 > > #if FABLE_COMPILER
00:01:39 verbose #5528 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:01:39 verbose #5529 > > #endif
00:01:39 verbose #5530 > > type futures_future_JoinAll<'T> = class end
00:01:39 verbose #5531 > > #if FABLE_COMPILER
00:01:39 verbose #5532 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:01:39 verbose #5533 > > #endif
00:01:39 verbose #5534 > > type futures_future_TryJoinAll<'T> = class end
00:01:39 verbose #5535 > > #if FABLE_COMPILER
00:01:39 verbose #5536 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:01:39 verbose #5537 > > #endif
00:01:39 verbose #5538 > > type rayon_iter_Map<'T> = class end
00:01:39 verbose #5539 > > #if FABLE_COMPILER
00:01:39 verbose #5540 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:01:39 verbose #5541 > > #endif
00:01:39 verbose #5542 > > type rayon_vec_IntoIter<'T> = class end
00:01:39 verbose #5543 > > #if FABLE_COMPILER
00:01:39 verbose #5544 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:01:39 verbose #5545 > > #endif
00:01:39 verbose #5546 > > type std_future_Future<'T> = class end
00:01:39 verbose #5547 > > #if FABLE_COMPILER
00:01:39 verbose #5548 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:01:39 verbose #5549 > > #endif
00:01:39 verbose #5550 > > type futures_future_Fuse<'T> = class end
00:01:39 verbose #5551 > > #if FABLE_COMPILER
00:01:39 verbose #5552 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:01:39 verbose #5553 > > #endif
00:01:39 verbose #5554 > > type tokio_task_JoinHandle<'T> = class end
00:01:39 verbose #5555 > > #if FABLE_COMPILER
00:01:39 verbose #5556 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:01:39 verbose #5557 > > #endif
00:01:39 verbose #5558 > > type tokio_stream_StreamExt = class end
00:01:39 verbose #5559 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:39 verbose #5560 > > Async<System.Threading.CancellationToken> =
00:01:39 verbose #5561 > > let v1 : bool = true
00:01:39 verbose #5562 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:01:39 verbose #5563 > >
00:01:39 verbose #5564 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:39 verbose #5565 > >
00:01:39 verbose #5566 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:39 verbose #5567 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:39 verbose #5568 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:01:39 verbose #5569 > > v12
00:01:39 verbose #5570 > > #endif
00:01:39 verbose #5571 > > #else
00:01:39 verbose #5572 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:01:39 verbose #5573 > > let mutable _v13 = v13
00:01:39 verbose #5574 > > async {
00:01:39 verbose #5575 > > let v14 : Async<System.Threading.CancellationToken> =
00:01:39 verbose #5576 > > Async.CancellationToken
00:01:39 verbose #5577 > > let! v14 = v14
00:01:39 verbose #5578 > > let v15 : System.Threading.CancellationToken = v14
00:01:39 verbose #5579 > > let v16 : System.Threading.CancellationToken =
00:01:39 verbose #5580 > > Async.DefaultCancellationToken
00:01:39 verbose #5581 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:01:39 verbose #5582 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:01:39 verbose #5583 > > System.Threading.CancellationTokenSource) =
00:01:39 verbose #5584 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:01:39 verbose #5585 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:01:39 verbose #5586 > > let v20 : System.Threading.CancellationToken = v19.Token
00:01:39 verbose #5587 > > return v20
00:01:39 verbose #5588 > > }
00:01:39 verbose #5589 > > |> fun x -> _v13 <- Some x
00:01:39 verbose #5590 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:01:39 verbose #5591 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:01:39 verbose #5592 > > v21
00:01:39 verbose #5593 > > #endif
00:01:39 verbose #5594 > > |> fun x -> _v7 <- Some x
00:01:39 verbose #5595 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:01:39 verbose #5596 > > -> x | None -> failwith "base.run_target / _v7=None"
00:01:39 verbose #5597 > > v22
00:01:39 verbose #5598 > > #endif
00:01:39 verbose #5599 > > |> fun x -> _v1 <- Some x
00:01:39 verbose #5600 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:01:39 verbose #5601 > > -> x | None -> failwith "base.run_target / _v1=None"
00:01:39 verbose #5602 > > v23
00:01:39 verbose #5603 > > let v0 : (System.Threading.CancellationToken ->
00:01:39 verbose #5604 > > Async<System.Threading.CancellationToken>) = closure0()
00:01:39 verbose #5605 > > let merge_cancellation_token_with_default_async x = v0 x
00:01:39 verbose #5606 > > ()
00:01:39 verbose #5607 > >
00:01:39 verbose #5608 > >
00:01:39 verbose #5609 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:39 verbose #5610 > > #if FABLE_COMPILER
00:01:39 verbose #5611 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:01:39 verbose #5612 > > #endif
00:01:39 verbose #5613 > > type std_thread_JoinHandle<'T> = class end
00:01:39 verbose #5614 > > #if FABLE_COMPILER
00:01:39 verbose #5615 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:01:39 verbose #5616 > > #endif
00:01:39 verbose #5617 > > type std_sync_Arc<'T> = class end
00:01:39 verbose #5618 > > #if FABLE_COMPILER
00:01:39 verbose #5619 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:01:39 verbose #5620 > > #endif
00:01:39 verbose #5621 > > type std_sync_Mutex<'T> = class end
00:01:39 verbose #5622 > > #if FABLE_COMPILER
00:01:39 verbose #5623 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:01:39 verbose #5624 > > #endif
00:01:39 verbose #5625 > > type std_sync_MutexGuard<'T> = class end
00:01:39 verbose #5626 > > #if FABLE_COMPILER
00:01:39 verbose #5627 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:01:39 verbose #5628 > > #endif
00:01:39 verbose #5629 > > type std_sync_PoisonError<'T> = class end
00:01:39 verbose #5630 > > #if FABLE_COMPILER
00:01:39 verbose #5631 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:01:39 verbose #5632 > > #endif
00:01:39 verbose #5633 > > type std_sync_mpsc_Receiver<'T> = class end
00:01:39 verbose #5634 > > #if FABLE_COMPILER
00:01:39 verbose #5635 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:01:39 verbose #5636 > > #endif
00:01:39 verbose #5637 > > type std_sync_mpsc_SendError<'T> = class end
00:01:39 verbose #5638 > > #if FABLE_COMPILER
00:01:39 verbose #5639 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:01:39 verbose #5640 > > #endif
00:01:39 verbose #5641 > > type std_sync_mpsc_Sender<'T> = class end
00:01:39 verbose #5642 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:01:39 verbose #5643 > > _.Dispose () = f ()
00:01:39 verbose #5644 > > type [[<Struct>]] US0 =
00:01:39 verbose #5645 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:01:39 verbose #5646 > > | US0_1
00:01:39 verbose #5647 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:01:39 verbose #5648 > > let v1 : bool = true
00:01:39 verbose #5649 > > let mutable _v1 : unit option = None
00:01:39 verbose #5650 > >
00:01:39 verbose #5651 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:39 verbose #5652 > >
00:01:39 verbose #5653 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:01:39 verbose #5654 > > "$0()" )
00:01:39 verbose #5655 > > v28
00:01:39 verbose #5656 > > #endif
00:01:39 verbose #5657 > > #if FABLE_COMPILER_RUST && WASM
00:01:39 verbose #5658 > > let v29 : (unit -> unit) = method0(v25)
00:01:39 verbose #5659 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:01:39 verbose #5660 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:01:39 verbose #5661 > > v30
00:01:39 verbose #5662 > > #endif
00:01:39 verbose #5663 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:39 verbose #5664 > > let v31 : (unit -> unit) = method0(v25)
00:01:39 verbose #5665 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:01:39 verbose #5666 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:01:39 verbose #5667 > > v32
00:01:39 verbose #5668 > > #endif
00:01:39 verbose #5669 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:39 verbose #5670 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:39 verbose #5671 > > v33
00:01:39 verbose #5672 > > #endif
00:01:39 verbose #5673 > > #if FABLE_COMPILER_PYTHON
00:01:39 verbose #5674 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:39 verbose #5675 > > v34
00:01:39 verbose #5676 > > #endif
00:01:39 verbose #5677 > > #else
00:01:39 verbose #5678 > > let v35 : (unit -> unit) = method1(v25)
00:01:39 verbose #5679 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:01:39 verbose #5680 > > _.Dispose () = v35 () }
00:01:39 verbose #5681 > > v36
00:01:39 verbose #5682 > > #endif
00:01:39 verbose #5683 > > |> fun x -> _v26 <- Some x
00:01:39 verbose #5684 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:01:39 verbose #5685 > > failwith "base.run_target / _v26=None"
00:01:39 verbose #5686 > > let v38 : System.Threading.CancellationToken = v25.Token
00:01:39 verbose #5687 > > struct (v38, v37)
00:01:39 verbose #5688 > > #endif
00:01:39 verbose #5689 > > |> fun x -> _v1 <- Some x
00:01:39 verbose #5690 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:01:39 verbose #5691 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:01:39 verbose #5692 > > "base.run_target / _v1=None"
00:01:39 verbose #5693 > > struct (v39, v40)
00:01:39 verbose #5694 > > let v0 : (System.Threading.CancellationToken option -> struct
00:01:39 verbose #5695 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:01:39 verbose #5696 > > let new_disposable_token x = v0 x
00:01:39 verbose #5697 > > ()
00:01:39 verbose #5698 > >
00:01:39 verbose #5699 > >
00:01:39 verbose #5700 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:39 verbose #5701 > > #if FABLE_COMPILER
00:01:39 verbose #5702 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:01:39 verbose #5703 > > #endif
00:01:39 verbose #5704 > > type reqwest_Error = class end
00:01:39 verbose #5705 > > #if FABLE_COMPILER
00:01:39 verbose #5706 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:01:39 verbose #5707 > > #endif
00:01:39 verbose #5708 > > type reqwest_RequestBuilder = class end
00:01:39 verbose #5709 > > #if FABLE_COMPILER
00:01:39 verbose #5710 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:01:39 verbose #5711 > > #endif
00:01:39 verbose #5712 > > type reqwest_Response = class end
00:01:39 verbose #5713 > > #if FABLE_COMPILER
00:01:39 verbose #5714 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:39 verbose #5715 > > #endif
00:01:39 verbose #5716 > > type std_env_VarError = class end
00:01:39 verbose #5717 > > #if FABLE_COMPILER
00:01:39 verbose #5718 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:39 verbose #5719 > > #endif
00:01:39 verbose #5720 > > type core_any_Any = class end
00:01:39 verbose #5721 > > #if FABLE_COMPILER
00:01:39 verbose #5722 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:39 verbose #5723 > > #endif
00:01:39 verbose #5724 > > type core_ops_Try<'T> = class end
00:01:39 verbose #5725 > > #if FABLE_COMPILER
00:01:39 verbose #5726 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:39 verbose #5727 > > #endif
00:01:39 verbose #5728 > > type Func0<'T> = class end
00:01:39 verbose #5729 > > #if FABLE_COMPILER
00:01:39 verbose #5730 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:39 verbose #5731 > > #endif
00:01:39 verbose #5732 > > type Func0<'T, 'U> = class end
00:01:39 verbose #5733 > > #if FABLE_COMPILER
00:01:39 verbose #5734 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:39 verbose #5735 > > #endif
00:01:39 verbose #5736 > > type Box<'T> = class end
00:01:39 verbose #5737 > > #if FABLE_COMPILER
00:01:39 verbose #5738 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:39 verbose #5739 > > #endif
00:01:39 verbose #5740 > > type Dyn<'T> = class end
00:01:39 verbose #5741 > > #if FABLE_COMPILER
00:01:39 verbose #5742 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:39 verbose #5743 > > #endif
00:01:39 verbose #5744 > > type Send<'T> = class end
00:01:39 verbose #5745 > > #if FABLE_COMPILER
00:01:39 verbose #5746 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:39 verbose #5747 > > #endif
00:01:39 verbose #5748 > > type Fn<'T> = class end
00:01:39 verbose #5749 > > #if FABLE_COMPILER
00:01:39 verbose #5750 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:39 verbose #5751 > > #endif
00:01:39 verbose #5752 > > type FnUnit = class end
00:01:39 verbose #5753 > > #if FABLE_COMPILER
00:01:39 verbose #5754 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:39 verbose #5755 > > ... v212 = v212
00:01:39 verbose #5756 > > let v213 : bool = v212
00:01:39 verbose #5757 > > let v214 : bool = v213 = false
00:01:39 verbose #5758 > > if v214 then
00:01:39 verbose #5759 > > return v2
00:01:39 verbose #5760 > > (*
00:01:39 verbose #5761 > > ()
00:01:39 verbose #5762 > > else
00:01:39 verbose #5763 > > *) else
00:01:39 verbose #5764 > > let v215 : int32 = v2 + 1
00:01:39 verbose #5765 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:01:39 verbose #5766 > > return! v216
00:01:39 verbose #5767 > > (*
00:01:39 verbose #5768 > > ()
00:01:39 verbose #5769 > > *)
00:01:39 verbose #5770 > > }
00:01:39 verbose #5771 > > |> fun x -> _v9 <- Some x
00:01:39 verbose #5772 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:01:39 verbose #5773 > > "async.new_async_unit / _v9=None"
00:01:39 verbose #5774 > > v217
00:01:39 verbose #5775 > > #endif
00:01:39 verbose #5776 > > |> fun x -> _v3 <- Some x
00:01:39 verbose #5777 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:01:39 verbose #5778 > > "base.run_target / _v3=None"
00:01:39 verbose #5779 > > v218
00:01:39 verbose #5780 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:01:39 verbose #5781 > > method10(v0, v1, v2)
00:01:39 verbose #5782 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:01:39 verbose #5783 > > closure23(v0, v1)
00:01:39 verbose #5784 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:01:39 verbose #5785 > > closure22(v0)
00:01:39 verbose #5786 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:39 verbose #5787 > > let v1 : US0 = US0_0
00:01:39 verbose #5788 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:39 verbose #5789 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:01:39 verbose #5790 > > let test_port_open x = v2 x
00:01:39 verbose #5791 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:01:39 verbose #5792 > > let test_port_open_timeout x = v3 x
00:01:39 verbose #5793 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:01:39 verbose #5794 > > closure15()
00:01:39 verbose #5795 > > let wait_for_port_access x = v4 x
00:01:39 verbose #5796 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:01:39 verbose #5797 > > let get_available_port x = v5 x
00:01:39 verbose #5798 > > ()
00:01:39 verbose #5799 > >
00:01:41 verbose #5800 > >
00:01:41 verbose #5801 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:41 verbose #5802 > > type [[<Struct>]] US0 =
00:01:41 verbose #5803 > > | US0_0
00:01:41 verbose #5804 > > | US0_1
00:01:41 verbose #5805 > > | US0_2
00:01:41 verbose #5806 > > and [[<Struct>]] US1 =
00:01:41 verbose #5807 > > | US1_0 of f0_0 : US0
00:01:41 verbose #5808 > > | US1_1 of f1_0 : US0
00:01:41 verbose #5809 > > | US1_2 of f2_0 : US0
00:01:41 verbose #5810 > > | US1_3 of f3_0 : US0
00:01:41 verbose #5811 > > | US1_4 of f4_0 : US0
00:01:41 verbose #5812 > > let rec closure0 () () : bool =
00:01:41 verbose #5813 > > let v0 : bool = true
00:01:41 verbose #5814 > > let mutable _v0 : bool option = None
00:01:41 verbose #5815 > >
00:01:41 verbose #5816 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:41 verbose #5817 > >
00:01:41 verbose #5818 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:41 verbose #5819 > > let v1 : string = "cfg!(windows)"
00:01:41 verbose #5820 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:41 verbose #5821 > > v2
00:01:41 verbose #5822 > > #endif
00:01:41 verbose #5823 > > #if FABLE_COMPILER_RUST && WASM
00:01:41 verbose #5824 > > let v3 : string = "cfg!(windows)"
00:01:41 verbose #5825 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:41 verbose #5826 > > v4
00:01:41 verbose #5827 > > #endif
00:01:41 verbose #5828 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:41 verbose #5829 > > let v5 : string = "cfg!(windows)"
00:01:41 verbose #5830 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:41 verbose #5831 > > v6
00:01:41 verbose #5832 > > #endif
00:01:41 verbose #5833 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:41 verbose #5834 > > let v7 : US0 = US0_0
00:01:41 verbose #5835 > > let v8 : US1 = US1_3(v7)
00:01:41 verbose #5836 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:41 verbose #5837 > > let v10 : bool = failwith<bool> v9
00:01:41 verbose #5838 > > v10
00:01:41 verbose #5839 > > #endif
00:01:41 verbose #5840 > > #if FABLE_COMPILER_PYTHON
00:01:41 verbose #5841 > > let v11 : US0 = US0_0
00:01:41 verbose #5842 > > let v12 : US1 = US1_4(v11)
00:01:41 verbose #5843 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:41 verbose #5844 > > let v14 : bool = failwith<bool> v13
00:01:41 verbose #5845 > > v14
00:01:41 verbose #5846 > > #endif
00:01:41 verbose #5847 > > #else
00:01:41 verbose #5848 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:41 verbose #5849 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:41 verbose #5850 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:41 verbose #5851 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:41 verbose #5852 > > let v17 : b...: string = "cfg!(windows)"
00:01:41 verbose #5853 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:41 verbose #5854 > > v2
00:01:41 verbose #5855 > > #endif
00:01:41 verbose #5856 > > #if FABLE_COMPILER_RUST && WASM
00:01:41 verbose #5857 > > let v3 : string = "cfg!(windows)"
00:01:41 verbose #5858 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:41 verbose #5859 > > v4
00:01:41 verbose #5860 > > #endif
00:01:41 verbose #5861 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:41 verbose #5862 > > let v5 : string = "cfg!(windows)"
00:01:41 verbose #5863 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:41 verbose #5864 > > v6
00:01:41 verbose #5865 > > #endif
00:01:41 verbose #5866 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:41 verbose #5867 > > let v7 : US0 = US0_0
00:01:41 verbose #5868 > > let v8 : US1 = US1_3(v7)
00:01:41 verbose #5869 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:41 verbose #5870 > > let v10 : bool = failwith<bool> v9
00:01:41 verbose #5871 > > v10
00:01:41 verbose #5872 > > #endif
00:01:41 verbose #5873 > > #if FABLE_COMPILER_PYTHON
00:01:41 verbose #5874 > > let v11 : US0 = US0_0
00:01:41 verbose #5875 > > let v12 : US1 = US1_4(v11)
00:01:41 verbose #5876 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:41 verbose #5877 > > let v14 : bool = failwith<bool> v13
00:01:41 verbose #5878 > > v14
00:01:41 verbose #5879 > > #endif
00:01:41 verbose #5880 > > #else
00:01:41 verbose #5881 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:41 verbose #5882 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:41 verbose #5883 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:41 verbose #5884 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:41 verbose #5885 > > let v17 : bool = v16 v15
00:01:41 verbose #5886 > > v17
00:01:41 verbose #5887 > > #endif
00:01:41 verbose #5888 > > |> fun x -> _v0 <- Some x
00:01:41 verbose #5889 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:01:41 verbose #5890 > > "base.run_target / _v0=None"
00:01:41 verbose #5891 > > if v18 then
00:01:41 verbose #5892 > > let v19 : string = ".exe"
00:01:41 verbose #5893 > > v19
00:01:41 verbose #5894 > > else
00:01:41 verbose #5895 > > let v20 : string = ""
00:01:41 verbose #5896 > > v20
00:01:41 verbose #5897 > > let v0 : (unit -> bool) = closure0()
00:01:41 verbose #5898 > > let is_windows () = v0 ()
00:01:41 verbose #5899 > > let v1 : (unit -> string) = closure1()
00:01:41 verbose #5900 > > let get_executable_suffix () = v1 ()
00:01:41 verbose #5901 > > ()
00:01:41 verbose #5902 > >
00:01:41 verbose #5903 > >
00:01:41 verbose #5904 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:41 verbose #5905 > > #if FABLE_COMPILER
00:01:41 verbose #5906 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:01:41 verbose #5907 > > #endif
00:01:41 verbose #5908 > > type clap_Arg = class end
00:01:41 verbose #5909 > > #if FABLE_COMPILER
00:01:41 verbose #5910 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:01:41 verbose #5911 > > #endif
00:01:41 verbose #5912 > > type clap_ArgAction = class end
00:01:41 verbose #5913 > > #if FABLE_COMPILER
00:01:41 verbose #5914 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:01:41 verbose #5915 > > #endif
00:01:41 verbose #5916 > > type clap_Command = class end
00:01:41 verbose #5917 > > #if FABLE_COMPILER
00:01:41 verbose #5918 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:01:41 verbose #5919 > > #endif
00:01:41 verbose #5920 > > type clap_ArgMatches = class end
00:01:41 verbose #5921 > > #if FABLE_COMPILER
00:01:41 verbose #5922 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:01:41 verbose #5923 > > #endif
00:01:41 verbose #5924 > > type clap_builder_ValueRange = class end
00:01:41 verbose #5925 > > #if FABLE_COMPILER
00:01:41 verbose #5926 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:01:41 verbose #5927 > > #endif
00:01:41 verbose #5928 > > type clap_builder_ValueParser = class end
00:01:41 verbose #5929 > > #if FABLE_COMPILER
00:01:41 verbose #5930 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:01:41 verbose #5931 > > #endif
00:01:41 verbose #5932 > > type clap_builder_PossibleValue = class end
00:01:41 verbose #5933 > > #if FABLE_COMPILER
00:01:41 verbose #5934 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:01:41 verbose #5935 > > #endif
00:01:41 verbose #5936 > > type std_process_Child = class end
00:01:41 verbose #5937 > > #if FABLE_COMPILER
00:01:41 verbose #5938 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:01:41 verbose #5939 > > #endif
00:01:41 verbose #5940 > > type std_process_ChildStderr = class end
00:01:41 verbose #5941 > > #if FABLE_COMPILER
00:01:41 verbose #5942 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:01:41 verbose #5943 > > #endif
00:01:41 verbose #5944 > > type std_process_ChildStdout = class end
00:01:41 verbose #5945 > > #if FABLE_COMPILER
00:01:41 verbose #5946 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:01:41 verbose #5947 > > #endif
00:01:41 verbose #5948 > > type std_process_ChildStdin = class end
00:01:41 verbose #5949 > > #if FABLE_COMPILER
00:01:41 verbose #5950 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:01:41 verbose #5951 > > #endif
00:01:41 verbose #5952 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:01:41 verbose #5953 > > List.toArray
00:01:41 verbose #5954 > > let v20 : (string [[]]) = v19 v18
00:01:41 verbose #5955 > > US8_0(v20)
00:01:41 verbose #5956 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:01:41 verbose #5957 > > let v1 : US8 = method16(v0)
00:01:41 verbose #5958 > > match v1 with
00:01:41 verbose #5959 > > | US8_1(v4) -> (* Error *)
00:01:41 verbose #5960 > > let v5 : Result<(string [[]]), string> = Error v4
00:01:41 verbose #5961 > > v5
00:01:41 verbose #5962 > > | US8_0(v2) -> (* Ok *)
00:01:41 verbose #5963 > > let v3 : Result<(string [[]]), string> = Ok v2
00:01:41 verbose #5964 > > v3
00:01:41 verbose #5965 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:41 verbose #5966 > > let v1 : US0 = US0_0
00:01:41 verbose #5967 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:41 verbose #5968 > > let v2 : (unit -> unit) = closure2()
00:01:41 verbose #5969 > > let current_process_kill () = v2 ()
00:01:41 verbose #5970 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:01:41 verbose #5971 > > let execute_async x = v3 x
00:01:41 verbose #5972 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:01:41 verbose #5973 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:01:41 verbose #5974 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:01:41 verbose #5975 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:01:41 verbose #5976 > > let execute_with_options_async x = v4 x
00:01:41 verbose #5977 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:01:41 verbose #5978 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:01:41 verbose #5979 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:01:41 verbose #5980 > > unit) option * bool * string option)) = closure20()
00:01:41 verbose #5981 > > let execution_options x = v5 x
00:01:41 verbose #5982 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:01:41 verbose #5983 > > let split_args x = v6 x
00:01:41 verbose #5984 > > ()
00:01:41 verbose #5985 > >
00:01:44 verbose #5986 > >
00:01:44 verbose #5987 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:44 verbose #5988 > > #if FABLE_COMPILER
00:01:44 verbose #5989 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:01:44 verbose #5990 > > #endif
00:01:44 verbose #5991 > > type std_fs_File = class end
00:01:44 verbose #5992 > > #if FABLE_COMPILER
00:01:44 verbose #5993 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:01:44 verbose #5994 > > #endif
00:01:44 verbose #5995 > > type std_fs_FileType = class end
00:01:44 verbose #5996 > > #if FABLE_COMPILER
00:01:44 verbose #5997 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:01:44 verbose #5998 > > #endif
00:01:44 verbose #5999 > > type std_path_Display = class end
00:01:44 verbose #6000 > > #if FABLE_COMPILER
00:01:44 verbose #6001 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:01:44 verbose #6002 > > #endif
00:01:44 verbose #6003 > > type std_path_Path = class end
00:01:44 verbose #6004 > > #if FABLE_COMPILER
00:01:44 verbose #6005 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:01:44 verbose #6006 > > #endif
00:01:44 verbose #6007 > > type std_path_PathBuf = class end
00:01:44 verbose #6008 > > #if FABLE_COMPILER
00:01:44 verbose #6009 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:01:44 verbose #6010 > > #endif
00:01:44 verbose #6011 > > type async_walkdir_DirEntry = class end
00:01:44 verbose #6012 > > #if FABLE_COMPILER
00:01:44 verbose #6013 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:01:44 verbose #6014 > > #endif
00:01:44 verbose #6015 > > type async_walkdir_Filtering = class end
00:01:44 verbose #6016 > > #if FABLE_COMPILER
00:01:44 verbose #6017 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:01:44 verbose #6018 > > #endif
00:01:44 verbose #6019 > > type async_walkdir_WalkDir = class end
00:01:44 verbose #6020 > > #if FABLE_COMPILER
00:01:44 verbose #6021 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:44 verbose #6022 > > #endif
00:01:44 verbose #6023 > > type core_any_Any = class end
00:01:44 verbose #6024 > > #if FABLE_COMPILER
00:01:44 verbose #6025 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:44 verbose #6026 > > #endif
00:01:44 verbose #6027 > > type core_ops_Try<'T> = class end
00:01:44 verbose #6028 > > #if FABLE_COMPILER
00:01:44 verbose #6029 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:44 verbose #6030 > > #endif
00:01:44 verbose #6031 > > type Func0<'T> = class end
00:01:44 verbose #6032 > > #if FABLE_COMPILER
00:01:44 verbose #6033 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:44 verbose #6034 > > #endif
00:01:44 verbose #6035 > > type Func0<'T, 'U> = class end
00:01:44 verbose #6036 > > #if FABLE_COMPILER
00:01:44 verbose #6037 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:44 verbose #6038 > > #endif
00:01:44 verbose #6039 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:01:44 verbose #6040 > > let wait_for_file_access x = v3 x
00:01:44 verbose #6041 > > let v4 : (string -> Async<int64>) = closure12()
00:01:44 verbose #6042 > > let wait_for_file_access_read x = v4 x
00:01:44 verbose #6043 > > let v5 : (string -> Async<string>) = closure13()
00:01:44 verbose #6044 > > let read_all_text_async x = v5 x
00:01:44 verbose #6045 > > let v6 : (string -> (string -> bool)) = closure14()
00:01:44 verbose #6046 > > let file_exists_content x = v6 x
00:01:44 verbose #6047 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:01:44 verbose #6048 > > let write_all_text_async x = v7 x
00:01:44 verbose #6049 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:01:44 verbose #6050 > > let write_all_text_exists x = v8 x
00:01:44 verbose #6051 > > let v9 : (string -> Async<int64>) = closure20()
00:01:44 verbose #6052 > > let delete_file_async x = v9 x
00:01:44 verbose #6053 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:01:44 verbose #6054 > > let move_file_async x = v10 x
00:01:44 verbose #6055 > > let v11 : (string -> Async<string option>) = closure27()
00:01:44 verbose #6056 > > let read_all_text_retry_async x = v11 x
00:01:44 verbose #6057 > > let v12 : (unit -> string) = closure35()
00:01:44 verbose #6058 > > let create_temp_path () = v12 ()
00:01:44 verbose #6059 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:01:44 verbose #6060 > > let create_temp_dir () = v13 ()
00:01:44 verbose #6061 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:01:44 verbose #6062 > > let create_temp_dir' x = v14 x
00:01:44 verbose #6063 > > let v15 : (unit -> string) = closure49()
00:01:44 verbose #6064 > > let get_source_directory () = v15 ()
00:01:44 verbose #6065 > > let v16 : (string -> string) = closure50()
00:01:44 verbose #6066 > > let normalize_path x = v16 x
00:01:44 verbose #6067 > > let v17 : (string -> string) = closure51()
00:01:44 verbose #6068 > > let new_file_uri x = v17 x
00:01:44 verbose #6069 > > let v18 : (unit -> string) = closure52()
00:01:44 verbose #6070 > > let get_workspace_root () = v18 ()
00:01:44 verbose #6071 > > let v19 : (bool -> unit) = closure56()
00:01:44 verbose #6072 > > let init_trace_file x = v19 x
00:01:44 verbose #6073 > > let v20 : (string -> (string -> string)) = closure58()
00:01:44 verbose #6074 > > let (</>) x = v20 x
00:01:44 verbose #6075 > > ()
00:01:44 verbose #6076 > >
00:01:46 verbose #6077 > >
00:01:46 verbose #6078 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6079 > > #if FABLE_COMPILER
00:01:46 verbose #6080 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:46 verbose #6081 > > #endif
00:01:46 verbose #6082 > > type core_any_Any = class end
00:01:46 verbose #6083 > > #if FABLE_COMPILER
00:01:46 verbose #6084 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:46 verbose #6085 > > #endif
00:01:46 verbose #6086 > > type core_ops_Try<'T> = class end
00:01:46 verbose #6087 > > #if FABLE_COMPILER
00:01:46 verbose #6088 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:46 verbose #6089 > > #endif
00:01:46 verbose #6090 > > type Func0<'T> = class end
00:01:46 verbose #6091 > > #if FABLE_COMPILER
00:01:46 verbose #6092 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:46 verbose #6093 > > #endif
00:01:46 verbose #6094 > > type Func0<'T, 'U> = class end
00:01:46 verbose #6095 > > #if FABLE_COMPILER
00:01:46 verbose #6096 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:46 verbose #6097 > > #endif
00:01:46 verbose #6098 > > type Box<'T> = class end
00:01:46 verbose #6099 > > #if FABLE_COMPILER
00:01:46 verbose #6100 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:46 verbose #6101 > > #endif
00:01:46 verbose #6102 > > type Dyn<'T> = class end
00:01:46 verbose #6103 > > #if FABLE_COMPILER
00:01:46 verbose #6104 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:46 verbose #6105 > > #endif
00:01:46 verbose #6106 > > type Send<'T> = class end
00:01:46 verbose #6107 > > #if FABLE_COMPILER
00:01:46 verbose #6108 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:46 verbose #6109 > > #endif
00:01:46 verbose #6110 > > type Fn<'T> = class end
00:01:46 verbose #6111 > > #if FABLE_COMPILER
00:01:46 verbose #6112 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:46 verbose #6113 > > #endif
00:01:46 verbose #6114 > > type FnUnit = class end
00:01:46 verbose #6115 > > #if FABLE_COMPILER
00:01:46 verbose #6116 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:46 verbose #6117 > > #endif
00:01:46 verbose #6118 > > type FnOnce<'T> = class end
00:01:46 verbose #6119 > > #if FABLE_COMPILER
00:01:46 verbose #6120 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:46 verbose #6121 > > #endif
00:01:46 verbose #6122 > > type ActionFn<'T> = class end
00:01:46 verbose #6123 > > #if FABLE_COMPILER
00:01:46 verbose #6124 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:46 verbose #6125 > > #endif
00:01:46 verbose #6126 > > type ActionFn2<'T, 'U> = class end
00:01:46 verbose #6127 > > #if FABLE_COMPILER
00:01:46 verbose #6128 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:46 verbose #6129 > > #endif
00:01:46 verbose #6130 > > type Impl<'T> = class end
00:01:46 verbose #6131 > > #if FABLE_COMPILER
00:01:46 verbose #6132 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:46 verbose #6133 > > #endif
00:01:46 verbose #6134 > > type Mut<'T> = class end
00:01:46 verbose #6135 > > #if FABLE_COMPILER
00:01:46 verbose #6136 > > [[<Fable.Core.Erase; Fable.C... #endif
00:01:46 verbose #6137 > > #if FABLE_COMPILER_RUST && WASM
00:01:46 verbose #6138 > > let v27 : string = @"println!(""{}"", $0)"
00:01:46 verbose #6139 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:01:46 verbose #6140 > > ()
00:01:46 verbose #6141 > > #endif
00:01:46 verbose #6142 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:46 verbose #6143 > > let v28 : string = @"println!(""{}"", $0)"
00:01:46 verbose #6144 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:46 verbose #6145 > > ()
00:01:46 verbose #6146 > > #endif
00:01:46 verbose #6147 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:46 verbose #6148 > > System.Console.WriteLine v24
00:01:46 verbose #6149 > > ()
00:01:46 verbose #6150 > > #endif
00:01:46 verbose #6151 > > #if FABLE_COMPILER_PYTHON
00:01:46 verbose #6152 > > System.Console.WriteLine v24
00:01:46 verbose #6153 > > ()
00:01:46 verbose #6154 > > #endif
00:01:46 verbose #6155 > > #else
00:01:46 verbose #6156 > > System.Console.WriteLine v24
00:01:46 verbose #6157 > > ()
00:01:46 verbose #6158 > > #endif
00:01:46 verbose #6159 > > |> fun x -> _v25 <- Some x
00:01:46 verbose #6160 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:46 verbose #6161 > > _v25=None"
00:01:46 verbose #6162 > > let v29 : (string -> unit) = v8.l0
00:01:46 verbose #6163 > > v29 v24
00:01:46 verbose #6164 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:46 verbose #6165 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:46 verbose #6166 > > method8(v0, v3)
00:01:46 verbose #6167 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:01:46 verbose #6168 > > method4(v0, v1, v2)
00:01:46 verbose #6169 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:01:46 verbose #6170 > > closure4(v0, v1)
00:01:46 verbose #6171 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:01:46 verbose #6172 > > closure3(v0)
00:01:46 verbose #6173 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:46 verbose #6174 > > let v1 : US0 = US0_0
00:01:46 verbose #6175 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:46 verbose #6176 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:01:46 verbose #6177 > > let trace x = v2 x
00:01:46 verbose #6178 > > ()
00:01:46 verbose #6179 > >
00:01:46 verbose #6180 > >
00:01:46 verbose #6181 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6182 > > module SpiralTrace =
00:01:46 verbose #6183 > > let trace x =
00:01:46 verbose #6184 > > #if !INTERACTIVE
00:01:46 verbose #6185 > > Trace.trace x
00:01:46 verbose #6186 > > #else
00:01:46 verbose #6187 > > trace x
00:01:46 verbose #6188 > > #endif
00:01:46 verbose #6189 > >
00:01:46 verbose #6190 > > type TraceLevel =
00:01:46 verbose #6191 > > #if !INTERACTIVE
00:01:46 verbose #6192 > > Trace.US0
00:01:46 verbose #6193 > > #else
00:01:46 verbose #6194 > > US0
00:01:46 verbose #6195 > > #endif
00:01:46 verbose #6196 > >
00:01:46 verbose #6197 > > module SpiralCrypto =
00:01:46 verbose #6198 > > let hash_text x =
00:01:46 verbose #6199 > > #if !INTERACTIVE
00:01:46 verbose #6200 > > Crypto.hash_text x
00:01:46 verbose #6201 > > #else
00:01:46 verbose #6202 > > hash_text x
00:01:46 verbose #6203 > > #endif
00:01:46 verbose #6204 > >
00:01:46 verbose #6205 > > let hash_to_port x =
00:01:46 verbose #6206 > > #if !INTERACTIVE
00:01:46 verbose #6207 > > Crypto.hash_to_port x
00:01:46 verbose #6208 > > #else
00:01:46 verbose #6209 > > hash_to_port x
00:01:46 verbose #6210 > > #endif
00:01:46 verbose #6211 > >
00:01:46 verbose #6212 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:46 verbose #6213 > >
00:01:46 verbose #6214 > > module SpiralAsync =
00:01:46 verbose #6215 > > let merge_cancellation_token_with_default_async x =
00:01:46 verbose #6216 > > #if !INTERACTIVE
00:01:46 verbose #6217 > > Async_.merge_cancellation_token_with_default_async x
00:01:46 verbose #6218 > > #else
00:01:46 verbose #6219 > > merge_cancellation_token_with_default_async x
00:01:46 verbose #6220 > > #endif
00:01:46 verbose #6221 > >
00:01:46 verbose #6222 > > module SpiralThreading =
00:01:46 verbose #6223 > > let new_disposable_token x =
00:01:46 verbose #6224 > > #if !INTERACTIVE
00:01:46 verbose #6225 > > Threading.new_disposable_token x
00:01:46 verbose #6226 > > #else
00:01:46 verbose #6227 > > new_disposable_token x
00:01:46 verbose #6228 > > #endif
00:01:46 verbose #6229 > >
00:01:46 verbose #6230 > > module SpiralNetworking =
00:01:46 verbose #6231 > > let test_port_open x =
00:01:46 verbose #6232 > > #if !INTERACTIVE
00:01:46 verbose #6233 > > Networking.test_port_open x
00:01:46 verbose #6234 > > #else
00:01:46 verbose #6235 > > test_port_open x
00:01:46 verbose #6236 > > #endif
00:01:46 verbose #6237 > >
00:01:46 verbose #6238 > > let test_port_open_timeout x =
00:01:46 verbose #6239 > > #if !INTERACTIVE
00:01:46 verbose #6240 > > Networking.test_port_open_timeout x
00:01:46 verbose #6241 > > #else
00:01:46 verbose #6242 > > test_port_open_timeout x
00:01:46 verbose #6243 > > #endif
00:01:46 verbose #6244 > >
00:01:46 verbose #6245 > > let wait_for_port_access x =
00:01:46 verbose #6246 > > #if !INTERACTIVE
00:01:46 verbose #6247 > > Networking.wait_for_port_access x
00:01:46 verbose #6248 > > #else
00:01:46 verbose #6249 > > wait_for_port_access x
00:01:46 verbose #6250 > > #endif
00:01:46 verbose #6251 > >
00:01:46 verbose #6252 > > let get_available_port x =
00:01:46 verbose #6253 > > #if !INTERACTIVE
00:01:46 verbose #6254 > > Networking.get_available_port x
00:01:46 verbose #6255 > > #else
00:01:46 verbose #6256 > > get_available_port x
00:01:46 verbose #6257 > > #endif
00:01:46 verbose #6258 > >
00:01:46 verbose #6259 > > module SpiralPlatform =
00:01:46 verbose #6260 > > let get_executable_suffix () =
00:01:46 verbose #6261 > > #if !INTERACTIVE
00:01:46 verbose #6262 > > Platform.g...e.trace_state
00:01:46 verbose #6263 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6264 > > level.l0 <-
00:01:46 verbose #6265 > > match new_level with
00:01:46 verbose #6266 > > | Trace.US0_0 -> File_system.US0_0
00:01:46 verbose #6267 > > | Trace.US0_1 -> File_system.US0_1
00:01:46 verbose #6268 > > | Trace.US0_2 -> File_system.US0_2
00:01:46 verbose #6269 > > | Trace.US0_3 -> File_system.US0_3
00:01:46 verbose #6270 > > | Trace.US0_4 -> File_system.US0_4
00:01:46 verbose #6271 > > )
00:01:46 verbose #6272 > >
00:01:46 verbose #6273 > > Runtime.State.trace_state
00:01:46 verbose #6274 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6275 > > level.l0 <-
00:01:46 verbose #6276 > > match new_level with
00:01:46 verbose #6277 > > | Trace.US0_0 -> Runtime.US0_0
00:01:46 verbose #6278 > > | Trace.US0_1 -> Runtime.US0_1
00:01:46 verbose #6279 > > | Trace.US0_2 -> Runtime.US0_2
00:01:46 verbose #6280 > > | Trace.US0_3 -> Runtime.US0_3
00:01:46 verbose #6281 > > | Trace.US0_4 -> Runtime.US0_4
00:01:46 verbose #6282 > > )
00:01:46 verbose #6283 > >
00:01:46 verbose #6284 > > Common.State.trace_state
00:01:46 verbose #6285 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6286 > > level.l0 <-
00:01:46 verbose #6287 > > match new_level with
00:01:46 verbose #6288 > > | Trace.US0_0 -> Common.US0_0
00:01:46 verbose #6289 > > | Trace.US0_1 -> Common.US0_1
00:01:46 verbose #6290 > > | Trace.US0_2 -> Common.US0_2
00:01:46 verbose #6291 > > | Trace.US0_3 -> Common.US0_3
00:01:46 verbose #6292 > > | Trace.US0_4 -> Common.US0_4
00:01:46 verbose #6293 > > )
00:01:46 verbose #6294 > >
00:01:46 verbose #6295 > > Trace.State.trace_state
00:01:46 verbose #6296 > > #else
00:01:46 verbose #6297 > > State.trace_state
00:01:46 verbose #6298 > > #endif
00:01:46 verbose #6299 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:01:46 verbose #6300 > > level.l0 <- new_level
00:01:46 verbose #6301 > > )
00:01:46 verbose #6302 > >
00:01:46 verbose #6303 > > let get_trace_level () =
00:01:46 verbose #6304 > > #if !INTERACTIVE
00:01:46 verbose #6305 > > Trace.State.trace_state
00:01:46 verbose #6306 > > #else
00:01:46 verbose #6307 > > State.trace_state
00:01:46 verbose #6308 > > #endif
00:01:46 verbose #6309 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6310 > > level.l0
00:01:46 verbose #6311 > > )
00:01:46 verbose #6312 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:01:46 verbose #6313 > > trace_state=None")
00:01:46 verbose #6314 > >
00:01:46 verbose #6315 > >
00:01:46 verbose #6316 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6317 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:47 verbose #6318 > >
00:01:47 verbose #6319 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:47 verbose #6320 > > //// test
00:01:47 verbose #6321 > >
00:01:47 verbose #6322 > > type AssertExceptionFormatter (ex) =
00:01:47 verbose #6323 > > member _.Text =
00:01:47 verbose #6324 > > ex.ToString()
00:01:47 verbose #6325 > > .Replace("32m", "<span style=\"color: green;\">")
00:01:47 verbose #6326 > > .Replace("36m", "</span>")
00:01:47 verbose #6327 > > .Replace("31m", "<span style=\"color: red;\">")
00:01:47 verbose #6328 > > .Replace("\n", "<br/>\n")
00:01:47 verbose #6329 > >
00:01:47 verbose #6330 > >
00:01:47 verbose #6331 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:47 verbose #6332 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:47 verbose #6333 > >
00:01:47 verbose #6334 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:47 verbose #6335 > > //// test
00:01:47 verbose #6336 > >
00:01:47 verbose #6337 > > let inline __expect fn log expected actual =
00:01:47 verbose #6338 > > if log then printfn $"{actual.ToDisplayString ()}"
00:01:47 verbose #6339 > > try
00:01:47 verbose #6340 > > "Testing.__expect" |> fn actual expected
00:01:47 verbose #6341 > > with :? Expecto.AssertException as ex ->
00:01:47 verbose #6342 > > AssertExceptionFormatter(ex).Display () |> ignore
00:01:47 verbose #6343 > > failwith (ex.GetType().FullName)
00:01:47 verbose #6344 > >
00:01:47 verbose #6345 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:47 verbose #6346 > > expected actual
00:01:47 verbose #6347 > > let inline _contains expected actual = __contains true expected actual
00:01:47 verbose #6348 > >
00:01:47 verbose #6349 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:47 verbose #6350 > > expected actual
00:01:47 verbose #6351 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:47 verbose #6352 > >
00:01:47 verbose #6353 > > let inline __isGreaterThan log expected actual = __expect
00:01:47 verbose #6354 > > Expecto.Expect.isGreaterThan log expected actual
00:01:47 verbose #6355 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:01:47 verbose #6356 > >
00:01:47 verbose #6357 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:01:47 verbose #6358 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:01:47 verbose #6359 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:01:47 verbose #6360 > > expected actual
00:01:47 verbose #6361 > >
00:01:47 verbose #6362 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:01:47 verbose #6363 > > log expected actual
00:01:47 verbose #6364 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:01:47 verbose #6365 > >
00:01:47 verbose #6366 > > let inline __isLessThanOrEqual log expected actual = __expect
00:01:47 verbose #6367 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:01:47 verbose #6368 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:01:47 verbose #6369 > > expected actual
00:01:47 verbose #6370 > >
00:01:47 verbose #6371 > > let inline __sequenceEqual log expected actual = __expect
00:01:47 verbose #6372 > > Expecto.Expect.sequenceEqual log expected actual
00:01:47 verbose #6373 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:01:47 verbose #6374 > >
00:01:47 verbose #6375 > > let inline __stringContains log expected actual = __expect
00:01:47 verbose #6376 > > Expecto.Expect.stringContains log expected actual
00:01:47 verbose #6377 > > let inline _stringContains expected actual = __stringContains true expected
00:01:47 verbose #6378 > > actual
00:01:47 verbose #6379 > >
00:01:47 verbose #6380 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:01:47 verbose #6381 > > log expected actual
00:01:47 verbose #6382 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:01:47 verbose #6383 > >
00:01:47 verbose #6384 > > let inline __stringStarts log expected actual = __expect
00:01:47 verbose #6385 > > Expecto.Expect.stringStarts log expected actual
00:01:47 verbose #6386 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:01:47 verbose #6387 > >
00:01:47 verbose #6388 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:01:47 verbose #6389 > > expected actual
00:01:47 verbose #6390 > > let inline _throwsC expected actual = __throwsC true expected actual
00:01:47 verbose #6391 > >
00:01:47 verbose #6392 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:47 verbose #6393 > > //// test
00:01:47 verbose #6394 > >
00:01:47 verbose #6395 > > let inline __isBetween log a b actual =
00:01:47 verbose #6396 > > let inline isBetween actual (a, b) _ =
00:01:47 verbose #6397 > > __isGreaterThanOrEqual log a actual
00:01:47 verbose #6398 > > __isLessThanOrEqual log b actual
00:01:47 verbose #6399 > > __expect isBetween log (a, b) actual
00:01:47 verbose #6400 > > let inline _isBetween a b actual = __isBetween true a b actual
00:01:47 verbose #6401 > >
00:01:47 verbose #6402 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #6403 > > #!import ../../lib/fsharp/Common.fs
00:01:47 verbose #6404 > >
00:01:47 verbose #6405 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:47 verbose #6406 > > #if !INTERACTIVE
00:01:47 verbose #6407 > > namespace Polyglot
00:01:47 verbose #6408 > > #endif
00:01:47 verbose #6409 > >
00:01:47 verbose #6410 > > module Common =
00:01:47 verbose #6411 > >
00:01:47 verbose #6412 > > #if !INTERACTIVE
00:01:47 verbose #6413 > > open Lib
00:01:47 verbose #6414 > > #endif
00:01:47 verbose #6415 > >
00:01:47 verbose #6416 > > let nl = System.Environment.NewLine
00:01:47 verbose #6417 > > let q = @""""
00:01:47 verbose #6418 > >
00:01:47 verbose #6419 > > let inline cons head tail = head :: tail
00:01:47 verbose #6420 > >
00:01:47 verbose #6421 > > /// ## memoize
00:01:47 verbose #6422 > > let inline memoize fn =
00:01:47 verbose #6423 > > let result = lazy fn ()
00:01:47 verbose #6424 > > fun () -> result.Value
00:01:47 verbose #6425 > >
00:01:47 verbose #6426 > > /// ## TraceLevel
00:01:47 verbose #6427 > > type TraceLevel =
00:01:47 verbose #6428 > > | Verbose
00:01:47 verbose #6429 > > | Debug
00:01:47 verbose #6430 > > | Info
00:01:47 verbose #6431 > > | Warning
00:01:47 verbose #6432 > > | Critical
00:01:47 verbose #6433 > >
00:01:47 verbose #6434 > > let inline _locals () = ""
00:01:47 verbose #6435 > >
00:01:47 verbose #6436 > > /// ## trace
00:01:47 verbose #6437 > > let to_trace_level = function
00:01:47 verbose #6438 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:47 verbose #6439 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:47 verbose #6440 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:47 verbose #6441 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:47 verbose #6442 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:01:47 verbose #6443 > >
00:01:47 verbose #6444 > > let trace level fn locals =
00:01:47 verbose #6445 > > let level = level |> to_trace_level
00:01:47 verbose #6446 > > SpiralTrace.trace level fn locals
00:01:47 verbose #6447 > >
00:01:47 verbose #6448 > >
00:01:47 verbose #6449 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #6450 > > open Common
00:01:47 verbose #6451 > >
00:01:47 verbose #6452 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 verbose #6453 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 verbose #6454 > > │ ## getUnionCaseName │
00:01:47 verbose #6455 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #6456 > >
00:01:47 verbose #6457 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #6458 > > let inline getUnionCaseName<'T> (x: 'T) =
00:01:47 verbose #6459 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:01:47 verbose #6460 > > | case, _ -> case.Name
00:01:47 verbose #6461 > >
00:01:47 verbose #6462 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #6463 > > //// test
00:01:47 verbose #6464 > >
00:01:47 verbose #6465 > > TraceLevel.Critical
00:01:47 verbose #6466 > > |> getUnionCaseName
00:01:47 verbose #6467 > > |> _assertEqual (nameof TraceLevel.Critical)
00:01:47 verbose #6468 > >
00:01:47 verbose #6469 > > ╭─[ 69.05ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:47 verbose #6470 > > │ "Critical" │
00:01:47 verbose #6471 > > │ │
00:01:47 verbose #6472 > > │ │
00:01:47 verbose #6473 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #6474 > 00:00:19 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 45154
00:01:47 verbose #6475 > 00:00:19 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:49 verbose #6476 > 00:00:21 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb to html
00:01:49 verbose #6477 > 00:00:21 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:49 verbose #6478 > 00:00:21 verbose #7 ! validate(nb)
00:01:50 verbose #6479 > 00:00:22 verbose #8 ! [NbConvertApp] Writing 275592 bytes to c:\home\git\polyglot\lib\fsharp\CommonFSharp.dib.html
00:01:51 verbose #6480 > 00:00:22 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 655
00:01:51 verbose #6481 > 00:00:22 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 655
00:01:51 verbose #6482 > 00:00:22 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:52 verbose #6483 > 00:00:23 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:52 verbose #6484 > 00:00:23 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:52 verbose #6485 > 00:00:24 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 45868
00:01:52 debug #6486 runtime.execute_with_options_async / exit_code: 0 / output.Length: 50993
00:01:52 debug #4 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path CommonFSharp.dib --retries 3
00:01:52 debug #6487 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path FileSystem.dib --retries 3",
[||], None, None, true, None)
00:01:52 verbose #6488 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "FileSystem.dib", "--retries", "3"])
00:01:52 verbose #6489 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/FileSystem.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/FileSystem.dib" --output-path "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:54 verbose #6490 > >
00:01:54 verbose #6491 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 verbose #6492 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 verbose #6493 > > │ # FileSystem (Polyglot) │
00:01:54 verbose #6494 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #6495 > >
00:01:54 verbose #6496 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:54 verbose #6497 > > #r
00:01:54 verbose #6498 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:01:54 verbose #6499 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:01:54 verbose #6500 > > #r
00:01:54 verbose #6501 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:01:54 verbose #6502 > > 0/System.Reactive.dll"
00:01:54 verbose #6503 > > #r
00:01:54 verbose #6504 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:01:54 verbose #6505 > > netstandard2.0/System.Reactive.Linq.dll"
00:01:54 verbose #6506 > > #r
00:01:54 verbose #6507 > > @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll"
00:01:54 verbose #6508 > >
00:01:54 verbose #6509 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:54 verbose #6510 > > #r
00:01:54 verbose #6511 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:54 verbose #6512 > > spNetCore.Html.Abstractions.dll"
00:01:54 verbose #6513 > > #r
00:01:54 verbose #6514 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:54 verbose #6515 > > otNet.Interactive.dll"
00:01:54 verbose #6516 > > #r
00:01:54 verbose #6517 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:54 verbose #6518 > > otNet.Interactive.FSharp.dll"
00:01:54 verbose #6519 > > #r
00:01:54 verbose #6520 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:54 verbose #6521 > > otNet.Interactive.Formatting.dll"
00:01:54 verbose #6522 > > open System
00:01:54 verbose #6523 > > open System.IO
00:01:54 verbose #6524 > > open System.Text
00:01:54 verbose #6525 > > open Microsoft.DotNet.Interactive.Formatting
00:01:58 verbose #6526 > >
00:01:58 verbose #6527 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:58 verbose #6528 > > #r
00:01:58 verbose #6529 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:58 verbose #6530 > > otNet.Interactive.FSharp.dll"
00:01:58 verbose #6531 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:58 verbose #6532 > > #r
00:01:58 verbose #6533 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:58 verbose #6534 > > otNet.Interactive.dll"
00:01:58 verbose #6535 > > open type Microsoft.DotNet.Interactive.Kernel
00:01:58 verbose #6536 > >
00:01:58 verbose #6537 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:58 verbose #6538 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:01:59 verbose #6539 > >
00:01:59 verbose #6540 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:59 verbose #6541 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:01:59 verbose #6542 > > TextWriter)->fprintfn writer "%120A" x)
00:01:59 verbose #6543 > >
00:01:59 verbose #6544 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:59 verbose #6545 > > #!import ../../lib/fsharp/Notebooks.dib
00:01:59 verbose #6546 > > #!import ../../lib/fsharp/Testing.dib
00:01:59 verbose #6547 > >
00:01:59 verbose #6548 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:59 verbose #6549 > > //// test
00:01:59 verbose #6550 > >
00:01:59 verbose #6551 > > Formatter.ListExpansionLimit <- 100
00:01:59 verbose #6552 > >
00:01:59 verbose #6553 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:59 verbose #6554 > > #if FABLE_COMPILER
00:01:59 verbose #6555 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:59 verbose #6556 > > #endif
00:01:59 verbose #6557 > > type std_env_VarError = class end
00:01:59 verbose #6558 > > #if FABLE_COMPILER
00:01:59 verbose #6559 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:59 verbose #6560 > > #endif
00:01:59 verbose #6561 > > type core_any_Any = class end
00:01:59 verbose #6562 > > #if FABLE_COMPILER
00:01:59 verbose #6563 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:59 verbose #6564 > > #endif
00:01:59 verbose #6565 > > type core_ops_Try<'T> = class end
00:01:59 verbose #6566 > > #if FABLE_COMPILER
00:01:59 verbose #6567 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:59 verbose #6568 > > #endif
00:01:59 verbose #6569 > > type Func0<'T> = class end
00:01:59 verbose #6570 > > #if FABLE_COMPILER
00:01:59 verbose #6571 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:59 verbose #6572 > > #endif
00:01:59 verbose #6573 > > type Func0<'T, 'U> = class end
00:01:59 verbose #6574 > > #if FABLE_COMPILER
00:01:59 verbose #6575 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:59 verbose #6576 > > #endif
00:01:59 verbose #6577 > > type Box<'T> = class end
00:01:59 verbose #6578 > > #if FABLE_COMPILER
00:01:59 verbose #6579 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:59 verbose #6580 > > #endif
00:01:59 verbose #6581 > > type Dyn<'T> = class end
00:01:59 verbose #6582 > > #if FABLE_COMPILER
00:01:59 verbose #6583 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:59 verbose #6584 > > #endif
00:01:59 verbose #6585 > > type Send<'T> = class end
00:01:59 verbose #6586 > > #if FABLE_COMPILER
00:01:59 verbose #6587 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:59 verbose #6588 > > #endif
00:01:59 verbose #6589 > > type Fn<'T> = class end
00:01:59 verbose #6590 > > #if FABLE_COMPILER
00:01:59 verbose #6591 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:59 verbose #6592 > > #endif
00:01:59 verbose #6593 > > type FnUnit = class end
00:01:59 verbose #6594 > > #if FABLE_COMPILER
00:01:59 verbose #6595 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:59 verbose #6596 > > #endif
00:01:59 verbose #6597 > > type FnOnce<'T> = class end
00:01:59 verbose #6598 > > #if FABLE_COMPILER
00:01:59 verbose #6599 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:59 verbose #6600 > > #endif
00:01:59 verbose #6601 > > type ActionFn<'T> = class end
00:01:59 verbose #6602 > > #if FABLE_COMPILER
00:01:59 verbose #6603 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:59 verbose #6604 > > #endif
00:01:59 verbose #6605 > > type ActionFn2<'T, 'U> = class end
00:01:59 verbose #6606 > > #if FABLE_COMPILER
00:01:59 verbose #6607 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:59 verbose #6608 > > #endif
00:01:59 verbose #6609 > > type Impl<'T> = class end
00:01:59 verbose #6610 > > #if FABLE_COMPILER
00:01:59 verbose #6611 > > [[<Fabl...2, v3, v4)
00:01:59 verbose #6612 > > US5_1
00:01:59 verbose #6613 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:01:59 verbose #6614 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:01:59 verbose #6615 > > let v4 : (US4 -> US5) = closure6()
00:01:59 verbose #6616 > > let v5 : (exn -> US5) = closure7(v2)
00:01:59 verbose #6617 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:01:59 verbose #6618 > > match v6 with
00:01:59 verbose #6619 > > | US5_1 -> (* None *)
00:01:59 verbose #6620 > > let v8 : int32 = v2 + 1
00:01:59 verbose #6621 > > method6(v0, v1, v8)
00:01:59 verbose #6622 > > | US5_0(v7) -> (* Some *)
00:01:59 verbose #6623 > > v7
00:01:59 verbose #6624 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:01:59 verbose #6625 > > let v2 : int32 = 0
00:01:59 verbose #6626 > > let v3 : US4 = method6(v0, v1, v2)
00:01:59 verbose #6627 > > match v3 with
00:01:59 verbose #6628 > > | US4_1 -> (* None *)
00:01:59 verbose #6629 > > let v5 : unit option = None
00:01:59 verbose #6630 > > v5
00:01:59 verbose #6631 > > | US4_0 -> (* Some *)
00:01:59 verbose #6632 > > let v4 : unit option = Some ()
00:01:59 verbose #6633 > > v4
00:01:59 verbose #6634 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:01:59 verbose #6635 > > closure4(v0)
00:01:59 verbose #6636 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:01:59 verbose #6637 > > v0
00:01:59 verbose #6638 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:01:59 verbose #6639 > > v0.Value
00:01:59 verbose #6640 > > ()
00:01:59 verbose #6641 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:01:59 verbose #6642 > > let v1 : (unit -> unit) = method12(v0)
00:01:59 verbose #6643 > > let v2 : Lazy<unit> = lazy v1 ()
00:01:59 verbose #6644 > > closure13(v2)
00:01:59 verbose #6645 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:59 verbose #6646 > > let v1 : US0 = US0_0
00:01:59 verbose #6647 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:59 verbose #6648 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:01:59 verbose #6649 > > let new_disposable x = v2 x
00:01:59 verbose #6650 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:01:59 verbose #6651 > > let retry_fn x = v3 x
00:01:59 verbose #6652 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:01:59 verbose #6653 > > let memoize x = v4 x
00:01:59 verbose #6654 > > ()
00:01:59 verbose #6655 > >
00:02:02 verbose #6656 > >
00:02:02 verbose #6657 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:02 verbose #6658 > > #if FABLE_COMPILER
00:02:02 verbose #6659 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:02 verbose #6660 > > #endif
00:02:02 verbose #6661 > > type core_any_Any = class end
00:02:02 verbose #6662 > > #if FABLE_COMPILER
00:02:02 verbose #6663 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:02 verbose #6664 > > #endif
00:02:02 verbose #6665 > > type core_ops_Try<'T> = class end
00:02:02 verbose #6666 > > #if FABLE_COMPILER
00:02:02 verbose #6667 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:02 verbose #6668 > > #endif
00:02:02 verbose #6669 > > type Func0<'T> = class end
00:02:02 verbose #6670 > > #if FABLE_COMPILER
00:02:02 verbose #6671 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:02 verbose #6672 > > #endif
00:02:02 verbose #6673 > > type Func0<'T, 'U> = class end
00:02:02 verbose #6674 > > #if FABLE_COMPILER
00:02:02 verbose #6675 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:02 verbose #6676 > > #endif
00:02:02 verbose #6677 > > type Box<'T> = class end
00:02:02 verbose #6678 > > #if FABLE_COMPILER
00:02:02 verbose #6679 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:02 verbose #6680 > > #endif
00:02:02 verbose #6681 > > type Dyn<'T> = class end
00:02:02 verbose #6682 > > #if FABLE_COMPILER
00:02:02 verbose #6683 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:02 verbose #6684 > > #endif
00:02:02 verbose #6685 > > type Send<'T> = class end
00:02:02 verbose #6686 > > #if FABLE_COMPILER
00:02:02 verbose #6687 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:02 verbose #6688 > > #endif
00:02:02 verbose #6689 > > type Fn<'T> = class end
00:02:02 verbose #6690 > > #if FABLE_COMPILER
00:02:02 verbose #6691 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:02 verbose #6692 > > #endif
00:02:02 verbose #6693 > > type FnUnit = class end
00:02:02 verbose #6694 > > #if FABLE_COMPILER
00:02:02 verbose #6695 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:02 verbose #6696 > > #endif
00:02:02 verbose #6697 > > type FnOnce<'T> = class end
00:02:02 verbose #6698 > > #if FABLE_COMPILER
00:02:02 verbose #6699 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:02 verbose #6700 > > #endif
00:02:02 verbose #6701 > > type ActionFn<'T> = class end
00:02:02 verbose #6702 > > #if FABLE_COMPILER
00:02:02 verbose #6703 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:02 verbose #6704 > > #endif
00:02:02 verbose #6705 > > type ActionFn2<'T, 'U> = class end
00:02:02 verbose #6706 > > #if FABLE_COMPILER
00:02:02 verbose #6707 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:02 verbose #6708 > > #endif
00:02:02 verbose #6709 > > type Impl<'T> = class end
00:02:02 verbose #6710 > > #if FABLE_COMPILER
00:02:02 verbose #6711 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:02 verbose #6712 > > #endif
00:02:02 verbose #6713 > > type Mut<'T> = class end
00:02:02 verbose #6714 > > #if FABLE_COMPILER
00:02:02 verbose #6715 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:02:02 verbose #6716 > > let replace x = v4 x
00:02:02 verbose #6717 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:02:02 verbose #6718 > > let replace_regex x = v5 x
00:02:02 verbose #6719 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:02:02 verbose #6720 > > let slice x = v6 x
00:02:02 verbose #6721 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:02:02 verbose #6722 > > let split x = v7 x
00:02:02 verbose #6723 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:02:02 verbose #6724 > > let split_string x = v8 x
00:02:02 verbose #6725 > > let v9 : (string -> (string -> bool)) = closure23()
00:02:02 verbose #6726 > > let starts_with x = v9 x
00:02:02 verbose #6727 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:02:02 verbose #6728 > > let substring x = v10 x
00:02:02 verbose #6729 > > let v11 : (string -> string) = closure28()
00:02:02 verbose #6730 > > let to_lower x = v11 x
00:02:02 verbose #6731 > > let v12 : (string -> string) = closure29()
00:02:02 verbose #6732 > > let to_upper x = v12 x
00:02:02 verbose #6733 > > let v13 : (string -> string) = closure30()
00:02:02 verbose #6734 > > let trim x = v13 x
00:02:02 verbose #6735 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:02:02 verbose #6736 > > let trim_end x = v14 x
00:02:02 verbose #6737 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:02:02 verbose #6738 > > let trim_start x = v15 x
00:02:02 verbose #6739 > > let v16 : (int32 -> (string -> string)) = closure35()
00:02:02 verbose #6740 > > let ellipsis x = v16 x
00:02:02 verbose #6741 > > let v17 : (int64 -> (string -> string)) = closure37()
00:02:02 verbose #6742 > > let ellipsis_end x = v17 x
00:02:02 verbose #6743 > > let v18 : (exn -> string) = closure39()
00:02:02 verbose #6744 > > let format_exception x = v18 x
00:02:02 verbose #6745 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:02:02 verbose #6746 > > let concat_array_trailing x = v19 x
00:02:02 verbose #6747 > > let v20 : (string -> (string seq -> string)) = closure42()
00:02:02 verbose #6748 > > let concat x = v20 x
00:02:02 verbose #6749 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:02:02 verbose #6750 > > let join' x = v21 x
00:02:02 verbose #6751 > > let v22 : (string -> (char [[]])) = closure46()
00:02:02 verbose #6752 > > let to_char_array x = v22 x
00:02:02 verbose #6753 > > ()
00:02:02 verbose #6754 > >
00:02:03 verbose #6755 > >
00:02:03 verbose #6756 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 verbose #6757 > > #if FABLE_COMPILER
00:02:03 verbose #6758 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:03 verbose #6759 > > #endif
00:02:03 verbose #6760 > > type core_any_Any = class end
00:02:03 verbose #6761 > > #if FABLE_COMPILER
00:02:03 verbose #6762 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:03 verbose #6763 > > #endif
00:02:03 verbose #6764 > > type core_ops_Try<'T> = class end
00:02:03 verbose #6765 > > #if FABLE_COMPILER
00:02:03 verbose #6766 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:03 verbose #6767 > > #endif
00:02:03 verbose #6768 > > type Func0<'T> = class end
00:02:03 verbose #6769 > > #if FABLE_COMPILER
00:02:03 verbose #6770 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:03 verbose #6771 > > #endif
00:02:03 verbose #6772 > > type Func0<'T, 'U> = class end
00:02:03 verbose #6773 > > #if FABLE_COMPILER
00:02:03 verbose #6774 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:03 verbose #6775 > > #endif
00:02:03 verbose #6776 > > type Box<'T> = class end
00:02:03 verbose #6777 > > #if FABLE_COMPILER
00:02:03 verbose #6778 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:03 verbose #6779 > > #endif
00:02:03 verbose #6780 > > type Dyn<'T> = class end
00:02:03 verbose #6781 > > #if FABLE_COMPILER
00:02:03 verbose #6782 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:03 verbose #6783 > > #endif
00:02:03 verbose #6784 > > type Send<'T> = class end
00:02:03 verbose #6785 > > #if FABLE_COMPILER
00:02:03 verbose #6786 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:03 verbose #6787 > > #endif
00:02:03 verbose #6788 > > type Fn<'T> = class end
00:02:03 verbose #6789 > > #if FABLE_COMPILER
00:02:03 verbose #6790 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:03 verbose #6791 > > #endif
00:02:03 verbose #6792 > > type FnUnit = class end
00:02:03 verbose #6793 > > #if FABLE_COMPILER
00:02:03 verbose #6794 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:03 verbose #6795 > > #endif
00:02:03 verbose #6796 > > type FnOnce<'T> = class end
00:02:03 verbose #6797 > > #if FABLE_COMPILER
00:02:03 verbose #6798 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:03 verbose #6799 > > #endif
00:02:03 verbose #6800 > > type ActionFn<'T> = class end
00:02:03 verbose #6801 > > #if FABLE_COMPILER
00:02:03 verbose #6802 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:03 verbose #6803 > > #endif
00:02:03 verbose #6804 > > type ActionFn2<'T, 'U> = class end
00:02:03 verbose #6805 > > #if FABLE_COMPILER
00:02:03 verbose #6806 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:03 verbose #6807 > > #endif
00:02:03 verbose #6808 > > type Impl<'T> = class end
00:02:03 verbose #6809 > > #if FABLE_COMPILER
00:02:03 verbose #6810 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:03 verbose #6811 > > #endif
00:02:03 verbose #6812 > > type Mut<'T> = class end
00:02:03 verbose #6813 > > #if FABLE_COMPILER
00:02:03 verbose #6814 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:02:03 verbose #6815 > > ()
00:02:03 verbose #6816 > > #endif
00:02:03 verbose #6817 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:03 verbose #6818 > > let v28 : string = @"println!(""{}"", $0)"
00:02:03 verbose #6819 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:02:03 verbose #6820 > > ()
00:02:03 verbose #6821 > > #endif
00:02:03 verbose #6822 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:03 verbose #6823 > > System.Console.WriteLine v24
00:02:03 verbose #6824 > > ()
00:02:03 verbose #6825 > > #endif
00:02:03 verbose #6826 > > #if FABLE_COMPILER_PYTHON
00:02:03 verbose #6827 > > System.Console.WriteLine v24
00:02:03 verbose #6828 > > ()
00:02:03 verbose #6829 > > #endif
00:02:03 verbose #6830 > > #else
00:02:03 verbose #6831 > > System.Console.WriteLine v24
00:02:03 verbose #6832 > > ()
00:02:03 verbose #6833 > > #endif
00:02:03 verbose #6834 > > |> fun x -> _v25 <- Some x
00:02:03 verbose #6835 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:02:03 verbose #6836 > > _v25=None"
00:02:03 verbose #6837 > > let v29 : (string -> unit) = v8.l0
00:02:03 verbose #6838 > > v29 v24
00:02:03 verbose #6839 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:02:03 verbose #6840 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:02:03 verbose #6841 > > method11(v0, v3)
00:02:03 verbose #6842 > > and closure1 () (v0 : string) : uint16 =
00:02:03 verbose #6843 > > let v1 : char = v0.[[int 0]]
00:02:03 verbose #6844 > > let v2 : (char -> int32) = int32
00:02:03 verbose #6845 > > let v3 : int32 = v2 v1
00:02:03 verbose #6846 > > let v4 : string = v0.[[int 0..int 7]]
00:02:03 verbose #6847 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:02:03 verbose #6848 > > let v6 : int32 = v5 + v3
00:02:03 verbose #6849 > > let v7 : (int32 -> uint16) = uint16
00:02:03 verbose #6850 > > let v8 : uint16 = v7 v6
00:02:03 verbose #6851 > > let v9 : US0 = US0_0
00:02:03 verbose #6852 > > let v10 : (unit -> string) = closure2()
00:02:03 verbose #6853 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:02:03 verbose #6854 > > method3(v9, v10, v11)
00:02:03 verbose #6855 > > let v12 : uint16 = v8 % 48128us
00:02:03 verbose #6856 > > let v13 : uint16 = v12 + 1024us
00:02:03 verbose #6857 > > v13
00:02:03 verbose #6858 > > let v0 : (string -> string) = closure0()
00:02:03 verbose #6859 > > let hash_text x = v0 x
00:02:03 verbose #6860 > > let v1 : (string -> uint16) = closure1()
00:02:03 verbose #6861 > > let hash_to_port x = v1 x
00:02:03 verbose #6862 > > ()
00:02:03 verbose #6863 > >
00:02:03 verbose #6864 > >
00:02:03 verbose #6865 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 verbose #6866 > > #if FABLE_COMPILER
00:02:03 verbose #6867 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:03 verbose #6868 > > #endif
00:02:03 verbose #6869 > > type core_any_Any = class end
00:02:03 verbose #6870 > > #if FABLE_COMPILER
00:02:03 verbose #6871 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:03 verbose #6872 > > #endif
00:02:03 verbose #6873 > > type core_ops_Try<'T> = class end
00:02:03 verbose #6874 > > #if FABLE_COMPILER
00:02:03 verbose #6875 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:03 verbose #6876 > > #endif
00:02:03 verbose #6877 > > type Func0<'T> = class end
00:02:03 verbose #6878 > > #if FABLE_COMPILER
00:02:03 verbose #6879 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:03 verbose #6880 > > #endif
00:02:03 verbose #6881 > > type Func0<'T, 'U> = class end
00:02:03 verbose #6882 > > #if FABLE_COMPILER
00:02:03 verbose #6883 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:03 verbose #6884 > > #endif
00:02:03 verbose #6885 > > type Box<'T> = class end
00:02:03 verbose #6886 > > #if FABLE_COMPILER
00:02:03 verbose #6887 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:03 verbose #6888 > > #endif
00:02:03 verbose #6889 > > type Dyn<'T> = class end
00:02:03 verbose #6890 > > #if FABLE_COMPILER
00:02:03 verbose #6891 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:03 verbose #6892 > > #endif
00:02:03 verbose #6893 > > type Send<'T> = class end
00:02:03 verbose #6894 > > #if FABLE_COMPILER
00:02:03 verbose #6895 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:03 verbose #6896 > > #endif
00:02:03 verbose #6897 > > type Fn<'T> = class end
00:02:03 verbose #6898 > > #if FABLE_COMPILER
00:02:03 verbose #6899 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:03 verbose #6900 > > #endif
00:02:03 verbose #6901 > > type FnUnit = class end
00:02:03 verbose #6902 > > #if FABLE_COMPILER
00:02:03 verbose #6903 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:03 verbose #6904 > > #endif
00:02:03 verbose #6905 > > type FnOnce<'T> = class end
00:02:03 verbose #6906 > > #if FABLE_COMPILER
00:02:03 verbose #6907 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:03 verbose #6908 > > #endif
00:02:03 verbose #6909 > > type ActionFn<'T> = class end
00:02:03 verbose #6910 > > #if FABLE_COMPILER
00:02:03 verbose #6911 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:03 verbose #6912 > > #endif
00:02:03 verbose #6913 > > type ActionFn2<'T, 'U> = class end
00:02:03 verbose #6914 > > #if FABLE_COMPILER
00:02:03 verbose #6915 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:03 verbose #6916 > > #endif
00:02:03 verbose #6917 > > type Impl<'T> = class end
00:02:03 verbose #6918 > > #if FABLE_COMPILER
00:02:03 verbose #6919 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:03 verbose #6920 > > #endif
00:02:03 verbose #6921 > > type Mut<'T> = class end
00:02:03 verbose #6922 > > #if FABLE_COMPILER
00:02:03 verbose #6923 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:02:03 verbose #6924 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:02:03 verbose #6925 > > let v2 : System.Guid = v1 ()
00:02:03 verbose #6926 > > let v3 : (System.Guid -> string) = _.ToString()
00:02:03 verbose #6927 > > let v4 : string = v3 v2
00:02:03 verbose #6928 > > let v5 : (int64 -> string) = _.ToString()
00:02:03 verbose #6929 > > let v6 : string = v5 v0
00:02:03 verbose #6930 > > let v7 : string = v6.PadLeft (18, '0')
00:02:03 verbose #6931 > > let v8 : System.Guid = System.Guid
00:02:03 verbose #6932 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:02:03 verbose #6933 > > v8
00:02:03 verbose #6934 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:02:03 verbose #6935 > > let v2 : (string -> string) = v1.ToString
00:02:03 verbose #6936 > > v2 v0
00:02:03 verbose #6937 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:02:03 verbose #6938 > > closure12(v0)
00:02:03 verbose #6939 > > and closure13 () (v0 : System.DateTime) : string =
00:02:03 verbose #6940 > > let v1 : (string -> string) = v0.ToString
00:02:03 verbose #6941 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:02:03 verbose #6942 > > v1 v2
00:02:03 verbose #6943 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:02:03 verbose #6944 > > let date_time_guid_from_date_time x = v0 x
00:02:03 verbose #6945 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:02:03 verbose #6946 > > let date_time_from_guid x = v1 x
00:02:03 verbose #6947 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:02:03 verbose #6948 > > let timestamp_guid_from_timestamp x = v2 x
00:02:03 verbose #6949 > > let v3 : (System.Guid -> int64) = closure8()
00:02:03 verbose #6950 > > let timestamp_from_guid x = v3 x
00:02:03 verbose #6951 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:02:03 verbose #6952 > > let new_guid_from_date_time x = v4 x
00:02:03 verbose #6953 > > let v5 : (int64 -> System.Guid) = closure10()
00:02:03 verbose #6954 > > let new_guid_from_timestamp x = v5 x
00:02:03 verbose #6955 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:02:03 verbose #6956 > > let format x = v6 x
00:02:03 verbose #6957 > > let v7 : (System.DateTime -> string) = closure13()
00:02:03 verbose #6958 > > let format_iso8601 x = v7 x
00:02:03 verbose #6959 > > ()
00:02:03 verbose #6960 > >
00:02:04 verbose #6961 > >
00:02:04 verbose #6962 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 verbose #6963 > > #if FABLE_COMPILER
00:02:04 verbose #6964 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:02:04 verbose #6965 > > #endif
00:02:04 verbose #6966 > > type futures_future_JoinAll<'T> = class end
00:02:04 verbose #6967 > > #if FABLE_COMPILER
00:02:04 verbose #6968 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:02:04 verbose #6969 > > #endif
00:02:04 verbose #6970 > > type futures_future_TryJoinAll<'T> = class end
00:02:04 verbose #6971 > > #if FABLE_COMPILER
00:02:04 verbose #6972 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:02:04 verbose #6973 > > #endif
00:02:04 verbose #6974 > > type rayon_iter_Map<'T> = class end
00:02:04 verbose #6975 > > #if FABLE_COMPILER
00:02:04 verbose #6976 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:02:04 verbose #6977 > > #endif
00:02:04 verbose #6978 > > type rayon_vec_IntoIter<'T> = class end
00:02:04 verbose #6979 > > #if FABLE_COMPILER
00:02:04 verbose #6980 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:02:04 verbose #6981 > > #endif
00:02:04 verbose #6982 > > type std_future_Future<'T> = class end
00:02:04 verbose #6983 > > #if FABLE_COMPILER
00:02:04 verbose #6984 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:02:04 verbose #6985 > > #endif
00:02:04 verbose #6986 > > type futures_future_Fuse<'T> = class end
00:02:04 verbose #6987 > > #if FABLE_COMPILER
00:02:04 verbose #6988 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:02:04 verbose #6989 > > #endif
00:02:04 verbose #6990 > > type tokio_task_JoinHandle<'T> = class end
00:02:04 verbose #6991 > > #if FABLE_COMPILER
00:02:04 verbose #6992 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:02:04 verbose #6993 > > #endif
00:02:04 verbose #6994 > > type tokio_stream_StreamExt = class end
00:02:04 verbose #6995 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:04 verbose #6996 > > Async<System.Threading.CancellationToken> =
00:02:04 verbose #6997 > > let v1 : bool = true
00:02:04 verbose #6998 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:02:04 verbose #6999 > >
00:02:04 verbose #7000 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:04 verbose #7001 > >
00:02:04 verbose #7002 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:04 verbose #7003 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:04 verbose #7004 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:02:04 verbose #7005 > > v12
00:02:04 verbose #7006 > > #endif
00:02:04 verbose #7007 > > #else
00:02:04 verbose #7008 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:02:04 verbose #7009 > > let mutable _v13 = v13
00:02:04 verbose #7010 > > async {
00:02:04 verbose #7011 > > let v14 : Async<System.Threading.CancellationToken> =
00:02:04 verbose #7012 > > Async.CancellationToken
00:02:04 verbose #7013 > > let! v14 = v14
00:02:04 verbose #7014 > > let v15 : System.Threading.CancellationToken = v14
00:02:04 verbose #7015 > > let v16 : System.Threading.CancellationToken =
00:02:04 verbose #7016 > > Async.DefaultCancellationToken
00:02:04 verbose #7017 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:02:04 verbose #7018 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:02:04 verbose #7019 > > System.Threading.CancellationTokenSource) =
00:02:04 verbose #7020 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:02:04 verbose #7021 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:02:04 verbose #7022 > > let v20 : System.Threading.CancellationToken = v19.Token
00:02:04 verbose #7023 > > return v20
00:02:04 verbose #7024 > > }
00:02:04 verbose #7025 > > |> fun x -> _v13 <- Some x
00:02:04 verbose #7026 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:02:04 verbose #7027 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:02:04 verbose #7028 > > v21
00:02:04 verbose #7029 > > #endif
00:02:04 verbose #7030 > > |> fun x -> _v7 <- Some x
00:02:04 verbose #7031 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:02:04 verbose #7032 > > -> x | None -> failwith "base.run_target / _v7=None"
00:02:04 verbose #7033 > > v22
00:02:04 verbose #7034 > > #endif
00:02:04 verbose #7035 > > |> fun x -> _v1 <- Some x
00:02:04 verbose #7036 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:02:04 verbose #7037 > > -> x | None -> failwith "base.run_target / _v1=None"
00:02:04 verbose #7038 > > v23
00:02:04 verbose #7039 > > let v0 : (System.Threading.CancellationToken ->
00:02:04 verbose #7040 > > Async<System.Threading.CancellationToken>) = closure0()
00:02:04 verbose #7041 > > let merge_cancellation_token_with_default_async x = v0 x
00:02:04 verbose #7042 > > ()
00:02:04 verbose #7043 > >
00:02:04 verbose #7044 > >
00:02:04 verbose #7045 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 verbose #7046 > > #if FABLE_COMPILER
00:02:04 verbose #7047 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:02:04 verbose #7048 > > #endif
00:02:04 verbose #7049 > > type std_thread_JoinHandle<'T> = class end
00:02:04 verbose #7050 > > #if FABLE_COMPILER
00:02:04 verbose #7051 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:02:04 verbose #7052 > > #endif
00:02:04 verbose #7053 > > type std_sync_Arc<'T> = class end
00:02:04 verbose #7054 > > #if FABLE_COMPILER
00:02:04 verbose #7055 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:02:04 verbose #7056 > > #endif
00:02:04 verbose #7057 > > type std_sync_Mutex<'T> = class end
00:02:04 verbose #7058 > > #if FABLE_COMPILER
00:02:04 verbose #7059 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:02:04 verbose #7060 > > #endif
00:02:04 verbose #7061 > > type std_sync_MutexGuard<'T> = class end
00:02:04 verbose #7062 > > #if FABLE_COMPILER
00:02:04 verbose #7063 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:02:04 verbose #7064 > > #endif
00:02:04 verbose #7065 > > type std_sync_PoisonError<'T> = class end
00:02:04 verbose #7066 > > #if FABLE_COMPILER
00:02:04 verbose #7067 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:02:04 verbose #7068 > > #endif
00:02:04 verbose #7069 > > type std_sync_mpsc_Receiver<'T> = class end
00:02:04 verbose #7070 > > #if FABLE_COMPILER
00:02:04 verbose #7071 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:02:04 verbose #7072 > > #endif
00:02:04 verbose #7073 > > type std_sync_mpsc_SendError<'T> = class end
00:02:04 verbose #7074 > > #if FABLE_COMPILER
00:02:04 verbose #7075 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:02:04 verbose #7076 > > #endif
00:02:04 verbose #7077 > > type std_sync_mpsc_Sender<'T> = class end
00:02:04 verbose #7078 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:02:04 verbose #7079 > > _.Dispose () = f ()
00:02:04 verbose #7080 > > type [[<Struct>]] US0 =
00:02:04 verbose #7081 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:02:04 verbose #7082 > > | US0_1
00:02:04 verbose #7083 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:02:04 verbose #7084 > > let v1 : bool = true
00:02:04 verbose #7085 > > let mutable _v1 : unit option = None
00:02:04 verbose #7086 > >
00:02:04 verbose #7087 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:04 verbose #7088 > >
00:02:04 verbose #7089 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:02:04 verbose #7090 > > "$0()" )
00:02:04 verbose #7091 > > v28
00:02:04 verbose #7092 > > #endif
00:02:04 verbose #7093 > > #if FABLE_COMPILER_RUST && WASM
00:02:04 verbose #7094 > > let v29 : (unit -> unit) = method0(v25)
00:02:04 verbose #7095 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:02:04 verbose #7096 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:02:04 verbose #7097 > > v30
00:02:04 verbose #7098 > > #endif
00:02:04 verbose #7099 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:04 verbose #7100 > > let v31 : (unit -> unit) = method0(v25)
00:02:04 verbose #7101 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:02:04 verbose #7102 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:02:04 verbose #7103 > > v32
00:02:04 verbose #7104 > > #endif
00:02:04 verbose #7105 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:04 verbose #7106 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:04 verbose #7107 > > v33
00:02:04 verbose #7108 > > #endif
00:02:04 verbose #7109 > > #if FABLE_COMPILER_PYTHON
00:02:04 verbose #7110 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:04 verbose #7111 > > v34
00:02:04 verbose #7112 > > #endif
00:02:04 verbose #7113 > > #else
00:02:04 verbose #7114 > > let v35 : (unit -> unit) = method1(v25)
00:02:04 verbose #7115 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:02:04 verbose #7116 > > _.Dispose () = v35 () }
00:02:04 verbose #7117 > > v36
00:02:04 verbose #7118 > > #endif
00:02:04 verbose #7119 > > |> fun x -> _v26 <- Some x
00:02:04 verbose #7120 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:02:04 verbose #7121 > > failwith "base.run_target / _v26=None"
00:02:04 verbose #7122 > > let v38 : System.Threading.CancellationToken = v25.Token
00:02:04 verbose #7123 > > struct (v38, v37)
00:02:04 verbose #7124 > > #endif
00:02:04 verbose #7125 > > |> fun x -> _v1 <- Some x
00:02:04 verbose #7126 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:02:04 verbose #7127 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:02:04 verbose #7128 > > "base.run_target / _v1=None"
00:02:04 verbose #7129 > > struct (v39, v40)
00:02:04 verbose #7130 > > let v0 : (System.Threading.CancellationToken option -> struct
00:02:04 verbose #7131 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:02:04 verbose #7132 > > let new_disposable_token x = v0 x
00:02:04 verbose #7133 > > ()
00:02:04 verbose #7134 > >
00:02:04 verbose #7135 > >
00:02:04 verbose #7136 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 verbose #7137 > > #if FABLE_COMPILER
00:02:04 verbose #7138 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:02:04 verbose #7139 > > #endif
00:02:04 verbose #7140 > > type reqwest_Error = class end
00:02:04 verbose #7141 > > #if FABLE_COMPILER
00:02:04 verbose #7142 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:02:04 verbose #7143 > > #endif
00:02:04 verbose #7144 > > type reqwest_RequestBuilder = class end
00:02:04 verbose #7145 > > #if FABLE_COMPILER
00:02:04 verbose #7146 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:02:04 verbose #7147 > > #endif
00:02:04 verbose #7148 > > type reqwest_Response = class end
00:02:04 verbose #7149 > > #if FABLE_COMPILER
00:02:04 verbose #7150 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:02:04 verbose #7151 > > #endif
00:02:04 verbose #7152 > > type std_env_VarError = class end
00:02:04 verbose #7153 > > #if FABLE_COMPILER
00:02:04 verbose #7154 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:04 verbose #7155 > > #endif
00:02:04 verbose #7156 > > type core_any_Any = class end
00:02:04 verbose #7157 > > #if FABLE_COMPILER
00:02:04 verbose #7158 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:04 verbose #7159 > > #endif
00:02:04 verbose #7160 > > type core_ops_Try<'T> = class end
00:02:04 verbose #7161 > > #if FABLE_COMPILER
00:02:04 verbose #7162 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:04 verbose #7163 > > #endif
00:02:04 verbose #7164 > > type Func0<'T> = class end
00:02:04 verbose #7165 > > #if FABLE_COMPILER
00:02:04 verbose #7166 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:04 verbose #7167 > > #endif
00:02:04 verbose #7168 > > type Func0<'T, 'U> = class end
00:02:04 verbose #7169 > > #if FABLE_COMPILER
00:02:04 verbose #7170 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:04 verbose #7171 > > #endif
00:02:04 verbose #7172 > > type Box<'T> = class end
00:02:04 verbose #7173 > > #if FABLE_COMPILER
00:02:04 verbose #7174 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:04 verbose #7175 > > #endif
00:02:04 verbose #7176 > > type Dyn<'T> = class end
00:02:04 verbose #7177 > > #if FABLE_COMPILER
00:02:04 verbose #7178 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:04 verbose #7179 > > #endif
00:02:04 verbose #7180 > > type Send<'T> = class end
00:02:04 verbose #7181 > > #if FABLE_COMPILER
00:02:04 verbose #7182 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:04 verbose #7183 > > #endif
00:02:04 verbose #7184 > > type Fn<'T> = class end
00:02:04 verbose #7185 > > #if FABLE_COMPILER
00:02:04 verbose #7186 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:04 verbose #7187 > > #endif
00:02:04 verbose #7188 > > type FnUnit = class end
00:02:04 verbose #7189 > > #if FABLE_COMPILER
00:02:04 verbose #7190 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:04 verbose #7191 > > ... v212 = v212
00:02:04 verbose #7192 > > let v213 : bool = v212
00:02:04 verbose #7193 > > let v214 : bool = v213 = false
00:02:04 verbose #7194 > > if v214 then
00:02:04 verbose #7195 > > return v2
00:02:04 verbose #7196 > > (*
00:02:04 verbose #7197 > > ()
00:02:04 verbose #7198 > > else
00:02:04 verbose #7199 > > *) else
00:02:04 verbose #7200 > > let v215 : int32 = v2 + 1
00:02:04 verbose #7201 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:02:04 verbose #7202 > > return! v216
00:02:04 verbose #7203 > > (*
00:02:04 verbose #7204 > > ()
00:02:04 verbose #7205 > > *)
00:02:04 verbose #7206 > > }
00:02:04 verbose #7207 > > |> fun x -> _v9 <- Some x
00:02:04 verbose #7208 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:02:04 verbose #7209 > > "async.new_async_unit / _v9=None"
00:02:04 verbose #7210 > > v217
00:02:04 verbose #7211 > > #endif
00:02:04 verbose #7212 > > |> fun x -> _v3 <- Some x
00:02:04 verbose #7213 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:02:04 verbose #7214 > > "base.run_target / _v3=None"
00:02:04 verbose #7215 > > v218
00:02:04 verbose #7216 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:02:04 verbose #7217 > > method10(v0, v1, v2)
00:02:04 verbose #7218 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:02:04 verbose #7219 > > closure23(v0, v1)
00:02:04 verbose #7220 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:02:04 verbose #7221 > > closure22(v0)
00:02:04 verbose #7222 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:04 verbose #7223 > > let v1 : US0 = US0_0
00:02:04 verbose #7224 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:04 verbose #7225 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:02:04 verbose #7226 > > let test_port_open x = v2 x
00:02:04 verbose #7227 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:02:04 verbose #7228 > > let test_port_open_timeout x = v3 x
00:02:04 verbose #7229 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:02:04 verbose #7230 > > closure15()
00:02:04 verbose #7231 > > let wait_for_port_access x = v4 x
00:02:04 verbose #7232 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:02:04 verbose #7233 > > let get_available_port x = v5 x
00:02:04 verbose #7234 > > ()
00:02:04 verbose #7235 > >
00:02:06 verbose #7236 > >
00:02:06 verbose #7237 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 verbose #7238 > > type [[<Struct>]] US0 =
00:02:06 verbose #7239 > > | US0_0
00:02:06 verbose #7240 > > | US0_1
00:02:06 verbose #7241 > > | US0_2
00:02:06 verbose #7242 > > and [[<Struct>]] US1 =
00:02:06 verbose #7243 > > | US1_0 of f0_0 : US0
00:02:06 verbose #7244 > > | US1_1 of f1_0 : US0
00:02:06 verbose #7245 > > | US1_2 of f2_0 : US0
00:02:06 verbose #7246 > > | US1_3 of f3_0 : US0
00:02:06 verbose #7247 > > | US1_4 of f4_0 : US0
00:02:06 verbose #7248 > > let rec closure0 () () : bool =
00:02:06 verbose #7249 > > let v0 : bool = true
00:02:06 verbose #7250 > > let mutable _v0 : bool option = None
00:02:06 verbose #7251 > >
00:02:06 verbose #7252 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:06 verbose #7253 > >
00:02:06 verbose #7254 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:06 verbose #7255 > > let v1 : string = "cfg!(windows)"
00:02:06 verbose #7256 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:02:06 verbose #7257 > > v2
00:02:06 verbose #7258 > > #endif
00:02:06 verbose #7259 > > #if FABLE_COMPILER_RUST && WASM
00:02:06 verbose #7260 > > let v3 : string = "cfg!(windows)"
00:02:06 verbose #7261 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:02:06 verbose #7262 > > v4
00:02:06 verbose #7263 > > #endif
00:02:06 verbose #7264 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:06 verbose #7265 > > let v5 : string = "cfg!(windows)"
00:02:06 verbose #7266 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:02:06 verbose #7267 > > v6
00:02:06 verbose #7268 > > #endif
00:02:06 verbose #7269 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:06 verbose #7270 > > let v7 : US0 = US0_0
00:02:06 verbose #7271 > > let v8 : US1 = US1_3(v7)
00:02:06 verbose #7272 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:02:06 verbose #7273 > > let v10 : bool = failwith<bool> v9
00:02:06 verbose #7274 > > v10
00:02:06 verbose #7275 > > #endif
00:02:06 verbose #7276 > > #if FABLE_COMPILER_PYTHON
00:02:06 verbose #7277 > > let v11 : US0 = US0_0
00:02:06 verbose #7278 > > let v12 : US1 = US1_4(v11)
00:02:06 verbose #7279 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:02:06 verbose #7280 > > let v14 : bool = failwith<bool> v13
00:02:06 verbose #7281 > > v14
00:02:06 verbose #7282 > > #endif
00:02:06 verbose #7283 > > #else
00:02:06 verbose #7284 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:02:06 verbose #7285 > > System.Runtime.InteropServices.OSPlatform.Windows
00:02:06 verbose #7286 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:06 verbose #7287 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:06 verbose #7288 > > let v17 : b...: string = "cfg!(windows)"
00:02:06 verbose #7289 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:02:06 verbose #7290 > > v2
00:02:06 verbose #7291 > > #endif
00:02:06 verbose #7292 > > #if FABLE_COMPILER_RUST && WASM
00:02:06 verbose #7293 > > let v3 : string = "cfg!(windows)"
00:02:06 verbose #7294 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:02:06 verbose #7295 > > v4
00:02:06 verbose #7296 > > #endif
00:02:06 verbose #7297 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:06 verbose #7298 > > let v5 : string = "cfg!(windows)"
00:02:06 verbose #7299 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:02:06 verbose #7300 > > v6
00:02:06 verbose #7301 > > #endif
00:02:06 verbose #7302 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:06 verbose #7303 > > let v7 : US0 = US0_0
00:02:06 verbose #7304 > > let v8 : US1 = US1_3(v7)
00:02:06 verbose #7305 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:02:06 verbose #7306 > > let v10 : bool = failwith<bool> v9
00:02:06 verbose #7307 > > v10
00:02:06 verbose #7308 > > #endif
00:02:06 verbose #7309 > > #if FABLE_COMPILER_PYTHON
00:02:06 verbose #7310 > > let v11 : US0 = US0_0
00:02:06 verbose #7311 > > let v12 : US1 = US1_4(v11)
00:02:06 verbose #7312 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:02:06 verbose #7313 > > let v14 : bool = failwith<bool> v13
00:02:06 verbose #7314 > > v14
00:02:06 verbose #7315 > > #endif
00:02:06 verbose #7316 > > #else
00:02:06 verbose #7317 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:02:06 verbose #7318 > > System.Runtime.InteropServices.OSPlatform.Windows
00:02:06 verbose #7319 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:06 verbose #7320 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:06 verbose #7321 > > let v17 : bool = v16 v15
00:02:06 verbose #7322 > > v17
00:02:06 verbose #7323 > > #endif
00:02:06 verbose #7324 > > |> fun x -> _v0 <- Some x
00:02:06 verbose #7325 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:02:06 verbose #7326 > > "base.run_target / _v0=None"
00:02:06 verbose #7327 > > if v18 then
00:02:06 verbose #7328 > > let v19 : string = ".exe"
00:02:06 verbose #7329 > > v19
00:02:06 verbose #7330 > > else
00:02:06 verbose #7331 > > let v20 : string = ""
00:02:06 verbose #7332 > > v20
00:02:06 verbose #7333 > > let v0 : (unit -> bool) = closure0()
00:02:06 verbose #7334 > > let is_windows () = v0 ()
00:02:06 verbose #7335 > > let v1 : (unit -> string) = closure1()
00:02:06 verbose #7336 > > let get_executable_suffix () = v1 ()
00:02:06 verbose #7337 > > ()
00:02:06 verbose #7338 > >
00:02:06 verbose #7339 > >
00:02:06 verbose #7340 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 verbose #7341 > > #if FABLE_COMPILER
00:02:06 verbose #7342 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:02:06 verbose #7343 > > #endif
00:02:06 verbose #7344 > > type clap_Arg = class end
00:02:06 verbose #7345 > > #if FABLE_COMPILER
00:02:06 verbose #7346 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:02:06 verbose #7347 > > #endif
00:02:06 verbose #7348 > > type clap_ArgAction = class end
00:02:06 verbose #7349 > > #if FABLE_COMPILER
00:02:06 verbose #7350 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:02:06 verbose #7351 > > #endif
00:02:06 verbose #7352 > > type clap_Command = class end
00:02:06 verbose #7353 > > #if FABLE_COMPILER
00:02:06 verbose #7354 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:02:06 verbose #7355 > > #endif
00:02:06 verbose #7356 > > type clap_ArgMatches = class end
00:02:06 verbose #7357 > > #if FABLE_COMPILER
00:02:06 verbose #7358 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:02:06 verbose #7359 > > #endif
00:02:06 verbose #7360 > > type clap_builder_ValueRange = class end
00:02:06 verbose #7361 > > #if FABLE_COMPILER
00:02:06 verbose #7362 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:02:06 verbose #7363 > > #endif
00:02:06 verbose #7364 > > type clap_builder_ValueParser = class end
00:02:06 verbose #7365 > > #if FABLE_COMPILER
00:02:06 verbose #7366 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:02:06 verbose #7367 > > #endif
00:02:06 verbose #7368 > > type clap_builder_PossibleValue = class end
00:02:06 verbose #7369 > > #if FABLE_COMPILER
00:02:06 verbose #7370 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:02:06 verbose #7371 > > #endif
00:02:06 verbose #7372 > > type std_process_Child = class end
00:02:06 verbose #7373 > > #if FABLE_COMPILER
00:02:06 verbose #7374 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:02:06 verbose #7375 > > #endif
00:02:06 verbose #7376 > > type std_process_ChildStderr = class end
00:02:06 verbose #7377 > > #if FABLE_COMPILER
00:02:06 verbose #7378 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:02:06 verbose #7379 > > #endif
00:02:06 verbose #7380 > > type std_process_ChildStdout = class end
00:02:06 verbose #7381 > > #if FABLE_COMPILER
00:02:06 verbose #7382 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:02:06 verbose #7383 > > #endif
00:02:06 verbose #7384 > > type std_process_ChildStdin = class end
00:02:06 verbose #7385 > > #if FABLE_COMPILER
00:02:06 verbose #7386 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:02:06 verbose #7387 > > #endif
00:02:06 verbose #7388 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:02:06 verbose #7389 > > List.toArray
00:02:06 verbose #7390 > > let v20 : (string [[]]) = v19 v18
00:02:06 verbose #7391 > > US8_0(v20)
00:02:06 verbose #7392 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:02:06 verbose #7393 > > let v1 : US8 = method16(v0)
00:02:06 verbose #7394 > > match v1 with
00:02:06 verbose #7395 > > | US8_1(v4) -> (* Error *)
00:02:06 verbose #7396 > > let v5 : Result<(string [[]]), string> = Error v4
00:02:06 verbose #7397 > > v5
00:02:06 verbose #7398 > > | US8_0(v2) -> (* Ok *)
00:02:06 verbose #7399 > > let v3 : Result<(string [[]]), string> = Ok v2
00:02:06 verbose #7400 > > v3
00:02:06 verbose #7401 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:06 verbose #7402 > > let v1 : US0 = US0_0
00:02:06 verbose #7403 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:06 verbose #7404 > > let v2 : (unit -> unit) = closure2()
00:02:06 verbose #7405 > > let current_process_kill () = v2 ()
00:02:06 verbose #7406 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:02:06 verbose #7407 > > let execute_async x = v3 x
00:02:06 verbose #7408 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:02:06 verbose #7409 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:02:06 verbose #7410 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:02:06 verbose #7411 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:02:06 verbose #7412 > > let execute_with_options_async x = v4 x
00:02:06 verbose #7413 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:02:06 verbose #7414 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:02:06 verbose #7415 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:02:06 verbose #7416 > > unit) option * bool * string option)) = closure20()
00:02:06 verbose #7417 > > let execution_options x = v5 x
00:02:06 verbose #7418 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:02:06 verbose #7419 > > let split_args x = v6 x
00:02:06 verbose #7420 > > ()
00:02:06 verbose #7421 > >
00:02:09 verbose #7422 > >
00:02:09 verbose #7423 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:09 verbose #7424 > > #if FABLE_COMPILER
00:02:09 verbose #7425 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:02:09 verbose #7426 > > #endif
00:02:09 verbose #7427 > > type std_fs_File = class end
00:02:09 verbose #7428 > > #if FABLE_COMPILER
00:02:09 verbose #7429 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:02:09 verbose #7430 > > #endif
00:02:09 verbose #7431 > > type std_fs_FileType = class end
00:02:09 verbose #7432 > > #if FABLE_COMPILER
00:02:09 verbose #7433 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:02:09 verbose #7434 > > #endif
00:02:09 verbose #7435 > > type std_path_Display = class end
00:02:09 verbose #7436 > > #if FABLE_COMPILER
00:02:09 verbose #7437 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:02:09 verbose #7438 > > #endif
00:02:09 verbose #7439 > > type std_path_Path = class end
00:02:09 verbose #7440 > > #if FABLE_COMPILER
00:02:09 verbose #7441 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:02:09 verbose #7442 > > #endif
00:02:09 verbose #7443 > > type std_path_PathBuf = class end
00:02:09 verbose #7444 > > #if FABLE_COMPILER
00:02:09 verbose #7445 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:02:09 verbose #7446 > > #endif
00:02:09 verbose #7447 > > type async_walkdir_DirEntry = class end
00:02:09 verbose #7448 > > #if FABLE_COMPILER
00:02:09 verbose #7449 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:02:09 verbose #7450 > > #endif
00:02:09 verbose #7451 > > type async_walkdir_Filtering = class end
00:02:09 verbose #7452 > > #if FABLE_COMPILER
00:02:09 verbose #7453 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:02:09 verbose #7454 > > #endif
00:02:09 verbose #7455 > > type async_walkdir_WalkDir = class end
00:02:09 verbose #7456 > > #if FABLE_COMPILER
00:02:09 verbose #7457 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:09 verbose #7458 > > #endif
00:02:09 verbose #7459 > > type core_any_Any = class end
00:02:09 verbose #7460 > > #if FABLE_COMPILER
00:02:09 verbose #7461 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:09 verbose #7462 > > #endif
00:02:09 verbose #7463 > > type core_ops_Try<'T> = class end
00:02:09 verbose #7464 > > #if FABLE_COMPILER
00:02:09 verbose #7465 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:09 verbose #7466 > > #endif
00:02:09 verbose #7467 > > type Func0<'T> = class end
00:02:09 verbose #7468 > > #if FABLE_COMPILER
00:02:09 verbose #7469 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:09 verbose #7470 > > #endif
00:02:09 verbose #7471 > > type Func0<'T, 'U> = class end
00:02:09 verbose #7472 > > #if FABLE_COMPILER
00:02:09 verbose #7473 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:09 verbose #7474 > > #endif
00:02:09 verbose #7475 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:02:09 verbose #7476 > > let wait_for_file_access x = v3 x
00:02:09 verbose #7477 > > let v4 : (string -> Async<int64>) = closure12()
00:02:09 verbose #7478 > > let wait_for_file_access_read x = v4 x
00:02:09 verbose #7479 > > let v5 : (string -> Async<string>) = closure13()
00:02:09 verbose #7480 > > let read_all_text_async x = v5 x
00:02:09 verbose #7481 > > let v6 : (string -> (string -> bool)) = closure14()
00:02:09 verbose #7482 > > let file_exists_content x = v6 x
00:02:09 verbose #7483 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:02:09 verbose #7484 > > let write_all_text_async x = v7 x
00:02:09 verbose #7485 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:02:09 verbose #7486 > > let write_all_text_exists x = v8 x
00:02:09 verbose #7487 > > let v9 : (string -> Async<int64>) = closure20()
00:02:09 verbose #7488 > > let delete_file_async x = v9 x
00:02:09 verbose #7489 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:02:09 verbose #7490 > > let move_file_async x = v10 x
00:02:09 verbose #7491 > > let v11 : (string -> Async<string option>) = closure27()
00:02:09 verbose #7492 > > let read_all_text_retry_async x = v11 x
00:02:09 verbose #7493 > > let v12 : (unit -> string) = closure35()
00:02:09 verbose #7494 > > let create_temp_path () = v12 ()
00:02:09 verbose #7495 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:02:09 verbose #7496 > > let create_temp_dir () = v13 ()
00:02:09 verbose #7497 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:02:09 verbose #7498 > > let create_temp_dir' x = v14 x
00:02:09 verbose #7499 > > let v15 : (unit -> string) = closure49()
00:02:09 verbose #7500 > > let get_source_directory () = v15 ()
00:02:09 verbose #7501 > > let v16 : (string -> string) = closure50()
00:02:09 verbose #7502 > > let normalize_path x = v16 x
00:02:09 verbose #7503 > > let v17 : (string -> string) = closure51()
00:02:09 verbose #7504 > > let new_file_uri x = v17 x
00:02:09 verbose #7505 > > let v18 : (unit -> string) = closure52()
00:02:09 verbose #7506 > > let get_workspace_root () = v18 ()
00:02:09 verbose #7507 > > let v19 : (bool -> unit) = closure56()
00:02:09 verbose #7508 > > let init_trace_file x = v19 x
00:02:09 verbose #7509 > > let v20 : (string -> (string -> string)) = closure58()
00:02:09 verbose #7510 > > let (</>) x = v20 x
00:02:09 verbose #7511 > > ()
00:02:09 verbose #7512 > >
00:02:12 verbose #7513 > >
00:02:12 verbose #7514 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #7515 > > #if FABLE_COMPILER
00:02:12 verbose #7516 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:12 verbose #7517 > > #endif
00:02:12 verbose #7518 > > type core_any_Any = class end
00:02:12 verbose #7519 > > #if FABLE_COMPILER
00:02:12 verbose #7520 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:12 verbose #7521 > > #endif
00:02:12 verbose #7522 > > type core_ops_Try<'T> = class end
00:02:12 verbose #7523 > > #if FABLE_COMPILER
00:02:12 verbose #7524 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:12 verbose #7525 > > #endif
00:02:12 verbose #7526 > > type Func0<'T> = class end
00:02:12 verbose #7527 > > #if FABLE_COMPILER
00:02:12 verbose #7528 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:12 verbose #7529 > > #endif
00:02:12 verbose #7530 > > type Func0<'T, 'U> = class end
00:02:12 verbose #7531 > > #if FABLE_COMPILER
00:02:12 verbose #7532 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:12 verbose #7533 > > #endif
00:02:12 verbose #7534 > > type Box<'T> = class end
00:02:12 verbose #7535 > > #if FABLE_COMPILER
00:02:12 verbose #7536 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:12 verbose #7537 > > #endif
00:02:12 verbose #7538 > > type Dyn<'T> = class end
00:02:12 verbose #7539 > > #if FABLE_COMPILER
00:02:12 verbose #7540 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:12 verbose #7541 > > #endif
00:02:12 verbose #7542 > > type Send<'T> = class end
00:02:12 verbose #7543 > > #if FABLE_COMPILER
00:02:12 verbose #7544 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:12 verbose #7545 > > #endif
00:02:12 verbose #7546 > > type Fn<'T> = class end
00:02:12 verbose #7547 > > #if FABLE_COMPILER
00:02:12 verbose #7548 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:12 verbose #7549 > > #endif
00:02:12 verbose #7550 > > type FnUnit = class end
00:02:12 verbose #7551 > > #if FABLE_COMPILER
00:02:12 verbose #7552 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:12 verbose #7553 > > #endif
00:02:12 verbose #7554 > > type FnOnce<'T> = class end
00:02:12 verbose #7555 > > #if FABLE_COMPILER
00:02:12 verbose #7556 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:12 verbose #7557 > > #endif
00:02:12 verbose #7558 > > type ActionFn<'T> = class end
00:02:12 verbose #7559 > > #if FABLE_COMPILER
00:02:12 verbose #7560 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:12 verbose #7561 > > #endif
00:02:12 verbose #7562 > > type ActionFn2<'T, 'U> = class end
00:02:12 verbose #7563 > > #if FABLE_COMPILER
00:02:12 verbose #7564 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:12 verbose #7565 > > #endif
00:02:12 verbose #7566 > > type Impl<'T> = class end
00:02:12 verbose #7567 > > #if FABLE_COMPILER
00:02:12 verbose #7568 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:12 verbose #7569 > > #endif
00:02:12 verbose #7570 > > type Mut<'T> = class end
00:02:12 verbose #7571 > > #if FABLE_COMPILER
00:02:12 verbose #7572 > > [[<Fable.Core.Erase; Fable.C... #endif
00:02:12 verbose #7573 > > #if FABLE_COMPILER_RUST && WASM
00:02:12 verbose #7574 > > let v27 : string = @"println!(""{}"", $0)"
00:02:12 verbose #7575 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:02:12 verbose #7576 > > ()
00:02:12 verbose #7577 > > #endif
00:02:12 verbose #7578 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:12 verbose #7579 > > let v28 : string = @"println!(""{}"", $0)"
00:02:12 verbose #7580 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:02:12 verbose #7581 > > ()
00:02:12 verbose #7582 > > #endif
00:02:12 verbose #7583 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:12 verbose #7584 > > System.Console.WriteLine v24
00:02:12 verbose #7585 > > ()
00:02:12 verbose #7586 > > #endif
00:02:12 verbose #7587 > > #if FABLE_COMPILER_PYTHON
00:02:12 verbose #7588 > > System.Console.WriteLine v24
00:02:12 verbose #7589 > > ()
00:02:12 verbose #7590 > > #endif
00:02:12 verbose #7591 > > #else
00:02:12 verbose #7592 > > System.Console.WriteLine v24
00:02:12 verbose #7593 > > ()
00:02:12 verbose #7594 > > #endif
00:02:12 verbose #7595 > > |> fun x -> _v25 <- Some x
00:02:12 verbose #7596 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:02:12 verbose #7597 > > _v25=None"
00:02:12 verbose #7598 > > let v29 : (string -> unit) = v8.l0
00:02:12 verbose #7599 > > v29 v24
00:02:12 verbose #7600 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:02:12 verbose #7601 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:02:12 verbose #7602 > > method8(v0, v3)
00:02:12 verbose #7603 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:02:12 verbose #7604 > > method4(v0, v1, v2)
00:02:12 verbose #7605 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:02:12 verbose #7606 > > closure4(v0, v1)
00:02:12 verbose #7607 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:02:12 verbose #7608 > > closure3(v0)
00:02:12 verbose #7609 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:12 verbose #7610 > > let v1 : US0 = US0_0
00:02:12 verbose #7611 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:12 verbose #7612 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:02:12 verbose #7613 > > let trace x = v2 x
00:02:12 verbose #7614 > > ()
00:02:12 verbose #7615 > >
00:02:12 verbose #7616 > >
00:02:12 verbose #7617 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #7618 > > module SpiralTrace =
00:02:12 verbose #7619 > > let trace x =
00:02:12 verbose #7620 > > #if !INTERACTIVE
00:02:12 verbose #7621 > > Trace.trace x
00:02:12 verbose #7622 > > #else
00:02:12 verbose #7623 > > trace x
00:02:12 verbose #7624 > > #endif
00:02:12 verbose #7625 > >
00:02:12 verbose #7626 > > type TraceLevel =
00:02:12 verbose #7627 > > #if !INTERACTIVE
00:02:12 verbose #7628 > > Trace.US0
00:02:12 verbose #7629 > > #else
00:02:12 verbose #7630 > > US0
00:02:12 verbose #7631 > > #endif
00:02:12 verbose #7632 > >
00:02:12 verbose #7633 > > module SpiralCrypto =
00:02:12 verbose #7634 > > let hash_text x =
00:02:12 verbose #7635 > > #if !INTERACTIVE
00:02:12 verbose #7636 > > Crypto.hash_text x
00:02:12 verbose #7637 > > #else
00:02:12 verbose #7638 > > hash_text x
00:02:12 verbose #7639 > > #endif
00:02:12 verbose #7640 > >
00:02:12 verbose #7641 > > let hash_to_port x =
00:02:12 verbose #7642 > > #if !INTERACTIVE
00:02:12 verbose #7643 > > Crypto.hash_to_port x
00:02:12 verbose #7644 > > #else
00:02:12 verbose #7645 > > hash_to_port x
00:02:12 verbose #7646 > > #endif
00:02:12 verbose #7647 > >
00:02:12 verbose #7648 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:12 verbose #7649 > >
00:02:12 verbose #7650 > > module SpiralAsync =
00:02:12 verbose #7651 > > let merge_cancellation_token_with_default_async x =
00:02:12 verbose #7652 > > #if !INTERACTIVE
00:02:12 verbose #7653 > > Async_.merge_cancellation_token_with_default_async x
00:02:12 verbose #7654 > > #else
00:02:12 verbose #7655 > > merge_cancellation_token_with_default_async x
00:02:12 verbose #7656 > > #endif
00:02:12 verbose #7657 > >
00:02:12 verbose #7658 > > module SpiralThreading =
00:02:12 verbose #7659 > > let new_disposable_token x =
00:02:12 verbose #7660 > > #if !INTERACTIVE
00:02:12 verbose #7661 > > Threading.new_disposable_token x
00:02:12 verbose #7662 > > #else
00:02:12 verbose #7663 > > new_disposable_token x
00:02:12 verbose #7664 > > #endif
00:02:12 verbose #7665 > >
00:02:12 verbose #7666 > > module SpiralNetworking =
00:02:12 verbose #7667 > > let test_port_open x =
00:02:12 verbose #7668 > > #if !INTERACTIVE
00:02:12 verbose #7669 > > Networking.test_port_open x
00:02:12 verbose #7670 > > #else
00:02:12 verbose #7671 > > test_port_open x
00:02:12 verbose #7672 > > #endif
00:02:12 verbose #7673 > >
00:02:12 verbose #7674 > > let test_port_open_timeout x =
00:02:12 verbose #7675 > > #if !INTERACTIVE
00:02:12 verbose #7676 > > Networking.test_port_open_timeout x
00:02:12 verbose #7677 > > #else
00:02:12 verbose #7678 > > test_port_open_timeout x
00:02:12 verbose #7679 > > #endif
00:02:12 verbose #7680 > >
00:02:12 verbose #7681 > > let wait_for_port_access x =
00:02:12 verbose #7682 > > #if !INTERACTIVE
00:02:12 verbose #7683 > > Networking.wait_for_port_access x
00:02:12 verbose #7684 > > #else
00:02:12 verbose #7685 > > wait_for_port_access x
00:02:12 verbose #7686 > > #endif
00:02:12 verbose #7687 > >
00:02:12 verbose #7688 > > let get_available_port x =
00:02:12 verbose #7689 > > #if !INTERACTIVE
00:02:12 verbose #7690 > > Networking.get_available_port x
00:02:12 verbose #7691 > > #else
00:02:12 verbose #7692 > > get_available_port x
00:02:12 verbose #7693 > > #endif
00:02:12 verbose #7694 > >
00:02:12 verbose #7695 > > module SpiralPlatform =
00:02:12 verbose #7696 > > let get_executable_suffix () =
00:02:12 verbose #7697 > > #if !INTERACTIVE
00:02:12 verbose #7698 > > Platform.g...e.trace_state
00:02:12 verbose #7699 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:02:12 verbose #7700 > > level.l0 <-
00:02:12 verbose #7701 > > match new_level with
00:02:12 verbose #7702 > > | Trace.US0_0 -> File_system.US0_0
00:02:12 verbose #7703 > > | Trace.US0_1 -> File_system.US0_1
00:02:12 verbose #7704 > > | Trace.US0_2 -> File_system.US0_2
00:02:12 verbose #7705 > > | Trace.US0_3 -> File_system.US0_3
00:02:12 verbose #7706 > > | Trace.US0_4 -> File_system.US0_4
00:02:12 verbose #7707 > > )
00:02:12 verbose #7708 > >
00:02:12 verbose #7709 > > Runtime.State.trace_state
00:02:12 verbose #7710 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:02:12 verbose #7711 > > level.l0 <-
00:02:12 verbose #7712 > > match new_level with
00:02:12 verbose #7713 > > | Trace.US0_0 -> Runtime.US0_0
00:02:12 verbose #7714 > > | Trace.US0_1 -> Runtime.US0_1
00:02:12 verbose #7715 > > | Trace.US0_2 -> Runtime.US0_2
00:02:12 verbose #7716 > > | Trace.US0_3 -> Runtime.US0_3
00:02:12 verbose #7717 > > | Trace.US0_4 -> Runtime.US0_4
00:02:12 verbose #7718 > > )
00:02:12 verbose #7719 > >
00:02:12 verbose #7720 > > Common.State.trace_state
00:02:12 verbose #7721 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:02:12 verbose #7722 > > level.l0 <-
00:02:12 verbose #7723 > > match new_level with
00:02:12 verbose #7724 > > | Trace.US0_0 -> Common.US0_0
00:02:12 verbose #7725 > > | Trace.US0_1 -> Common.US0_1
00:02:12 verbose #7726 > > | Trace.US0_2 -> Common.US0_2
00:02:12 verbose #7727 > > | Trace.US0_3 -> Common.US0_3
00:02:12 verbose #7728 > > | Trace.US0_4 -> Common.US0_4
00:02:12 verbose #7729 > > )
00:02:12 verbose #7730 > >
00:02:12 verbose #7731 > > Trace.State.trace_state
00:02:12 verbose #7732 > > #else
00:02:12 verbose #7733 > > State.trace_state
00:02:12 verbose #7734 > > #endif
00:02:12 verbose #7735 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:02:12 verbose #7736 > > level.l0 <- new_level
00:02:12 verbose #7737 > > )
00:02:12 verbose #7738 > >
00:02:12 verbose #7739 > > let get_trace_level () =
00:02:12 verbose #7740 > > #if !INTERACTIVE
00:02:12 verbose #7741 > > Trace.State.trace_state
00:02:12 verbose #7742 > > #else
00:02:12 verbose #7743 > > State.trace_state
00:02:12 verbose #7744 > > #endif
00:02:12 verbose #7745 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:02:12 verbose #7746 > > level.l0
00:02:12 verbose #7747 > > )
00:02:12 verbose #7748 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:02:12 verbose #7749 > > trace_state=None")
00:02:12 verbose #7750 > >
00:02:12 verbose #7751 > >
00:02:12 verbose #7752 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #7753 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:12 verbose #7754 > >
00:02:12 verbose #7755 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #7756 > > //// test
00:02:12 verbose #7757 > >
00:02:12 verbose #7758 > > type AssertExceptionFormatter (ex) =
00:02:12 verbose #7759 > > member _.Text =
00:02:12 verbose #7760 > > ex.ToString()
00:02:12 verbose #7761 > > .Replace("32m", "<span style=\"color: green;\">")
00:02:12 verbose #7762 > > .Replace("36m", "</span>")
00:02:12 verbose #7763 > > .Replace("31m", "<span style=\"color: red;\">")
00:02:12 verbose #7764 > > .Replace("\n", "<br/>\n")
00:02:12 verbose #7765 > >
00:02:12 verbose #7766 > >
00:02:12 verbose #7767 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:12 verbose #7768 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:12 verbose #7769 > >
00:02:12 verbose #7770 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #7771 > > //// test
00:02:12 verbose #7772 > >
00:02:12 verbose #7773 > > let inline __expect fn log expected actual =
00:02:12 verbose #7774 > > if log then printfn $"{actual.ToDisplayString ()}"
00:02:12 verbose #7775 > > try
00:02:12 verbose #7776 > > "Testing.__expect" |> fn actual expected
00:02:12 verbose #7777 > > with :? Expecto.AssertException as ex ->
00:02:12 verbose #7778 > > AssertExceptionFormatter(ex).Display () |> ignore
00:02:12 verbose #7779 > > failwith (ex.GetType().FullName)
00:02:12 verbose #7780 > >
00:02:12 verbose #7781 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:12 verbose #7782 > > expected actual
00:02:12 verbose #7783 > > let inline _contains expected actual = __contains true expected actual
00:02:12 verbose #7784 > >
00:02:12 verbose #7785 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:12 verbose #7786 > > expected actual
00:02:12 verbose #7787 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:12 verbose #7788 > >
00:02:12 verbose #7789 > > let inline __isGreaterThan log expected actual = __expect
00:02:12 verbose #7790 > > Expecto.Expect.isGreaterThan log expected actual
00:02:12 verbose #7791 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:02:12 verbose #7792 > >
00:02:12 verbose #7793 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:02:12 verbose #7794 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:02:12 verbose #7795 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:02:12 verbose #7796 > > expected actual
00:02:12 verbose #7797 > >
00:02:12 verbose #7798 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:02:12 verbose #7799 > > log expected actual
00:02:12 verbose #7800 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:02:12 verbose #7801 > >
00:02:12 verbose #7802 > > let inline __isLessThanOrEqual log expected actual = __expect
00:02:12 verbose #7803 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:02:12 verbose #7804 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:02:12 verbose #7805 > > expected actual
00:02:12 verbose #7806 > >
00:02:12 verbose #7807 > > let inline __sequenceEqual log expected actual = __expect
00:02:12 verbose #7808 > > Expecto.Expect.sequenceEqual log expected actual
00:02:12 verbose #7809 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:02:12 verbose #7810 > >
00:02:12 verbose #7811 > > let inline __stringContains log expected actual = __expect
00:02:12 verbose #7812 > > Expecto.Expect.stringContains log expected actual
00:02:12 verbose #7813 > > let inline _stringContains expected actual = __stringContains true expected
00:02:12 verbose #7814 > > actual
00:02:12 verbose #7815 > >
00:02:12 verbose #7816 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:02:12 verbose #7817 > > log expected actual
00:02:12 verbose #7818 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:02:12 verbose #7819 > >
00:02:12 verbose #7820 > > let inline __stringStarts log expected actual = __expect
00:02:12 verbose #7821 > > Expecto.Expect.stringStarts log expected actual
00:02:12 verbose #7822 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:02:12 verbose #7823 > >
00:02:12 verbose #7824 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:02:12 verbose #7825 > > expected actual
00:02:12 verbose #7826 > > let inline _throwsC expected actual = __throwsC true expected actual
00:02:13 verbose #7827 > >
00:02:13 verbose #7828 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:13 verbose #7829 > > //// test
00:02:13 verbose #7830 > >
00:02:13 verbose #7831 > > let inline __isBetween log a b actual =
00:02:13 verbose #7832 > > let inline isBetween actual (a, b) _ =
00:02:13 verbose #7833 > > __isGreaterThanOrEqual log a actual
00:02:13 verbose #7834 > > __isLessThanOrEqual log b actual
00:02:13 verbose #7835 > > __expect isBetween log (a, b) actual
00:02:13 verbose #7836 > > let inline _isBetween a b actual = __isBetween true a b actual
00:02:13 verbose #7837 > >
00:02:13 verbose #7838 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:13 verbose #7839 > > #!import ../../lib/fsharp/Common.fs
00:02:13 verbose #7840 > > #!import ../../lib/fsharp/CommonFSharp.fs
00:02:13 verbose #7841 > > #!import ../../lib/fsharp/Async.fs
00:02:13 verbose #7842 > > #!import ../../lib/fsharp/AsyncSeq.fs
00:02:13 verbose #7843 > > #!import ../../lib/fsharp/Runtime.fs
00:02:13 verbose #7844 > >
00:02:13 verbose #7845 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:13 verbose #7846 > > #if !INTERACTIVE
00:02:13 verbose #7847 > > namespace Polyglot
00:02:13 verbose #7848 > > #endif
00:02:13 verbose #7849 > >
00:02:13 verbose #7850 > > module Common =
00:02:13 verbose #7851 > >
00:02:13 verbose #7852 > > #if !INTERACTIVE
00:02:13 verbose #7853 > > open Lib
00:02:13 verbose #7854 > > #endif
00:02:13 verbose #7855 > >
00:02:13 verbose #7856 > > let nl = System.Environment.NewLine
00:02:13 verbose #7857 > > let q = @""""
00:02:13 verbose #7858 > >
00:02:13 verbose #7859 > > let inline cons head tail = head :: tail
00:02:13 verbose #7860 > >
00:02:13 verbose #7861 > > /// ## memoize
00:02:13 verbose #7862 > > let inline memoize fn =
00:02:13 verbose #7863 > > let result = lazy fn ()
00:02:13 verbose #7864 > > fun () -> result.Value
00:02:13 verbose #7865 > >
00:02:13 verbose #7866 > > /// ## TraceLevel
00:02:13 verbose #7867 > > type TraceLevel =
00:02:13 verbose #7868 > > | Verbose
00:02:13 verbose #7869 > > | Debug
00:02:13 verbose #7870 > > | Info
00:02:13 verbose #7871 > > | Warning
00:02:13 verbose #7872 > > | Critical
00:02:13 verbose #7873 > >
00:02:13 verbose #7874 > > let inline _locals () = ""
00:02:13 verbose #7875 > >
00:02:13 verbose #7876 > > /// ## trace
00:02:13 verbose #7877 > > let to_trace_level = function
00:02:13 verbose #7878 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:02:13 verbose #7879 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:02:13 verbose #7880 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:02:13 verbose #7881 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:02:13 verbose #7882 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:02:13 verbose #7883 > >
00:02:13 verbose #7884 > > let trace level fn locals =
00:02:13 verbose #7885 > > let level = level |> to_trace_level
00:02:13 verbose #7886 > > SpiralTrace.trace level fn locals
00:02:13 verbose #7887 > >
00:02:13 verbose #7888 > >
00:02:13 verbose #7889 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:13 verbose #7890 > > #if !INTERACTIVE
00:02:13 verbose #7891 > > namespace Polyglot
00:02:13 verbose #7892 > > #endif
00:02:13 verbose #7893 > >
00:02:13 verbose #7894 > > module CommonFSharp =
00:02:13 verbose #7895 > >
00:02:13 verbose #7896 > > open Common
00:02:13 verbose #7897 > >
00:02:13 verbose #7898 > > /// ## getUnionCaseName
00:02:13 verbose #7899 > > let inline getUnionCaseName<'T> (x: 'T) =
00:02:13 verbose #7900 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:02:13 verbose #7901 > > | case, _ -> case.Name
00:02:13 verbose #7902 > >
00:02:13 verbose #7903 > >
00:02:13 verbose #7904 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:13 verbose #7905 > > #if !INTERACTIVE
00:02:13 verbose #7906 > > namespace Polyglot
00:02:13 verbose #7907 > > #endif
00:02:13 verbose #7908 > >
00:02:13 verbose #7909 > > module Async =
00:02:13 verbose #7910 > >
00:02:13 verbose #7911 > > #if !INTERACTIVE
00:02:13 verbose #7912 > > open Lib
00:02:13 verbose #7913 > > #endif
00:02:13 verbose #7914 > >
00:02:13 verbose #7915 > > open Common
00:02:13 verbose #7916 > >
00:02:13 verbose #7917 > > /// ## choice
00:02:13 verbose #7918 > > let inline choice asyncs = async {
00:02:13 verbose #7919 > > let e = Event<_> ()
00:02:13 verbose #7920 > > use cts = new System.Threading.CancellationTokenSource ()
00:02:13 verbose #7921 > > let fn =
00:02:13 verbose #7922 > > asyncs
00:02:13 verbose #7923 > > |> Seq.map (fun a -> async {
00:02:13 verbose #7924 > > let! x = a
00:02:13 verbose #7925 > > e.Trigger x
00:02:13 verbose #7926 > > })
00:02:13 verbose #7927 > > |> Async.Parallel
00:02:13 verbose #7928 > > |> Async.Ignore
00:02:13 verbose #7929 > > Async.Start (fn, cts.Token)
00:02:13 verbose #7930 > > let! result = Async.AwaitEvent e.Publish
00:02:13 verbose #7931 > > cts.Cancel ()
00:02:13 verbose #7932 > > return result
00:02:13 verbose #7933 > > }
00:02:13 verbose #7934 > >
00:02:13 verbose #7935 > > /// ## map
00:02:13 verbose #7936 > > let inline map fn a = async {
00:02:13 verbose #7937 > > let! x = a
00:02:13 verbose #7938 > > return fn x
00:02:13 verbose #7939 > > }
00:02:13 verbose #7940 > >
00:02:13 verbose #7941 > > /// ## catch
00:02:13 verbose #7942 > > let inline catch a =
00:02:13 verbose #7943 > > a
00:02:13 verbose #7944 > > |> Async.Catch
00:02:13 verbose #7945 > > |> map (function
00:02:13 verbose #7946 > > | Choice1Of2 result -> Ok result
00:02:13 verbose #7947 > > | Choice2Of2 ex -> Error ex
00:02:13 verbose #7948 > > )
00:02:13 verbose #7949 > >
00:02:13 verbose #7950 > > /// ## runWithTimeoutChoiceAsync
00:02:13 verbose #7951 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:02:13 verbose #7952 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:02:13 verbose #7953 > >
00:02:13 verbose #7954 > > let timeoutTask = async {
00:02:13 verbose #7955 > > do! Async.Sleep timeout
00:02:13 verbose #7956 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:02:13 verbose #7957 > > return None
00:02:13 verbose #7958 > > }
00:02:13 verbose #7959 > >
00:02:13 verbose #7960 > > let task = async {
00:02:13 verbose #7961 > > try
00:02:13 verbose #7962 > > let! result = fn
00:02:13 verbose #7963 > > return Some result
00:02:13 verbose #7964 > > with
00:02:13 verbose #7965 > > | :? System.AggregateException as ex when
00:02:13 verbose #7966 > > ex.InnerExceptions
00:02:13 verbose #7967 > > |> Seq.exists (function :? Sy... None
00:02:13 verbose #7968 > >
00:02:13 verbose #7969 > > /// ## awaitValueTask
00:02:13 verbose #7970 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:02:13 verbose #7971 > > task.AsTask () |> Async.AwaitTask
00:02:13 verbose #7972 > >
00:02:13 verbose #7973 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:02:13 verbose #7974 > > task.AsTask () |> Async.AwaitTask
00:02:13 verbose #7975 > >
00:02:13 verbose #7976 > > /// ## init
00:02:13 verbose #7977 > > let inline init x = async {
00:02:13 verbose #7978 > > return x
00:02:13 verbose #7979 > > }
00:02:13 verbose #7980 > >
00:02:13 verbose #7981 > > /// ## withCancellationToken
00:02:13 verbose #7982 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:02:13 verbose #7983 > > fn =
00:02:13 verbose #7984 > > Async.StartImmediateAsTask (fn, ct)
00:02:13 verbose #7985 > > |> Async.AwaitTask
00:02:13 verbose #7986 > >
00:02:13 verbose #7987 > > /// ## retryAsync
00:02:13 verbose #7988 > > let inline retryAsync retries fn =
00:02:13 verbose #7989 > > let rec loop retry lastError = async {
00:02:13 verbose #7990 > > try
00:02:13 verbose #7991 > > return!
00:02:13 verbose #7992 > > if retry <= retries
00:02:13 verbose #7993 > > then fn |> map Ok
00:02:13 verbose #7994 > > else lastError |> Error |> init
00:02:13 verbose #7995 > > with ex ->
00:02:13 verbose #7996 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:02:13 verbose #7997 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:02:13 verbose #7998 > > do! Async.Sleep 1
00:02:13 verbose #7999 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:02:13 verbose #8000 > > }
00:02:13 verbose #8001 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:02:13 verbose #8002 > >
00:02:13 verbose #8003 > > /// ## fold
00:02:13 verbose #8004 > > let fold folder state array =
00:02:13 verbose #8005 > > let rec loop acc i =
00:02:13 verbose #8006 > > async {
00:02:13 verbose #8007 > > if i < Array.length array then
00:02:13 verbose #8008 > > let! newAcc = folder acc array.[[i]]
00:02:13 verbose #8009 > > return! loop newAcc (i + 1)
00:02:13 verbose #8010 > > else
00:02:13 verbose #8011 > > return acc
00:02:13 verbose #8012 > > }
00:02:13 verbose #8013 > > loop state 0
00:02:13 verbose #8014 > >
00:02:14 verbose #8015 > >
00:02:14 verbose #8016 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:14 verbose #8017 > > #if !INTERACTIVE
00:02:14 verbose #8018 > > namespace Polyglot
00:02:14 verbose #8019 > > #endif
00:02:14 verbose #8020 > >
00:02:14 verbose #8021 > > module AsyncSeq =
00:02:14 verbose #8022 > >
00:02:14 verbose #8023 > > #if !INTERACTIVE
00:02:14 verbose #8024 > > open Lib
00:02:14 verbose #8025 > > #endif
00:02:14 verbose #8026 > >
00:02:14 verbose #8027 > > open Common
00:02:14 verbose #8028 > >
00:02:14 verbose #8029 > > /// ## subscribeEvent
00:02:14 verbose #8030 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:02:14 verbose #8031 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:02:14 verbose #8032 > > 'A>(event.AddHandler, event.RemoveHandler)
00:02:14 verbose #8033 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:02:14 verbose #8034 > > event.EventArgs)
00:02:14 verbose #8035 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:02:14 verbose #8036 > >
00:02:14 verbose #8037 > > /// ## subscribeToken
00:02:14 verbose #8038 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:02:14 verbose #8039 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:02:14 verbose #8040 > > System.Action tcs.SetResult |> token.Register |> ignore
00:02:14 verbose #8041 > > let start = System.DateTime.Now.Ticks
00:02:14 verbose #8042 > > FSharp.Control.AsyncSeq.unfoldAsync
00:02:14 verbose #8043 > > (fun () -> async {
00:02:14 verbose #8044 > > do! tcs.Task |> Async.AwaitTask
00:02:14 verbose #8045 > > return Some (System.DateTime.Now.Ticks - start, ())
00:02:14 verbose #8046 > > })
00:02:14 verbose #8047 > > ()
00:02:14 verbose #8048 > >
00:02:14 verbose #8049 > >
00:02:14 verbose #8050 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:14 verbose #8051 > > #if !INTERACTIVE
00:02:14 verbose #8052 > > namespace Polyglot
00:02:14 verbose #8053 > > #endif
00:02:14 verbose #8054 > >
00:02:14 verbose #8055 > > module Runtime =
00:02:14 verbose #8056 > >
00:02:14 verbose #8057 > > #if !INTERACTIVE
00:02:14 verbose #8058 > > open Lib
00:02:14 verbose #8059 > > #endif
00:02:14 verbose #8060 > >
00:02:14 verbose #8061 > > open Common
00:02:14 verbose #8062 > >
00:02:14 verbose #8063 > > /// ## parseArgs
00:02:14 verbose #8064 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:14 verbose #8065 > > let assemblyName =
00:02:14 verbose #8066 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:14 verbose #8067 > > let errorHandler : Argu.IExiter =
00:02:14 verbose #8068 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:14 verbose #8069 > > List.contains assemblyName
00:02:14 verbose #8070 > > then Argu.ExceptionExiter ()
00:02:14 verbose #8071 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:02:14 verbose #8072 > > _ -> Some System.ConsoleColor.Red)
00:02:14 verbose #8073 > >
00:02:14 verbose #8074 > > let parser =
00:02:14 verbose #8075 > > Argu.ArgumentParser.Create<'T> (
00:02:14 verbose #8076 > > programName =
00:02:14 verbose #8077 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:02:14 verbose #8078 > > errorHandler = errorHandler
00:02:14 verbose #8079 > > )
00:02:14 verbose #8080 > >
00:02:14 verbose #8081 > > parser.ParseCommandLine args
00:02:14 verbose #8082 > >
00:02:14 verbose #8083 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:14 verbose #8084 > > args
00:02:14 verbose #8085 > > |> parseArgs<'T>
00:02:14 verbose #8086 > > |> fun results -> results.GetAllResults ()
00:02:14 verbose #8087 > >
00:02:14 verbose #8088 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:14 verbose #8089 > > args
00:02:14 verbose #8090 > > |> parseAllArgs<'T>
00:02:14 verbose #8091 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:02:14 verbose #8092 > > |> Map.ofList
00:02:14 verbose #8093 > >
00:02:14 verbose #8094 > >
00:02:14 verbose #8095 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:14 verbose #8096 > > #if !INTERACTIVE
00:02:14 verbose #8097 > > open Lib
00:02:14 verbose #8098 > > #endif
00:02:14 verbose #8099 > >
00:02:14 verbose #8100 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:14 verbose #8101 > > open Common
00:02:14 verbose #8102 > > open SpiralFileSystem.Operators
00:02:14 verbose #8103 > >
00:02:14 verbose #8104 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:14 verbose #8105 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:14 verbose #8106 > > │ ## watchDirectory │
00:02:14 verbose #8107 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:14 verbose #8108 > >
00:02:14 verbose #8109 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:14 verbose #8110 > > [[<RequireQualifiedAccess>]]
00:02:14 verbose #8111 > > type FileSystemChangeType =
00:02:14 verbose #8112 > > | Failure
00:02:14 verbose #8113 > > | Changed
00:02:14 verbose #8114 > > | Created
00:02:14 verbose #8115 > > | Deleted
00:02:14 verbose #8116 > > | Renamed
00:02:14 verbose #8117 > >
00:02:14 verbose #8118 > > [[<RequireQualifiedAccess>]]
00:02:14 verbose #8119 > > type FileSystemChange =
00:02:14 verbose #8120 > > | Failure of exn: exn
00:02:14 verbose #8121 > > | Changed of path: string * content: string option
00:02:14 verbose #8122 > > | Created of path: string * content: string option
00:02:14 verbose #8123 > > | Deleted of path: string
00:02:14 verbose #8124 > > | Renamed of oldPath: string * (string * string option)
00:02:14 verbose #8125 > >
00:02:14 verbose #8126 > >
00:02:14 verbose #8127 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:02:14 verbose #8128 > > let fullPath = path |> System.IO.Path.GetFullPath
00:02:14 verbose #8129 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:02:14 verbose #8130 > >
00:02:14 verbose #8131 > > let watcher =
00:02:14 verbose #8132 > > new System.IO.FileSystemWatcher (
00:02:14 verbose #8133 > > Path = fullPath,
00:02:14 verbose #8134 > > NotifyFilter = filter,
00:02:14 verbose #8135 > > EnableRaisingEvents = true,
00:02:14 verbose #8136 > > IncludeSubdirectories = true
00:02:14 verbose #8137 > > )
00:02:14 verbose #8138 > >
00:02:14 verbose #8139 > > let inline getEventPath (path : string) =
00:02:14 verbose #8140 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:02:14 verbose #8141 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:02:14 verbose #8142 > >
00:02:14 verbose #8143 > > let inline ticks () =
00:02:14 verbose #8144 > > System.DateTime.UtcNow.Ticks
00:02:14 verbose #8145 > >
00:02:14 verbose #8146 > > let changedStream =
00:02:14 verbose #8147 > > AsyncSeq.subscribeEvent
00:02:14 verbose #8148 > > watcher.Changed
00:02:14 verbose #8149 > > (fun event ->
00:02:14 verbose #8150 > > ticks (),
00:02:14 verbose #8151 > > [[ FileSystemChange.Changed (getEventPath event.FullPath, None)
00:02:14 verbose #8152 > > ]]
00:02:14 verbose #8153 > > )
00:02:14 verbose #8154 > >
00:02:14 verbose #8155 > > let deletedStream =
00:02:14 verbose #8156 > > AsyncSeq.subscribeEvent
00:02:14 verbose #8157 > > watcher.Deleted
00:02:14 verbose #8158 > > (fun event ->
00:02:14 verbose #8159 > > ticks (),
00:02:14 verbose #8160 > > [[ FileSystemChange.Deleted (getEventPath event.FullPath) ]]
00:02:14 verbose #8161 > > )
00:02:14 verbose #8162 > >
00:02:14 verbose #8163 > > let createdStream =
00:02:14 verbose #8164 > > AsyncSeq.subscribeEvent
00:02:14 verbose #8165 > > watcher.Created
00:02:14 verbose #8166 > > (fun event ->
00:02:14 verbose #8167 > > let path = getEventPath event.FullPath
00:02:14 verbose #8168 > > ticks (), [[
00:02:14 verbose #8169 > > FileSystemChange.Created (path, None)
00:02:14 verbose #8170 > > if SpiralPlatform.is_windows () then
00:02:14 verbose #8171 > > FileSystemChange.Changed (path, None)
00:02:14 verbose #8172 > > ]])
00:02:14 verbose #8173 > >
00:02:14 verbose #8174 > > let renamedStream =
00:02:14 verbose #8175 > > AsyncSeq.subscribeEvent
00:02:14 verbose #8176 > > watcher.Renamed
00:02:14 verbose #8177 > > (fun event ->
00:02:14 verbose #8178 > > ticks (), [[
00:02:14 verbose #8179 > > FileSystemChange.Renamed (
00:02:14 verbose #8180 > > getEventPath event.OldFullPath,
00:02:14 verbose #8181 > > (getEventPath event.FullPath, None)
00:02:14 verbose #8182 > > )
00:02:14 verbose #8183 > > ]]
00:02:14 verbose #8184 > > )
00:02:14 verbose #8185 > >
00:02:14 verbose #8186 > > let failureStream =
00:02:14 verbose #8187 > > AsyncSeq.subscribeEvent
00:02:14 verbose #8188 > > watcher.Error
00:02:14 verbose #8189 > > (fun event -> ticks (), [[ FileSystemChange.Failure
00:02:14 verbose #8190 > > (event.GetException ()) ]])
00:02:14 verbose #8191 > >
00:02:14 verbose #8192 > > let stream =
00:02:14 verbose #8193 > > [[
00:02:14 verbose #8194 > > changedStream
00:02:14 verbose #8195 > > deletedStream
00:02:14 verbose #8196 > > createdStream
00:02:14 verbose #8197 > > renamedStream
00:02:14 verbose #8198 > > failureStream
00:02:14 verbose #8199 > > ]]
00:02:14 verbose #8200 > > |> FSharp.Control.AsyncSeq.mergeAll
00:02:14 verbose #8201 > > |> FSharp.Control.AsyncSeq.map (fun (t, events) ->
00:02:14 verbose #8202 > > events
00:02:14 verbose #8203 > > |> List.fold
00:02:14 verbose #8204 > > (fun (i, events) event ->
00:02:14 verbose #8205 > > i + 1L,
00:02:14 verbose #8206 > > (t + i, event) :: events)
00:02:14 verbose #8207 > > (0L, [[]])
00:02:14 verbose #8208 > > |> snd
00:02:14 verbose #8209 > > |> List.rev
00:02:14 verbose #8210 > > )
00:02:14 verbose #8211 > > |> FSharp.Control.AsyncSeq.concatSeq
00:02:14 verbose #8212 > > |> FSharp.Control.AsyncSeq.mapAsyncParallel (fun (t, event) -> async {
00:02:14 verbose #8213 > > match shouldReadContent event, event with
00:02:14 verbose #8214 > > | true, FileSystemChange.Changed (path, _) ->
00:02:14 verbose #8215 > > do! Async.Sleep 5
00:02:14 verbose #8216 > > let! content = fullPath </> path |>
00:02:14 verbose #8217 > > SpiralFileSystem.read_all_text_retry_async
00:02:14 verbose #8218 > > return t, FileSystemChange.Changed (path, content)
00:02:14 verbose #8219 > > | true, FileSystemChange.Created (path, _) ->
00:02:14 verbose #8220 > > do! Async.Sleep 5
00:02:14 verbose #8221 > > let! content = fullPath </> path |>
00:02:14 verbose #8222 > > SpiralFileSystem.read_all_text_retry_async
00:02:14 verbose #8223 > > return t, FileSystemChange.Created (path, content)
00:02:14 verbose #8224 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:02:14 verbose #8225 > > let! content = fullPath </> newPath |>
00:02:14 verbose #8226 > > SpiralFileSystem.read_all_text_retry_async
00:02:14 verbose #8227 > > return t, FileSystemChange.Renamed (oldPath, (newPath, content))
00:02:14 verbose #8228 > > | _ -> return t, event
00:02:14 verbose #8229 > > })
00:02:14 verbose #8230 > >
00:02:14 verbose #8231 > > let disposable =
00:02:14 verbose #8232 > > new_disposable (fun () ->
00:02:14 verbose #8233 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing watch
00:02:14 verbose #8234 > > stream") _locals
00:02:14 verbose #8235 > > watcher.EnableRaisingEvents <- false
00:02:14 verbose #8236 > > watcher.Dispose ()
00:02:14 verbose #8237 > > )
00:02:14 verbose #8238 > >
00:02:14 verbose #8239 > > stream, disposable
00:02:14 verbose #8240 > >
00:02:14 verbose #8241 > > let inline watchDirectory path =
00:02:14 verbose #8242 > > watchDirectoryWithFilter
00:02:14 verbose #8243 > > (System.IO.NotifyFilters.FileName
00:02:14 verbose #8244 > > // ||| System.IO.NotifyFilters.DirectoryName
00:02:14 verbose #8245 > > // ||| System.IO.NotifyFilters.Attributes
00:02:14 verbose #8246 > > //// ||| System.IO.NotifyFilters.Size
00:02:14 verbose #8247 > > ||| System.IO.NotifyFilters.LastWrite
00:02:14 verbose #8248 > > //// ||| System.IO.NotifyFilters.LastAccess
00:02:14 verbose #8249 > > // ||| System.IO.NotifyFilters.CreationTime
00:02:14 verbose #8250 > > // ||| System.IO.NotifyFilters.Security
00:02:14 verbose #8251 > > )
00:02:14 verbose #8252 > > path
00:02:15 verbose #8253 > >
00:02:15 verbose #8254 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:15 verbose #8255 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:15 verbose #8256 > > │ ### testEventsRaw (test) │
00:02:15 verbose #8257 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:15 verbose #8258 > >
00:02:15 verbose #8259 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:15 verbose #8260 > > //// test
00:02:15 verbose #8261 > >
00:02:15 verbose #8262 > > let inline testEventsRaw
00:02:15 verbose #8263 > > (watchFn : (_ -> bool) -> string -> FSharp.Control.AsyncSeq<int64 *
00:02:15 verbose #8264 > > FileSystemChange> * IDisposable)
00:02:15 verbose #8265 > > write
00:02:15 verbose #8266 > > =
00:02:15 verbose #8267 > > let struct (tempDir, tempDisposable) =
00:02:15 verbose #8268 > > "FileSystem.testEventsRaw"
00:02:15 verbose #8269 > > |> SpiralCrypto.hash_text
00:02:15 verbose #8270 > > |> SpiralFileSystem.create_temp_dir'
00:02:15 verbose #8271 > > let stream, disposable = watchFn (fun _ -> true) tempDir
00:02:15 verbose #8272 > >
00:02:15 verbose #8273 > > let events = System.Collections.Concurrent.ConcurrentBag ()
00:02:15 verbose #8274 > >
00:02:15 verbose #8275 > > let inline iter () =
00:02:15 verbose #8276 > > stream
00:02:15 verbose #8277 > > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:02:15 verbose #8278 > > events.Add event })
00:02:15 verbose #8279 > >
00:02:15 verbose #8280 > > let run = async {
00:02:15 verbose #8281 > > let! _ = iter () |> Async.StartChild
00:02:15 verbose #8282 > > do! Async.Sleep 250
00:02:15 verbose #8283 > > return! write tempDir
00:02:15 verbose #8284 > > }
00:02:15 verbose #8285 > >
00:02:15 verbose #8286 > > try
00:02:15 verbose #8287 > > run
00:02:15 verbose #8288 > > |> Async.runWithTimeout 60000
00:02:15 verbose #8289 > > |> _assertEqual (Some ())
00:02:15 verbose #8290 > > finally
00:02:15 verbose #8291 > > disposable.Dispose ()
00:02:15 verbose #8292 > > tempDisposable.Dispose ()
00:02:15 verbose #8293 > >
00:02:15 verbose #8294 > > let eventsLog =
00:02:15 verbose #8295 > > events
00:02:15 verbose #8296 > > |> Seq.toList
00:02:15 verbose #8297 > > |> List.sortBy fst
00:02:15 verbose #8298 > > |> List.fold
00:02:15 verbose #8299 > > (fun (prev, acc) (ticks, event) ->
00:02:15 verbose #8300 > > ticks, (ticks, (if prev = 0L then 0L else ticks - prev), event)
00:02:15 verbose #8301 > > :: acc
00:02:15 verbose #8302 > > )
00:02:15 verbose #8303 > > (0L, [[]])
00:02:15 verbose #8304 > > |> snd
00:02:15 verbose #8305 > > |> List.rev
00:02:15 verbose #8306 > > |> List.map (fun (diff, n, event) -> $"{n} / {diff} / {event}" |>
00:02:15 verbose #8307 > > SpiralSm.ellipsis_end 100L)
00:02:15 verbose #8308 > > |> SpiralSm.concat "\n"
00:02:15 verbose #8309 > > let _locals () = $"eventsLog: \n{eventsLog} / {_locals ()}"
00:02:15 verbose #8310 > > trace Debug (fun () -> "FileSystem.testEventsRaw") _locals
00:02:15 verbose #8311 > >
00:02:15 verbose #8312 > > events
00:02:15 verbose #8313 > > |> Seq.toList
00:02:15 verbose #8314 > > |> List.sortBy fst
00:02:15 verbose #8315 > > |> List.map snd
00:02:15 verbose #8316 > > |> List.fold
00:02:15 verbose #8317 > > (fun acc event ->
00:02:15 verbose #8318 > > match acc, event with
00:02:15 verbose #8319 > > | FileSystemChange.Changed (lastPath, Some lastContent) as lastEvent
00:02:15 verbose #8320 > > :: acc,
00:02:15 verbose #8321 > > FileSystemChange.Changed (path, Some content)
00:02:15 verbose #8322 > > when lastPath = path && content |> SpiralSm.starts_with
00:02:15 verbose #8323 > > lastContent
00:02:15 verbose #8324 > > ->
00:02:15 verbose #8325 > > event :: acc
00:02:15 verbose #8326 > > | _ -> event :: acc
00:02:15 verbose #8327 > > )
00:02:15 verbose #8328 > > [[]]
00:02:15 verbose #8329 > > |> List.rev
00:02:15 verbose #8330 > >
00:02:15 verbose #8331 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:15 verbose #8332 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:15 verbose #8333 > > │ #### fast (test) │
00:02:15 verbose #8334 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:15 verbose #8335 > >
00:02:15 verbose #8336 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:15 verbose #8337 > > //// test
00:02:15 verbose #8338 > >
00:02:15 verbose #8339 > > let inline write path = async {
00:02:15 verbose #8340 > > let n = 2
00:02:15 verbose #8341 > >
00:02:15 verbose #8342 > > for i = 1 to n do
00:02:15 verbose #8343 > > do! $"a{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:15 verbose #8344 > > $"file{i}.txt")
00:02:15 verbose #8345 > >
00:02:15 verbose #8346 > > do! Async.Sleep 250
00:02:15 verbose #8347 > >
00:02:15 verbose #8348 > > for i = 1 to n do
00:02:15 verbose #8349 > > do! $"b{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:15 verbose #8350 > > $"file{i}.txt")
00:02:15 verbose #8351 > >
00:02:15 verbose #8352 > > do! Async.Sleep 250
00:02:15 verbose #8353 > >
00:02:15 verbose #8354 > > for i = 1 to n do
00:02:15 verbose #8355 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:15 verbose #8356 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:15 verbose #8357 > >
00:02:15 verbose #8358 > > do! Async.Sleep 250
00:02:15 verbose #8359 > >
00:02:15 verbose #8360 > > for i = 1 to n do
00:02:15 verbose #8361 > > do! $"c{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:15 verbose #8362 > > $"file_{i}.txt")
00:02:15 verbose #8363 > >
00:02:15 verbose #8364 > > do! Async.Sleep 250
00:02:15 verbose #8365 > >
00:02:15 verbose #8366 > > for i = 1 to n do
00:02:15 verbose #8367 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:15 verbose #8368 > > Async.Ignore
00:02:15 verbose #8369 > >
00:02:15 verbose #8370 > > do! Async.Sleep 250
00:02:15 verbose #8371 > > }
00:02:15 verbose #8372 > >
00:02:15 verbose #8373 > > let inline run () =
00:02:15 verbose #8374 > > let events = testEventsRaw watchDirectory write
00:02:15 verbose #8375 > >
00:02:15 verbose #8376 > > events
00:02:15 verbose #8377 > > |> _sequenceEqual [[
00:02:15 verbose #8378 > > FileSystemChange.Created ("file1.txt", Some "a1")
00:02:15 verbose #8379 > > FileSystemChange.Changed ("file1.txt", Some "a1")
00:02:15 verbose #8380 > > FileSystemChange.Created ("file2.txt", Some "a2")
00:02:15 verbose #8381 > > FileSystemChange.Changed ("file2.txt", Some "a2")
00:02:15 verbose #8382 > >
00:02:15 verbose #8383 > > FileSystemChange.Changed ("file1.txt", Some "b1")
00:02:15 verbose #8384 > > FileSystemChange.Changed ("file2.txt", Some "b2")
00:02:15 verbose #8385 > >
00:02:15 verbose #8386 > > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "b1"))
00:02:15 verbose #8387 > > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "b2"))
00:02:15 verbose #8388 > >
00:02:15 verbose #8389 > > FileSystemChange.Changed ("file_1.txt", Some "c1")
00:02:15 verbose #8390 > > FileSystemChange.Changed ("file_2.txt", Some "c2")
00:02:15 verbose #8391 > >
00:02:15 verbose #8392 > > FileSystemChange.Deleted "file_1.txt"
00:02:15 verbose #8393 > > FileSystemChange.Deleted "file_2.txt"
00:02:15 verbose #8394 > > ]]
00:02:15 verbose #8395 > >
00:02:15 verbose #8396 > > run
00:02:15 verbose #8397 > > |> retry_fn 3
00:02:15 verbose #8398 > > |> _assertEqual (Some ())
00:02:18 verbose #8399 > >
00:02:18 verbose #8400 > > ╭─[ 3.55s - stdout ]───────────────────────────────────────────────────────────╮
00:02:18 verbose #8401 > > │ Some () │
00:02:18 verbose #8402 > > │ │
00:02:18 verbose #8403 > > │ 00:00:06 debug #1 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:18 verbose #8404 > > │ filter: FileName, LastWrite │
00:02:18 verbose #8405 > > │ 00:00:06 debug #2 FileSystem.testEventsRaw / eventsLog: │
00:02:18 verbose #8406 > > │ 0 / 638534997399475039 / Created ("file1.txt", Some "a1") │
00:02:18 verbose #8407 > > │ 1 / 638534997399475040 / Changed ("file1.txt", Some "a1") │
00:02:18 verbose #8408 > > │ 25315 / 638534997399500355 / Changed ("file1.txt", Some "a1") │
00:02:18 verbose #8409 > > │ 995 / 638534997399501350 / Created ("file2.txt", Some "a2") │
00:02:18 verbose #8410 > > │ 1 / 638534997399501351 / Changed ("file2.txt", Some "a2") │
00:02:18 verbose #8411 > > │ 66 / 638534997399501417 / Changed ("file2.txt", Some "a2") │
00:02:18 verbose #8412 > > │ 2413904 / 638534997401915321 / Changed ("file1.txt", Some "b1") │
00:02:18 verbose #8413 > > │ 1988 / 638534997401917309 / Changed ("file1.txt", Some "b1") │
00:02:18 verbose #8414 > > │ 8874 / 638534997401926183 / Changed ("file2.txt", Some "b2") │
00:02:18 verbose #8415 > > │ 1976 / 638534997401928159 / Changed ("file2.txt", Some "b2") │
00:02:18 verbose #8416 > > │ 2538288 / 638534997404466447 / Renamed ("file1.txt", ("file_1.txt", Some │
00:02:18 verbose #8417 > > │ "b1")) │
00:02:18 verbose #8418 > > │ 26467 / 638534997404492914 / Renamed ("file2.txt", ("file_2.txt", Some │
00:02:18 verbose #8419 > > │ "b2")) │
00:02:18 verbose #8420 > > │ 2427908 / 638534997406920822 / Changed ("file_1.txt", Some "c1") │
00:02:18 verbose #8421 > > │ 8401 / 638534997406929223 / Changed ("file_1.txt", Some "c1") │
00:02:18 verbose #8422 > > │ 15228 / 638534997406944451 / Changed ("file_2.txt", Some "c2") │
00:02:18 verbose #8423 > > │ 3227 / 638534997406947678 / Changed ("file_2.txt", Some "c2") │
00:02:18 verbose #8424 > > │ 2478977 / 638534997409426655 / Deleted "file_1.txt" │
00:02:18 verbose #8425 > > │ 6011 / 638534997409432666 / Deleted "file_2.txt" │
00:02:18 verbose #8426 > > │ [Created ("file1.txt", Some "a1"); Changed ("file1.txt", Some "a1"); Created │
00:02:18 verbose #8427 > > │ ("file2.txt", Some "a2"); │
00:02:18 verbose #8428 > > │ Changed ("file2.txt", Some "a2"); Changed ("file1.txt", Some "b1"); Changed │
00:02:18 verbose #8429 > > │ ("file2.txt", Some "b2"); │
00:02:18 verbose #8430 > > │ Renamed ("file1.txt", ("file_1.txt", Some "b1")); Renamed ("file2.txt", │
00:02:18 verbose #8431 > > │ ("file_2.txt", Some "b2")); │
00:02:18 verbose #8432 > > │ Changed ("file_1.txt", Some "c1"); Changed ("file_2.txt", Some "c2"); │
00:02:18 verbose #8433 > > │ Deleted "file_1.txt"; Deleted "file_2.txt"] │
00:02:18 verbose #8434 > > │ │
00:02:18 verbose #8435 > > │ Some () │
00:02:18 verbose #8436 > > │ │
00:02:18 verbose #8437 > > │ │
00:02:18 verbose #8438 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #8439 > >
00:02:18 verbose #8440 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:18 verbose #8441 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:18 verbose #8442 > > │ #### slow (test) │
00:02:18 verbose #8443 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #8444 > >
00:02:18 verbose #8445 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:18 verbose #8446 > > //// test
00:02:18 verbose #8447 > >
00:02:18 verbose #8448 > > let inline write path = async {
00:02:18 verbose #8449 > > let n = 2
00:02:18 verbose #8450 > >
00:02:18 verbose #8451 > > let contents =
00:02:18 verbose #8452 > > [[ 1 .. n ]]
00:02:18 verbose #8453 > > |> List.map (string >> String.replicate 1_000_000)
00:02:18 verbose #8454 > >
00:02:18 verbose #8455 > > for i = 1 to n do
00:02:18 verbose #8456 > > do! $"{contents.[[i - 1]]}a" |> SpiralFileSystem.write_all_text_async
00:02:18 verbose #8457 > > (path </> $"file{i}.txt")
00:02:18 verbose #8458 > >
00:02:18 verbose #8459 > > do! Async.Sleep 1500
00:02:18 verbose #8460 > >
00:02:18 verbose #8461 > > for i = 1 to n do
00:02:18 verbose #8462 > > do! $"{contents.[[i - 1]]}b" |> SpiralFileSystem.write_all_text_async
00:02:18 verbose #8463 > > (path </> $"file{i}.txt")
00:02:18 verbose #8464 > >
00:02:18 verbose #8465 > > do! Async.Sleep 1500
00:02:18 verbose #8466 > >
00:02:18 verbose #8467 > > for i = 1 to n do
00:02:18 verbose #8468 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:18 verbose #8469 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:18 verbose #8470 > >
00:02:18 verbose #8471 > > do! Async.Sleep 1500
00:02:18 verbose #8472 > >
00:02:18 verbose #8473 > > for i = 1 to n do
00:02:18 verbose #8474 > > do! $"{contents.[[i - 1]]}c" |> SpiralFileSystem.write_all_text_async
00:02:18 verbose #8475 > > (path </> $"file_{i}.txt")
00:02:18 verbose #8476 > >
00:02:18 verbose #8477 > > do! Async.Sleep 1500
00:02:18 verbose #8478 > >
00:02:18 verbose #8479 > > for i = 1 to n do
00:02:18 verbose #8480 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:18 verbose #8481 > > Async.Ignore
00:02:18 verbose #8482 > >
00:02:18 verbose #8483 > > do! Async.Sleep 1500
00:02:18 verbose #8484 > > }
00:02:18 verbose #8485 > >
00:02:18 verbose #8486 > > let inline run () =
00:02:18 verbose #8487 > > let events =
00:02:18 verbose #8488 > > testEventsRaw watchDirectory write
00:02:18 verbose #8489 > > |> List.map (function
00:02:18 verbose #8490 > > | FileSystemChange.Changed (path, Some content) ->
00:02:18 verbose #8491 > > FileSystemChange.Changed (path, content |> Seq.distinct |>
00:02:18 verbose #8492 > > Seq.map string |> SpiralSm.concat "" |> Some)
00:02:18 verbose #8493 > > | FileSystemChange.Created (path, Some content) ->
00:02:18 verbose #8494 > > FileSystemChange.Created (path, content |> Seq.distinct |>
00:02:18 verbose #8495 > > Seq.map string |> SpiralSm.concat "" |> Some)
00:02:18 verbose #8496 > > | FileSystemChange.Renamed (oldPath, (newPath, Some content)) ->
00:02:18 verbose #8497 > > FileSystemChange.Renamed (
00:02:18 verbose #8498 > > oldPath,
00:02:18 verbose #8499 > > (newPath, content |> Seq.distinct |> Seq.map string |>
00:02:18 verbose #8500 > > SpiralSm.concat "" |> Some)
00:02:18 verbose #8501 > > )
00:02:18 verbose #8502 > > | event -> event
00:02:18 verbose #8503 > > )
00:02:18 verbose #8504 > >
00:02:18 verbose #8505 > > events
00:02:18 verbose #8506 > > |> _sequenceEqual [[
00:02:18 verbose #8507 > > FileSystemChange.Created ("file1.txt", Some "1a")
00:02:18 verbose #8508 > > FileSystemChange.Changed ("file1.txt", Some "1a")
00:02:18 verbose #8509 > > FileSystemChange.Created ("file2.txt", Some "2a")
00:02:18 verbose #8510 > > FileSystemChange.Changed ("file2.txt", Some "2a")
00:02:18 verbose #8511 > >
00:02:18 verbose #8512 > > FileSystemChange.Changed ("file1.txt", Some "1b")
00:02:18 verbose #8513 > > FileSystemChange.Changed ("file2.txt", Some "2b")
00:02:18 verbose #8514 > >
00:02:18 verbose #8515 > > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "1b"))
00:02:18 verbose #8516 > > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "2b"))
00:02:18 verbose #8517 > >
00:02:18 verbose #8518 > > FileSystemChange.Changed ("file_1.txt", Some "1c")
00:02:18 verbose #8519 > > FileSystemChange.Changed ("file_2.txt", Some "2c")
00:02:18 verbose #8520 > >
00:02:18 verbose #8521 > > FileSystemChange.Deleted "file_1.txt"
00:02:18 verbose #8522 > > FileSystemChange.Deleted "file_2.txt"
00:02:18 verbose #8523 > > ]]
00:02:18 verbose #8524 > >
00:02:18 verbose #8525 > > run
00:02:18 verbose #8526 > > |> retry_fn 5
00:02:18 verbose #8527 > > |> _assertEqual (Some ())
00:02:29 verbose #8528 > >
00:02:29 verbose #8529 > > ╭─[ 10.50s - stdout ]──────────────────────────────────────────────────────────╮
00:02:29 verbose #8530 > > │ Some () │
00:02:29 verbose #8531 > > │ │
00:02:29 verbose #8532 > > │ 00:00:16 debug #3 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:29 verbose #8533 > > │ filter: FileName, LastWrite │
00:02:29 verbose #8534 > > │ 00:00:16 debug #4 FileSystem.testEventsRaw / eventsLog: │
00:02:29 verbose #8535 > > │ 0 / 638534997438370025 / Created │
00:02:29 verbose #8536 > > │ ("file1.txt", │
00:02:29 verbose #8537 > > │ ...11111111111111111111111111111111111111111111111a") │
00:02:29 verbose #8538 > > │ 1 / 638534997438370026 / Changed │
00:02:29 verbose #8539 > > │ ("file1.txt", │
00:02:29 verbose #8540 > > │ ...11111111111111111111111111111111111111111111111a") │
00:02:29 verbose #8541 > > │ 84501 / 638534997438454527 / Changed │
00:02:29 verbose #8542 > > │ ("file1.txt...11111111111111111111111111111111111111111111111a") │
00:02:29 verbose #8543 > > │ 15827 / 638534997438470354 / Created │
00:02:29 verbose #8544 > > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:02:29 verbose #8545 > > │ 1 / 638534997438470355 / Changed │
00:02:29 verbose #8546 > > │ ("file2.txt", │
00:02:29 verbose #8547 > > │ ...22222222222222222222222222222222222222222222222a") │
00:02:29 verbose #8548 > > │ 86637 / 638534997438556992 / Changed │
00:02:29 verbose #8549 > > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:02:29 verbose #8550 > > │ 14961543 / 638534997453518535 / Changed │
00:02:29 verbose #8551 > > │ ("file1....11111111111111111111111111111111111111111111111b") │
00:02:29 verbose #8552 > > │ 57270 / 638534997453575805 / Changed │
00:02:29 verbose #8553 > > │ ("file1.txt...11111111111111111111111111111111111111111111111b") │
00:02:29 verbose #8554 > > │ 18458 / 638534997453594263 / Changed │
00:02:29 verbose #8555 > > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:02:29 verbose #8556 > > │ 64257 / 638534997453658520 / Changed │
00:02:29 verbose #8557 > > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:02:29 verbose #8558 > > │ 15060400 / 638534997468718920 / Renamed │
00:02:29 verbose #8559 > > │ ("file1....1111111111111111111111111111111111111111111111b")) │
00:02:29 verbose #8560 > > │ 3161 / 638534997468722081 / Renamed │
00:02:29 verbose #8561 > > │ ("file2.txt"...2222222222222222222222222222222222222222222222b")) │
00:02:29 verbose #8562 > > │ 15059144 / 638534997483781225 / Changed │
00:02:29 verbose #8563 > > │ ("file_1...11111111111111111111111111111111111111111111111c") │
00:02:29 verbose #8564 > > │ 204040 / 638534997483985265 / Changed │
00:02:29 verbose #8565 > > │ ("file_1.t...11111111111111111111111111111111111111111111111c") │
00:02:29 verbose #8566 > > │ 72261 / 638534997484057526 / Changed │
00:02:29 verbose #8567 > > │ ("file_2.tx...22222222222222222222222222222222222222222222222c") │
00:02:29 verbose #8568 > > │ 180877 / 638534997484238403 / Changed │
00:02:29 verbose #8569 > > │ ("file_2.t...22222222222222222222222222222222222222222222222c") │
00:02:29 verbose #8570 > > │ 15058407 / 638534997499296810 / Deleted "file_1.txt" │
00:02:29 verbose #8571 > > │ 4165 / 638534997499300975 / Deleted "file_2.txt" │
00:02:29 verbose #8572 > > │ [Created ("file1.txt", Some "1a"); Changed ("file1.txt", Some "1a"); Created │
00:02:29 verbose #8573 > > │ ("file2.txt", Some "2a"); │
00:02:29 verbose #8574 > > │ Changed ("file2.txt", Some "2a"); Changed ("file1.txt", Some "1b"); Changed │
00:02:29 verbose #8575 > > │ ("file2.txt", Some "2b"); │
00:02:29 verbose #8576 > > │ Renamed ("file1.txt", ("file_1.txt", Some "1b")); Renamed ("file2.txt", │
00:02:29 verbose #8577 > > │ ("file_2.txt", Some "2b")); │
00:02:29 verbose #8578 > > │ Changed ("file_1.txt", Some "1c"); Changed ("file_2.txt", Some "2c"); │
00:02:29 verbose #8579 > > │ Deleted "file_1.txt"; Deleted "file_2.txt"] │
00:02:29 verbose #8580 > > │ │
00:02:29 verbose #8581 > > │ Some () │
00:02:29 verbose #8582 > > │ │
00:02:29 verbose #8583 > > │ │
00:02:29 verbose #8584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #8585 > >
00:02:29 verbose #8586 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 verbose #8587 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 verbose #8588 > > │ ### testEventsSorted (test) │
00:02:29 verbose #8589 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #8590 > >
00:02:29 verbose #8591 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:29 verbose #8592 > > //// test
00:02:29 verbose #8593 > >
00:02:29 verbose #8594 > > let inline sortEvent event =
00:02:29 verbose #8595 > > match event with
00:02:29 verbose #8596 > > | FileSystemChange.Failure _ -> 0
00:02:29 verbose #8597 > > | FileSystemChange.Created _ -> 1
00:02:29 verbose #8598 > > | FileSystemChange.Changed _ -> 2
00:02:29 verbose #8599 > > | FileSystemChange.Renamed (_oldPath, _) -> 3
00:02:29 verbose #8600 > > | FileSystemChange.Deleted _ -> 4
00:02:29 verbose #8601 > >
00:02:29 verbose #8602 > > let inline formatEvents events =
00:02:29 verbose #8603 > > events
00:02:29 verbose #8604 > > |> Seq.toList
00:02:29 verbose #8605 > > |> List.sortBy (snd >> sortEvent)
00:02:29 verbose #8606 > > |> List.choose (fun (ticks, event) ->
00:02:29 verbose #8607 > > match event with
00:02:29 verbose #8608 > > | FileSystemChange.Failure _ ->
00:02:29 verbose #8609 > > None
00:02:29 verbose #8610 > > | FileSystemChange.Changed (path, _) ->
00:02:29 verbose #8611 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:29 verbose #8612 > > FileSystemChangeType.Changed)
00:02:29 verbose #8613 > > | FileSystemChange.Created (path, _) ->
00:02:29 verbose #8614 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:29 verbose #8615 > > FileSystemChangeType.Created)
00:02:29 verbose #8616 > > | FileSystemChange.Deleted path ->
00:02:29 verbose #8617 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:29 verbose #8618 > > FileSystemChangeType.Deleted)
00:02:29 verbose #8619 > > | FileSystemChange.Renamed (_oldPath, (path, _)) ->
00:02:29 verbose #8620 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:29 verbose #8621 > > FileSystemChangeType.Renamed)
00:02:29 verbose #8622 > > )
00:02:29 verbose #8623 > > |> List.sortBy (fun (_, path, _) -> path)
00:02:29 verbose #8624 > > |> List.distinctBy (fun (_, path, event) -> path, event)
00:02:29 verbose #8625 > >
00:02:29 verbose #8626 > > let inline testEventsSorted
00:02:29 verbose #8627 > > (watchFn : string -> FSharp.Control.AsyncSeq<int64 * FileSystemChange> *
00:02:29 verbose #8628 > > IDisposable)
00:02:29 verbose #8629 > > write
00:02:29 verbose #8630 > > =
00:02:29 verbose #8631 > > let struct (tempDir, tempDisposable) =
00:02:29 verbose #8632 > > "FileSystem.testEventsSorted"
00:02:29 verbose #8633 > > |> SpiralCrypto.hash_text
00:02:29 verbose #8634 > > |> SpiralFileSystem.create_temp_dir'
00:02:29 verbose #8635 > > let stream, disposable = watchFn tempDir
00:02:29 verbose #8636 > >
00:02:29 verbose #8637 > > let events = System.Collections.Concurrent.ConcurrentBag ()
00:02:29 verbose #8638 > >
00:02:29 verbose #8639 > > let inline iter () =
00:02:29 verbose #8640 > > stream
00:02:29 verbose #8641 > > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:02:29 verbose #8642 > > events.Add event })
00:02:29 verbose #8643 > >
00:02:29 verbose #8644 > > let run = async {
00:02:29 verbose #8645 > > let! _ = iter () |> Async.StartChild
00:02:29 verbose #8646 > > do! Async.Sleep 250
00:02:29 verbose #8647 > > return! write tempDir
00:02:29 verbose #8648 > > }
00:02:29 verbose #8649 > >
00:02:29 verbose #8650 > > try
00:02:29 verbose #8651 > > run
00:02:29 verbose #8652 > > |> Async.runWithTimeout 5000
00:02:29 verbose #8653 > > |> _assertEqual (Some ())
00:02:29 verbose #8654 > > finally
00:02:29 verbose #8655 > > disposable.Dispose ()
00:02:29 verbose #8656 > > tempDisposable.Dispose ()
00:02:29 verbose #8657 > >
00:02:29 verbose #8658 > > let events = formatEvents events
00:02:29 verbose #8659 > >
00:02:29 verbose #8660 > > let eventMap =
00:02:29 verbose #8661 > > events
00:02:29 verbose #8662 > > |> List.map (fun (ticks, path, event) -> path, (event, ticks))
00:02:29 verbose #8663 > > |> List.groupBy fst
00:02:29 verbose #8664 > > |> List.map (fun (path, events) ->
00:02:29 verbose #8665 > > let event, _ticks =
00:02:29 verbose #8666 > > events
00:02:29 verbose #8667 > > |> List.map snd
00:02:29 verbose #8668 > > |> List.sortByDescending snd
00:02:29 verbose #8669 > > |> List.head
00:02:29 verbose #8670 > >
00:02:29 verbose #8671 > > path, event
00:02:29 verbose #8672 > > )
00:02:29 verbose #8673 > > |> Map.ofList
00:02:29 verbose #8674 > >
00:02:29 verbose #8675 > > let eventList =
00:02:29 verbose #8676 > > events
00:02:29 verbose #8677 > > |> List.map (fun (_ticks, path, event) -> path, event)
00:02:29 verbose #8678 > >
00:02:29 verbose #8679 > > eventMap, eventList
00:02:29 verbose #8680 > >
00:02:29 verbose #8681 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 verbose #8682 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 verbose #8683 > > │ #### create and delete (test) │
00:02:29 verbose #8684 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 verbose #8685 > >
00:02:29 verbose #8686 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:29 verbose #8687 > > //// test
00:02:29 verbose #8688 > >
00:02:29 verbose #8689 > > let inline write path = async {
00:02:29 verbose #8690 > > let n = 3
00:02:29 verbose #8691 > >
00:02:29 verbose #8692 > > for i = 1 to n do
00:02:29 verbose #8693 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:29 verbose #8694 > > $"file{i}.txt")
00:02:29 verbose #8695 > >
00:02:29 verbose #8696 > > for i = 1 to n do
00:02:29 verbose #8697 > > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:02:29 verbose #8698 > > Async.Ignore
00:02:29 verbose #8699 > >
00:02:29 verbose #8700 > > do! Async.Sleep 150
00:02:29 verbose #8701 > > }
00:02:29 verbose #8702 > >
00:02:29 verbose #8703 > > let inline run () =
00:02:29 verbose #8704 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:29 verbose #8705 > > write
00:02:29 verbose #8706 > >
00:02:29 verbose #8707 > > [[
00:02:29 verbose #8708 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:29 verbose #8709 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:29 verbose #8710 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:29 verbose #8711 > >
00:02:29 verbose #8712 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:29 verbose #8713 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:29 verbose #8714 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:29 verbose #8715 > >
00:02:29 verbose #8716 > > "file3.txt", nameof FileSystemChangeType.Created
00:02:29 verbose #8717 > > "file3.txt", nameof FileSystemChangeType.Changed
00:02:29 verbose #8718 > > "file3.txt", nameof FileSystemChangeType.Deleted
00:02:29 verbose #8719 > > ]]
00:02:29 verbose #8720 > > |> _sequenceEqual eventList
00:02:29 verbose #8721 > >
00:02:29 verbose #8722 > > [[
00:02:29 verbose #8723 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:29 verbose #8724 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:29 verbose #8725 > > "file3.txt", nameof FileSystemChangeType.Deleted
00:02:29 verbose #8726 > > ]]
00:02:29 verbose #8727 > > |> Map.ofList
00:02:29 verbose #8728 > > |> _sequenceEqual eventMap
00:02:29 verbose #8729 > >
00:02:29 verbose #8730 > > run
00:02:29 verbose #8731 > > |> retry_fn 3
00:02:29 verbose #8732 > > |> _assertEqual (Some ())
00:02:31 verbose #8733 > >
00:02:31 verbose #8734 > > ╭─[ 1.97s - stdout ]───────────────────────────────────────────────────────────╮
00:02:31 verbose #8735 > > │ Some () │
00:02:31 verbose #8736 > > │ │
00:02:31 verbose #8737 > > │ 00:00:19 debug #5 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:31 verbose #8738 > > │ filter: FileName, LastWrite │
00:02:31 verbose #8739 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file1.txt", │
00:02:31 verbose #8740 > > │ "Deleted"); ("file2.txt", "Created"); │
00:02:31 verbose #8741 > > │ ("file2.txt", "Changed"); ("file2.txt", "Deleted"); ("file3.txt", │
00:02:31 verbose #8742 > > │ "Created"); ("file3.txt", "Changed"); │
00:02:31 verbose #8743 > > │ ("file3.txt", "Deleted")] │
00:02:31 verbose #8744 > > │ │
00:02:31 verbose #8745 > > │ map [("file1.txt", "Deleted"); ("file2.txt", "Deleted"); ("file3.txt", │
00:02:31 verbose #8746 > > │ "Deleted")] │
00:02:31 verbose #8747 > > │ │
00:02:31 verbose #8748 > > │ Some () │
00:02:31 verbose #8749 > > │ │
00:02:31 verbose #8750 > > │ │
00:02:31 verbose #8751 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #8752 > >
00:02:31 verbose #8753 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:31 verbose #8754 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:31 verbose #8755 > > │ #### change (test) │
00:02:31 verbose #8756 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #8757 > >
00:02:31 verbose #8758 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:31 verbose #8759 > > //// test
00:02:31 verbose #8760 > >
00:02:31 verbose #8761 > > let inline write path = async {
00:02:31 verbose #8762 > > let n = 2
00:02:31 verbose #8763 > >
00:02:31 verbose #8764 > > for i = 1 to n do
00:02:31 verbose #8765 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:31 verbose #8766 > > $"file{i}.txt")
00:02:31 verbose #8767 > >
00:02:31 verbose #8768 > > for i = 1 to n do
00:02:31 verbose #8769 > > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:02:31 verbose #8770 > > $"file{i}.txt")
00:02:31 verbose #8771 > >
00:02:31 verbose #8772 > > for i = 1 to n do
00:02:31 verbose #8773 > > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:02:31 verbose #8774 > > Async.Ignore
00:02:31 verbose #8775 > >
00:02:31 verbose #8776 > > do! Async.Sleep 150
00:02:31 verbose #8777 > > }
00:02:31 verbose #8778 > >
00:02:31 verbose #8779 > > let inline run () =
00:02:31 verbose #8780 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:31 verbose #8781 > > write
00:02:31 verbose #8782 > >
00:02:31 verbose #8783 > > [[
00:02:31 verbose #8784 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:31 verbose #8785 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:31 verbose #8786 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:31 verbose #8787 > >
00:02:31 verbose #8788 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:31 verbose #8789 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:31 verbose #8790 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:31 verbose #8791 > > ]]
00:02:31 verbose #8792 > > |> _sequenceEqual eventList
00:02:31 verbose #8793 > >
00:02:31 verbose #8794 > > [[
00:02:31 verbose #8795 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:31 verbose #8796 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:31 verbose #8797 > > ]]
00:02:31 verbose #8798 > > |> Map.ofList
00:02:31 verbose #8799 > > |> _sequenceEqual eventMap
00:02:31 verbose #8800 > >
00:02:31 verbose #8801 > > run
00:02:31 verbose #8802 > > |> retry_fn 3
00:02:31 verbose #8803 > > |> _assertEqual (Some ())
00:02:33 verbose #8804 > >
00:02:33 verbose #8805 > > ╭─[ 2.09s - stdout ]───────────────────────────────────────────────────────────╮
00:02:33 verbose #8806 > > │ Some () │
00:02:33 verbose #8807 > > │ │
00:02:33 verbose #8808 > > │ 00:00:21 debug #6 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:33 verbose #8809 > > │ filter: FileName, LastWrite │
00:02:33 verbose #8810 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file1.txt", │
00:02:33 verbose #8811 > > │ "Deleted"); ("file2.txt", "Created"); │
00:02:33 verbose #8812 > > │ ("file2.txt", "Changed"); ("file2.txt", "Deleted")] │
00:02:33 verbose #8813 > > │ │
00:02:33 verbose #8814 > > │ map [("file1.txt", "Deleted"); ("file2.txt", "Deleted")] │
00:02:33 verbose #8815 > > │ │
00:02:33 verbose #8816 > > │ Some () │
00:02:33 verbose #8817 > > │ │
00:02:33 verbose #8818 > > │ │
00:02:33 verbose #8819 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 verbose #8820 > >
00:02:33 verbose #8821 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:33 verbose #8822 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:33 verbose #8823 > > │ #### rename (test) │
00:02:33 verbose #8824 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:33 verbose #8825 > >
00:02:33 verbose #8826 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:33 verbose #8827 > > //// test
00:02:33 verbose #8828 > >
00:02:33 verbose #8829 > > let inline write path = async {
00:02:33 verbose #8830 > > let n = 2
00:02:33 verbose #8831 > >
00:02:33 verbose #8832 > > for i = 1 to n do
00:02:33 verbose #8833 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:33 verbose #8834 > > $"file{i}.txt")
00:02:33 verbose #8835 > >
00:02:33 verbose #8836 > > for i = 1 to n do
00:02:33 verbose #8837 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:33 verbose #8838 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:33 verbose #8839 > >
00:02:33 verbose #8840 > > for i = 1 to n do
00:02:33 verbose #8841 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:33 verbose #8842 > > Async.Ignore
00:02:33 verbose #8843 > >
00:02:33 verbose #8844 > > do! Async.Sleep 150
00:02:33 verbose #8845 > > }
00:02:33 verbose #8846 > >
00:02:33 verbose #8847 > > let inline run () =
00:02:33 verbose #8848 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:33 verbose #8849 > > write
00:02:33 verbose #8850 > >
00:02:33 verbose #8851 > > [[
00:02:33 verbose #8852 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:33 verbose #8853 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:33 verbose #8854 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:33 verbose #8855 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:33 verbose #8856 > >
00:02:33 verbose #8857 > > "file_1.txt", nameof FileSystemChangeType.Renamed
00:02:33 verbose #8858 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:33 verbose #8859 > >
00:02:33 verbose #8860 > > "file_2.txt", nameof FileSystemChangeType.Renamed
00:02:33 verbose #8861 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:33 verbose #8862 > > ]]
00:02:33 verbose #8863 > > |> _sequenceEqual eventList
00:02:33 verbose #8864 > >
00:02:33 verbose #8865 > > [[
00:02:33 verbose #8866 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:33 verbose #8867 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:33 verbose #8868 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:33 verbose #8869 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:33 verbose #8870 > > ]]
00:02:33 verbose #8871 > > |> Map.ofList
00:02:33 verbose #8872 > > |> _sequenceEqual eventMap
00:02:33 verbose #8873 > >
00:02:33 verbose #8874 > > run
00:02:33 verbose #8875 > > |> retry_fn 3
00:02:33 verbose #8876 > > |> _assertEqual (Some ())
00:02:35 verbose #8877 > >
00:02:35 verbose #8878 > > ╭─[ 2.02s - stdout ]───────────────────────────────────────────────────────────╮
00:02:35 verbose #8879 > > │ Some () │
00:02:35 verbose #8880 > > │ │
00:02:35 verbose #8881 > > │ 00:00:23 debug #7 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:35 verbose #8882 > > │ filter: FileName, LastWrite │
00:02:35 verbose #8883 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file2.txt", │
00:02:35 verbose #8884 > > │ "Created"); ("file2.txt", "Changed"); │
00:02:35 verbose #8885 > > │ ("file_1.txt", "Renamed"); ("file_1.txt", "Deleted"); ("file_2.txt", │
00:02:35 verbose #8886 > > │ "Renamed"); ("file_2.txt", "Deleted")] │
00:02:35 verbose #8887 > > │ │
00:02:35 verbose #8888 > > │ map [("file1.txt", "Changed"); ("file2.txt", "Changed"); ("file_1.txt", │
00:02:35 verbose #8889 > > │ "Deleted"); ("file_2.txt", "Deleted")] │
00:02:35 verbose #8890 > > │ │
00:02:35 verbose #8891 > > │ Some () │
00:02:35 verbose #8892 > > │ │
00:02:35 verbose #8893 > > │ │
00:02:35 verbose #8894 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #8895 > >
00:02:35 verbose #8896 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 verbose #8897 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 verbose #8898 > > │ #### full (test) │
00:02:35 verbose #8899 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 verbose #8900 > >
00:02:35 verbose #8901 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:35 verbose #8902 > > //// test
00:02:35 verbose #8903 > >
00:02:35 verbose #8904 > > let inline write path = async {
00:02:35 verbose #8905 > > let n = 2
00:02:35 verbose #8906 > >
00:02:35 verbose #8907 > > for i = 1 to n do
00:02:35 verbose #8908 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:35 verbose #8909 > > $"file{i}.txt")
00:02:35 verbose #8910 > >
00:02:35 verbose #8911 > > for i = 1 to n do
00:02:35 verbose #8912 > > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:02:35 verbose #8913 > > $"file{i}.txt")
00:02:35 verbose #8914 > >
00:02:35 verbose #8915 > > for i = 1 to n do
00:02:35 verbose #8916 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:35 verbose #8917 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:35 verbose #8918 > >
00:02:35 verbose #8919 > > for i = 1 to n do
00:02:35 verbose #8920 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:35 verbose #8921 > > $"file_{i}.txt")
00:02:35 verbose #8922 > >
00:02:35 verbose #8923 > > for i = 1 to n do
00:02:35 verbose #8924 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:35 verbose #8925 > > Async.Ignore
00:02:35 verbose #8926 > >
00:02:35 verbose #8927 > > do! Async.Sleep 150
00:02:35 verbose #8928 > > }
00:02:35 verbose #8929 > >
00:02:35 verbose #8930 > > let inline run () =
00:02:35 verbose #8931 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:35 verbose #8932 > > write
00:02:35 verbose #8933 > >
00:02:35 verbose #8934 > > [[
00:02:35 verbose #8935 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:35 verbose #8936 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:35 verbose #8937 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:35 verbose #8938 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:35 verbose #8939 > >
00:02:35 verbose #8940 > > "file_1.txt", nameof FileSystemChangeType.Changed
00:02:35 verbose #8941 > > "file_1.txt", nameof FileSystemChangeType.Renamed
00:02:35 verbose #8942 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:35 verbose #8943 > >
00:02:35 verbose #8944 > > "file_2.txt", nameof FileSystemChangeType.Changed
00:02:35 verbose #8945 > > "file_2.txt", nameof FileSystemChangeType.Renamed
00:02:35 verbose #8946 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:35 verbose #8947 > > ]]
00:02:35 verbose #8948 > > |> _sequenceEqual eventList
00:02:35 verbose #8949 > >
00:02:35 verbose #8950 > > [[
00:02:35 verbose #8951 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:35 verbose #8952 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:35 verbose #8953 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:35 verbose #8954 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:35 verbose #8955 > > ]]
00:02:35 verbose #8956 > > |> Map.ofList
00:02:35 verbose #8957 > > |> _sequenceEqual eventMap
00:02:35 verbose #8958 > >
00:02:35 verbose #8959 > > run
00:02:35 verbose #8960 > > |> retry_fn 3
00:02:35 verbose #8961 > > |> _assertEqual (Some ())
00:02:38 verbose #8962 > >
00:02:38 verbose #8963 > > ╭─[ 2.62s - stdout ]───────────────────────────────────────────────────────────╮
00:02:38 verbose #8964 > > │ Some () │
00:02:38 verbose #8965 > > │ │
00:02:38 verbose #8966 > > │ 00:00:25 debug #8 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:38 verbose #8967 > > │ filter: FileName, LastWrite │
00:02:38 verbose #8968 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file2.txt", │
00:02:38 verbose #8969 > > │ "Created"); ("file2.txt", "Changed"); │
00:02:38 verbose #8970 > > │ ("file_1.txt", "Changed"); ("file_1.txt", "Renamed"); ("file_1.txt", │
00:02:38 verbose #8971 > > │ "Deleted"); ("file_2.txt", "Changed"); │
00:02:38 verbose #8972 > > │ ("file_2.txt", "Renamed"); ("file_2.txt", "Deleted")] │
00:02:38 verbose #8973 > > │ │
00:02:38 verbose #8974 > > │ map [("file1.txt", "Changed"); ("file2.txt", "Changed"); ("file_1.txt", │
00:02:38 verbose #8975 > > │ "Deleted"); ("file_2.txt", "Deleted")] │
00:02:38 verbose #8976 > > │ │
00:02:38 verbose #8977 > > │ Some () │
00:02:38 verbose #8978 > > │ │
00:02:38 verbose #8979 > > │ │
00:02:38 verbose #8980 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 verbose #8981 > 00:00:46 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 86386
00:02:38 verbose #8982 > 00:00:46 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:02:40 verbose #8983 > 00:00:48 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb to html
00:02:40 verbose #8984 > 00:00:48 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:40 verbose #8985 > 00:00:48 verbose #7 ! validate(nb)
00:02:42 verbose #8986 > 00:00:49 verbose #8 ! [NbConvertApp] Writing 380188 bytes to c:\home\git\polyglot\lib\fsharp\FileSystem.dib.html
00:02:42 verbose #8987 > 00:00:50 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651
00:02:42 verbose #8988 > 00:00:50 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651
00:02:42 verbose #8989 > 00:00:50 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/FileSystem.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/FileSystem.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:44 verbose #8990 > 00:00:51 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:44 verbose #8991 > 00:00:51 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:44 verbose #8992 > 00:00:51 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 87096
00:02:44 debug #8993 runtime.execute_with_options_async / exit_code: 0 / output.Length: 94371
00:02:44 debug #5 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path FileSystem.dib --retries 3
00:02:44 debug #8994 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Runtime.dib --retries 3",
[||], None, None, true, None)
00:02:44 verbose #8995 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Runtime.dib", "--retries", "3"])
00:02:44 verbose #8996 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/Runtime.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/Runtime.dib" --output-path "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:02:47 verbose #8997 > >
00:02:47 verbose #8998 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:47 verbose #8999 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:47 verbose #9000 > > │ # Runtime (Polyglot) │
00:02:47 verbose #9001 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:47 verbose #9002 > >
00:02:47 verbose #9003 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:47 verbose #9004 > > #r
00:02:47 verbose #9005 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:02:47 verbose #9006 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:02:47 verbose #9007 > > #r
00:02:47 verbose #9008 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:02:47 verbose #9009 > > 0/System.Reactive.dll"
00:02:47 verbose #9010 > > #r
00:02:47 verbose #9011 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:02:47 verbose #9012 > > netstandard2.0/System.Reactive.Linq.dll"
00:02:47 verbose #9013 > > #r
00:02:47 verbose #9014 > > @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll"
00:02:47 verbose #9015 > >
00:02:47 verbose #9016 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:47 verbose #9017 > > #r
00:02:47 verbose #9018 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:47 verbose #9019 > > spNetCore.Html.Abstractions.dll"
00:02:47 verbose #9020 > > #r
00:02:47 verbose #9021 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:47 verbose #9022 > > otNet.Interactive.dll"
00:02:47 verbose #9023 > > #r
00:02:47 verbose #9024 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:47 verbose #9025 > > otNet.Interactive.FSharp.dll"
00:02:47 verbose #9026 > > #r
00:02:47 verbose #9027 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:47 verbose #9028 > > otNet.Interactive.Formatting.dll"
00:02:47 verbose #9029 > > open System
00:02:47 verbose #9030 > > open System.IO
00:02:47 verbose #9031 > > open System.Text
00:02:47 verbose #9032 > > open Microsoft.DotNet.Interactive.Formatting
00:02:51 verbose #9033 > >
00:02:51 verbose #9034 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:51 verbose #9035 > > #r
00:02:51 verbose #9036 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:51 verbose #9037 > > otNet.Interactive.FSharp.dll"
00:02:51 verbose #9038 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:51 verbose #9039 > > #r
00:02:51 verbose #9040 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:51 verbose #9041 > > otNet.Interactive.dll"
00:02:51 verbose #9042 > > open type Microsoft.DotNet.Interactive.Kernel
00:02:51 verbose #9043 > >
00:02:51 verbose #9044 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:51 verbose #9045 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:02:52 verbose #9046 > >
00:02:52 verbose #9047 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:52 verbose #9048 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:02:52 verbose #9049 > > TextWriter)->fprintfn writer "%120A" x)
00:02:52 verbose #9050 > >
00:02:52 verbose #9051 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:52 verbose #9052 > > #!import ../../lib/fsharp/Notebooks.dib
00:02:52 verbose #9053 > > #!import ../../lib/fsharp/Testing.dib
00:02:52 verbose #9054 > >
00:02:52 verbose #9055 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:52 verbose #9056 > > //// test
00:02:52 verbose #9057 > >
00:02:52 verbose #9058 > > Formatter.ListExpansionLimit <- 100
00:02:52 verbose #9059 > >
00:02:52 verbose #9060 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:52 verbose #9061 > > #if FABLE_COMPILER
00:02:52 verbose #9062 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:02:52 verbose #9063 > > #endif
00:02:52 verbose #9064 > > type std_env_VarError = class end
00:02:52 verbose #9065 > > #if FABLE_COMPILER
00:02:52 verbose #9066 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:52 verbose #9067 > > #endif
00:02:52 verbose #9068 > > type core_any_Any = class end
00:02:52 verbose #9069 > > #if FABLE_COMPILER
00:02:52 verbose #9070 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:52 verbose #9071 > > #endif
00:02:52 verbose #9072 > > type core_ops_Try<'T> = class end
00:02:52 verbose #9073 > > #if FABLE_COMPILER
00:02:52 verbose #9074 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:52 verbose #9075 > > #endif
00:02:52 verbose #9076 > > type Func0<'T> = class end
00:02:52 verbose #9077 > > #if FABLE_COMPILER
00:02:52 verbose #9078 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:52 verbose #9079 > > #endif
00:02:52 verbose #9080 > > type Func0<'T, 'U> = class end
00:02:52 verbose #9081 > > #if FABLE_COMPILER
00:02:52 verbose #9082 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:52 verbose #9083 > > #endif
00:02:52 verbose #9084 > > type Box<'T> = class end
00:02:52 verbose #9085 > > #if FABLE_COMPILER
00:02:52 verbose #9086 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:52 verbose #9087 > > #endif
00:02:52 verbose #9088 > > type Dyn<'T> = class end
00:02:52 verbose #9089 > > #if FABLE_COMPILER
00:02:52 verbose #9090 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:52 verbose #9091 > > #endif
00:02:52 verbose #9092 > > type Send<'T> = class end
00:02:52 verbose #9093 > > #if FABLE_COMPILER
00:02:52 verbose #9094 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:52 verbose #9095 > > #endif
00:02:52 verbose #9096 > > type Fn<'T> = class end
00:02:52 verbose #9097 > > #if FABLE_COMPILER
00:02:52 verbose #9098 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:52 verbose #9099 > > #endif
00:02:52 verbose #9100 > > type FnUnit = class end
00:02:52 verbose #9101 > > #if FABLE_COMPILER
00:02:52 verbose #9102 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:52 verbose #9103 > > #endif
00:02:52 verbose #9104 > > type FnOnce<'T> = class end
00:02:52 verbose #9105 > > #if FABLE_COMPILER
00:02:52 verbose #9106 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:52 verbose #9107 > > #endif
00:02:52 verbose #9108 > > type ActionFn<'T> = class end
00:02:52 verbose #9109 > > #if FABLE_COMPILER
00:02:52 verbose #9110 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:52 verbose #9111 > > #endif
00:02:52 verbose #9112 > > type ActionFn2<'T, 'U> = class end
00:02:52 verbose #9113 > > #if FABLE_COMPILER
00:02:52 verbose #9114 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:52 verbose #9115 > > #endif
00:02:52 verbose #9116 > > type Impl<'T> = class end
00:02:52 verbose #9117 > > #if FABLE_COMPILER
00:02:52 verbose #9118 > > [[<Fabl...2, v3, v4)
00:02:52 verbose #9119 > > US5_1
00:02:52 verbose #9120 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:02:52 verbose #9121 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:02:52 verbose #9122 > > let v4 : (US4 -> US5) = closure6()
00:02:52 verbose #9123 > > let v5 : (exn -> US5) = closure7(v2)
00:02:52 verbose #9124 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:02:52 verbose #9125 > > match v6 with
00:02:52 verbose #9126 > > | US5_1 -> (* None *)
00:02:52 verbose #9127 > > let v8 : int32 = v2 + 1
00:02:52 verbose #9128 > > method6(v0, v1, v8)
00:02:52 verbose #9129 > > | US5_0(v7) -> (* Some *)
00:02:52 verbose #9130 > > v7
00:02:52 verbose #9131 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:02:52 verbose #9132 > > let v2 : int32 = 0
00:02:52 verbose #9133 > > let v3 : US4 = method6(v0, v1, v2)
00:02:52 verbose #9134 > > match v3 with
00:02:52 verbose #9135 > > | US4_1 -> (* None *)
00:02:52 verbose #9136 > > let v5 : unit option = None
00:02:52 verbose #9137 > > v5
00:02:52 verbose #9138 > > | US4_0 -> (* Some *)
00:02:52 verbose #9139 > > let v4 : unit option = Some ()
00:02:52 verbose #9140 > > v4
00:02:52 verbose #9141 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:02:52 verbose #9142 > > closure4(v0)
00:02:52 verbose #9143 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:02:52 verbose #9144 > > v0
00:02:52 verbose #9145 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:02:52 verbose #9146 > > v0.Value
00:02:52 verbose #9147 > > ()
00:02:52 verbose #9148 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:02:52 verbose #9149 > > let v1 : (unit -> unit) = method12(v0)
00:02:52 verbose #9150 > > let v2 : Lazy<unit> = lazy v1 ()
00:02:52 verbose #9151 > > closure13(v2)
00:02:52 verbose #9152 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:52 verbose #9153 > > let v1 : US0 = US0_0
00:02:52 verbose #9154 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:52 verbose #9155 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:02:52 verbose #9156 > > let new_disposable x = v2 x
00:02:52 verbose #9157 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:02:52 verbose #9158 > > let retry_fn x = v3 x
00:02:52 verbose #9159 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:02:52 verbose #9160 > > let memoize x = v4 x
00:02:52 verbose #9161 > > ()
00:02:52 verbose #9162 > >
00:02:54 verbose #9163 > >
00:02:54 verbose #9164 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:54 verbose #9165 > > #if FABLE_COMPILER
00:02:54 verbose #9166 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:54 verbose #9167 > > #endif
00:02:54 verbose #9168 > > type core_any_Any = class end
00:02:54 verbose #9169 > > #if FABLE_COMPILER
00:02:54 verbose #9170 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:54 verbose #9171 > > #endif
00:02:54 verbose #9172 > > type core_ops_Try<'T> = class end
00:02:54 verbose #9173 > > #if FABLE_COMPILER
00:02:54 verbose #9174 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:54 verbose #9175 > > #endif
00:02:54 verbose #9176 > > type Func0<'T> = class end
00:02:54 verbose #9177 > > #if FABLE_COMPILER
00:02:54 verbose #9178 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:54 verbose #9179 > > #endif
00:02:54 verbose #9180 > > type Func0<'T, 'U> = class end
00:02:54 verbose #9181 > > #if FABLE_COMPILER
00:02:54 verbose #9182 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:54 verbose #9183 > > #endif
00:02:54 verbose #9184 > > type Box<'T> = class end
00:02:54 verbose #9185 > > #if FABLE_COMPILER
00:02:54 verbose #9186 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:54 verbose #9187 > > #endif
00:02:54 verbose #9188 > > type Dyn<'T> = class end
00:02:54 verbose #9189 > > #if FABLE_COMPILER
00:02:54 verbose #9190 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:54 verbose #9191 > > #endif
00:02:54 verbose #9192 > > type Send<'T> = class end
00:02:54 verbose #9193 > > #if FABLE_COMPILER
00:02:54 verbose #9194 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:54 verbose #9195 > > #endif
00:02:54 verbose #9196 > > type Fn<'T> = class end
00:02:54 verbose #9197 > > #if FABLE_COMPILER
00:02:54 verbose #9198 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:54 verbose #9199 > > #endif
00:02:54 verbose #9200 > > type FnUnit = class end
00:02:54 verbose #9201 > > #if FABLE_COMPILER
00:02:54 verbose #9202 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:54 verbose #9203 > > #endif
00:02:54 verbose #9204 > > type FnOnce<'T> = class end
00:02:54 verbose #9205 > > #if FABLE_COMPILER
00:02:54 verbose #9206 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:54 verbose #9207 > > #endif
00:02:54 verbose #9208 > > type ActionFn<'T> = class end
00:02:54 verbose #9209 > > #if FABLE_COMPILER
00:02:54 verbose #9210 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:54 verbose #9211 > > #endif
00:02:54 verbose #9212 > > type ActionFn2<'T, 'U> = class end
00:02:54 verbose #9213 > > #if FABLE_COMPILER
00:02:54 verbose #9214 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:54 verbose #9215 > > #endif
00:02:54 verbose #9216 > > type Impl<'T> = class end
00:02:54 verbose #9217 > > #if FABLE_COMPILER
00:02:54 verbose #9218 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:54 verbose #9219 > > #endif
00:02:54 verbose #9220 > > type Mut<'T> = class end
00:02:54 verbose #9221 > > #if FABLE_COMPILER
00:02:54 verbose #9222 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:02:54 verbose #9223 > > let replace x = v4 x
00:02:54 verbose #9224 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:02:54 verbose #9225 > > let replace_regex x = v5 x
00:02:54 verbose #9226 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:02:54 verbose #9227 > > let slice x = v6 x
00:02:54 verbose #9228 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:02:54 verbose #9229 > > let split x = v7 x
00:02:54 verbose #9230 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:02:54 verbose #9231 > > let split_string x = v8 x
00:02:54 verbose #9232 > > let v9 : (string -> (string -> bool)) = closure23()
00:02:54 verbose #9233 > > let starts_with x = v9 x
00:02:54 verbose #9234 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:02:54 verbose #9235 > > let substring x = v10 x
00:02:54 verbose #9236 > > let v11 : (string -> string) = closure28()
00:02:54 verbose #9237 > > let to_lower x = v11 x
00:02:54 verbose #9238 > > let v12 : (string -> string) = closure29()
00:02:54 verbose #9239 > > let to_upper x = v12 x
00:02:54 verbose #9240 > > let v13 : (string -> string) = closure30()
00:02:54 verbose #9241 > > let trim x = v13 x
00:02:54 verbose #9242 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:02:54 verbose #9243 > > let trim_end x = v14 x
00:02:54 verbose #9244 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:02:54 verbose #9245 > > let trim_start x = v15 x
00:02:54 verbose #9246 > > let v16 : (int32 -> (string -> string)) = closure35()
00:02:54 verbose #9247 > > let ellipsis x = v16 x
00:02:54 verbose #9248 > > let v17 : (int64 -> (string -> string)) = closure37()
00:02:54 verbose #9249 > > let ellipsis_end x = v17 x
00:02:54 verbose #9250 > > let v18 : (exn -> string) = closure39()
00:02:54 verbose #9251 > > let format_exception x = v18 x
00:02:54 verbose #9252 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:02:54 verbose #9253 > > let concat_array_trailing x = v19 x
00:02:54 verbose #9254 > > let v20 : (string -> (string seq -> string)) = closure42()
00:02:54 verbose #9255 > > let concat x = v20 x
00:02:54 verbose #9256 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:02:54 verbose #9257 > > let join' x = v21 x
00:02:54 verbose #9258 > > let v22 : (string -> (char [[]])) = closure46()
00:02:54 verbose #9259 > > let to_char_array x = v22 x
00:02:54 verbose #9260 > > ()
00:02:54 verbose #9261 > >
00:02:54 verbose #9262 > >
00:02:54 verbose #9263 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:54 verbose #9264 > > #if FABLE_COMPILER
00:02:54 verbose #9265 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:54 verbose #9266 > > #endif
00:02:54 verbose #9267 > > type core_any_Any = class end
00:02:54 verbose #9268 > > #if FABLE_COMPILER
00:02:54 verbose #9269 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:54 verbose #9270 > > #endif
00:02:54 verbose #9271 > > type core_ops_Try<'T> = class end
00:02:54 verbose #9272 > > #if FABLE_COMPILER
00:02:54 verbose #9273 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:54 verbose #9274 > > #endif
00:02:54 verbose #9275 > > type Func0<'T> = class end
00:02:54 verbose #9276 > > #if FABLE_COMPILER
00:02:54 verbose #9277 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:54 verbose #9278 > > #endif
00:02:54 verbose #9279 > > type Func0<'T, 'U> = class end
00:02:54 verbose #9280 > > #if FABLE_COMPILER
00:02:54 verbose #9281 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:54 verbose #9282 > > #endif
00:02:54 verbose #9283 > > type Box<'T> = class end
00:02:54 verbose #9284 > > #if FABLE_COMPILER
00:02:54 verbose #9285 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:54 verbose #9286 > > #endif
00:02:54 verbose #9287 > > type Dyn<'T> = class end
00:02:54 verbose #9288 > > #if FABLE_COMPILER
00:02:54 verbose #9289 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:54 verbose #9290 > > #endif
00:02:54 verbose #9291 > > type Send<'T> = class end
00:02:54 verbose #9292 > > #if FABLE_COMPILER
00:02:54 verbose #9293 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:54 verbose #9294 > > #endif
00:02:54 verbose #9295 > > type Fn<'T> = class end
00:02:54 verbose #9296 > > #if FABLE_COMPILER
00:02:54 verbose #9297 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:54 verbose #9298 > > #endif
00:02:54 verbose #9299 > > type FnUnit = class end
00:02:54 verbose #9300 > > #if FABLE_COMPILER
00:02:54 verbose #9301 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:54 verbose #9302 > > #endif
00:02:54 verbose #9303 > > type FnOnce<'T> = class end
00:02:54 verbose #9304 > > #if FABLE_COMPILER
00:02:54 verbose #9305 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:54 verbose #9306 > > #endif
00:02:54 verbose #9307 > > type ActionFn<'T> = class end
00:02:54 verbose #9308 > > #if FABLE_COMPILER
00:02:54 verbose #9309 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:54 verbose #9310 > > #endif
00:02:54 verbose #9311 > > type ActionFn2<'T, 'U> = class end
00:02:54 verbose #9312 > > #if FABLE_COMPILER
00:02:54 verbose #9313 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:54 verbose #9314 > > #endif
00:02:54 verbose #9315 > > type Impl<'T> = class end
00:02:54 verbose #9316 > > #if FABLE_COMPILER
00:02:54 verbose #9317 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:54 verbose #9318 > > #endif
00:02:54 verbose #9319 > > type Mut<'T> = class end
00:02:54 verbose #9320 > > #if FABLE_COMPILER
00:02:54 verbose #9321 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:02:54 verbose #9322 > > ()
00:02:54 verbose #9323 > > #endif
00:02:54 verbose #9324 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:54 verbose #9325 > > let v28 : string = @"println!(""{}"", $0)"
00:02:54 verbose #9326 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:02:54 verbose #9327 > > ()
00:02:54 verbose #9328 > > #endif
00:02:54 verbose #9329 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:54 verbose #9330 > > System.Console.WriteLine v24
00:02:54 verbose #9331 > > ()
00:02:54 verbose #9332 > > #endif
00:02:54 verbose #9333 > > #if FABLE_COMPILER_PYTHON
00:02:54 verbose #9334 > > System.Console.WriteLine v24
00:02:54 verbose #9335 > > ()
00:02:54 verbose #9336 > > #endif
00:02:54 verbose #9337 > > #else
00:02:54 verbose #9338 > > System.Console.WriteLine v24
00:02:54 verbose #9339 > > ()
00:02:54 verbose #9340 > > #endif
00:02:54 verbose #9341 > > |> fun x -> _v25 <- Some x
00:02:54 verbose #9342 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:02:54 verbose #9343 > > _v25=None"
00:02:54 verbose #9344 > > let v29 : (string -> unit) = v8.l0
00:02:54 verbose #9345 > > v29 v24
00:02:54 verbose #9346 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:02:54 verbose #9347 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:02:54 verbose #9348 > > method11(v0, v3)
00:02:54 verbose #9349 > > and closure1 () (v0 : string) : uint16 =
00:02:54 verbose #9350 > > let v1 : char = v0.[[int 0]]
00:02:54 verbose #9351 > > let v2 : (char -> int32) = int32
00:02:54 verbose #9352 > > let v3 : int32 = v2 v1
00:02:54 verbose #9353 > > let v4 : string = v0.[[int 0..int 7]]
00:02:54 verbose #9354 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:02:54 verbose #9355 > > let v6 : int32 = v5 + v3
00:02:54 verbose #9356 > > let v7 : (int32 -> uint16) = uint16
00:02:54 verbose #9357 > > let v8 : uint16 = v7 v6
00:02:54 verbose #9358 > > let v9 : US0 = US0_0
00:02:54 verbose #9359 > > let v10 : (unit -> string) = closure2()
00:02:54 verbose #9360 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:02:54 verbose #9361 > > method3(v9, v10, v11)
00:02:54 verbose #9362 > > let v12 : uint16 = v8 % 48128us
00:02:54 verbose #9363 > > let v13 : uint16 = v12 + 1024us
00:02:54 verbose #9364 > > v13
00:02:54 verbose #9365 > > let v0 : (string -> string) = closure0()
00:02:54 verbose #9366 > > let hash_text x = v0 x
00:02:54 verbose #9367 > > let v1 : (string -> uint16) = closure1()
00:02:54 verbose #9368 > > let hash_to_port x = v1 x
00:02:54 verbose #9369 > > ()
00:02:54 verbose #9370 > >
00:02:55 verbose #9371 > >
00:02:55 verbose #9372 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:55 verbose #9373 > > #if FABLE_COMPILER
00:02:55 verbose #9374 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:55 verbose #9375 > > #endif
00:02:55 verbose #9376 > > type core_any_Any = class end
00:02:55 verbose #9377 > > #if FABLE_COMPILER
00:02:55 verbose #9378 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:55 verbose #9379 > > #endif
00:02:55 verbose #9380 > > type core_ops_Try<'T> = class end
00:02:55 verbose #9381 > > #if FABLE_COMPILER
00:02:55 verbose #9382 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:55 verbose #9383 > > #endif
00:02:55 verbose #9384 > > type Func0<'T> = class end
00:02:55 verbose #9385 > > #if FABLE_COMPILER
00:02:55 verbose #9386 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:55 verbose #9387 > > #endif
00:02:55 verbose #9388 > > type Func0<'T, 'U> = class end
00:02:55 verbose #9389 > > #if FABLE_COMPILER
00:02:55 verbose #9390 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:55 verbose #9391 > > #endif
00:02:55 verbose #9392 > > type Box<'T> = class end
00:02:55 verbose #9393 > > #if FABLE_COMPILER
00:02:55 verbose #9394 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:55 verbose #9395 > > #endif
00:02:55 verbose #9396 > > type Dyn<'T> = class end
00:02:55 verbose #9397 > > #if FABLE_COMPILER
00:02:55 verbose #9398 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:55 verbose #9399 > > #endif
00:02:55 verbose #9400 > > type Send<'T> = class end
00:02:55 verbose #9401 > > #if FABLE_COMPILER
00:02:55 verbose #9402 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:55 verbose #9403 > > #endif
00:02:55 verbose #9404 > > type Fn<'T> = class end
00:02:55 verbose #9405 > > #if FABLE_COMPILER
00:02:55 verbose #9406 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:55 verbose #9407 > > #endif
00:02:55 verbose #9408 > > type FnUnit = class end
00:02:55 verbose #9409 > > #if FABLE_COMPILER
00:02:55 verbose #9410 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:55 verbose #9411 > > #endif
00:02:55 verbose #9412 > > type FnOnce<'T> = class end
00:02:55 verbose #9413 > > #if FABLE_COMPILER
00:02:55 verbose #9414 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:55 verbose #9415 > > #endif
00:02:55 verbose #9416 > > type ActionFn<'T> = class end
00:02:55 verbose #9417 > > #if FABLE_COMPILER
00:02:55 verbose #9418 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:55 verbose #9419 > > #endif
00:02:55 verbose #9420 > > type ActionFn2<'T, 'U> = class end
00:02:55 verbose #9421 > > #if FABLE_COMPILER
00:02:55 verbose #9422 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:55 verbose #9423 > > #endif
00:02:55 verbose #9424 > > type Impl<'T> = class end
00:02:55 verbose #9425 > > #if FABLE_COMPILER
00:02:55 verbose #9426 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:55 verbose #9427 > > #endif
00:02:55 verbose #9428 > > type Mut<'T> = class end
00:02:55 verbose #9429 > > #if FABLE_COMPILER
00:02:55 verbose #9430 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:02:55 verbose #9431 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:02:55 verbose #9432 > > let v2 : System.Guid = v1 ()
00:02:55 verbose #9433 > > let v3 : (System.Guid -> string) = _.ToString()
00:02:55 verbose #9434 > > let v4 : string = v3 v2
00:02:55 verbose #9435 > > let v5 : (int64 -> string) = _.ToString()
00:02:55 verbose #9436 > > let v6 : string = v5 v0
00:02:55 verbose #9437 > > let v7 : string = v6.PadLeft (18, '0')
00:02:55 verbose #9438 > > let v8 : System.Guid = System.Guid
00:02:55 verbose #9439 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:02:55 verbose #9440 > > v8
00:02:55 verbose #9441 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:02:55 verbose #9442 > > let v2 : (string -> string) = v1.ToString
00:02:55 verbose #9443 > > v2 v0
00:02:55 verbose #9444 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:02:55 verbose #9445 > > closure12(v0)
00:02:55 verbose #9446 > > and closure13 () (v0 : System.DateTime) : string =
00:02:55 verbose #9447 > > let v1 : (string -> string) = v0.ToString
00:02:55 verbose #9448 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:02:55 verbose #9449 > > v1 v2
00:02:55 verbose #9450 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:02:55 verbose #9451 > > let date_time_guid_from_date_time x = v0 x
00:02:55 verbose #9452 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:02:55 verbose #9453 > > let date_time_from_guid x = v1 x
00:02:55 verbose #9454 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:02:55 verbose #9455 > > let timestamp_guid_from_timestamp x = v2 x
00:02:55 verbose #9456 > > let v3 : (System.Guid -> int64) = closure8()
00:02:55 verbose #9457 > > let timestamp_from_guid x = v3 x
00:02:55 verbose #9458 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:02:55 verbose #9459 > > let new_guid_from_date_time x = v4 x
00:02:55 verbose #9460 > > let v5 : (int64 -> System.Guid) = closure10()
00:02:55 verbose #9461 > > let new_guid_from_timestamp x = v5 x
00:02:55 verbose #9462 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:02:55 verbose #9463 > > let format x = v6 x
00:02:55 verbose #9464 > > let v7 : (System.DateTime -> string) = closure13()
00:02:55 verbose #9465 > > let format_iso8601 x = v7 x
00:02:55 verbose #9466 > > ()
00:02:55 verbose #9467 > >
00:02:56 verbose #9468 > >
00:02:56 verbose #9469 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:56 verbose #9470 > > #if FABLE_COMPILER
00:02:56 verbose #9471 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:02:56 verbose #9472 > > #endif
00:02:56 verbose #9473 > > type futures_future_JoinAll<'T> = class end
00:02:56 verbose #9474 > > #if FABLE_COMPILER
00:02:56 verbose #9475 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:02:56 verbose #9476 > > #endif
00:02:56 verbose #9477 > > type futures_future_TryJoinAll<'T> = class end
00:02:56 verbose #9478 > > #if FABLE_COMPILER
00:02:56 verbose #9479 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:02:56 verbose #9480 > > #endif
00:02:56 verbose #9481 > > type rayon_iter_Map<'T> = class end
00:02:56 verbose #9482 > > #if FABLE_COMPILER
00:02:56 verbose #9483 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:02:56 verbose #9484 > > #endif
00:02:56 verbose #9485 > > type rayon_vec_IntoIter<'T> = class end
00:02:56 verbose #9486 > > #if FABLE_COMPILER
00:02:56 verbose #9487 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:02:56 verbose #9488 > > #endif
00:02:56 verbose #9489 > > type std_future_Future<'T> = class end
00:02:56 verbose #9490 > > #if FABLE_COMPILER
00:02:56 verbose #9491 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:02:56 verbose #9492 > > #endif
00:02:56 verbose #9493 > > type futures_future_Fuse<'T> = class end
00:02:56 verbose #9494 > > #if FABLE_COMPILER
00:02:56 verbose #9495 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:02:56 verbose #9496 > > #endif
00:02:56 verbose #9497 > > type tokio_task_JoinHandle<'T> = class end
00:02:56 verbose #9498 > > #if FABLE_COMPILER
00:02:56 verbose #9499 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:02:56 verbose #9500 > > #endif
00:02:56 verbose #9501 > > type tokio_stream_StreamExt = class end
00:02:56 verbose #9502 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:56 verbose #9503 > > Async<System.Threading.CancellationToken> =
00:02:56 verbose #9504 > > let v1 : bool = true
00:02:56 verbose #9505 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:02:56 verbose #9506 > >
00:02:56 verbose #9507 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:56 verbose #9508 > >
00:02:56 verbose #9509 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:56 verbose #9510 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:56 verbose #9511 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:02:56 verbose #9512 > > v12
00:02:56 verbose #9513 > > #endif
00:02:56 verbose #9514 > > #else
00:02:56 verbose #9515 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:02:56 verbose #9516 > > let mutable _v13 = v13
00:02:56 verbose #9517 > > async {
00:02:56 verbose #9518 > > let v14 : Async<System.Threading.CancellationToken> =
00:02:56 verbose #9519 > > Async.CancellationToken
00:02:56 verbose #9520 > > let! v14 = v14
00:02:56 verbose #9521 > > let v15 : System.Threading.CancellationToken = v14
00:02:56 verbose #9522 > > let v16 : System.Threading.CancellationToken =
00:02:56 verbose #9523 > > Async.DefaultCancellationToken
00:02:56 verbose #9524 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:02:56 verbose #9525 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:02:56 verbose #9526 > > System.Threading.CancellationTokenSource) =
00:02:56 verbose #9527 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:02:56 verbose #9528 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:02:56 verbose #9529 > > let v20 : System.Threading.CancellationToken = v19.Token
00:02:56 verbose #9530 > > return v20
00:02:56 verbose #9531 > > }
00:02:56 verbose #9532 > > |> fun x -> _v13 <- Some x
00:02:56 verbose #9533 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:02:56 verbose #9534 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:02:56 verbose #9535 > > v21
00:02:56 verbose #9536 > > #endif
00:02:56 verbose #9537 > > |> fun x -> _v7 <- Some x
00:02:56 verbose #9538 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:02:56 verbose #9539 > > -> x | None -> failwith "base.run_target / _v7=None"
00:02:56 verbose #9540 > > v22
00:02:56 verbose #9541 > > #endif
00:02:56 verbose #9542 > > |> fun x -> _v1 <- Some x
00:02:56 verbose #9543 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:02:56 verbose #9544 > > -> x | None -> failwith "base.run_target / _v1=None"
00:02:56 verbose #9545 > > v23
00:02:56 verbose #9546 > > let v0 : (System.Threading.CancellationToken ->
00:02:56 verbose #9547 > > Async<System.Threading.CancellationToken>) = closure0()
00:02:56 verbose #9548 > > let merge_cancellation_token_with_default_async x = v0 x
00:02:56 verbose #9549 > > ()
00:02:56 verbose #9550 > >
00:02:56 verbose #9551 > >
00:02:56 verbose #9552 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:56 verbose #9553 > > #if FABLE_COMPILER
00:02:56 verbose #9554 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:02:56 verbose #9555 > > #endif
00:02:56 verbose #9556 > > type std_thread_JoinHandle<'T> = class end
00:02:56 verbose #9557 > > #if FABLE_COMPILER
00:02:56 verbose #9558 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:02:56 verbose #9559 > > #endif
00:02:56 verbose #9560 > > type std_sync_Arc<'T> = class end
00:02:56 verbose #9561 > > #if FABLE_COMPILER
00:02:56 verbose #9562 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:02:56 verbose #9563 > > #endif
00:02:56 verbose #9564 > > type std_sync_Mutex<'T> = class end
00:02:56 verbose #9565 > > #if FABLE_COMPILER
00:02:56 verbose #9566 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:02:56 verbose #9567 > > #endif
00:02:56 verbose #9568 > > type std_sync_MutexGuard<'T> = class end
00:02:56 verbose #9569 > > #if FABLE_COMPILER
00:02:56 verbose #9570 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:02:56 verbose #9571 > > #endif
00:02:56 verbose #9572 > > type std_sync_PoisonError<'T> = class end
00:02:56 verbose #9573 > > #if FABLE_COMPILER
00:02:56 verbose #9574 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:02:56 verbose #9575 > > #endif
00:02:56 verbose #9576 > > type std_sync_mpsc_Receiver<'T> = class end
00:02:56 verbose #9577 > > #if FABLE_COMPILER
00:02:56 verbose #9578 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:02:56 verbose #9579 > > #endif
00:02:56 verbose #9580 > > type std_sync_mpsc_SendError<'T> = class end
00:02:56 verbose #9581 > > #if FABLE_COMPILER
00:02:56 verbose #9582 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:02:56 verbose #9583 > > #endif
00:02:56 verbose #9584 > > type std_sync_mpsc_Sender<'T> = class end
00:02:56 verbose #9585 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:02:56 verbose #9586 > > _.Dispose () = f ()
00:02:56 verbose #9587 > > type [[<Struct>]] US0 =
00:02:56 verbose #9588 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:02:56 verbose #9589 > > | US0_1
00:02:56 verbose #9590 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:02:56 verbose #9591 > > let v1 : bool = true
00:02:56 verbose #9592 > > let mutable _v1 : unit option = None
00:02:56 verbose #9593 > >
00:02:56 verbose #9594 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:56 verbose #9595 > >
00:02:56 verbose #9596 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:02:56 verbose #9597 > > "$0()" )
00:02:56 verbose #9598 > > v28
00:02:56 verbose #9599 > > #endif
00:02:56 verbose #9600 > > #if FABLE_COMPILER_RUST && WASM
00:02:56 verbose #9601 > > let v29 : (unit -> unit) = method0(v25)
00:02:56 verbose #9602 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:02:56 verbose #9603 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:02:56 verbose #9604 > > v30
00:02:56 verbose #9605 > > #endif
00:02:56 verbose #9606 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:56 verbose #9607 > > let v31 : (unit -> unit) = method0(v25)
00:02:56 verbose #9608 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:02:56 verbose #9609 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:02:56 verbose #9610 > > v32
00:02:56 verbose #9611 > > #endif
00:02:56 verbose #9612 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:56 verbose #9613 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:56 verbose #9614 > > v33
00:02:56 verbose #9615 > > #endif
00:02:56 verbose #9616 > > #if FABLE_COMPILER_PYTHON
00:02:56 verbose #9617 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:56 verbose #9618 > > v34
00:02:56 verbose #9619 > > #endif
00:02:56 verbose #9620 > > #else
00:02:56 verbose #9621 > > let v35 : (unit -> unit) = method1(v25)
00:02:56 verbose #9622 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:02:56 verbose #9623 > > _.Dispose () = v35 () }
00:02:56 verbose #9624 > > v36
00:02:56 verbose #9625 > > #endif
00:02:56 verbose #9626 > > |> fun x -> _v26 <- Some x
00:02:56 verbose #9627 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:02:56 verbose #9628 > > failwith "base.run_target / _v26=None"
00:02:56 verbose #9629 > > let v38 : System.Threading.CancellationToken = v25.Token
00:02:56 verbose #9630 > > struct (v38, v37)
00:02:56 verbose #9631 > > #endif
00:02:56 verbose #9632 > > |> fun x -> _v1 <- Some x
00:02:56 verbose #9633 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:02:56 verbose #9634 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:02:56 verbose #9635 > > "base.run_target / _v1=None"
00:02:56 verbose #9636 > > struct (v39, v40)
00:02:56 verbose #9637 > > let v0 : (System.Threading.CancellationToken option -> struct
00:02:56 verbose #9638 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:02:56 verbose #9639 > > let new_disposable_token x = v0 x
00:02:56 verbose #9640 > > ()
00:02:56 verbose #9641 > >
00:02:56 verbose #9642 > >
00:02:56 verbose #9643 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:56 verbose #9644 > > #if FABLE_COMPILER
00:02:56 verbose #9645 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:02:56 verbose #9646 > > #endif
00:02:56 verbose #9647 > > type reqwest_Error = class end
00:02:56 verbose #9648 > > #if FABLE_COMPILER
00:02:56 verbose #9649 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:02:56 verbose #9650 > > #endif
00:02:56 verbose #9651 > > type reqwest_RequestBuilder = class end
00:02:56 verbose #9652 > > #if FABLE_COMPILER
00:02:56 verbose #9653 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:02:56 verbose #9654 > > #endif
00:02:56 verbose #9655 > > type reqwest_Response = class end
00:02:56 verbose #9656 > > #if FABLE_COMPILER
00:02:56 verbose #9657 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:02:56 verbose #9658 > > #endif
00:02:56 verbose #9659 > > type std_env_VarError = class end
00:02:56 verbose #9660 > > #if FABLE_COMPILER
00:02:56 verbose #9661 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:56 verbose #9662 > > #endif
00:02:56 verbose #9663 > > type core_any_Any = class end
00:02:56 verbose #9664 > > #if FABLE_COMPILER
00:02:56 verbose #9665 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:56 verbose #9666 > > #endif
00:02:56 verbose #9667 > > type core_ops_Try<'T> = class end
00:02:56 verbose #9668 > > #if FABLE_COMPILER
00:02:56 verbose #9669 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:56 verbose #9670 > > #endif
00:02:56 verbose #9671 > > type Func0<'T> = class end
00:02:56 verbose #9672 > > #if FABLE_COMPILER
00:02:56 verbose #9673 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:56 verbose #9674 > > #endif
00:02:56 verbose #9675 > > type Func0<'T, 'U> = class end
00:02:56 verbose #9676 > > #if FABLE_COMPILER
00:02:56 verbose #9677 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:56 verbose #9678 > > #endif
00:02:56 verbose #9679 > > type Box<'T> = class end
00:02:56 verbose #9680 > > #if FABLE_COMPILER
00:02:56 verbose #9681 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:56 verbose #9682 > > #endif
00:02:56 verbose #9683 > > type Dyn<'T> = class end
00:02:56 verbose #9684 > > #if FABLE_COMPILER
00:02:56 verbose #9685 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:56 verbose #9686 > > #endif
00:02:56 verbose #9687 > > type Send<'T> = class end
00:02:56 verbose #9688 > > #if FABLE_COMPILER
00:02:56 verbose #9689 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:56 verbose #9690 > > #endif
00:02:56 verbose #9691 > > type Fn<'T> = class end
00:02:56 verbose #9692 > > #if FABLE_COMPILER
00:02:56 verbose #9693 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:56 verbose #9694 > > #endif
00:02:56 verbose #9695 > > type FnUnit = class end
00:02:56 verbose #9696 > > #if FABLE_COMPILER
00:02:56 verbose #9697 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:56 verbose #9698 > > ... v212 = v212
00:02:56 verbose #9699 > > let v213 : bool = v212
00:02:56 verbose #9700 > > let v214 : bool = v213 = false
00:02:56 verbose #9701 > > if v214 then
00:02:56 verbose #9702 > > return v2
00:02:56 verbose #9703 > > (*
00:02:56 verbose #9704 > > ()
00:02:56 verbose #9705 > > else
00:02:56 verbose #9706 > > *) else
00:02:56 verbose #9707 > > let v215 : int32 = v2 + 1
00:02:56 verbose #9708 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:02:56 verbose #9709 > > return! v216
00:02:56 verbose #9710 > > (*
00:02:56 verbose #9711 > > ()
00:02:56 verbose #9712 > > *)
00:02:56 verbose #9713 > > }
00:02:56 verbose #9714 > > |> fun x -> _v9 <- Some x
00:02:56 verbose #9715 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:02:56 verbose #9716 > > "async.new_async_unit / _v9=None"
00:02:56 verbose #9717 > > v217
00:02:56 verbose #9718 > > #endif
00:02:56 verbose #9719 > > |> fun x -> _v3 <- Some x
00:02:56 verbose #9720 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:02:56 verbose #9721 > > "base.run_target / _v3=None"
00:02:56 verbose #9722 > > v218
00:02:56 verbose #9723 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:02:56 verbose #9724 > > method10(v0, v1, v2)
00:02:56 verbose #9725 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:02:56 verbose #9726 > > closure23(v0, v1)
00:02:56 verbose #9727 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:02:56 verbose #9728 > > closure22(v0)
00:02:56 verbose #9729 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:56 verbose #9730 > > let v1 : US0 = US0_0
00:02:56 verbose #9731 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:56 verbose #9732 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:02:56 verbose #9733 > > let test_port_open x = v2 x
00:02:56 verbose #9734 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:02:56 verbose #9735 > > let test_port_open_timeout x = v3 x
00:02:56 verbose #9736 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:02:56 verbose #9737 > > closure15()
00:02:56 verbose #9738 > > let wait_for_port_access x = v4 x
00:02:56 verbose #9739 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:02:56 verbose #9740 > > let get_available_port x = v5 x
00:02:56 verbose #9741 > > ()
00:02:56 verbose #9742 > >
00:02:58 verbose #9743 > >
00:02:58 verbose #9744 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 verbose #9745 > > type [[<Struct>]] US0 =
00:02:58 verbose #9746 > > | US0_0
00:02:58 verbose #9747 > > | US0_1
00:02:58 verbose #9748 > > | US0_2
00:02:58 verbose #9749 > > and [[<Struct>]] US1 =
00:02:58 verbose #9750 > > | US1_0 of f0_0 : US0
00:02:58 verbose #9751 > > | US1_1 of f1_0 : US0
00:02:58 verbose #9752 > > | US1_2 of f2_0 : US0
00:02:58 verbose #9753 > > | US1_3 of f3_0 : US0
00:02:58 verbose #9754 > > | US1_4 of f4_0 : US0
00:02:58 verbose #9755 > > let rec closure0 () () : bool =
00:02:58 verbose #9756 > > let v0 : bool = true
00:02:58 verbose #9757 > > let mutable _v0 : bool option = None
00:02:58 verbose #9758 > >
00:02:58 verbose #9759 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:58 verbose #9760 > >
00:02:58 verbose #9761 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:58 verbose #9762 > > let v1 : string = "cfg!(windows)"
00:02:58 verbose #9763 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:02:58 verbose #9764 > > v2
00:02:58 verbose #9765 > > #endif
00:02:58 verbose #9766 > > #if FABLE_COMPILER_RUST && WASM
00:02:58 verbose #9767 > > let v3 : string = "cfg!(windows)"
00:02:58 verbose #9768 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:02:58 verbose #9769 > > v4
00:02:58 verbose #9770 > > #endif
00:02:58 verbose #9771 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:58 verbose #9772 > > let v5 : string = "cfg!(windows)"
00:02:58 verbose #9773 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:02:58 verbose #9774 > > v6
00:02:58 verbose #9775 > > #endif
00:02:58 verbose #9776 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:58 verbose #9777 > > let v7 : US0 = US0_0
00:02:58 verbose #9778 > > let v8 : US1 = US1_3(v7)
00:02:58 verbose #9779 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:02:58 verbose #9780 > > let v10 : bool = failwith<bool> v9
00:02:58 verbose #9781 > > v10
00:02:58 verbose #9782 > > #endif
00:02:58 verbose #9783 > > #if FABLE_COMPILER_PYTHON
00:02:58 verbose #9784 > > let v11 : US0 = US0_0
00:02:58 verbose #9785 > > let v12 : US1 = US1_4(v11)
00:02:58 verbose #9786 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:02:58 verbose #9787 > > let v14 : bool = failwith<bool> v13
00:02:58 verbose #9788 > > v14
00:02:58 verbose #9789 > > #endif
00:02:58 verbose #9790 > > #else
00:02:58 verbose #9791 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:02:58 verbose #9792 > > System.Runtime.InteropServices.OSPlatform.Windows
00:02:58 verbose #9793 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:58 verbose #9794 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:58 verbose #9795 > > let v17 : b...: string = "cfg!(windows)"
00:02:58 verbose #9796 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:02:58 verbose #9797 > > v2
00:02:58 verbose #9798 > > #endif
00:02:58 verbose #9799 > > #if FABLE_COMPILER_RUST && WASM
00:02:58 verbose #9800 > > let v3 : string = "cfg!(windows)"
00:02:58 verbose #9801 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:02:58 verbose #9802 > > v4
00:02:58 verbose #9803 > > #endif
00:02:58 verbose #9804 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:58 verbose #9805 > > let v5 : string = "cfg!(windows)"
00:02:58 verbose #9806 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:02:58 verbose #9807 > > v6
00:02:58 verbose #9808 > > #endif
00:02:58 verbose #9809 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:58 verbose #9810 > > let v7 : US0 = US0_0
00:02:58 verbose #9811 > > let v8 : US1 = US1_3(v7)
00:02:58 verbose #9812 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:02:58 verbose #9813 > > let v10 : bool = failwith<bool> v9
00:02:58 verbose #9814 > > v10
00:02:58 verbose #9815 > > #endif
00:02:58 verbose #9816 > > #if FABLE_COMPILER_PYTHON
00:02:58 verbose #9817 > > let v11 : US0 = US0_0
00:02:58 verbose #9818 > > let v12 : US1 = US1_4(v11)
00:02:58 verbose #9819 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:02:58 verbose #9820 > > let v14 : bool = failwith<bool> v13
00:02:58 verbose #9821 > > v14
00:02:58 verbose #9822 > > #endif
00:02:58 verbose #9823 > > #else
00:02:58 verbose #9824 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:02:58 verbose #9825 > > System.Runtime.InteropServices.OSPlatform.Windows
00:02:58 verbose #9826 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:58 verbose #9827 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:58 verbose #9828 > > let v17 : bool = v16 v15
00:02:58 verbose #9829 > > v17
00:02:58 verbose #9830 > > #endif
00:02:58 verbose #9831 > > |> fun x -> _v0 <- Some x
00:02:58 verbose #9832 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:02:58 verbose #9833 > > "base.run_target / _v0=None"
00:02:58 verbose #9834 > > if v18 then
00:02:58 verbose #9835 > > let v19 : string = ".exe"
00:02:58 verbose #9836 > > v19
00:02:58 verbose #9837 > > else
00:02:58 verbose #9838 > > let v20 : string = ""
00:02:58 verbose #9839 > > v20
00:02:58 verbose #9840 > > let v0 : (unit -> bool) = closure0()
00:02:58 verbose #9841 > > let is_windows () = v0 ()
00:02:58 verbose #9842 > > let v1 : (unit -> string) = closure1()
00:02:58 verbose #9843 > > let get_executable_suffix () = v1 ()
00:02:58 verbose #9844 > > ()
00:02:58 verbose #9845 > >
00:02:58 verbose #9846 > >
00:02:58 verbose #9847 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 verbose #9848 > > #if FABLE_COMPILER
00:02:58 verbose #9849 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:02:58 verbose #9850 > > #endif
00:02:58 verbose #9851 > > type clap_Arg = class end
00:02:58 verbose #9852 > > #if FABLE_COMPILER
00:02:58 verbose #9853 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:02:58 verbose #9854 > > #endif
00:02:58 verbose #9855 > > type clap_ArgAction = class end
00:02:58 verbose #9856 > > #if FABLE_COMPILER
00:02:58 verbose #9857 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:02:58 verbose #9858 > > #endif
00:02:58 verbose #9859 > > type clap_Command = class end
00:02:58 verbose #9860 > > #if FABLE_COMPILER
00:02:58 verbose #9861 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:02:58 verbose #9862 > > #endif
00:02:58 verbose #9863 > > type clap_ArgMatches = class end
00:02:58 verbose #9864 > > #if FABLE_COMPILER
00:02:58 verbose #9865 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:02:58 verbose #9866 > > #endif
00:02:58 verbose #9867 > > type clap_builder_ValueRange = class end
00:02:58 verbose #9868 > > #if FABLE_COMPILER
00:02:58 verbose #9869 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:02:58 verbose #9870 > > #endif
00:02:58 verbose #9871 > > type clap_builder_ValueParser = class end
00:02:58 verbose #9872 > > #if FABLE_COMPILER
00:02:58 verbose #9873 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:02:58 verbose #9874 > > #endif
00:02:58 verbose #9875 > > type clap_builder_PossibleValue = class end
00:02:58 verbose #9876 > > #if FABLE_COMPILER
00:02:58 verbose #9877 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:02:58 verbose #9878 > > #endif
00:02:58 verbose #9879 > > type std_process_Child = class end
00:02:58 verbose #9880 > > #if FABLE_COMPILER
00:02:58 verbose #9881 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:02:58 verbose #9882 > > #endif
00:02:58 verbose #9883 > > type std_process_ChildStderr = class end
00:02:58 verbose #9884 > > #if FABLE_COMPILER
00:02:58 verbose #9885 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:02:58 verbose #9886 > > #endif
00:02:58 verbose #9887 > > type std_process_ChildStdout = class end
00:02:58 verbose #9888 > > #if FABLE_COMPILER
00:02:58 verbose #9889 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:02:58 verbose #9890 > > #endif
00:02:58 verbose #9891 > > type std_process_ChildStdin = class end
00:02:58 verbose #9892 > > #if FABLE_COMPILER
00:02:58 verbose #9893 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:02:58 verbose #9894 > > #endif
00:02:58 verbose #9895 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:02:58 verbose #9896 > > List.toArray
00:02:58 verbose #9897 > > let v20 : (string [[]]) = v19 v18
00:02:58 verbose #9898 > > US8_0(v20)
00:02:58 verbose #9899 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:02:58 verbose #9900 > > let v1 : US8 = method16(v0)
00:02:58 verbose #9901 > > match v1 with
00:02:58 verbose #9902 > > | US8_1(v4) -> (* Error *)
00:02:58 verbose #9903 > > let v5 : Result<(string [[]]), string> = Error v4
00:02:58 verbose #9904 > > v5
00:02:58 verbose #9905 > > | US8_0(v2) -> (* Ok *)
00:02:58 verbose #9906 > > let v3 : Result<(string [[]]), string> = Ok v2
00:02:58 verbose #9907 > > v3
00:02:58 verbose #9908 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:58 verbose #9909 > > let v1 : US0 = US0_0
00:02:58 verbose #9910 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:58 verbose #9911 > > let v2 : (unit -> unit) = closure2()
00:02:58 verbose #9912 > > let current_process_kill () = v2 ()
00:02:58 verbose #9913 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:02:58 verbose #9914 > > let execute_async x = v3 x
00:02:58 verbose #9915 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:02:58 verbose #9916 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:02:58 verbose #9917 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:02:58 verbose #9918 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:02:58 verbose #9919 > > let execute_with_options_async x = v4 x
00:02:58 verbose #9920 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:02:58 verbose #9921 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:02:58 verbose #9922 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:02:58 verbose #9923 > > unit) option * bool * string option)) = closure20()
00:02:58 verbose #9924 > > let execution_options x = v5 x
00:02:58 verbose #9925 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:02:58 verbose #9926 > > let split_args x = v6 x
00:02:58 verbose #9927 > > ()
00:02:58 verbose #9928 > >
00:03:00 verbose #9929 > >
00:03:00 verbose #9930 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 verbose #9931 > > #if FABLE_COMPILER
00:03:00 verbose #9932 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:03:00 verbose #9933 > > #endif
00:03:00 verbose #9934 > > type std_fs_File = class end
00:03:00 verbose #9935 > > #if FABLE_COMPILER
00:03:00 verbose #9936 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:03:00 verbose #9937 > > #endif
00:03:00 verbose #9938 > > type std_fs_FileType = class end
00:03:00 verbose #9939 > > #if FABLE_COMPILER
00:03:00 verbose #9940 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:03:00 verbose #9941 > > #endif
00:03:00 verbose #9942 > > type std_path_Display = class end
00:03:00 verbose #9943 > > #if FABLE_COMPILER
00:03:00 verbose #9944 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:03:00 verbose #9945 > > #endif
00:03:00 verbose #9946 > > type std_path_Path = class end
00:03:00 verbose #9947 > > #if FABLE_COMPILER
00:03:00 verbose #9948 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:03:00 verbose #9949 > > #endif
00:03:00 verbose #9950 > > type std_path_PathBuf = class end
00:03:00 verbose #9951 > > #if FABLE_COMPILER
00:03:00 verbose #9952 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:03:00 verbose #9953 > > #endif
00:03:00 verbose #9954 > > type async_walkdir_DirEntry = class end
00:03:00 verbose #9955 > > #if FABLE_COMPILER
00:03:00 verbose #9956 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:03:00 verbose #9957 > > #endif
00:03:00 verbose #9958 > > type async_walkdir_Filtering = class end
00:03:00 verbose #9959 > > #if FABLE_COMPILER
00:03:00 verbose #9960 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:03:00 verbose #9961 > > #endif
00:03:00 verbose #9962 > > type async_walkdir_WalkDir = class end
00:03:00 verbose #9963 > > #if FABLE_COMPILER
00:03:00 verbose #9964 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:00 verbose #9965 > > #endif
00:03:00 verbose #9966 > > type core_any_Any = class end
00:03:00 verbose #9967 > > #if FABLE_COMPILER
00:03:00 verbose #9968 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:00 verbose #9969 > > #endif
00:03:00 verbose #9970 > > type core_ops_Try<'T> = class end
00:03:00 verbose #9971 > > #if FABLE_COMPILER
00:03:00 verbose #9972 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:00 verbose #9973 > > #endif
00:03:00 verbose #9974 > > type Func0<'T> = class end
00:03:00 verbose #9975 > > #if FABLE_COMPILER
00:03:00 verbose #9976 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:00 verbose #9977 > > #endif
00:03:00 verbose #9978 > > type Func0<'T, 'U> = class end
00:03:00 verbose #9979 > > #if FABLE_COMPILER
00:03:00 verbose #9980 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:00 verbose #9981 > > #endif
00:03:00 verbose #9982 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:03:00 verbose #9983 > > let wait_for_file_access x = v3 x
00:03:00 verbose #9984 > > let v4 : (string -> Async<int64>) = closure12()
00:03:00 verbose #9985 > > let wait_for_file_access_read x = v4 x
00:03:00 verbose #9986 > > let v5 : (string -> Async<string>) = closure13()
00:03:00 verbose #9987 > > let read_all_text_async x = v5 x
00:03:00 verbose #9988 > > let v6 : (string -> (string -> bool)) = closure14()
00:03:00 verbose #9989 > > let file_exists_content x = v6 x
00:03:00 verbose #9990 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:03:00 verbose #9991 > > let write_all_text_async x = v7 x
00:03:00 verbose #9992 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:03:00 verbose #9993 > > let write_all_text_exists x = v8 x
00:03:00 verbose #9994 > > let v9 : (string -> Async<int64>) = closure20()
00:03:00 verbose #9995 > > let delete_file_async x = v9 x
00:03:00 verbose #9996 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:03:00 verbose #9997 > > let move_file_async x = v10 x
00:03:00 verbose #9998 > > let v11 : (string -> Async<string option>) = closure27()
00:03:00 verbose #9999 > > let read_all_text_retry_async x = v11 x
00:03:00 verbose #10000 > > let v12 : (unit -> string) = closure35()
00:03:00 verbose #10001 > > let create_temp_path () = v12 ()
00:03:00 verbose #10002 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:03:00 verbose #10003 > > let create_temp_dir () = v13 ()
00:03:00 verbose #10004 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:03:00 verbose #10005 > > let create_temp_dir' x = v14 x
00:03:00 verbose #10006 > > let v15 : (unit -> string) = closure49()
00:03:00 verbose #10007 > > let get_source_directory () = v15 ()
00:03:00 verbose #10008 > > let v16 : (string -> string) = closure50()
00:03:00 verbose #10009 > > let normalize_path x = v16 x
00:03:00 verbose #10010 > > let v17 : (string -> string) = closure51()
00:03:00 verbose #10011 > > let new_file_uri x = v17 x
00:03:00 verbose #10012 > > let v18 : (unit -> string) = closure52()
00:03:00 verbose #10013 > > let get_workspace_root () = v18 ()
00:03:00 verbose #10014 > > let v19 : (bool -> unit) = closure56()
00:03:00 verbose #10015 > > let init_trace_file x = v19 x
00:03:00 verbose #10016 > > let v20 : (string -> (string -> string)) = closure58()
00:03:00 verbose #10017 > > let (</>) x = v20 x
00:03:00 verbose #10018 > > ()
00:03:00 verbose #10019 > >
00:03:03 verbose #10020 > >
00:03:03 verbose #10021 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:03 verbose #10022 > > #if FABLE_COMPILER
00:03:03 verbose #10023 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:03 verbose #10024 > > #endif
00:03:03 verbose #10025 > > type core_any_Any = class end
00:03:03 verbose #10026 > > #if FABLE_COMPILER
00:03:03 verbose #10027 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:03 verbose #10028 > > #endif
00:03:03 verbose #10029 > > type core_ops_Try<'T> = class end
00:03:03 verbose #10030 > > #if FABLE_COMPILER
00:03:03 verbose #10031 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:03 verbose #10032 > > #endif
00:03:03 verbose #10033 > > type Func0<'T> = class end
00:03:03 verbose #10034 > > #if FABLE_COMPILER
00:03:03 verbose #10035 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:03 verbose #10036 > > #endif
00:03:03 verbose #10037 > > type Func0<'T, 'U> = class end
00:03:03 verbose #10038 > > #if FABLE_COMPILER
00:03:03 verbose #10039 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:03 verbose #10040 > > #endif
00:03:03 verbose #10041 > > type Box<'T> = class end
00:03:03 verbose #10042 > > #if FABLE_COMPILER
00:03:03 verbose #10043 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:03:03 verbose #10044 > > #endif
00:03:03 verbose #10045 > > type Dyn<'T> = class end
00:03:03 verbose #10046 > > #if FABLE_COMPILER
00:03:03 verbose #10047 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:03:03 verbose #10048 > > #endif
00:03:03 verbose #10049 > > type Send<'T> = class end
00:03:03 verbose #10050 > > #if FABLE_COMPILER
00:03:03 verbose #10051 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:03:03 verbose #10052 > > #endif
00:03:03 verbose #10053 > > type Fn<'T> = class end
00:03:03 verbose #10054 > > #if FABLE_COMPILER
00:03:03 verbose #10055 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:03:03 verbose #10056 > > #endif
00:03:03 verbose #10057 > > type FnUnit = class end
00:03:03 verbose #10058 > > #if FABLE_COMPILER
00:03:03 verbose #10059 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:03:03 verbose #10060 > > #endif
00:03:03 verbose #10061 > > type FnOnce<'T> = class end
00:03:03 verbose #10062 > > #if FABLE_COMPILER
00:03:03 verbose #10063 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:03:03 verbose #10064 > > #endif
00:03:03 verbose #10065 > > type ActionFn<'T> = class end
00:03:03 verbose #10066 > > #if FABLE_COMPILER
00:03:03 verbose #10067 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:03:03 verbose #10068 > > #endif
00:03:03 verbose #10069 > > type ActionFn2<'T, 'U> = class end
00:03:03 verbose #10070 > > #if FABLE_COMPILER
00:03:03 verbose #10071 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:03:03 verbose #10072 > > #endif
00:03:03 verbose #10073 > > type Impl<'T> = class end
00:03:03 verbose #10074 > > #if FABLE_COMPILER
00:03:03 verbose #10075 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:03:03 verbose #10076 > > #endif
00:03:03 verbose #10077 > > type Mut<'T> = class end
00:03:03 verbose #10078 > > #if FABLE_COMPILER
00:03:03 verbose #10079 > > [[<Fable.Core.Erase; Fable.C... #endif
00:03:03 verbose #10080 > > #if FABLE_COMPILER_RUST && WASM
00:03:03 verbose #10081 > > let v27 : string = @"println!(""{}"", $0)"
00:03:03 verbose #10082 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:03:03 verbose #10083 > > ()
00:03:03 verbose #10084 > > #endif
00:03:03 verbose #10085 > > #if FABLE_COMPILER_RUST && CONTRACT
00:03:03 verbose #10086 > > let v28 : string = @"println!(""{}"", $0)"
00:03:03 verbose #10087 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:03:03 verbose #10088 > > ()
00:03:03 verbose #10089 > > #endif
00:03:03 verbose #10090 > > #if FABLE_COMPILER_TYPESCRIPT
00:03:03 verbose #10091 > > System.Console.WriteLine v24
00:03:03 verbose #10092 > > ()
00:03:03 verbose #10093 > > #endif
00:03:03 verbose #10094 > > #if FABLE_COMPILER_PYTHON
00:03:03 verbose #10095 > > System.Console.WriteLine v24
00:03:03 verbose #10096 > > ()
00:03:03 verbose #10097 > > #endif
00:03:03 verbose #10098 > > #else
00:03:03 verbose #10099 > > System.Console.WriteLine v24
00:03:03 verbose #10100 > > ()
00:03:03 verbose #10101 > > #endif
00:03:03 verbose #10102 > > |> fun x -> _v25 <- Some x
00:03:03 verbose #10103 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:03:03 verbose #10104 > > _v25=None"
00:03:03 verbose #10105 > > let v29 : (string -> unit) = v8.l0
00:03:03 verbose #10106 > > v29 v24
00:03:03 verbose #10107 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:03:03 verbose #10108 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:03:03 verbose #10109 > > method8(v0, v3)
00:03:03 verbose #10110 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:03:03 verbose #10111 > > method4(v0, v1, v2)
00:03:03 verbose #10112 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:03:03 verbose #10113 > > closure4(v0, v1)
00:03:03 verbose #10114 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:03:03 verbose #10115 > > closure3(v0)
00:03:03 verbose #10116 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:03:03 verbose #10117 > > let v1 : US0 = US0_0
00:03:03 verbose #10118 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:03:03 verbose #10119 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:03:03 verbose #10120 > > let trace x = v2 x
00:03:03 verbose #10121 > > ()
00:03:03 verbose #10122 > >
00:03:03 verbose #10123 > >
00:03:03 verbose #10124 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:03 verbose #10125 > > module SpiralTrace =
00:03:03 verbose #10126 > > let trace x =
00:03:03 verbose #10127 > > #if !INTERACTIVE
00:03:03 verbose #10128 > > Trace.trace x
00:03:03 verbose #10129 > > #else
00:03:03 verbose #10130 > > trace x
00:03:03 verbose #10131 > > #endif
00:03:03 verbose #10132 > >
00:03:03 verbose #10133 > > type TraceLevel =
00:03:03 verbose #10134 > > #if !INTERACTIVE
00:03:03 verbose #10135 > > Trace.US0
00:03:03 verbose #10136 > > #else
00:03:03 verbose #10137 > > US0
00:03:03 verbose #10138 > > #endif
00:03:03 verbose #10139 > >
00:03:03 verbose #10140 > > module SpiralCrypto =
00:03:03 verbose #10141 > > let hash_text x =
00:03:03 verbose #10142 > > #if !INTERACTIVE
00:03:03 verbose #10143 > > Crypto.hash_text x
00:03:03 verbose #10144 > > #else
00:03:03 verbose #10145 > > hash_text x
00:03:03 verbose #10146 > > #endif
00:03:03 verbose #10147 > >
00:03:03 verbose #10148 > > let hash_to_port x =
00:03:03 verbose #10149 > > #if !INTERACTIVE
00:03:03 verbose #10150 > > Crypto.hash_to_port x
00:03:03 verbose #10151 > > #else
00:03:03 verbose #10152 > > hash_to_port x
00:03:03 verbose #10153 > > #endif
00:03:03 verbose #10154 > >
00:03:03 verbose #10155 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:03:03 verbose #10156 > >
00:03:03 verbose #10157 > > module SpiralAsync =
00:03:03 verbose #10158 > > let merge_cancellation_token_with_default_async x =
00:03:03 verbose #10159 > > #if !INTERACTIVE
00:03:03 verbose #10160 > > Async_.merge_cancellation_token_with_default_async x
00:03:03 verbose #10161 > > #else
00:03:03 verbose #10162 > > merge_cancellation_token_with_default_async x
00:03:03 verbose #10163 > > #endif
00:03:03 verbose #10164 > >
00:03:03 verbose #10165 > > module SpiralThreading =
00:03:03 verbose #10166 > > let new_disposable_token x =
00:03:03 verbose #10167 > > #if !INTERACTIVE
00:03:03 verbose #10168 > > Threading.new_disposable_token x
00:03:03 verbose #10169 > > #else
00:03:03 verbose #10170 > > new_disposable_token x
00:03:03 verbose #10171 > > #endif
00:03:03 verbose #10172 > >
00:03:03 verbose #10173 > > module SpiralNetworking =
00:03:03 verbose #10174 > > let test_port_open x =
00:03:03 verbose #10175 > > #if !INTERACTIVE
00:03:03 verbose #10176 > > Networking.test_port_open x
00:03:03 verbose #10177 > > #else
00:03:03 verbose #10178 > > test_port_open x
00:03:03 verbose #10179 > > #endif
00:03:03 verbose #10180 > >
00:03:03 verbose #10181 > > let test_port_open_timeout x =
00:03:03 verbose #10182 > > #if !INTERACTIVE
00:03:03 verbose #10183 > > Networking.test_port_open_timeout x
00:03:03 verbose #10184 > > #else
00:03:03 verbose #10185 > > test_port_open_timeout x
00:03:03 verbose #10186 > > #endif
00:03:03 verbose #10187 > >
00:03:03 verbose #10188 > > let wait_for_port_access x =
00:03:03 verbose #10189 > > #if !INTERACTIVE
00:03:03 verbose #10190 > > Networking.wait_for_port_access x
00:03:03 verbose #10191 > > #else
00:03:03 verbose #10192 > > wait_for_port_access x
00:03:03 verbose #10193 > > #endif
00:03:03 verbose #10194 > >
00:03:03 verbose #10195 > > let get_available_port x =
00:03:03 verbose #10196 > > #if !INTERACTIVE
00:03:03 verbose #10197 > > Networking.get_available_port x
00:03:03 verbose #10198 > > #else
00:03:03 verbose #10199 > > get_available_port x
00:03:03 verbose #10200 > > #endif
00:03:03 verbose #10201 > >
00:03:03 verbose #10202 > > module SpiralPlatform =
00:03:03 verbose #10203 > > let get_executable_suffix () =
00:03:03 verbose #10204 > > #if !INTERACTIVE
00:03:03 verbose #10205 > > Platform.g...e.trace_state
00:03:03 verbose #10206 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:03:03 verbose #10207 > > level.l0 <-
00:03:03 verbose #10208 > > match new_level with
00:03:03 verbose #10209 > > | Trace.US0_0 -> File_system.US0_0
00:03:03 verbose #10210 > > | Trace.US0_1 -> File_system.US0_1
00:03:03 verbose #10211 > > | Trace.US0_2 -> File_system.US0_2
00:03:03 verbose #10212 > > | Trace.US0_3 -> File_system.US0_3
00:03:03 verbose #10213 > > | Trace.US0_4 -> File_system.US0_4
00:03:03 verbose #10214 > > )
00:03:03 verbose #10215 > >
00:03:03 verbose #10216 > > Runtime.State.trace_state
00:03:03 verbose #10217 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:03:03 verbose #10218 > > level.l0 <-
00:03:03 verbose #10219 > > match new_level with
00:03:03 verbose #10220 > > | Trace.US0_0 -> Runtime.US0_0
00:03:03 verbose #10221 > > | Trace.US0_1 -> Runtime.US0_1
00:03:03 verbose #10222 > > | Trace.US0_2 -> Runtime.US0_2
00:03:03 verbose #10223 > > | Trace.US0_3 -> Runtime.US0_3
00:03:03 verbose #10224 > > | Trace.US0_4 -> Runtime.US0_4
00:03:03 verbose #10225 > > )
00:03:03 verbose #10226 > >
00:03:03 verbose #10227 > > Common.State.trace_state
00:03:03 verbose #10228 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:03:03 verbose #10229 > > level.l0 <-
00:03:03 verbose #10230 > > match new_level with
00:03:03 verbose #10231 > > | Trace.US0_0 -> Common.US0_0
00:03:03 verbose #10232 > > | Trace.US0_1 -> Common.US0_1
00:03:03 verbose #10233 > > | Trace.US0_2 -> Common.US0_2
00:03:03 verbose #10234 > > | Trace.US0_3 -> Common.US0_3
00:03:03 verbose #10235 > > | Trace.US0_4 -> Common.US0_4
00:03:03 verbose #10236 > > )
00:03:03 verbose #10237 > >
00:03:03 verbose #10238 > > Trace.State.trace_state
00:03:03 verbose #10239 > > #else
00:03:03 verbose #10240 > > State.trace_state
00:03:03 verbose #10241 > > #endif
00:03:03 verbose #10242 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:03:03 verbose #10243 > > level.l0 <- new_level
00:03:03 verbose #10244 > > )
00:03:03 verbose #10245 > >
00:03:03 verbose #10246 > > let get_trace_level () =
00:03:03 verbose #10247 > > #if !INTERACTIVE
00:03:03 verbose #10248 > > Trace.State.trace_state
00:03:03 verbose #10249 > > #else
00:03:03 verbose #10250 > > State.trace_state
00:03:03 verbose #10251 > > #endif
00:03:03 verbose #10252 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:03:03 verbose #10253 > > level.l0
00:03:03 verbose #10254 > > )
00:03:03 verbose #10255 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:03:03 verbose #10256 > > trace_state=None")
00:03:03 verbose #10257 > >
00:03:03 verbose #10258 > >
00:03:03 verbose #10259 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:03 verbose #10260 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:03:03 verbose #10261 > >
00:03:03 verbose #10262 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:03 verbose #10263 > > //// test
00:03:03 verbose #10264 > >
00:03:03 verbose #10265 > > type AssertExceptionFormatter (ex) =
00:03:03 verbose #10266 > > member _.Text =
00:03:03 verbose #10267 > > ex.ToString()
00:03:03 verbose #10268 > > .Replace("32m", "<span style=\"color: green;\">")
00:03:03 verbose #10269 > > .Replace("36m", "</span>")
00:03:03 verbose #10270 > > .Replace("31m", "<span style=\"color: red;\">")
00:03:03 verbose #10271 > > .Replace("\n", "<br/>\n")
00:03:03 verbose #10272 > >
00:03:03 verbose #10273 > >
00:03:03 verbose #10274 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:03:03 verbose #10275 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:03:03 verbose #10276 > >
00:03:03 verbose #10277 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:03 verbose #10278 > > //// test
00:03:03 verbose #10279 > >
00:03:03 verbose #10280 > > let inline __expect fn log expected actual =
00:03:03 verbose #10281 > > if log then printfn $"{actual.ToDisplayString ()}"
00:03:03 verbose #10282 > > try
00:03:03 verbose #10283 > > "Testing.__expect" |> fn actual expected
00:03:03 verbose #10284 > > with :? Expecto.AssertException as ex ->
00:03:03 verbose #10285 > > AssertExceptionFormatter(ex).Display () |> ignore
00:03:03 verbose #10286 > > failwith (ex.GetType().FullName)
00:03:03 verbose #10287 > >
00:03:03 verbose #10288 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:03:03 verbose #10289 > > expected actual
00:03:03 verbose #10290 > > let inline _contains expected actual = __contains true expected actual
00:03:03 verbose #10291 > >
00:03:03 verbose #10292 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:03:03 verbose #10293 > > expected actual
00:03:03 verbose #10294 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:03:03 verbose #10295 > >
00:03:03 verbose #10296 > > let inline __isGreaterThan log expected actual = __expect
00:03:03 verbose #10297 > > Expecto.Expect.isGreaterThan log expected actual
00:03:03 verbose #10298 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:03:03 verbose #10299 > >
00:03:03 verbose #10300 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:03:03 verbose #10301 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:03:03 verbose #10302 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:03:03 verbose #10303 > > expected actual
00:03:03 verbose #10304 > >
00:03:03 verbose #10305 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:03:03 verbose #10306 > > log expected actual
00:03:03 verbose #10307 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:03:03 verbose #10308 > >
00:03:03 verbose #10309 > > let inline __isLessThanOrEqual log expected actual = __expect
00:03:03 verbose #10310 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:03:03 verbose #10311 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:03:03 verbose #10312 > > expected actual
00:03:03 verbose #10313 > >
00:03:03 verbose #10314 > > let inline __sequenceEqual log expected actual = __expect
00:03:03 verbose #10315 > > Expecto.Expect.sequenceEqual log expected actual
00:03:03 verbose #10316 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:03:03 verbose #10317 > >
00:03:03 verbose #10318 > > let inline __stringContains log expected actual = __expect
00:03:03 verbose #10319 > > Expecto.Expect.stringContains log expected actual
00:03:03 verbose #10320 > > let inline _stringContains expected actual = __stringContains true expected
00:03:03 verbose #10321 > > actual
00:03:03 verbose #10322 > >
00:03:03 verbose #10323 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:03:03 verbose #10324 > > log expected actual
00:03:03 verbose #10325 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:03:03 verbose #10326 > >
00:03:03 verbose #10327 > > let inline __stringStarts log expected actual = __expect
00:03:03 verbose #10328 > > Expecto.Expect.stringStarts log expected actual
00:03:03 verbose #10329 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:03:03 verbose #10330 > >
00:03:03 verbose #10331 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:03:03 verbose #10332 > > expected actual
00:03:03 verbose #10333 > > let inline _throwsC expected actual = __throwsC true expected actual
00:03:04 verbose #10334 > >
00:03:04 verbose #10335 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:04 verbose #10336 > > //// test
00:03:04 verbose #10337 > >
00:03:04 verbose #10338 > > let inline __isBetween log a b actual =
00:03:04 verbose #10339 > > let inline isBetween actual (a, b) _ =
00:03:04 verbose #10340 > > __isGreaterThanOrEqual log a actual
00:03:04 verbose #10341 > > __isLessThanOrEqual log b actual
00:03:04 verbose #10342 > > __expect isBetween log (a, b) actual
00:03:04 verbose #10343 > > let inline _isBetween a b actual = __isBetween true a b actual
00:03:04 verbose #10344 > >
00:03:04 verbose #10345 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:04 verbose #10346 > > #!import ../../lib/fsharp/Common.fs
00:03:04 verbose #10347 > > #!import ../../lib/fsharp/CommonFSharp.fs
00:03:04 verbose #10348 > > #!import ../../lib/fsharp/Async.fs
00:03:04 verbose #10349 > > #!import ../../lib/fsharp/AsyncSeq.fs
00:03:04 verbose #10350 > > #!import ../../lib/fsharp/Runtime.fs
00:03:04 verbose #10351 > > #!import ../../lib/fsharp/FileSystem.fs
00:03:04 verbose #10352 > >
00:03:04 verbose #10353 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:04 verbose #10354 > > #if !INTERACTIVE
00:03:04 verbose #10355 > > namespace Polyglot
00:03:04 verbose #10356 > > #endif
00:03:04 verbose #10357 > >
00:03:04 verbose #10358 > > module Common =
00:03:04 verbose #10359 > >
00:03:04 verbose #10360 > > #if !INTERACTIVE
00:03:04 verbose #10361 > > open Lib
00:03:04 verbose #10362 > > #endif
00:03:04 verbose #10363 > >
00:03:04 verbose #10364 > > let nl = System.Environment.NewLine
00:03:04 verbose #10365 > > let q = @""""
00:03:04 verbose #10366 > >
00:03:04 verbose #10367 > > let inline cons head tail = head :: tail
00:03:04 verbose #10368 > >
00:03:04 verbose #10369 > > /// ## memoize
00:03:04 verbose #10370 > > let inline memoize fn =
00:03:04 verbose #10371 > > let result = lazy fn ()
00:03:04 verbose #10372 > > fun () -> result.Value
00:03:04 verbose #10373 > >
00:03:04 verbose #10374 > > /// ## TraceLevel
00:03:04 verbose #10375 > > type TraceLevel =
00:03:04 verbose #10376 > > | Verbose
00:03:04 verbose #10377 > > | Debug
00:03:04 verbose #10378 > > | Info
00:03:04 verbose #10379 > > | Warning
00:03:04 verbose #10380 > > | Critical
00:03:04 verbose #10381 > >
00:03:04 verbose #10382 > > let inline _locals () = ""
00:03:04 verbose #10383 > >
00:03:04 verbose #10384 > > /// ## trace
00:03:04 verbose #10385 > > let to_trace_level = function
00:03:04 verbose #10386 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:03:04 verbose #10387 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:03:04 verbose #10388 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:03:04 verbose #10389 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:03:04 verbose #10390 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:03:04 verbose #10391 > >
00:03:04 verbose #10392 > > let trace level fn locals =
00:03:04 verbose #10393 > > let level = level |> to_trace_level
00:03:04 verbose #10394 > > SpiralTrace.trace level fn locals
00:03:04 verbose #10395 > >
00:03:04 verbose #10396 > >
00:03:04 verbose #10397 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:04 verbose #10398 > > #if !INTERACTIVE
00:03:04 verbose #10399 > > namespace Polyglot
00:03:04 verbose #10400 > > #endif
00:03:04 verbose #10401 > >
00:03:04 verbose #10402 > > module CommonFSharp =
00:03:04 verbose #10403 > >
00:03:04 verbose #10404 > > open Common
00:03:04 verbose #10405 > >
00:03:04 verbose #10406 > > /// ## getUnionCaseName
00:03:04 verbose #10407 > > let inline getUnionCaseName<'T> (x: 'T) =
00:03:04 verbose #10408 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:03:04 verbose #10409 > > | case, _ -> case.Name
00:03:04 verbose #10410 > >
00:03:04 verbose #10411 > >
00:03:04 verbose #10412 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:04 verbose #10413 > > #if !INTERACTIVE
00:03:04 verbose #10414 > > namespace Polyglot
00:03:04 verbose #10415 > > #endif
00:03:04 verbose #10416 > >
00:03:04 verbose #10417 > > module Async =
00:03:04 verbose #10418 > >
00:03:04 verbose #10419 > > #if !INTERACTIVE
00:03:04 verbose #10420 > > open Lib
00:03:04 verbose #10421 > > #endif
00:03:04 verbose #10422 > >
00:03:04 verbose #10423 > > open Common
00:03:04 verbose #10424 > >
00:03:04 verbose #10425 > > /// ## choice
00:03:04 verbose #10426 > > let inline choice asyncs = async {
00:03:04 verbose #10427 > > let e = Event<_> ()
00:03:04 verbose #10428 > > use cts = new System.Threading.CancellationTokenSource ()
00:03:04 verbose #10429 > > let fn =
00:03:04 verbose #10430 > > asyncs
00:03:04 verbose #10431 > > |> Seq.map (fun a -> async {
00:03:04 verbose #10432 > > let! x = a
00:03:04 verbose #10433 > > e.Trigger x
00:03:04 verbose #10434 > > })
00:03:04 verbose #10435 > > |> Async.Parallel
00:03:04 verbose #10436 > > |> Async.Ignore
00:03:04 verbose #10437 > > Async.Start (fn, cts.Token)
00:03:04 verbose #10438 > > let! result = Async.AwaitEvent e.Publish
00:03:04 verbose #10439 > > cts.Cancel ()
00:03:04 verbose #10440 > > return result
00:03:04 verbose #10441 > > }
00:03:04 verbose #10442 > >
00:03:04 verbose #10443 > > /// ## map
00:03:04 verbose #10444 > > let inline map fn a = async {
00:03:04 verbose #10445 > > let! x = a
00:03:04 verbose #10446 > > return fn x
00:03:04 verbose #10447 > > }
00:03:04 verbose #10448 > >
00:03:04 verbose #10449 > > /// ## catch
00:03:04 verbose #10450 > > let inline catch a =
00:03:04 verbose #10451 > > a
00:03:04 verbose #10452 > > |> Async.Catch
00:03:04 verbose #10453 > > |> map (function
00:03:04 verbose #10454 > > | Choice1Of2 result -> Ok result
00:03:04 verbose #10455 > > | Choice2Of2 ex -> Error ex
00:03:04 verbose #10456 > > )
00:03:04 verbose #10457 > >
00:03:04 verbose #10458 > > /// ## runWithTimeoutChoiceAsync
00:03:04 verbose #10459 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:03:04 verbose #10460 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:03:04 verbose #10461 > >
00:03:04 verbose #10462 > > let timeoutTask = async {
00:03:04 verbose #10463 > > do! Async.Sleep timeout
00:03:04 verbose #10464 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:03:04 verbose #10465 > > return None
00:03:04 verbose #10466 > > }
00:03:04 verbose #10467 > >
00:03:04 verbose #10468 > > let task = async {
00:03:04 verbose #10469 > > try
00:03:04 verbose #10470 > > let! result = fn
00:03:04 verbose #10471 > > return Some result
00:03:04 verbose #10472 > > with
00:03:04 verbose #10473 > > | :? System.AggregateException as ex when
00:03:04 verbose #10474 > > ex.InnerExceptions
00:03:04 verbose #10475 > > |> Seq.exists (function :? Sy... None
00:03:04 verbose #10476 > >
00:03:04 verbose #10477 > > /// ## awaitValueTask
00:03:04 verbose #10478 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:03:04 verbose #10479 > > task.AsTask () |> Async.AwaitTask
00:03:04 verbose #10480 > >
00:03:04 verbose #10481 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:03:04 verbose #10482 > > task.AsTask () |> Async.AwaitTask
00:03:04 verbose #10483 > >
00:03:04 verbose #10484 > > /// ## init
00:03:04 verbose #10485 > > let inline init x = async {
00:03:04 verbose #10486 > > return x
00:03:04 verbose #10487 > > }
00:03:04 verbose #10488 > >
00:03:04 verbose #10489 > > /// ## withCancellationToken
00:03:04 verbose #10490 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:03:04 verbose #10491 > > fn =
00:03:04 verbose #10492 > > Async.StartImmediateAsTask (fn, ct)
00:03:04 verbose #10493 > > |> Async.AwaitTask
00:03:04 verbose #10494 > >
00:03:04 verbose #10495 > > /// ## retryAsync
00:03:04 verbose #10496 > > let inline retryAsync retries fn =
00:03:04 verbose #10497 > > let rec loop retry lastError = async {
00:03:04 verbose #10498 > > try
00:03:04 verbose #10499 > > return!
00:03:04 verbose #10500 > > if retry <= retries
00:03:04 verbose #10501 > > then fn |> map Ok
00:03:04 verbose #10502 > > else lastError |> Error |> init
00:03:04 verbose #10503 > > with ex ->
00:03:04 verbose #10504 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:03:04 verbose #10505 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:03:04 verbose #10506 > > do! Async.Sleep 1
00:03:04 verbose #10507 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:03:04 verbose #10508 > > }
00:03:04 verbose #10509 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:03:04 verbose #10510 > >
00:03:04 verbose #10511 > > /// ## fold
00:03:04 verbose #10512 > > let fold folder state array =
00:03:04 verbose #10513 > > let rec loop acc i =
00:03:04 verbose #10514 > > async {
00:03:04 verbose #10515 > > if i < Array.length array then
00:03:04 verbose #10516 > > let! newAcc = folder acc array.[[i]]
00:03:04 verbose #10517 > > return! loop newAcc (i + 1)
00:03:04 verbose #10518 > > else
00:03:04 verbose #10519 > > return acc
00:03:04 verbose #10520 > > }
00:03:04 verbose #10521 > > loop state 0
00:03:04 verbose #10522 > >
00:03:05 verbose #10523 > >
00:03:05 verbose #10524 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:05 verbose #10525 > > #if !INTERACTIVE
00:03:05 verbose #10526 > > namespace Polyglot
00:03:05 verbose #10527 > > #endif
00:03:05 verbose #10528 > >
00:03:05 verbose #10529 > > module AsyncSeq =
00:03:05 verbose #10530 > >
00:03:05 verbose #10531 > > #if !INTERACTIVE
00:03:05 verbose #10532 > > open Lib
00:03:05 verbose #10533 > > #endif
00:03:05 verbose #10534 > >
00:03:05 verbose #10535 > > open Common
00:03:05 verbose #10536 > >
00:03:05 verbose #10537 > > /// ## subscribeEvent
00:03:05 verbose #10538 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:03:05 verbose #10539 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:03:05 verbose #10540 > > 'A>(event.AddHandler, event.RemoveHandler)
00:03:05 verbose #10541 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:03:05 verbose #10542 > > event.EventArgs)
00:03:05 verbose #10543 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:03:05 verbose #10544 > >
00:03:05 verbose #10545 > > /// ## subscribeToken
00:03:05 verbose #10546 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:03:05 verbose #10547 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:03:05 verbose #10548 > > System.Action tcs.SetResult |> token.Register |> ignore
00:03:05 verbose #10549 > > let start = System.DateTime.Now.Ticks
00:03:05 verbose #10550 > > FSharp.Control.AsyncSeq.unfoldAsync
00:03:05 verbose #10551 > > (fun () -> async {
00:03:05 verbose #10552 > > do! tcs.Task |> Async.AwaitTask
00:03:05 verbose #10553 > > return Some (System.DateTime.Now.Ticks - start, ())
00:03:05 verbose #10554 > > })
00:03:05 verbose #10555 > > ()
00:03:05 verbose #10556 > >
00:03:05 verbose #10557 > >
00:03:05 verbose #10558 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:05 verbose #10559 > > #if !INTERACTIVE
00:03:05 verbose #10560 > > namespace Polyglot
00:03:05 verbose #10561 > > #endif
00:03:05 verbose #10562 > >
00:03:05 verbose #10563 > > module Runtime =
00:03:05 verbose #10564 > >
00:03:05 verbose #10565 > > #if !INTERACTIVE
00:03:05 verbose #10566 > > open Lib
00:03:05 verbose #10567 > > #endif
00:03:05 verbose #10568 > >
00:03:05 verbose #10569 > > open Common
00:03:05 verbose #10570 > >
00:03:05 verbose #10571 > > /// ## parseArgs
00:03:05 verbose #10572 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:05 verbose #10573 > > let assemblyName =
00:03:05 verbose #10574 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:03:05 verbose #10575 > > let errorHandler : Argu.IExiter =
00:03:05 verbose #10576 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:03:05 verbose #10577 > > List.contains assemblyName
00:03:05 verbose #10578 > > then Argu.ExceptionExiter ()
00:03:05 verbose #10579 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:03:05 verbose #10580 > > _ -> Some System.ConsoleColor.Red)
00:03:05 verbose #10581 > >
00:03:05 verbose #10582 > > let parser =
00:03:05 verbose #10583 > > Argu.ArgumentParser.Create<'T> (
00:03:05 verbose #10584 > > programName =
00:03:05 verbose #10585 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:03:05 verbose #10586 > > errorHandler = errorHandler
00:03:05 verbose #10587 > > )
00:03:05 verbose #10588 > >
00:03:05 verbose #10589 > > parser.ParseCommandLine args
00:03:05 verbose #10590 > >
00:03:05 verbose #10591 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:05 verbose #10592 > > args
00:03:05 verbose #10593 > > |> parseArgs<'T>
00:03:05 verbose #10594 > > |> fun results -> results.GetAllResults ()
00:03:05 verbose #10595 > >
00:03:05 verbose #10596 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:05 verbose #10597 > > args
00:03:05 verbose #10598 > > |> parseAllArgs<'T>
00:03:05 verbose #10599 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:03:05 verbose #10600 > > |> Map.ofList
00:03:05 verbose #10601 > >
00:03:05 verbose #10602 > >
00:03:05 verbose #10603 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:05 verbose #10604 > > #if !INTERACTIVE
00:03:05 verbose #10605 > > namespace Polyglot
00:03:05 verbose #10606 > > #endif
00:03:05 verbose #10607 > >
00:03:05 verbose #10608 > > module FileSystem =
00:03:05 verbose #10609 > >
00:03:05 verbose #10610 > > #if !INTERACTIVE
00:03:05 verbose #10611 > > open Lib
00:03:05 verbose #10612 > > #endif
00:03:05 verbose #10613 > >
00:03:05 verbose #10614 > > open Common
00:03:05 verbose #10615 > > open SpiralFileSystem.Operators
00:03:05 verbose #10616 > >
00:03:05 verbose #10617 > > /// ## watchDirectory
00:03:05 verbose #10618 > > [[<RequireQualifiedAccess>]]
00:03:05 verbose #10619 > > type FileSystemChangeType =
00:03:05 verbose #10620 > > | Failure
00:03:05 verbose #10621 > > | Changed
00:03:05 verbose #10622 > > | Created
00:03:05 verbose #10623 > > | Deleted
00:03:05 verbose #10624 > > | Renamed
00:03:05 verbose #10625 > >
00:03:05 verbose #10626 > > [[<RequireQualifiedAccess>]]
00:03:05 verbose #10627 > > type FileSystemChange =
00:03:05 verbose #10628 > > | Failure of exn: exn
00:03:05 verbose #10629 > > | Changed of path: string * content: string option
00:03:05 verbose #10630 > > | Created of path: string * content: string option
00:03:05 verbose #10631 > > | Deleted of path: string
00:03:05 verbose #10632 > > | Renamed of oldPath: string * (string * string option)
00:03:05 verbose #10633 > >
00:03:05 verbose #10634 > >
00:03:05 verbose #10635 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:03:05 verbose #10636 > > let fullPath = path |> System.IO.Path.GetFullPath
00:03:05 verbose #10637 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:03:05 verbose #10638 > >
00:03:05 verbose #10639 > > let watcher =
00:03:05 verbose #10640 > > new System.IO.FileSystemWatcher (
00:03:05 verbose #10641 > > Path = fullPath,
00:03:05 verbose #10642 > > NotifyFilter = filter,
00:03:05 verbose #10643 > > EnableRaisingEvents = true,
00:03:05 verbose #10644 > > IncludeSubdirectories = true
00:03:05 verbose #10645 > > )
00:03:05 verbose #10646 > >
00:03:05 verbose #10647 > > let inline getEventPath (path : string) =
00:03:05 verbose #10648 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:03:05 verbose #10649 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:03:05 verbose #10650 > >
00:03:05 verbose #10651 > > let inline ticks () =
00:03:05 verbose #10652 > > System.DateTime.UtcNow.Ticks
00:03:05 verbose #10653 > >
00:03:05 verbose #10654 > > let changedStream =
00:03:05 verbose #10655 > > AsyncSeq.subscribeEvent
00:03:05 verbose #10656 > > watcher.Changed
00:03:05 verbose #10657 > > (fun event ->
00:03:05 verbose #10658 > > ticks (),
00:03:05 verbose #10659 > > [[ FileSystemChang...d_all_text_retry_async
00:03:05 verbose #10660 > > return t, FileSystemChange.Changed (path, content)
00:03:05 verbose #10661 > > | true, FileSystemChange.Created (path, _) ->
00:03:05 verbose #10662 > > do! Async.Sleep 5
00:03:05 verbose #10663 > > let! content = fullPath </> path |>
00:03:05 verbose #10664 > > SpiralFileSystem.read_all_text_retry_async
00:03:05 verbose #10665 > > return t, FileSystemChange.Created (path, content)
00:03:05 verbose #10666 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:03:05 verbose #10667 > > let! content = fullPath </> newPath |>
00:03:05 verbose #10668 > > SpiralFileSystem.read_all_text_retry_async
00:03:05 verbose #10669 > > return t, FileSystemChange.Renamed (oldPath, (newPath,
00:03:05 verbose #10670 > > content))
00:03:05 verbose #10671 > > | _ -> return t, event
00:03:05 verbose #10672 > > })
00:03:05 verbose #10673 > >
00:03:05 verbose #10674 > > let disposable =
00:03:05 verbose #10675 > > new_disposable (fun () ->
00:03:05 verbose #10676 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
00:03:05 verbose #10677 > > watch stream") _locals
00:03:05 verbose #10678 > > watcher.EnableRaisingEvents <- false
00:03:05 verbose #10679 > > watcher.Dispose ()
00:03:05 verbose #10680 > > )
00:03:05 verbose #10681 > >
00:03:05 verbose #10682 > > stream, disposable
00:03:05 verbose #10683 > >
00:03:05 verbose #10684 > > let inline watchDirectory path =
00:03:05 verbose #10685 > > watchDirectoryWithFilter
00:03:05 verbose #10686 > > (System.IO.NotifyFilters.FileName
00:03:05 verbose #10687 > > // ||| System.IO.NotifyFilters.DirectoryName
00:03:05 verbose #10688 > > // ||| System.IO.NotifyFilters.Attributes
00:03:05 verbose #10689 > > //// ||| System.IO.NotifyFilters.Size
00:03:05 verbose #10690 > > ||| System.IO.NotifyFilters.LastWrite
00:03:05 verbose #10691 > > //// ||| System.IO.NotifyFilters.LastAccess
00:03:05 verbose #10692 > > // ||| System.IO.NotifyFilters.CreationTime
00:03:05 verbose #10693 > > // ||| System.IO.NotifyFilters.Security
00:03:05 verbose #10694 > > )
00:03:05 verbose #10695 > > path
00:03:05 verbose #10696 > >
00:03:06 verbose #10697 > >
00:03:06 verbose #10698 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10699 > > #if !INTERACTIVE
00:03:06 verbose #10700 > > open Lib
00:03:06 verbose #10701 > > #endif
00:03:06 verbose #10702 > >
00:03:06 verbose #10703 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10704 > > open Common
00:03:06 verbose #10705 > >
00:03:06 verbose #10706 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10707 > > //// test
00:03:06 verbose #10708 > >
00:03:06 verbose #10709 > > open SpiralFileSystem.Operators
00:03:06 verbose #10710 > >
00:03:06 verbose #10711 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:06 verbose #10712 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:06 verbose #10713 > > │ ## parseArgs │
00:03:06 verbose #10714 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 verbose #10715 > >
00:03:06 verbose #10716 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10717 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:06 verbose #10718 > > let assemblyName =
00:03:06 verbose #10719 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:03:06 verbose #10720 > > let errorHandler : Argu.IExiter =
00:03:06 verbose #10721 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:03:06 verbose #10722 > > List.contains assemblyName
00:03:06 verbose #10723 > > then Argu.ExceptionExiter ()
00:03:06 verbose #10724 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | _ ->
00:03:06 verbose #10725 > > Some System.ConsoleColor.Red)
00:03:06 verbose #10726 > >
00:03:06 verbose #10727 > > let parser =
00:03:06 verbose #10728 > > Argu.ArgumentParser.Create<'T> (
00:03:06 verbose #10729 > > programName = $"{assemblyName}{SpiralPlatform.get_executable_suffix
00:03:06 verbose #10730 > > ()}",
00:03:06 verbose #10731 > > errorHandler = errorHandler
00:03:06 verbose #10732 > > )
00:03:06 verbose #10733 > >
00:03:06 verbose #10734 > > parser.ParseCommandLine args
00:03:06 verbose #10735 > >
00:03:06 verbose #10736 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10737 > > //// test
00:03:06 verbose #10738 > >
00:03:06 verbose #10739 > > [[<RequireQualifiedAccess>]]
00:03:06 verbose #10740 > > type Arguments =
00:03:06 verbose #10741 > > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:03:06 verbose #10742 > > Argu.ArguAttributes.Last>]]
00:03:06 verbose #10743 > > Paths of paths : string list
00:03:06 verbose #10744 > >
00:03:06 verbose #10745 > > interface Argu.IArgParserTemplate with
00:03:06 verbose #10746 > > member s.Usage =
00:03:06 verbose #10747 > > match s with
00:03:06 verbose #10748 > > | Paths _ -> nameof Paths
00:03:06 verbose #10749 > >
00:03:06 verbose #10750 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10751 > > //// test
00:03:06 verbose #10752 > >
00:03:06 verbose #10753 > > Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
00:03:06 verbose #10754 > >
00:03:06 verbose #10755 > > ╭─[ 150.17ms - return value ]──────────────────────────────────────────────────╮
00:03:06 verbose #10756 > > │ "USAGE: dotnet-repl [--help] <paths>... │
00:03:06 verbose #10757 > > │ │
00:03:06 verbose #10758 > > │ PATHS: │
00:03:06 verbose #10759 > > │ │
00:03:06 verbose #10760 > > │ <paths>... Paths │
00:03:06 verbose #10761 > > │ │
00:03:06 verbose #10762 > > │ OPTIONS: │
00:03:06 verbose #10763 > > │ │
00:03:06 verbose #10764 > > │ --help display this list of options. │
00:03:06 verbose #10765 > > │ " │
00:03:06 verbose #10766 > > │ │
00:03:06 verbose #10767 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 verbose #10768 > >
00:03:06 verbose #10769 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10770 > > //// test
00:03:06 verbose #10771 > >
00:03:06 verbose #10772 > > fun () -> parseArgs<Arguments> [[||]] |> ignore
00:03:06 verbose #10773 > > |> _throwsC (fun ex _ ->
00:03:06 verbose #10774 > > SpiralSm.format_exception ex
00:03:06 verbose #10775 > > |> _stringContains "Argu.ArguParseException: ERROR: missing parameter
00:03:06 verbose #10776 > > '<paths>...'."
00:03:06 verbose #10777 > > )
00:03:06 verbose #10778 > >
00:03:06 verbose #10779 > > ╭─[ 78.26ms - stdout ]─────────────────────────────────────────────────────────╮
00:03:06 verbose #10780 > > │ <fun:it@3-3> │
00:03:06 verbose #10781 > > │ │
00:03:06 verbose #10782 > > │ "Argu.ArguParseException: ERROR: missing parameter '<paths>...'. │
00:03:06 verbose #10783 > > │ USAGE: dotnet-repl.exe [--help] <paths>... │
00:03:06 verbose #10784 > > │ │
00:03:06 verbose #10785 > > │ PATHS: │
00:03:06 verbose #10786 > > │ │
00:03:06 verbose #10787 > > │ <paths>... Paths │
00:03:06 verbose #10788 > > │ │
00:03:06 verbose #10789 > > │ OPTIONS: │
00:03:06 verbose #10790 > > │ │
00:03:06 verbose #10791 > > │ --help display this list of options. │
00:03:06 verbose #10792 > > │ " │
00:03:06 verbose #10793 > > │ │
00:03:06 verbose #10794 > > │ │
00:03:06 verbose #10795 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 verbose #10796 > >
00:03:06 verbose #10797 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10798 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:06 verbose #10799 > > args
00:03:06 verbose #10800 > > |> parseArgs<'T>
00:03:06 verbose #10801 > > |> fun results -> results.GetAllResults ()
00:03:06 verbose #10802 > >
00:03:06 verbose #10803 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10804 > > //// test
00:03:06 verbose #10805 > >
00:03:06 verbose #10806 > > [[<RequireQualifiedAccess>]]
00:03:06 verbose #10807 > > type Arguments =
00:03:06 verbose #10808 > > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:03:06 verbose #10809 > > Argu.ArguAttributes.Last>]]
00:03:06 verbose #10810 > > Paths of paths : string list
00:03:06 verbose #10811 > >
00:03:06 verbose #10812 > > interface Argu.IArgParserTemplate with
00:03:06 verbose #10813 > > member s.Usage =
00:03:06 verbose #10814 > > match s with
00:03:06 verbose #10815 > > | Paths _ -> nameof Paths
00:03:06 verbose #10816 > >
00:03:06 verbose #10817 > > parseAllArgs<Arguments> [[| "a b"; "c" |]]
00:03:06 verbose #10818 > > |> _assertEqual [[ Arguments.Paths [[ "a b"; "c" ]] ]]
00:03:06 verbose #10819 > >
00:03:06 verbose #10820 > > ╭─[ 109.63ms - stdout ]────────────────────────────────────────────────────────╮
00:03:06 verbose #10821 > > │ [Paths ["a b"; "c"]] │
00:03:06 verbose #10822 > > │ │
00:03:06 verbose #10823 > > │ │
00:03:06 verbose #10824 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 verbose #10825 > >
00:03:06 verbose #10826 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10827 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:06 verbose #10828 > > args
00:03:06 verbose #10829 > > |> parseAllArgs<'T>
00:03:06 verbose #10830 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:03:06 verbose #10831 > > |> Map.ofList
00:03:06 verbose #10832 > >
00:03:06 verbose #10833 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #10834 > > //// test
00:03:06 verbose #10835 > >
00:03:06 verbose #10836 > > parseArgsMap<Arguments> [[| "a b"; "c" |]]
00:03:06 verbose #10837 > > |> _assertEqual (
00:03:06 verbose #10838 > > [[ nameof Arguments.Paths, [[ Arguments.Paths [[ "a b"; "c" ]] ]] ]]
00:03:06 verbose #10839 > > |> Map.ofList
00:03:06 verbose #10840 > > )
00:03:06 verbose #10841 > >
00:03:06 verbose #10842 > > ╭─[ 66.66ms - stdout ]─────────────────────────────────────────────────────────╮
00:03:06 verbose #10843 > > │ map [("Paths", [Paths ["a b"; "c"]])] │
00:03:06 verbose #10844 > > │ │
00:03:06 verbose #10845 > > │ │
00:03:06 verbose #10846 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 verbose #10847 > 00:00:22 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 60273
00:03:06 verbose #10848 > 00:00:22 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:03:09 verbose #10849 > 00:00:24 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb to html
00:03:09 verbose #10850 > 00:00:24 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:09 verbose #10851 > 00:00:24 verbose #7 ! validate(nb)
00:03:10 verbose #10852 > 00:00:26 verbose #8 ! [NbConvertApp] Writing 292946 bytes to c:\home\git\polyglot\lib\fsharp\Runtime.dib.html
00:03:11 verbose #10853 > 00:00:26 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:03:11 verbose #10854 > 00:00:26 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:03:11 verbose #10855 > 00:00:26 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:03:12 verbose #10856 > 00:00:27 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:03:12 verbose #10857 > 00:00:27 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:03:12 verbose #10858 > 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 60977
00:03:12 debug #10859 runtime.execute_with_options_async / exit_code: 0 / output.Length: 66943
00:03:12 debug #6 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Runtime.dib --retries 3
00:00:00 debug #5 writeDibCode / output: Fs / path: Async.dib
00:00:00 debug #5 writeDibCode / output: Fs / path: Common.dib
00:00:00 debug #5 writeDibCode / output: Fs / path: CommonFSharp.dib
00:00:00 debug #5 writeDibCode / output: Fs / path: Runtime.dib
00:00:00 debug #5 writeDibCode / output: Fs / path: AsyncSeq.dib
00:00:00 debug #5 writeDibCode / output: Fs / path: FileSystem.dib
00:00:00 debug #8 parseDibCode / output: Fs / file: Async.dib
00:00:00 debug #11 parseDibCode / output: Fs / file: CommonFSharp.dib
00:00:00 debug #9 parseDibCode / output: Fs / file: Common.dib
00:00:00 debug #10 parseDibCode / output: Fs / file: AsyncSeq.dib
00:00:00 debug #8 parseDibCode / output: Fs / file: Runtime.dib
00:00:00 debug #8 parseDibCode / output: Fs / file: FileSystem.dib
In [ ]:
{ pwsh ../lib/math/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 1",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "math.dib", "--retries", "1"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/math/math.dib", "--output-path", "c:/home/git/polyglot/lib/math/math.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/math/math.dib" --output-path "c:/home/git/polyglot/lib/math/math.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #4 > >
00:00:04 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #7 > > │ # math │
00:00:04 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #9 > >
00:00:04 verbose #10 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #11 > > open testing
00:00:04 verbose #12 > > open rust_operators
00:00:04 verbose #13 > >
00:00:04 verbose #14 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #15 > > #r
00:00:04 verbose #16 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #17 > > otNet.Interactive.Spiral.dll"
00:00:04 verbose #18 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:04 verbose #19 > > #r
00:00:04 verbose #20 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #21 > > otNet.Interactive.dll"
00:00:04 verbose #22 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:11 verbose #23 > >
00:00:11 verbose #24 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #25 > > inl types () =
00:00:11 verbose #26 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #27 > > Fable.Core.Emit(\"num_complex::Complex<$0>\")>]]\n#endif\ntype
00:00:11 verbose #28 > > num_complex_Complex<'T> = class end"
00:00:11 verbose #29 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #30 > > Fable.Core.Emit(\"pyo3::types::PyModule\")>]]\n#endif\ntype pyo3_types_PyModule
00:00:11 verbose #31 > > = class end"
00:00:11 verbose #32 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #33 > > Fable.Core.Emit(\"pyo3::Bound<$0>\")>]]\n#endif\ntype pyo3_Bound<'T> = class
00:00:11 verbose #34 > > end"
00:00:11 verbose #35 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #36 > > Fable.Core.Emit(\"pyo3::Python\")>]]\n#endif\ntype pyo3_Python = class end"
00:00:11 verbose #37 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #38 > > Fable.Core.Emit(\"pyo3::PyAny\")>]]\n#endif\ntype pyo3_PyAny = class end"
00:00:11 verbose #39 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #40 > > Fable.Core.Emit(\"pyo3::PyErr\")>]]\n#endif\ntype pyo3_PyErr = class end"
00:00:12 verbose #41 > >
00:00:12 verbose #42 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #43 > > inl types () =
00:00:12 verbose #44 > > rust.types ()
00:00:12 verbose #45 > > sm'.types ()
00:00:12 verbose #46 > > types ()
00:00:13 verbose #47 > >
00:00:13 verbose #48 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #49 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #50 > > │ ## complex │
00:00:13 verbose #51 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #52 > >
00:00:13 verbose #53 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #54 > > nominal complex t = $'num_complex_Complex<`t>'
00:00:13 verbose #55 > > nominal bound t = $'pyo3_Bound<`t>'
00:00:13 verbose #56 > > nominal python = $'pyo3_Python'
00:00:13 verbose #57 > > nominal pymodule = $'pyo3_types_PyModule'
00:00:13 verbose #58 > > nominal pyany = $'pyo3_PyAny'
00:00:13 verbose #59 > > nominal pyerr = $'pyo3_PyErr'
00:00:13 verbose #60 > >
00:00:13 verbose #61 > > inl complex forall t. ((re : t), (im : t)) : complex t =
00:00:13 verbose #62 > > !\\((re, im), $'"num_complex::Complex::new($0, $1)"')
00:00:13 verbose #63 > >
00:00:13 verbose #64 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #65 > > //// test
00:00:13 verbose #66 > > ///! rust -d num-complex
00:00:13 verbose #67 > >
00:00:13 verbose #68 > > types ()
00:00:13 verbose #69 > >
00:00:13 verbose #70 > > complex (0f64, 0f64)
00:00:13 verbose #71 > > |> sm'.format'
00:00:13 verbose #72 > > |> sm'.from_std_string
00:00:13 verbose #73 > > |> _assert_eq "0+0i"
00:00:22 verbose #74 > >
00:00:22 verbose #75 > > ╭─[ 8.39s - return value ]─────────────────────────────────────────────────────╮
00:00:22 verbose #76 > > │ assert_eq / actual: "0+0i" / expected: "0+0i" │
00:00:22 verbose #77 > > │ │
00:00:22 verbose #78 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #79 > >
00:00:22 verbose #80 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #81 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #82 > > │ ## complex_sin │
00:00:22 verbose #83 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #84 > >
00:00:22 verbose #85 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #86 > > inl re forall t. (c : complex t) : t =
00:00:22 verbose #87 > > inl c = join c
00:00:22 verbose #88 > > !\($'"!c.re"')
00:00:22 verbose #89 > >
00:00:22 verbose #90 > > inl im forall t. (c : complex t) : t =
00:00:22 verbose #91 > > inl c = join c
00:00:22 verbose #92 > > !\($'"!c.im"')
00:00:22 verbose #93 > >
00:00:22 verbose #94 > > inl complex_unbox forall t. (c : complex t) =
00:00:22 verbose #95 > > re c, im c
00:00:22 verbose #96 > >
00:00:22 verbose #97 > > inl (~.^) c = complex c
00:00:22 verbose #98 > >
00:00:22 verbose #99 > > inl complex_eq forall t. (a : complex t) (b : complex t) : bool =
00:00:22 verbose #100 > > !\($'"!a == !b"')
00:00:22 verbose #101 > >
00:00:22 verbose #102 > > inl (.=) a b = complex_eq a b
00:00:22 verbose #103 > >
00:00:22 verbose #104 > > instance equable complex t = complex_eq
00:00:22 verbose #105 > >
00:00:22 verbose #106 > > inl complex_add forall t. (a : complex t) (b : complex t) : complex t =
00:00:22 verbose #107 > > !\($'"!a + !b"')
00:00:22 verbose #108 > >
00:00:22 verbose #109 > > inl (.+) a b = complex_add a b
00:00:22 verbose #110 > >
00:00:22 verbose #111 > > inl complex_sub forall t. (a : complex t) (b : complex t) : complex t =
00:00:22 verbose #112 > > !\\((a, b), $'"$0 - $1"')
00:00:22 verbose #113 > >
00:00:22 verbose #114 > > inl (.-) a b = complex_sub a b
00:00:22 verbose #115 > >
00:00:22 verbose #116 > > inl complex_mult forall t. (a : complex t) (b : complex t) : complex t =
00:00:22 verbose #117 > > !\\((a, b), $'"$0 * $1"')
00:00:22 verbose #118 > >
00:00:22 verbose #119 > > inl (.*) a b = complex_mult a b
00:00:22 verbose #120 > >
00:00:22 verbose #121 > > inl complex_div forall t. (a : complex t) (b : complex t) : complex t =
00:00:22 verbose #122 > > !\($'"!a / !b"')
00:00:22 verbose #123 > >
00:00:22 verbose #124 > > inl (./) a b = complex_div a b
00:00:22 verbose #125 > >
00:00:22 verbose #126 > > inl powc forall t. (s : complex t) (c : complex t) : complex t =
00:00:22 verbose #127 > > inl c = join c
00:00:22 verbose #128 > > inl s = join s
00:00:22 verbose #129 > > !\($'"num_complex::Complex::powc(!c, !s)"')
00:00:22 verbose #130 > >
00:00:22 verbose #131 > > inl (.**) a b = powc b a
00:00:22 verbose #132 > >
00:00:22 verbose #133 > > inl complex_sin forall t. (c : complex t) : complex t =
00:00:22 verbose #134 > > !\($'"!c.sin()"')
00:00:22 verbose #135 > >
00:00:22 verbose #136 > > inl conj forall t. (c : complex t) : complex t =
00:00:22 verbose #137 > > !\($'"!c.conj()"')
00:00:22 verbose #138 > >
00:00:22 verbose #139 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #140 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #141 > > │ ## zeta │
00:00:22 verbose #142 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #143 > >
00:00:22 verbose #144 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #145 > > inl zeta log (gamma : complex f64 -> complex f64) (s : complex f64) : complex
00:00:22 verbose #146 > > f64 =
00:00:22 verbose #147 > > inl rec zeta count gamma s =
00:00:22 verbose #148 > > if log then
00:00:22 verbose #149 > > !\\(s, $'"println\!(\\\"zeta / count: {:?} / s: {:?}\\\", !count,
00:00:22 verbose #150 > > $0)"')
00:00:22 verbose #151 > > if re s > 1 then
00:00:22 verbose #152 > > (.^(0, 0), (am.init 10000i32 id : a i32 _))
00:00:22 verbose #153 > > ||> am.fold fun acc n =>
00:00:22 verbose #154 > > acc .+ (.^(1, 0) ./ (.^(f64 n, 0) .** s))
00:00:22 verbose #155 > > else
00:00:22 verbose #156 > > inl gamma_term = gamma (.^(1, 0) .- s)
00:00:22 verbose #157 > > inl sin_term = .^(pi, 0) .* s ./ .^(2, 0) |> complex_sin
00:00:22 verbose #158 > > inl one_minus_s = .^(1 - re s, -(im s))
00:00:22 verbose #159 > > inl mirror_term =
00:00:22 verbose #160 > > if re one_minus_s <= 1
00:00:22 verbose #161 > > then .^(0, 0)
00:00:22 verbose #162 > > else
00:00:22 verbose #163 > > if count <= 3
00:00:22 verbose #164 > > then zeta (count + 1) gamma one_minus_s
00:00:22 verbose #165 > > else one_minus_s
00:00:22 verbose #166 > > inl reflection_formula =
00:00:22 verbose #167 > > .^(2, 0) .* (.^(pi, 0) .** s) .* sin_term .* gamma_term .*
00:00:22 verbose #168 > > mirror_term
00:00:22 verbose #169 > > reflection_formula
00:00:22 verbose #170 > > join zeta 0i32 gamma s
00:00:23 verbose #171 > >
00:00:23 verbose #172 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #173 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #174 > > │ ## eval │
00:00:23 verbose #175 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #176 > >
00:00:23 verbose #177 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #178 > > inl module_from_code (py : python) (code : string) : _ (bound pymodule) _ =
00:00:23 verbose #179 > > inl py = join py
00:00:23 verbose #180 > > inl code = code |> sm'.as_str
00:00:23 verbose #181 > > !\($'"pyo3::types::PyModule::from_code_bound(!py, !code, \\"\\", \\"\\")"')
00:00:23 verbose #182 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:23 verbose #183 > >
00:00:23 verbose #184 > > inl use_pyanymethods () =
00:00:23 verbose #185 > > global "Fable.Core.RustInterop.emitRustExpr () \");\nuse
00:00:23 verbose #186 > > pyo3::prelude::PyAnyMethods;\n//\""
00:00:23 verbose #187 > >
00:00:23 verbose #188 > > inl getattr (attr : string) (module : bound pymodule) : _ (bound pyany) _ =
00:00:23 verbose #189 > > inl attr = join attr
00:00:23 verbose #190 > > inl attr = attr |> sm'.as_str
00:00:23 verbose #191 > > inl module = join module
00:00:23 verbose #192 > > use_pyanymethods ()
00:00:23 verbose #193 > > !\($'"!module.getattr(!attr)"')
00:00:23 verbose #194 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:23 verbose #195 > >
00:00:23 verbose #196 > > inl call forall t. (args : t) (module : bound pyany) : _ (bound pyany) _ =
00:00:23 verbose #197 > > inl args = join args
00:00:23 verbose #198 > > inl module = join module
00:00:23 verbose #199 > > !\($'"pyo3::prelude::PyAnyMethods::call(&!module, ((*!args).0, *(*!args).1),
00:00:23 verbose #200 > > None)"')
00:00:23 verbose #201 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:23 verbose #202 > >
00:00:23 verbose #203 > > inl extract forall t. (result : bound pyany) : _ t _ =
00:00:23 verbose #204 > > inl result = join result
00:00:23 verbose #205 > > use_pyanymethods ()
00:00:23 verbose #206 > > !\($'"!result.extract()"')
00:00:23 verbose #207 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:23 verbose #208 > >
00:00:23 verbose #209 > > inl eval py code (args : pair bool (pair f64 f64)) : _ (_ f64) sm'.std_string =
00:00:23 verbose #210 > > inl code =
00:00:23 verbose #211 > > code
00:00:23 verbose #212 > > |> module_from_code py
00:00:23 verbose #213 > > |> resultm.unwrap'
00:00:23 verbose #214 > > inl fn =
00:00:23 verbose #215 > > code
00:00:23 verbose #216 > > |> getattr "fn"
00:00:23 verbose #217 > > |> resultm.unwrap'
00:00:23 verbose #218 > >
00:00:23 verbose #219 > > fn
00:00:23 verbose #220 > > |> call args
00:00:23 verbose #221 > > |> resultm.try'
00:00:23 verbose #222 > > |> extract
00:00:23 verbose #223 > > |> resultm.try'
00:00:23 verbose #224 > > |> complex
00:00:23 verbose #225 > > |> Ok
00:00:23 verbose #226 > > |> resultm.box
00:00:23 verbose #227 > >
00:00:23 verbose #228 > > inl call1_ log py s code =
00:00:23 verbose #229 > > inl code = join (a code : _ i32 _) |> sm'.concat_array_trailing "\n"
00:00:23 verbose #230 > >
00:00:23 verbose #231 > > inl s = new_pair (re s) (im s)
00:00:23 verbose #232 > > inl args = new_pair log s
00:00:23 verbose #233 > >
00:00:23 verbose #234 > > eval py code args
00:00:23 verbose #235 > >
00:00:23 verbose #236 > > inl call1_ log name py s line =
00:00:23 verbose #237 > > inl s = join s
00:00:23 verbose #238 > > join
00:00:23 verbose #239 > > ;[[
00:00:23 verbose #240 > > $'$"import sys"'
00:00:23 verbose #241 > > $'$"import traceback"'
00:00:23 verbose #242 > > $'$"import re"'
00:00:23 verbose #243 > > $'$"count = 0"'
00:00:23 verbose #244 > > $'$"memory_address_pattern = re.compile(r\' at 0x[[0-9a-fA-F]]+\')"'
00:00:23 verbose #245 > > $'$"def trace_calls(frame, event, arg):"'
00:00:23 verbose #246 > > $'$" global count"'
00:00:23 verbose #247 > > $'$" count += 1"'
00:00:23 verbose #248 > > $'$" if count < 200:"'
00:00:23 verbose #249 > > $'$" try:"'
00:00:23 verbose #250 > > $'$" args = {{ k: v for k, v in frame.f_locals.items() if
00:00:23 verbose #251 > > frame.f_code.co_name \!= \'make_mpc\' and k not in [[\'ctx\']] and not
00:00:23 verbose #252 > > callable(v) }}"'
00:00:23 verbose #253 > > $'$" args_str = \', \'.join([[
00:00:23 verbose #254 > > f\\\"{{k}}={{re.sub(memory_address_pattern, \' at 0x<?>\', repr(v))}}\\\" for k,
00:00:23 verbose #255 > > v in args.items() ]])"'
00:00:23 verbose #256 > > $'$" print(f\\\"{{event}}({!name}) / f_code.co_name:
00:00:23 verbose #257 > > {{frame.f_code.co_name}} / f_locals: {{args_str}} / f_lineno: {{frame.f_lineno}}
00:00:23 verbose #258 > > / f_code.co_filename:
00:00:23 verbose #259 > > {{frame.f_code.co_filename.split(\'site-packages\')[[-1]]}} / f_back.f_lineno:
00:00:23 verbose #260 > > {{ \'\' if frame.f_back is None else frame.f_back.f_lineno }}
00:00:23 verbose #261 > > f_back.f_code.co_filename: {{ \'\' if frame.f_back is None else
00:00:23 verbose #262 > > frame.f_back.f_code.co_filename.split(\'site-packages\')[[-1]] }} / arg:
00:00:23 verbose #263 > > {{re.sub(memory_address_pattern, \' at 0x<?>\', repr(arg))}}\\\", flush=True)"'
00:00:23 verbose #264 > > $'$" except ValueError as e:"'
00:00:23 verbose #265 > > $'$" print(f\'{!name} / e: {{e}}\', flush=True)"'
00:00:23 verbose #266 > > $'$" return trace_calls"'
00:00:23 verbose #267 > > $'$"import mpmath"'
00:00:23 verbose #268 > > $'$"def fn(log, s):"'
00:00:23 verbose #269 > > $'$" global count"'
00:00:23 verbose #270 > > $'$" if log:"'
00:00:23 verbose #271 > > $'$" print(f\'{!name} / s: {{s}} / count: {{count}}\',
00:00:23 verbose #272 > > flush=True)"'
00:00:23 verbose #273 > > $'$" s = complex(*s)"'
00:00:23 verbose #274 > > $'$" try:"'
00:00:23 verbose #275 > > $'$" if log: sys.settrace(trace_calls)"'
00:00:23 verbose #276 > > line
00:00:23 verbose #277 > > $'$" if log:"'
00:00:23 verbose #278 > > $'$" sys.settrace(None)"'
00:00:23 verbose #279 > > $'$" print(f\'{!name} / result: {{s}} / count:
00:00:23 verbose #280 > > {{count}}\', flush=True)"'
00:00:23 verbose #281 > > $'$" except ValueError as e:"'
00:00:23 verbose #282 > > $'$" if s.real == 1:"'
00:00:23 verbose #283 > > $'$" s = complex(float(\'inf\'), 0)"'
00:00:23 verbose #284 > > $'$" return (s.real, s.imag)"'
00:00:23 verbose #285 > > ]]
00:00:23 verbose #286 > > |> call1_ log py s
00:00:23 verbose #287 > >
00:00:23 verbose #288 > > inl gamma_ log py s =
00:00:23 verbose #289 > > call1_ log "gamma_" py s $'$" s = mpmath.gamma(s)"'
00:00:23 verbose #290 > >
00:00:23 verbose #291 > > inl zeta_ log py s =
00:00:23 verbose #292 > > call1_ log "zeta_" py s $'$" s = mpmath.zeta(s)"'
00:00:24 verbose #293 > >
00:00:24 verbose #294 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:24 verbose #295 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:24 verbose #296 > > │ ## run_test │
00:00:24 verbose #297 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #298 > >
00:00:24 verbose #299 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #300 > > inl run_test log closure_fix (fn : (complex f64 -> complex f64) * (complex f64
00:00:24 verbose #301 > > -> complex f64) -> ()) =
00:00:24 verbose #302 > > inl fn_ (py : python) : resultm.result' () pyerr =
00:00:24 verbose #303 > > inl nan () =
00:00:24 verbose #304 > > !\($'"f64::NAN"')
00:00:24 verbose #305 > > inl gamma__ = fun (s : complex f64) =>
00:00:24 verbose #306 > > inl result = gamma_ log py s
00:00:24 verbose #307 > > if log then
00:00:24 verbose #308 > > inl s = join s
00:00:24 verbose #309 > > !\($'"println\!(\\\"gamma__ / s: {:?} / result: {:?}\\\", !s,
00:00:24 verbose #310 > > !result)"')
00:00:24 verbose #311 > > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:24 verbose #312 > > .^(nan (), nan ())
00:00:24 verbose #313 > > inl zeta__ = fun (s : complex f64) =>
00:00:24 verbose #314 > > inl result = zeta_ log py s
00:00:24 verbose #315 > >
00:00:24 verbose #316 > > inl z = zeta true gamma__ s
00:00:24 verbose #317 > >
00:00:24 verbose #318 > > if log then
00:00:24 verbose #319 > > inl s = join s
00:00:24 verbose #320 > > !\($'"println\!(\\\"zeta__ / s: {:?} / result: {:?} / z:
00:00:24 verbose #321 > > {:?}\\\", !s, !result, !z)"')
00:00:24 verbose #322 > >
00:00:24 verbose #323 > > // re result - re x |> abs
00:00:24 verbose #324 > > // |> _assert_lt 0.001
00:00:24 verbose #325 > >
00:00:24 verbose #326 > > // im result - im x |> abs
00:00:24 verbose #327 > > // |> _assert_lt 0.001
00:00:24 verbose #328 > >
00:00:24 verbose #329 > > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:24 verbose #330 > > .^(nan (), nan ())
00:00:24 verbose #331 > > join fn (zeta__, gamma__)
00:00:24 verbose #332 > >
00:00:24 verbose #333 > > Ok ()
00:00:24 verbose #334 > > |> resultm.box
00:00:24 verbose #335 > >
00:00:24 verbose #336 > > join
00:00:24 verbose #337 > > !\($'"pyo3::prepare_freethreaded_python()"') : ()
00:00:24 verbose #338 > >
00:00:24 verbose #339 > > !\($'"let __result = pyo3::Python::with_gil(|py| -> pyo3::PyResult<()> {
00:00:24 verbose #340 > > //"')
00:00:24 verbose #341 > >
00:00:24 verbose #342 > > let x' = fn_ (!\($'"py"') : python)
00:00:24 verbose #343 > > inl x' = join x'
00:00:24 verbose #344 > >
00:00:24 verbose #345 > > inl closure_fix = 2u8, 1u8
00:00:24 verbose #346 > > x' |> rust.fix_closure closure_fix
00:00:24 verbose #347 > >
00:00:24 verbose #348 > > (!\($'"__result"') : _ () pyerr)
00:00:24 verbose #349 > > |> resultm.unwrap'
00:00:24 verbose #350 > >
00:00:24 verbose #351 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:24 verbose #352 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:24 verbose #353 > > │ ## test_zeta_at_known_values_ │
00:00:24 verbose #354 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #355 > >
00:00:24 verbose #356 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #357 > > inl test_zeta_at_known_values_ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:24 verbose #358 > > ;[[
00:00:24 verbose #359 > > .^(2, 0), pi ** 2 / 6
00:00:24 verbose #360 > > .^(-1, 0), -1 / 12
00:00:24 verbose #361 > > ]]
00:00:24 verbose #362 > > |> fun x => a x : _ i32 _
00:00:24 verbose #363 > > |> am.iter fun s, e =>
00:00:24 verbose #364 > > inl result = zeta s
00:00:24 verbose #365 > >
00:00:24 verbose #366 > > result |> im |> _assert_eq 0
00:00:24 verbose #367 > > re result - e |> abs |> _assert_lt 0.0001
00:00:25 verbose #368 > >
00:00:25 verbose #369 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #370 > > //// test
00:00:25 verbose #371 > > ///! rust -d num-complex pyo3
00:00:25 verbose #372 > >
00:00:25 verbose #373 > > types ()
00:00:25 verbose #374 > > test_zeta_at_known_values_ true
00:00:36 verbose #375 > >
00:00:36 verbose #376 > > ╭─[ 10.62s - return value ]────────────────────────────────────────────────────╮
00:00:36 verbose #377 > > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:00:36 verbose #378 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:36 verbose #379 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:36 verbose #380 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #381 > > │ / arg: None │
00:00:36 verbose #382 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:36 verbose #383 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:36 verbose #384 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #385 > > │ / arg: None │
00:00:36 verbose #386 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:36 verbose #387 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:36 verbose #388 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #389 > > │ / arg: None │
00:00:36 verbose #390 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:36 verbose #391 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:36 verbose #392 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #393 > > │ / arg: None │
00:00:36 verbose #394 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:36 verbose #395 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:36 verbose #396 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:36 verbose #397 > > │ / arg: None │
00:00:36 verbose #398 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:00:36 verbose #399 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:00:36 verbose #400 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:00:36 verbose #401 > > │ / arg: None │
00:00:36 verbose #402 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:00:36 verbose #403 > > │ / f_line...o_name: make_mpc / f_locals: / f_lineno: 768 / │
00:00:36 verbose #404 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:36 verbose #405 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:36 verbose #406 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 769 / │
00:00:36 verbose #407 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:36 verbose #408 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:36 verbose #409 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:36 verbose #410 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:36 verbose #411 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:36 verbose #412 > > │ return(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:36 verbose #413 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:36 verbose #414 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: mpc(real='1.0', │
00:00:36 verbose #415 > > │ imag='0.0') │
00:00:36 verbose #416 > > │ return(gamma_) / f_code.co_name: f / f_locals: x=mpc(real='2.0', │
00:00:36 verbose #417 > > │ imag='0.0'), kwargs={}, name='gamma', prec=53, rounding='n' / f_lineno: 1131 │
00:00:36 verbose #418 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 25 / │
00:00:36 verbose #419 > > │ f_back.f_code.co_filename: / arg: mpc(real='1.0', imag='0.0') │
00:00:36 verbose #420 > > │ gamma_ / result: (1.0 + 0.0j) / count: 161 │
00:00:36 verbose #421 > > │ gamma__ / s: Complex { re: 2.0, im: 0.0 } / result: Ok(Complex { re: 1.0, │
00:00:36 verbose #422 > > │ im: 0.0 }) │
00:00:36 verbose #423 > > │ zeta / count: 1 / s: Complex { re: 2.0, im: -0.0 } │
00:00:36 verbose #424 > > │ zeta__ / s: Complex { re: -1.0, im: 0.0 } / result: Ok(Complex { re: │
00:00:36 verbose #425 > > │ -0.08333333333333333, im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:00:36 verbose #426 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:36 verbose #427 > > │ assert_lt / actual: 0.0 / expected: 0.0001 │
00:00:36 verbose #428 > > │ │
00:00:36 verbose #429 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #430 > >
00:00:36 verbose #431 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #432 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #433 > > │ ## test_zeta_at_2_minus2 │
00:00:36 verbose #434 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #435 > >
00:00:36 verbose #436 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #437 > > inl test_zeta_at_2_minus2 log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:00:36 verbose #438 > > inl s = .^(2, -2)
00:00:36 verbose #439 > > inl result = zeta s
00:00:36 verbose #440 > >
00:00:36 verbose #441 > > (re result - 0.8673) |> abs |> _assert_lt 0.001
00:00:36 verbose #442 > > (im result - 0.2750) |> abs |> _assert_lt 0.001
00:00:36 verbose #443 > >
00:00:36 verbose #444 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #445 > > //// test
00:00:36 verbose #446 > > ///! rust -d num-complex pyo3
00:00:36 verbose #447 > >
00:00:36 verbose #448 > > types ()
00:00:36 verbose #449 > > test_zeta_at_2_minus2 true
00:00:42 verbose #450 > >
00:00:42 verbose #451 > > ╭─[ 5.37s - return value ]─────────────────────────────────────────────────────╮
00:00:42 verbose #452 > > │ zeta_ / s: (2.0, -2.0) / count: 0 │
00:00:42 verbose #453 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:42 verbose #454 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:42 verbose #455 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:42 verbose #456 > > │ / arg: None │
00:00:42 verbose #457 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:42 verbose #458 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:42 verbose #459 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:42 verbose #460 > > │ / arg: None │
00:00:42 verbose #461 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:42 verbose #462 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:42 verbose #463 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:42 verbose #464 > > │ / arg: None │
00:00:42 verbose #465 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:42 verbose #466 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:42 verbose #467 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:42 verbose #468 > > │ / arg: None │
00:00:42 verbose #469 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:42 verbose #470 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:42 verbose #471 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:42 verbose #472 > > │ / arg: None │
00:00:42 verbose #473 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2-2j), kwargs={}, name='zeta' │
00:00:42 verbose #474 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:00:42 verbose #475 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:00:42 verbose #476 > > │ / arg: None │
00:00:42 verbose #477 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2-2j), kwargs={}, name='zeta' │
00:00:42 verbose #478 > > │ / f_lin..., 1, 2, 1), prec=14, rnd='d', _sub=0, ssign=0, sman=1, sexp=2, │
00:00:42 verbose #479 > > │ sbc=1, tsign=0, tman=1, texp=2, tbc=1, offset=0, man=2 / f_lineno: 665 / │
00:00:42 verbose #480 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 1322 / │
00:00:42 verbose #481 > > │ f_back.f_code.co_filename: \mpmath\libmp\libmpf.py / arg: None │
00:00:42 verbose #482 > > │ line(zeta_) / f_code.co_name: mpf_add / f_locals: s=(0, 1, 2, 1), t=(0, 1, │
00:00:42 verbose #483 > > │ 2, 1), prec=14, rnd='d', _sub=0, ssign=0, sman=1, sexp=2, sbc=1, tsign=0, │
00:00:42 verbose #484 > > │ tman=1, texp=2, tbc=1, offset=0, man=2, bc=2 / f_lineno: 666 / │
00:00:42 verbose #485 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 1322 / │
00:00:42 verbose #486 > > │ f_back.f_code.co_filename: \mpmath\libmp\libmpf.py / arg: None │
00:00:42 verbose #487 > > │ call(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=2, exp=2, │
00:00:42 verbose #488 > > │ bc=2, prec=14, rnd='d' / f_lineno: 185 / f_code.co_filename: │
00:00:42 verbose #489 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:00:42 verbose #490 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:00:42 verbose #491 > > │ line(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=2, exp=2, │
00:00:42 verbose #492 > > │ bc=2, prec=14, rnd='d' / f_lineno: 186 / f_code.co_filename: │
00:00:42 verbose #493 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:00:42 verbose #494 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:00:42 verbose #495 > > │ zeta_ / result: (0.867351829635993 + 0.275127238807858j) / count: 1553 │
00:00:42 verbose #496 > > │ zeta / count: 0 / s: Complex { re: 2.0, im: -2.0 } │
00:00:42 verbose #497 > > │ zeta__ / s: Complex { re: 2.0, im: -2.0 } / result: Ok(Complex { re: │
00:00:42 verbose #498 > > │ 0.8673518296359931, im: 0.27512723880785767 }) / z: Complex { re: NaN, im: │
00:00:42 verbose #499 > > │ NaN } │
00:00:42 verbose #500 > > │ assert_lt / actual: 5.182963599315027e-5 / expected: 0.001 │
00:00:42 verbose #501 > > │ assert_lt / actual: 0.00012723880785764363 / expected: 0.001 │
00:00:42 verbose #502 > > │ │
00:00:42 verbose #503 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #504 > >
00:00:42 verbose #505 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:42 verbose #506 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:42 verbose #507 > > │ ## test_trivial_zero_at_negative_even___ │
00:00:42 verbose #508 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #509 > >
00:00:42 verbose #510 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #511 > > inl test_trivial_zero_at_negative_even___ log = run_test log (2u8, 1u8) fun
00:00:42 verbose #512 > > zeta, gamma =>
00:00:42 verbose #513 > > (join listm'.init_series -2f64 -40 -2)
00:00:42 verbose #514 > > |> listm.iter fun n =>
00:00:42 verbose #515 > > inl s = .^(n, 0)
00:00:42 verbose #516 > > inl result = zeta s
00:00:42 verbose #517 > >
00:00:42 verbose #518 > > result |> re |> _assert_eq 0
00:00:42 verbose #519 > > result |> im |> _assert_eq 0
00:00:42 verbose #520 > >
00:00:42 verbose #521 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #522 > > //// test
00:00:42 verbose #523 > > ///! rust -d num-complex pyo3
00:00:42 verbose #524 > >
00:00:42 verbose #525 > > types ()
00:00:42 verbose #526 > > test_trivial_zero_at_negative_even___ true
00:00:51 verbose #527 > >
00:00:51 verbose #528 > > ╭─[ 8.46s - return value ]─────────────────────────────────────────────────────╮
00:00:51 verbose #529 > > │ zeta_ / s: (-2.0, 0.0) / count: 0 │
00:00:51 verbose #530 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:51 verbose #531 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:51 verbose #532 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:51 verbose #533 > > │ / arg: None │
00:00:51 verbose #534 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:51 verbose #535 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:51 verbose #536 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:51 verbose #537 > > │ / arg: None │
00:00:51 verbose #538 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:51 verbose #539 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:51 verbose #540 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:51 verbose #541 > > │ / arg: None │
00:00:51 verbose #542 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:51 verbose #543 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:51 verbose #544 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:51 verbose #545 > > │ / arg: None │
00:00:51 verbose #546 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:51 verbose #547 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:51 verbose #548 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:51 verbose #549 > > │ / arg: None │
00:00:51 verbose #550 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(-2+0j), kwargs={}, │
00:00:51 verbose #551 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:00:51 verbose #552 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:00:51 verbose #553 > > │ \mpmath\functions\zeta.py / arg: None │
00:00:51 verbose #554 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(-2+0j), kwargs={}, │
00:00:51 verbose #555 > > │ name='zeta' ...o_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 │
00:00:51 verbose #556 > > │ / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:51 verbose #557 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 769 / │
00:00:51 verbose #558 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:51 verbose #559 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:51 verbose #560 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:51 verbose #561 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:51 verbose #562 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:51 verbose #563 > > │ return(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:51 verbose #564 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:51 verbose #565 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: │
00:00:51 verbose #566 > > │ mpc(real='8.1591528324789768e+47', imag='0.0') │
00:00:51 verbose #567 > > │ return(gamma_) / f_code.co_name: f / f_locals: x=mpc(real='41.0', │
00:00:51 verbose #568 > > │ imag='0.0'), kwargs={}, name='gamma', prec=53, rounding='n' / f_lineno: 1131 │
00:00:51 verbose #569 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 25 / │
00:00:51 verbose #570 > > │ f_back.f_code.co_filename: / arg: mpc(real='8.1591528324789768e+47', │
00:00:51 verbose #571 > > │ imag='0.0') │
00:00:51 verbose #572 > > │ gamma_ / result: (8.15915283247898e+47 + 0.0j) / count: 166 │
00:00:51 verbose #573 > > │ gamma__ / s: Complex { re: 41.0, im: 0.0 } / result: Ok(Complex { re: │
00:00:51 verbose #574 > > │ 8.159152832478977e47, im: 0.0 }) │
00:00:51 verbose #575 > > │ zeta / count: 1 / s: Complex { re: 41.0, im: -0.0 } │
00:00:51 verbose #576 > > │ zeta__ / s: Complex { re: -40.0, im: 0.0 } / result: Ok(Complex { re: 0.0, │
00:00:51 verbose #577 > > │ im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:00:51 verbose #578 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:51 verbose #579 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:51 verbose #580 > > │ │
00:00:51 verbose #581 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 verbose #582 > >
00:00:51 verbose #583 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:51 verbose #584 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:51 verbose #585 > > │ ## test_non_trivial_zero___ │
00:00:51 verbose #586 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 verbose #587 > >
00:00:51 verbose #588 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:51 verbose #589 > > inl test_non_trivial_zero___ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:51 verbose #590 > > ;[[
00:00:51 verbose #591 > > .^(0.5, 14.134725)
00:00:51 verbose #592 > > .^(0.5, 21.022040)
00:00:51 verbose #593 > > .^(0.5, 25.010857)
00:00:51 verbose #594 > > .^(0.5, 30.424876)
00:00:51 verbose #595 > > .^(0.5, 32.935062)
00:00:51 verbose #596 > > .^(0.5, 37.586178)
00:00:51 verbose #597 > > ]]
00:00:51 verbose #598 > > |> fun x => a x : _ i32 _
00:00:51 verbose #599 > > |> am.iter fun x =>
00:00:51 verbose #600 > > inl result = zeta x
00:00:51 verbose #601 > > result |> re |> abs |> _assert_lt 0.0001
00:00:51 verbose #602 > > result |> im |> abs |> _assert_lt 0.0001
00:00:51 verbose #603 > >
00:00:51 verbose #604 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:51 verbose #605 > > //// test
00:00:51 verbose #606 > > ///! rust -d num-complex pyo3
00:00:51 verbose #607 > >
00:00:51 verbose #608 > > types ()
00:00:51 verbose #609 > > test_non_trivial_zero___ true
00:00:56 verbose #610 > >
00:00:56 verbose #611 > > ╭─[ 5.08s - return value ]─────────────────────────────────────────────────────╮
00:00:56 verbose #612 > > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:00:56 verbose #613 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:56 verbose #614 > > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:56 verbose #615 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:56 verbose #616 > > │ / arg: None │
00:00:56 verbose #617 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:56 verbose #618 > > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:56 verbose #619 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:56 verbose #620 > > │ / arg: None │
00:00:56 verbose #621 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:56 verbose #622 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:00:56 verbose #623 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:56 verbose #624 > > │ f_back.f_code.co_filename: / arg: None │
00:00:56 verbose #625 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:56 verbose #626 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 534 / │
00:00:56 verbose #627 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:56 verbose #628 > > │ f_back.f_code.co_filename: / arg: None │
00:00:56 verbose #629 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:56 verbose #630 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:00:56 verbose #631 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:56 verbose #632 > > │ f_back.f_code.co_filename: / arg: None │
00:00:56 verbose #633 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(0.5+14.134725j), kwargs={}, │
00:00:56 verbose #634 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:00:56 verbose #635 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:00:56 verbose #636 > > │ \mpmath\functions\zeta.py / arg: None │
00:00:56 verbose #637 > > │ line(zeta_) / f_cod...ta.py / arg: None │
00:00:56 verbose #638 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: │
00:00:56 verbose #639 > > │ x=1208925819614629174706176, y=-90877802089662679288381440, prec=81, │
00:00:56 verbose #640 > > │ _m=3416353708500640443578529333, tre=-1816151534455075068, │
00:00:56 verbose #641 > > │ tim=-45486653225747820096, ure=-1710577520534459139249, │
00:00:56 verbose #642 > > │ uim=45518868236127668552, sre=1013002518538853602038572, │
00:00:56 verbose #643 > > │ sim=90883161825546323029600502 / f_lineno: 1629 / f_code.co_filename: │
00:00:56 verbose #644 > > │ \mpmath\libmp\gammazeta.py / f_back.f_lineno: 2041 / │
00:00:56 verbose #645 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:00:56 verbose #646 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: │
00:00:56 verbose #647 > > │ x=1208925819614629174706176, y=-90877802089662679288381440, prec=81, │
00:00:56 verbose #648 > > │ _m=3416353708500640443578529333, tre=-1816151534455075068, │
00:00:56 verbose #649 > > │ tim=-45486653225747820096, ure=-1710577520534459139249, │
00:00:56 verbose #650 > > │ uim=45518868236127668552, sre=1013002523583718975524892, │
00:00:56 verbose #651 > > │ sim=90883161951898137545566669 / f_lineno: 1630 / f_code.co_filename: │
00:00:56 verbose #652 > > │ \mpmath\libmp\gammazeta.py / f_back.f_lineno: 2041 / │
00:00:56 verbose #653 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:00:56 verbose #654 > > │ gamma_ / result: (-1.32798420042152e-26 + 5.5751975252688e-26j) / count: 301 │
00:00:56 verbose #655 > > │ gamma__ / s: Complex { re: 0.5, im: -37.586178 } / result: Ok(Complex { re: │
00:00:56 verbose #656 > > │ -1.3279842004215153e-26, im: 5.575197525268802e-26 }) │
00:00:56 verbose #657 > > │ zeta__ / s: Complex { re: 0.5, im: 37.586178 } / result: Ok(Complex { re: │
00:00:56 verbose #658 > > │ -8.910186507947958e-8, im: -2.943780446402868e-7 }) / z: Complex { re: -0.0, │
00:00:56 verbose #659 > > │ im: 0.0 } │
00:00:56 verbose #660 > > │ assert_lt / actual: 8.910186507947958e-8 / expected: 0.0001 │
00:00:56 verbose #661 > > │ assert_lt / actual: 2.943780446402868e-7 / expected: 0.0001 │
00:00:56 verbose #662 > > │ │
00:00:56 verbose #663 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 verbose #664 > >
00:00:56 verbose #665 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:56 verbose #666 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:56 verbose #667 > > │ ## test_real_part_greater_than_one___ │
00:00:56 verbose #668 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 verbose #669 > >
00:00:56 verbose #670 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #671 > > inl test_real_part_greater_than_one___ log = run_test log (3u8, 2u8) fun zeta,
00:00:56 verbose #672 > > gamma =>
00:00:56 verbose #673 > > inl points = ;[[2; 3; 4; 5; 10; 20; 50]]
00:00:56 verbose #674 > > (a points : _ i32 _)
00:00:56 verbose #675 > > |> am.iter fun point =>
00:00:56 verbose #676 > > inl s = .^(point, 0)
00:00:56 verbose #677 > > inl result = zeta s
00:00:56 verbose #678 > > result |> re |> _assert_gt 0
00:00:56 verbose #679 > > result |> im |> _assert_eq 0
00:00:57 verbose #680 > >
00:00:57 verbose #681 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #682 > > //// test
00:00:57 verbose #683 > > ///! rust -d num-complex pyo3
00:00:57 verbose #684 > >
00:00:57 verbose #685 > > types ()
00:00:57 verbose #686 > > test_real_part_greater_than_one___ true
00:01:02 verbose #687 > >
00:01:02 verbose #688 > > ╭─[ 5.29s - return value ]─────────────────────────────────────────────────────╮
00:01:02 verbose #689 > > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:01:02 verbose #690 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:02 verbose #691 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:02 verbose #692 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:02 verbose #693 > > │ / arg: None │
00:01:02 verbose #694 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:02 verbose #695 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:02 verbose #696 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:02 verbose #697 > > │ / arg: None │
00:01:02 verbose #698 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:02 verbose #699 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:02 verbose #700 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:02 verbose #701 > > │ / arg: None │
00:01:02 verbose #702 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:02 verbose #703 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:02 verbose #704 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:02 verbose #705 > > │ / arg: None │
00:01:02 verbose #706 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:02 verbose #707 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:02 verbose #708 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:02 verbose #709 > > │ / arg: None │
00:01:02 verbose #710 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:01:02 verbose #711 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:02 verbose #712 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:02 verbose #713 > > │ / arg: None │
00:01:02 verbose #714 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:01:02 verbose #715 > > │ / f_line...9 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:02 verbose #716 > > │ f_back.f_lineno: 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:02 verbose #717 > > │ / arg: None │
00:01:02 verbose #718 > > │ line(zeta_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:01:02 verbose #719 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:01:02 verbose #720 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:01:02 verbose #721 > > │ return(zeta_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:01:02 verbose #722 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:01:02 verbose #723 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: │
00:01:02 verbose #724 > > │ mpc(real='1.0000000000000009', imag='0.0') │
00:01:02 verbose #725 > > │ return(zeta_) / f_code.co_name: f / f_locals: x=mpc(real='50.0', │
00:01:02 verbose #726 > > │ imag='0.0'), kwargs={}, name='zeta', prec=53, rounding='n' / f_lineno: 1131 │
00:01:02 verbose #727 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 535 / │
00:01:02 verbose #728 > > │ f_back.f_code.co_filename: \mpmath\functions\zeta.py / arg: │
00:01:02 verbose #729 > > │ mpc(real='1.0000000000000009', imag='0.0') │
00:01:02 verbose #730 > > │ return(zeta_) / f_code.co_name: zeta / f_locals: s=(50+0j), a=1, │
00:01:02 verbose #731 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:01:02 verbose #732 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:02 verbose #733 > > │ f_back.f_code.co_filename: / arg: mpc(real='1.0000000000000009', │
00:01:02 verbose #734 > > │ imag='0.0') │
00:01:02 verbose #735 > > │ zeta_ / result: (1.0 + 0.0j) / count: 193 │
00:01:02 verbose #736 > > │ zeta / count: 0 / s: Complex { re: 50.0, im: 0.0 } │
00:01:02 verbose #737 > > │ zeta__ / s: Complex { re: 50.0, im: 0.0 } / result: Ok(Complex { re: │
00:01:02 verbose #738 > > │ 1.0000000000000009, im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:01:02 verbose #739 > > │ assert_gt / actual: 1.0000000000000009 / expected: 0.0 │
00:01:02 verbose #740 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:01:02 verbose #741 > > │ │
00:01:02 verbose #742 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:02 verbose #743 > >
00:01:02 verbose #744 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:02 verbose #745 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:02 verbose #746 > > │ ## test_zeta_at_1___ │
00:01:02 verbose #747 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:02 verbose #748 > >
00:01:02 verbose #749 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:02 verbose #750 > > inl test_zeta_at_1___ log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:01:02 verbose #751 > > inl s = .^(1, 0)
00:01:02 verbose #752 > > inl result = zeta s
00:01:02 verbose #753 > > result |> re |> _assert_eq limit.max
00:01:02 verbose #754 > > result |> im |> _assert_eq 0
00:01:03 verbose #755 > >
00:01:03 verbose #756 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:03 verbose #757 > > //// test
00:01:03 verbose #758 > > ///! rust -d num-complex pyo3
00:01:03 verbose #759 > >
00:01:03 verbose #760 > > types ()
00:01:03 verbose #761 > > test_zeta_at_1___ true
00:01:10 verbose #762 > >
00:01:10 verbose #763 > > ╭─[ 6.65s - return value ]─────────────────────────────────────────────────────╮
00:01:10 verbose #764 > > │ zeta_ / s: (1.0, 0.0) / count: 0 │
00:01:10 verbose #765 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:10 verbose #766 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:10 verbose #767 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 verbose #768 > > │ / arg: None │
00:01:10 verbose #769 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:10 verbose #770 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:10 verbose #771 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 verbose #772 > > │ / arg: None │
00:01:10 verbose #773 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:10 verbose #774 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:10 verbose #775 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 verbose #776 > > │ / arg: None │
00:01:10 verbose #777 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:10 verbose #778 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:10 verbose #779 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 verbose #780 > > │ / arg: None │
00:01:10 verbose #781 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:10 verbose #782 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:10 verbose #783 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 verbose #784 > > │ / arg: None │
00:01:10 verbose #785 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(1+0j), kwargs={}, name='zeta' │
00:01:10 verbose #786 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:10 verbose #787 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:10 verbose #788 > > │ / arg: None │
00:01:10 verbose #789 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(1+0j), kwargs={}, name='zeta' │
00:01:10 verbose #790 > > │ / f_line...raceback object at 0x<?>>) │
00:01:10 verbose #791 > > │ return(gamma_) / f_code.co_name: f / f_locals: x=mpc(real='0.0', │
00:01:10 verbose #792 > > │ imag='0.0'), kwargs={}, name='gamma', prec=53, rounding='n' / f_lineno: 1131 │
00:01:10 verbose #793 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 25 / │
00:01:10 verbose #794 > > │ f_back.f_code.co_filename: / arg: None │
00:01:10 verbose #795 > > │ exception(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / │
00:01:10 verbose #796 > > │ f_lineno: 25 / f_code.co_filename: / f_back.f_lineno: / │
00:01:10 verbose #797 > > │ f_back.f_code.co_filename: / arg: (<class 'ValueError'>, ValueError('gamma │
00:01:10 verbose #798 > > │ function pole'), <traceback object at 0x<?>>) │
00:01:10 verbose #799 > > │ line(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / f_lineno: 29 │
00:01:10 verbose #800 > > │ / f_code.co_filename: / f_back.f_lineno: / f_back.f_code.co_filename: / │
00:01:10 verbose #801 > > │ arg: None │
00:01:10 verbose #802 > > │ line(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j, │
00:01:10 verbose #803 > > │ e=ValueError('gamma function pole') / f_lineno: 30 / f_code.co_filename: / │
00:01:10 verbose #804 > > │ f_back.f_lineno: / f_back.f_code.co_filename: / arg: None │
00:01:10 verbose #805 > > │ line(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / f_lineno: 32 │
00:01:10 verbose #806 > > │ / f_code.co_filename: / f_back.f_lineno: / f_back.f_code.co_filename: / │
00:01:10 verbose #807 > > │ arg: None │
00:01:10 verbose #808 > > │ return(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / f_lineno: │
00:01:10 verbose #809 > > │ 32 / f_code.co_filename: / f_back.f_lineno: / f_back.f_code.co_filename: │
00:01:10 verbose #810 > > │ / arg: (0.0, 0.0) │
00:01:10 verbose #811 > > │ gamma__ / s: Complex { re: 0.0, im: 0.0 } / result: Ok(Complex { re: 0.0, │
00:01:10 verbose #812 > > │ im: 0.0 }) │
00:01:10 verbose #813 > > │ zeta__ / s: Complex { re: 1.0, im: 0.0 } / result: Ok(Complex { re: inf, im: │
00:01:10 verbose #814 > > │ 0.0 }) / z: Complex { re: 0.0, im: 0.0 } │
00:01:10 verbose #815 > > │ assert_eq / actual: inf / expected: inf │
00:01:10 verbose #816 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:01:10 verbose #817 > > │ │
00:01:10 verbose #818 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:10 verbose #819 > >
00:01:10 verbose #820 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:10 verbose #821 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:10 verbose #822 > > │ ## test_symmetry_across_real_axis___ │
00:01:10 verbose #823 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:10 verbose #824 > >
00:01:10 verbose #825 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:10 verbose #826 > > inl test_symmetry_across_real_axis___ log = run_test log (8u8, 7u8) fun zeta,
00:01:10 verbose #827 > > gamma =>
00:01:10 verbose #828 > > inl s = .^(2, 10)
00:01:10 verbose #829 > > inl result_positive_im = zeta s
00:01:10 verbose #830 > > inl result_negative_im = zeta .^(re s, -(im s))
00:01:10 verbose #831 > > inl conj = result_negative_im |> conj
00:01:10 verbose #832 > > result_positive_im |> re |> _assert_eq (conj |> re)
00:01:10 verbose #833 > > result_positive_im |> im |> _assert_eq (conj |> im)
00:01:11 verbose #834 > >
00:01:11 verbose #835 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 verbose #836 > > //// test
00:01:11 verbose #837 > > ///! rust -d num-complex pyo3
00:01:11 verbose #838 > >
00:01:11 verbose #839 > > types ()
00:01:11 verbose #840 > > test_symmetry_across_real_axis___ true
00:01:19 verbose #841 > >
00:01:19 verbose #842 > > ╭─[ 8.19s - return value ]─────────────────────────────────────────────────────╮
00:01:19 verbose #843 > > │ zeta_ / s: (2.0, 10.0) / count: 0 │
00:01:19 verbose #844 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:19 verbose #845 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:19 verbose #846 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:19 verbose #847 > > │ / arg: None │
00:01:19 verbose #848 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:19 verbose #849 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:19 verbose #850 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:19 verbose #851 > > │ / arg: None │
00:01:19 verbose #852 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:19 verbose #853 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:19 verbose #854 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:19 verbose #855 > > │ / arg: None │
00:01:19 verbose #856 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:19 verbose #857 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:19 verbose #858 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:19 verbose #859 > > │ / arg: None │
00:01:19 verbose #860 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:19 verbose #861 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:19 verbose #862 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:19 verbose #863 > > │ / arg: None │
00:01:19 verbose #864 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+10j), kwargs={}, │
00:01:19 verbose #865 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:19 verbose #866 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:01:19 verbose #867 > > │ \mpmath\functions\zeta.py / arg: None │
00:01:19 verbose #868 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+10j), kwargs={}, │
00:01:19 verbose #869 > > │ name='zeta' ...) / f_code.co_name: mpf_add / f_locals: s=(0, 1, 2, 1), t=(0, │
00:01:19 verbose #870 > > │ 25, 2, 5), prec=14, rnd='d', _sub=0, ssign=0, sman=1, sexp=2, sbc=1, │
00:01:19 verbose #871 > > │ tsign=0, tman=25, texp=2, tbc=5, offset=0, man=26, bc=5 / f_lineno: 666 / │
00:01:19 verbose #872 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 1322 / │
00:01:19 verbose #873 > > │ f_back.f_code.co_filename: \mpmath\libmp\libmpf.py / arg: None │
00:01:19 verbose #874 > > │ call(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=26, exp=2, │
00:01:19 verbose #875 > > │ bc=5, prec=14, rnd='d' / f_lineno: 185 / f_code.co_filename: │
00:01:19 verbose #876 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:01:19 verbose #877 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:01:19 verbose #878 > > │ line(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=26, exp=2, │
00:01:19 verbose #879 > > │ bc=5, prec=14, rnd='d' / f_lineno: 186 / f_code.co_filename: │
00:01:19 verbose #880 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:01:19 verbose #881 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:01:19 verbose #882 > > │ line(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=26, exp=2, │
00:01:19 verbose #883 > > │ bc=5, prec=14, rnd='d' / f_lineno: 187 / f_code.co_filename: │
00:01:19 verbose #884 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:01:19 verbose #885 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:01:19 verbose #886 > > │ zeta_ / result: (1.19798250067418 + 0.0791704917205257j) / count: 1031 │
00:01:19 verbose #887 > > │ zeta / count: 0 / s: Complex { re: 2.0, im: -10.0 } │
00:01:19 verbose #888 > > │ zeta__ / s: Complex { re: 2.0, im: -10.0 } / result: Ok(Complex { re: │
00:01:19 verbose #889 > > │ 1.1979825006741847, im: 0.07917049172052575 }) / z: Complex { re: NaN, im: │
00:01:19 verbose #890 > > │ NaN } │
00:01:19 verbose #891 > > │ assert_eq / actual: 1.1979825006741847 / expected: 1.1979825006741847 │
00:01:19 verbose #892 > > │ assert_eq / actual: -0.07917049172052575 / expected: -0.07917049172052575 │
00:01:19 verbose #893 > > │ │
00:01:19 verbose #894 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 verbose #895 > >
00:01:19 verbose #896 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 verbose #897 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 verbose #898 > > │ ## test_behavior_near_origin___ │
00:01:19 verbose #899 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 verbose #900 > >
00:01:19 verbose #901 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #902 > > inl test_behavior_near_origin___ log = run_test log (6u8, 5u8) fun zeta, gamma
00:01:19 verbose #903 > > =>
00:01:19 verbose #904 > > inl s = .^(0.01, 0.01)
00:01:19 verbose #905 > > inl result = zeta s
00:01:19 verbose #906 > > result |> re |> _assert_lt limit.max
00:01:19 verbose #907 > > result |> im |> _assert_lt limit.max
00:01:20 verbose #908 > >
00:01:20 verbose #909 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #910 > > //// test
00:01:20 verbose #911 > > ///! rust -d num-complex pyo3
00:01:20 verbose #912 > >
00:01:20 verbose #913 > > types ()
00:01:20 verbose #914 > > test_behavior_near_origin___ true
00:01:29 verbose #915 > >
00:01:29 verbose #916 > > ╭─[ 9.00s - return value ]─────────────────────────────────────────────────────╮
00:01:29 verbose #917 > > │ zeta_ / s: (0.01, 0.01) / count: 0 │
00:01:29 verbose #918 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #919 > > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:29 verbose #920 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:29 verbose #921 > > │ / arg: None │
00:01:29 verbose #922 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #923 > > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:29 verbose #924 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:29 verbose #925 > > │ / arg: None │
00:01:29 verbose #926 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #927 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:29 verbose #928 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:29 verbose #929 > > │ f_back.f_code.co_filename: / arg: None │
00:01:29 verbose #930 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #931 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 534 / │
00:01:29 verbose #932 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:29 verbose #933 > > │ f_back.f_code.co_filename: / arg: None │
00:01:29 verbose #934 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:29 verbose #935 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:01:29 verbose #936 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:29 verbose #937 > > │ f_back.f_code.co_filename: / arg: None │
00:01:29 verbose #938 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(0.01+0.01j), kwargs={}, │
00:01:29 verbose #939 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:29 verbose #940 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:01:29 verbose #941 > > │ \mpmath\functions\zeta.py / arg: None │
00:01:29 verbose #942 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(...eta.py / f_back.f_lineno: │
00:01:29 verbose #943 > > │ 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:01:29 verbose #944 > > │ line(gamma_) / f_code.co_name: mpc_gamma / f_locals: z=((0, │
00:01:29 verbose #945 > > │ 4458563631096791, -52, 52), (1, 5764607523034235, -59, 53)), prec=53, │
00:01:29 verbose #946 > > │ rnd='n', type=0, a=(0, 4458563631096791, -52, 52), b=(1, 5764607523034235, │
00:01:29 verbose #947 > > │ -59, 53), asign=0, aman=4458563631096791, aexp=-52, abc=52, bsign=1, │
00:01:29 verbose #948 > > │ bman=5764607523034235, bexp=-59, bbc=53, wp=73, amag=0, bmag=-6, mag=0, │
00:01:29 verbose #949 > > │ an=0, bn=0, absn=0j, gamma_size=0, need_reflection=0, zorig=((0, │
00:01:29 verbose #950 > > │ 4458563631096791, -52, 52), (1, 5764607523034235, -59, 53)), yfinal=0, │
00:01:29 verbose #951 > > │ balance_prec=0, n_for_stirling=14, need_reduction=True, │
00:01:29 verbose #952 > > │ afix=132131814190692672995328, bfix=-94447329657392906240, r=0, zprered=((0, │
00:01:29 verbose #953 > > │ 4458563631096791, -52, 52), (1, 5764607523034235, -59, 53)), d=14, │
00:01:29 verbose #954 > > │ rre=56942610883563778729574216337150, one=9444732965739290427392, │
00:01:29 verbose #955 > > │ rim=-1820461636508155576115177658065, k=13 / f_lineno: 2035 / │
00:01:29 verbose #956 > > │ f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: 1131 / │
00:01:29 verbose #957 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:01:29 verbose #958 > > │ gamma_ / result: (1.00577030202902 + 0.0059717824054102j) / count: 357 │
00:01:29 verbose #959 > > │ gamma__ / s: Complex { re: 0.99, im: -0.01 } / result: Ok(Complex { re: │
00:01:29 verbose #960 > > │ 1.005770302029023, im: 0.005971782405410201 }) │
00:01:29 verbose #961 > > │ zeta__ / s: Complex { re: 0.01, im: 0.01 } / result: Ok(Complex { re: │
00:01:29 verbose #962 > > │ -0.5091873433665667, im: -0.00939202213994577 }) / z: Complex { re: 0.0, im: │
00:01:29 verbose #963 > > │ 0.0 } │
00:01:29 verbose #964 > > │ assert_lt / actual: -0.5091873433665667 / expected: inf │
00:01:29 verbose #965 > > │ assert_lt / actual: -0.00939202213994577 / expected: inf │
00:01:29 verbose #966 > > │ │
00:01:29 verbose #967 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #968 > >
00:01:29 verbose #969 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #970 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #971 > > │ ## test_imaginary_axis │
00:01:29 verbose #972 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #973 > >
00:01:29 verbose #974 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #975 > > inl test_imaginary_axis log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:29 verbose #976 > > (join a ;[[10; 20; 30; 40; 50; 60; 70; 80; 90; 100]] : _ i32 _)
00:01:29 verbose #977 > > |> am.iter fun s =>
00:01:29 verbose #978 > > inl s = .^(0, s)
00:01:29 verbose #979 > > inl result = zeta s
00:01:29 verbose #980 > > result |> re |> _assert_ne 0
00:01:29 verbose #981 > > result |> im |> _assert_ne 0
00:01:30 verbose #982 > >
00:01:30 verbose #983 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:30 verbose #984 > > //// test
00:01:30 verbose #985 > > ///! rust -d num-complex pyo3
00:01:30 verbose #986 > >
00:01:30 verbose #987 > > types ()
00:01:30 verbose #988 > > test_imaginary_axis true
00:01:35 verbose #989 > >
00:01:35 verbose #990 > > ╭─[ 5.92s - return value ]─────────────────────────────────────────────────────╮
00:01:35 verbose #991 > > │ zeta_ / s: (0.0, 10.0) / count: 0 │
00:01:35 verbose #992 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:35 verbose #993 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:35 verbose #994 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:35 verbose #995 > > │ / arg: None │
00:01:35 verbose #996 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:35 verbose #997 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:35 verbose #998 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:35 verbose #999 > > │ / arg: None │
00:01:35 verbose #1000 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:35 verbose #1001 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:35 verbose #1002 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:35 verbose #1003 > > │ / arg: None │
00:01:35 verbose #1004 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:35 verbose #1005 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:35 verbose #1006 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:35 verbose #1007 > > │ / arg: None │
00:01:35 verbose #1008 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:35 verbose #1009 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:35 verbose #1010 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:35 verbose #1011 > > │ / arg: None │
00:01:35 verbose #1012 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=10j, kwargs={}, name='zeta' / │
00:01:35 verbose #1013 > > │ f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:35 verbose #1014 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:35 verbose #1015 > > │ / arg: None │
00:01:35 verbose #1016 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=10j, kwargs={}, name='zeta' / │
00:01:35 verbose #1017 > > │ f_lineno: 1114 / f_code.co...: s=(0, 1, 0, 1), prec=83, sign=0, man=1, │
00:01:35 verbose #1018 > > │ exp=0, bc=1 / f_lineno: 409 / f_code.co_filename: \mpmath\libmp\libmpf.py / │
00:01:35 verbose #1019 > > │ f_back.f_lineno: 2022 / f_back.f_code.co_filename: │
00:01:35 verbose #1020 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:35 verbose #1021 > > │ line(gamma_) / f_code.co_name: to_fixed / f_locals: s=(0, 1, 0, 1), prec=83, │
00:01:35 verbose #1022 > > │ sign=0, man=1, exp=0, bc=1, offset=83 / f_lineno: 410 / f_code.co_filename: │
00:01:35 verbose #1023 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 2022 / f_back.f_code.co_filename: │
00:01:35 verbose #1024 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:35 verbose #1025 > > │ line(gamma_) / f_code.co_name: to_fixed / f_locals: s=(0, 1, 0, 1), prec=83, │
00:01:35 verbose #1026 > > │ sign=0, man=1, exp=0, bc=1, offset=83 / f_lineno: 414 / f_code.co_filename: │
00:01:35 verbose #1027 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 2022 / f_back.f_code.co_filename: │
00:01:35 verbose #1028 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:35 verbose #1029 > > │ return(gamma_) / f_code.co_name: to_fixed / f_locals: s=(0, 1, 0, 1), │
00:01:35 verbose #1030 > > │ prec=83, sign=0, man=1, exp=0, bc=1, offset=83 / f_lineno: 414 / │
00:01:35 verbose #1031 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 2022 / │
00:01:35 verbose #1032 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: │
00:01:35 verbose #1033 > > │ 9671406556917033397649408 │
00:01:35 verbose #1034 > > │ gamma_ / result: (-1.51425318049776e-67 + 2.79082155561748e-69j) / count: │
00:01:35 verbose #1035 > > │ 289 │
00:01:35 verbose #1036 > > │ gamma__ / s: Complex { re: 1.0, im: -100.0 } / result: Ok(Complex { re: │
00:01:35 verbose #1037 > > │ -1.514253180497756e-67, im: 2.7908215556174775e-69 }) │
00:01:35 verbose #1038 > > │ zeta__ / s: Complex { re: 0.0, im: 100.0 } / result: Ok(Complex { re: │
00:01:35 verbose #1039 > > │ 6.51721042625301, im: 0.18128842533791736 }) / z: Complex { re: 0.0, im: 0.0 │
00:01:35 verbose #1040 > > │ } │
00:01:35 verbose #1041 > > │ assert_ne / actual: 6.51721042625301 / expected: 0.0 │
00:01:35 verbose #1042 > > │ assert_ne / actual: 0.18128842533791736 / expected: 0.0 │
00:01:35 verbose #1043 > > │ │
00:01:35 verbose #1044 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 verbose #1045 > >
00:01:35 verbose #1046 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:35 verbose #1047 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:35 verbose #1048 > > │ ## test_critical_strip │
00:01:35 verbose #1049 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 verbose #1050 > >
00:01:35 verbose #1051 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:35 verbose #1052 > > inl test_critical_strip log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:35 verbose #1053 > > ;[[
00:01:35 verbose #1054 > > .^(0.5, 14.134725)
00:01:35 verbose #1055 > > .^(0.75, 20.5)
00:01:35 verbose #1056 > > .^(1.25, 30.1)
00:01:35 verbose #1057 > > .^(0.25, 40.0)
00:01:35 verbose #1058 > > .^(1.0, 50.0)
00:01:35 verbose #1059 > > ]]
00:01:35 verbose #1060 > > |> fun x => a x : _ i32 _
00:01:35 verbose #1061 > > |> am.iter fun s =>
00:01:35 verbose #1062 > > inl result = zeta s
00:01:35 verbose #1063 > > result |> re |> _assert_ne 0
00:01:35 verbose #1064 > > result |> im |> _assert_ne 0
00:01:36 verbose #1065 > >
00:01:36 verbose #1066 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:36 verbose #1067 > > //// test
00:01:36 verbose #1068 > > ///! rust -d num-complex pyo3
00:01:36 verbose #1069 > >
00:01:36 verbose #1070 > > types ()
00:01:36 verbose #1071 > > test_critical_strip true
00:01:41 verbose #1072 > >
00:01:41 verbose #1073 > > ╭─[ 4.73s - return value ]─────────────────────────────────────────────────────╮
00:01:41 verbose #1074 > > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:01:41 verbose #1075 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:41 verbose #1076 > > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:41 verbose #1077 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:41 verbose #1078 > > │ / arg: None │
00:01:41 verbose #1079 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:41 verbose #1080 > > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:41 verbose #1081 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:41 verbose #1082 > > │ / arg: None │
00:01:41 verbose #1083 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:41 verbose #1084 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:41 verbose #1085 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:41 verbose #1086 > > │ f_back.f_code.co_filename: / arg: None │
00:01:41 verbose #1087 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:41 verbose #1088 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 534 / │
00:01:41 verbose #1089 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:41 verbose #1090 > > │ f_back.f_code.co_filename: / arg: None │
00:01:41 verbose #1091 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:41 verbose #1092 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:01:41 verbose #1093 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:41 verbose #1094 > > │ f_back.f_code.co_filename: / arg: None │
00:01:41 verbose #1095 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(0.5+14.134725j), kwargs={}, │
00:01:41 verbose #1096 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:41 verbose #1097 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:01:41 verbose #1098 > > │ \mpmath\functions\zeta.py / arg: None │
00:01:41 verbose #1099 > > │ line(zeta_) / f_cod...41793223535862290159229021 / f_lineno: 1635 / │
00:01:41 verbose #1100 > > │ f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: 2041 / │
00:01:41 verbose #1101 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:41 verbose #1102 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: x=0, │
00:01:41 verbose #1103 > > │ y=-241785163922925834941235200, prec=82, _m=12089258196146291747061760000, │
00:01:41 verbose #1104 > > │ tre=0, tim=2475880078, ure=-1934281311383406679530, uim=0, │
00:01:41 verbose #1105 > > │ sre=4443714077719696485012210, sim=241793223535862290159229021 / f_lineno: │
00:01:41 verbose #1106 > > │ 1636 / f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: │
00:01:41 verbose #1107 > > │ 2041 / f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:41 verbose #1108 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: x=0, │
00:01:41 verbose #1109 > > │ y=-241785163922925834941235200, prec=82, _m=12089258196146291747061760000, │
00:01:41 verbose #1110 > > │ tre=0, tim=2475880078, ure=-1934281311383406679530, uim=0, │
00:01:41 verbose #1111 > > │ sre=4443714077719696485012210, sim=241793223535862290161313095 / f_lineno: │
00:01:41 verbose #1112 > > │ 1637 / f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: │
00:01:41 verbose #1113 > > │ 2041 / f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:41 verbose #1114 > > │ gamma_ / result: (2.63173210619768e-35 - 8.16464935465334e-36j) / count: 266 │
00:01:41 verbose #1115 > > │ gamma__ / s: Complex { re: 0.0, im: -50.0 } / result: Ok(Complex { re: │
00:01:41 verbose #1116 > > │ 2.6317321061976804e-35, im: -8.164649354653339e-36 }) │
00:01:41 verbose #1117 > > │ zeta__ / s: Complex { re: 1.0, im: 50.0 } / result: Ok(Complex { re: │
00:01:41 verbose #1118 > > │ 0.44103873082309397, im: 0.281582455029683 }) / z: Complex { re: 0.0, im: │
00:01:41 verbose #1119 > > │ 0.0 } │
00:01:41 verbose #1120 > > │ assert_ne / actual: 0.44103873082309397 / expected: 0.0 │
00:01:41 verbose #1121 > > │ assert_ne / actual: 0.281582455029683 / expected: 0.0 │
00:01:41 verbose #1122 > > │ │
00:01:41 verbose #1123 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #1124 > >
00:01:41 verbose #1125 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 verbose #1126 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 verbose #1127 > > │ ## test_reflection_formula_for_specific_value │
00:01:41 verbose #1128 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #1129 > >
00:01:41 verbose #1130 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 verbose #1131 > > inl test_reflection_formula_for_specific_value log = run_test log (3u8, 2u8) fun
00:01:41 verbose #1132 > > zeta, gamma =>
00:01:41 verbose #1133 > > ;[[
00:01:41 verbose #1134 > > .^(3, 4)
00:01:41 verbose #1135 > > .^(2.5, -3.5)
00:01:41 verbose #1136 > > .^(1.5, 2.5)
00:01:41 verbose #1137 > > .^(0.5, 14.134725)
00:01:41 verbose #1138 > > ]]
00:01:41 verbose #1139 > > |> fun x => a x : _ i32 _
00:01:41 verbose #1140 > > |> am.iter fun s =>
00:01:41 verbose #1141 > > inl lhs = zeta s
00:01:41 verbose #1142 > > inl reflection_coefficient =
00:01:41 verbose #1143 > > (.^(2, 0) .** s)
00:01:41 verbose #1144 > > .* (.^(pi, 0) .** (s .- .^(1, 0)))
00:01:41 verbose #1145 > > .* (.^(pi, 0) .* s ./ .^(2, 0) |> complex_sin)
00:01:41 verbose #1146 > > .* gamma (.^(1, 0) .- s)
00:01:41 verbose #1147 > >
00:01:41 verbose #1148 > > inl one_minus_s = .^(1 - re s, -(im s))
00:01:41 verbose #1149 > > inl rhs = reflection_coefficient .* zeta one_minus_s
00:01:41 verbose #1150 > >
00:01:41 verbose #1151 > > re lhs - re rhs |> abs |> _assert_lt 0.0001
00:01:41 verbose #1152 > > im lhs - im rhs |> abs |> _assert_lt 0.0001
00:01:42 verbose #1153 > >
00:01:42 verbose #1154 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #1155 > > //// test
00:01:42 verbose #1156 > > ///! rust -d num-complex pyo3
00:01:42 verbose #1157 > >
00:01:42 verbose #1158 > > types ()
00:01:42 verbose #1159 > > test_reflection_formula_for_specific_value true
00:01:47 verbose #1160 > >
00:01:47 verbose #1161 > > ╭─[ 5.08s - return value ]─────────────────────────────────────────────────────╮
00:01:47 verbose #1162 > > │ zeta_ / s: (3.0, 4.0) / count: 0 │
00:01:47 verbose #1163 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:47 verbose #1164 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:47 verbose #1165 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:47 verbose #1166 > > │ / arg: None │
00:01:47 verbose #1167 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:47 verbose #1168 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:47 verbose #1169 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:47 verbose #1170 > > │ / arg: None │
00:01:47 verbose #1171 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:47 verbose #1172 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:47 verbose #1173 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:47 verbose #1174 > > │ / arg: None │
00:01:47 verbose #1175 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:47 verbose #1176 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:47 verbose #1177 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:47 verbose #1178 > > │ / arg: None │
00:01:47 verbose #1179 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:47 verbose #1180 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:47 verbose #1181 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:47 verbose #1182 > > │ / arg: None │
00:01:47 verbose #1183 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(3+4j), kwargs={}, name='zeta' │
00:01:47 verbose #1184 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:47 verbose #1185 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:47 verbose #1186 > > │ / arg: None │
00:01:47 verbose #1187 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(3+4j), kwargs={}, name='zeta' │
00:01:47 verbose #1188 > > │ / f_line...o: 2034 / f_code.co_filename: \mpmath\libmp\gammazeta.py / │
00:01:47 verbose #1189 > > │ f_back.f_lineno: 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:47 verbose #1190 > > │ / arg: None │
00:01:47 verbose #1191 > > │ line(gamma_) / f_code.co_name: mpc_gamma / f_locals: z=((0, 1, -1, 1), (0, │
00:01:47 verbose #1192 > > │ 3978571390186527, -48, 52)), prec=53, rnd='n', type=0, a=(0, 1, -1, 1), │
00:01:47 verbose #1193 > > │ b=(0, 3978571390186527, -48, 52), asign=0, aman=1, aexp=-1, abc=1, bsign=0, │
00:01:47 verbose #1194 > > │ bman=3978571390186527, bexp=-48, bbc=52, wp=79, amag=0, bmag=4, mag=4, an=0, │
00:01:47 verbose #1195 > > │ bn=14, absn=14j, gamma_size=56, need_reflection=0, zorig=((0, 1, -1, 1), (0, │
00:01:47 verbose #1196 > > │ 3978571390186527, -48, 52)), yfinal=0, balance_prec=0, n_for_stirling=15, │
00:01:47 verbose #1197 > > │ need_reduction=True, afix=2115620184325601055735808, │
00:01:47 verbose #1198 > > │ bfix=8543917002826194402410496, r=0, zprered=((0, 1, -1, 1), (0, │
00:01:47 verbose #1199 > > │ 3978571390186527, -48, 52)), d=5, rre=-542313259704087430481959845, │
00:01:47 verbose #1200 > > │ one=604462909807314587353088, rim=-1657865507045117397880679064, k=3 / │
00:01:47 verbose #1201 > > │ f_lineno: 2035 / f_code.co_filename: \mpmath\libmp\gammazeta.py / │
00:01:47 verbose #1202 > > │ f_back.f_lineno: 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:47 verbose #1203 > > │ / arg: None │
00:01:47 verbose #1204 > > │ gamma_ / result: (-1.4455538437607e-10 - 5.52278876877407e-10j) / count: 314 │
00:01:47 verbose #1205 > > │ gamma__ / s: Complex { re: 0.5, im: 14.134725 } / result: Ok(Complex { re: │
00:01:47 verbose #1206 > > │ -1.4455538437606964e-10, im: -5.522788768774066e-10 }) │
00:01:47 verbose #1207 > > │ zeta__ / s: Complex { re: 0.5, im: -14.134725 } / result: Ok(Complex { re: │
00:01:47 verbose #1208 > > │ 1.7674298413849186e-8, im: 1.1102028930923156e-7 }) / z: Complex { re: 0.0, │
00:01:47 verbose #1209 > > │ im: 0.0 } │
00:01:47 verbose #1210 > > │ assert_lt / actual: 4.499862532288471e-22 / expected: 0.0001 │
00:01:47 verbose #1211 > > │ assert_lt / actual: 1.4558378780933287e-22 / expected: 0.0001 │
00:01:47 verbose #1212 > > │ │
00:01:47 verbose #1213 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #1214 > >
00:01:47 verbose #1215 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 verbose #1216 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 verbose #1217 > > │ ## test_euler_product_formula │
00:01:47 verbose #1218 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #1219 > >
00:01:47 verbose #1220 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #1221 > > inl test_euler_product_formula log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:47 verbose #1222 > > inl s_values = ;[[2; 2.5; 3; 3.5; 4; 4.5; 5]]
00:01:47 verbose #1223 > > inl primes = ;[[2; 3; 5; 7; 11; 13; 17; 19; 23; 29; 31; 37; 41; 43; 47; 53;
00:01:47 verbose #1224 > > 59; 61; 67; 71]]
00:01:47 verbose #1225 > > (a s_values : _ i32 _)
00:01:47 verbose #1226 > > |> am.iter fun s_re =>
00:01:47 verbose #1227 > > inl s = .^(s_re, 0)
00:01:47 verbose #1228 > > inl product =
00:01:47 verbose #1229 > > (1, (a primes : _ i32 _))
00:01:47 verbose #1230 > > ||> am.fold fun acc x =>
00:01:47 verbose #1231 > > acc * 1 / (1 - x ** -s_re)
00:01:47 verbose #1232 > >
00:01:47 verbose #1233 > > inl result = zeta s
00:01:47 verbose #1234 > > re result - product |> abs |> _assert_lt 0.01
00:01:47 verbose #1235 > > result |> im |> _assert_lt 0.01
00:01:47 verbose #1236 > >
00:01:47 verbose #1237 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #1238 > > //// test
00:01:47 verbose #1239 > > ///! rust -d num-complex pyo3
00:01:47 verbose #1240 > >
00:01:47 verbose #1241 > > types ()
00:01:47 verbose #1242 > > test_euler_product_formula true
00:01:52 verbose #1243 > >
00:01:52 verbose #1244 > > ╭─[ 4.92s - return value ]─────────────────────────────────────────────────────╮
00:01:52 verbose #1245 > > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:01:52 verbose #1246 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:52 verbose #1247 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:52 verbose #1248 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:52 verbose #1249 > > │ / arg: None │
00:01:52 verbose #1250 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:52 verbose #1251 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:52 verbose #1252 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:52 verbose #1253 > > │ / arg: None │
00:01:52 verbose #1254 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:52 verbose #1255 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:52 verbose #1256 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:52 verbose #1257 > > │ / arg: None │
00:01:52 verbose #1258 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:52 verbose #1259 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:52 verbose #1260 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:52 verbose #1261 > > │ / arg: None │
00:01:52 verbose #1262 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:52 verbose #1263 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:52 verbose #1264 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:52 verbose #1265 > > │ / arg: None │
00:01:52 verbose #1266 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:01:52 verbose #1267 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:52 verbose #1268 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:52 verbose #1269 > > │ / arg: None │
00:01:52 verbose #1270 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:01:52 verbose #1271 > > │ / f_line..._back.f_lineno: 976 / f_back.f_code.co_filename: │
00:01:52 verbose #1272 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:52 verbose #1273 > > │ line(zeta_) / f_code.co_name: mpf_zeta_int / f_locals: s=5, prec=53, │
00:01:52 verbose #1274 > > │ rnd='n', wp=73, m=19.25, needed_terms=623488, n=33, d=[1, 2179, 792067, │
00:01:52 verbose #1275 > > │ 115062531, 8930212611, 429314925315, 13983537177347, 327666966438659, │
00:01:52 verbose #1276 > > │ 5764846406968067, 78615943485956867, 851604426176701187, │
00:01:52 verbose #1277 > > │ 7470527451121689347, 53898915046387983107, 323897845985013506819, │
00:01:52 verbose #1278 > > │ 1638178356374090130179, 7034281785235908174595, 25833609859980306522883, │
00:01:52 verbose #1279 > > │ 81661917475887913739011, 223448095548034217779971, 532029677981012660429571, │
00:01:52 verbose #1280 > > │ 1108048631855905753375491, 2029946562680066824315651, │
00:01:52 verbose #1281 > > │ 3292927237466655352791811, 4769455369342763680768771, │
00:01:52 verbose #1282 > > │ 6235511670496346417767171, 7463408621503347142796035, │
00:01:52 verbose #1283 > > │ 8322751284048216428487427, 8818779962777819524211459, │
00:01:52 verbose #1284 > > │ 9050689474911140452082435, 9136270117622166323831555, │
00:01:52 verbose #1285 > > │ 9160252037839493347779331, 9165045885455648617505539, │
00:01:52 verbose #1286 > > │ 9165654628010081032708867, 9165691521498228451812099], │
00:01:52 verbose #1287 > > │ t=-84153981556310142931811887755527036638996681066, k=21 / f_lineno: 944 / │
00:01:52 verbose #1288 > > │ f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: 976 / │
00:01:52 verbose #1289 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:52 verbose #1290 > > │ zeta_ / result: (1.03692775514337 + 0.0j) / count: 236 │
00:01:52 verbose #1291 > > │ zeta / count: 0 / s: Complex { re: 5.0, im: 0.0 } │
00:01:52 verbose #1292 > > │ zeta__ / s: Complex { re: 5.0, im: 0.0 } / result: Ok(Complex { re: │
00:01:52 verbose #1293 > > │ 1.03692775514337, im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:01:52 verbose #1294 > > │ assert_lt / actual: 2.0033654735129858e-9 / expected: 0.01 │
00:01:52 verbose #1295 > > │ assert_lt / actual: 0.0 / expected: 0.01 │
00:01:52 verbose #1296 > > │ │
00:01:52 verbose #1297 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #1298 > >
00:01:52 verbose #1299 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:52 verbose #1300 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 verbose #1301 > > │ ## graph │
00:01:52 verbose #1302 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #1303 > >
00:01:52 verbose #1304 > > ── mermaid ─────────────────────────────────────────────────────────────────────
00:01:52 verbose #1305 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 verbose #1306 > > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:01:52 verbose #1307 > > │ <link rel="stylesheet" │
00:01:52 verbose #1308 > > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:01:52 verbose #1309 > > │ css"> │
00:01:52 verbose #1310 > > │ <div id="1733e6984a6240d88597fadd80c0b6c6"></div> │
00:01:52 verbose #1311 > > │ <script type="module"> │
00:01:52 verbose #1312 > > │ │
00:01:52 verbose #1313 > > │ import mermaid from │
00:01:52 verbose #1314 > > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:01:52 verbose #1315 > > │ let renderTarget = │
00:01:52 verbose #1316 > > │ document.getElementById('1733e6984a6240d88597fadd80c0b6c6'); │
00:01:52 verbose #1317 > > │ try { │
00:01:52 verbose #1318 > > │ const {svg, bindFunctions} = await │
00:01:52 verbose #1319 > > │ mermaid.mermaidAPI.render( │
00:01:52 verbose #1320 > > │ 'mermaid_1733e6984a6240d88597fadd80c0b6c6', │
00:01:52 verbose #1321 > > │ `graph TD │
00:01:52 verbose #1322 > > │ zeta("zeta()") --> convert │
00:01:52 verbose #1323 > > │ zeta --> f["f()"] │
00:01:52 verbose #1324 > > │ f --> mpc_f["mpc_zeta()"] │
00:01:52 verbose #1325 > > │ f --> mpf_f["mpf_zeta()"] │
00:01:52 verbose #1326 > > │ convert --> from_float │
00:01:52 verbose #1327 > > │ from_float --> from_man_exp │
00:01:52 verbose #1328 > > │ from_man_exp --> python_bitcount │
00:01:52 verbose #1329 > > │ python_bitcount --> _normalize │
00:01:52 verbose #1330 > > │ _normalize --> make_mpc │
00:01:52 verbose #1331 > > │ make_mpc --> mpc_zeta["mpc_zeta()"] │
00:01:52 verbose #1332 > > │ mpc_zeta --> mpf_zeta["mpf_zeta()"] │
00:01:52 verbose #1333 > > │ mpf_zeta --> to_int │
00:01:52 verbose #1334 > > │ to_int --> mpf_zeta_int["mpf_zeta_int()"] │
00:01:52 verbose #1335 > > │ mpf_zeta_int --> borwein_coefficients │
00:01:52 verbose #1336 > > │ borwein_coefficients --> from_man_exp_2("from_man_exp()") │
00:01:52 verbose #1337 > > │ from_man_exp_2 --> python_bitcount_2("python_bitcount()") │
00:01:52 verbose #1338 > > │ python_bitcount_2 --> _normalize_2("_normalize()") │
00:01:52 verbose #1339 > > │ _normalize_2 --> make_mpc_2("make_mpc()") │
00:01:52 verbose #1340 > > │ make_mpc_2 --> stop_trace │
00:01:52 verbose #1341 > > │ mpf_zeta_int --> mpf_bernoulli │
00:01:52 verbose #1342 > > │ mpf_bernoulli --> bernoulli_size │
00:01:52 verbose #1343 > > │ bernoulli_size --> mpf_rdiv_int │
00:01:52 verbose #1344 > > │ mpf_rdiv_int --> python_bitcount_3("python_bitcount()") │
00:01:52 verbose #1345 > > │ python_bitcount_3 --> _normalize1 │
00:01:52 verbose #1346 > > │ _normalize1 --> from_man_exp_3("from_man_exp()") │
00:01:52 verbose #1347 > > │ from_man_exp_3 --> _normalize_3("_normalize()") │
00:01:52 verbose #1348 > > │ _normalize_3 --> mpf_sub │
00:01:52 verbose #1349 > > │ mpf_sub --> mpf_add │
00:01:52 verbose #1350 > > │ mpf_add --> mpf_neg │
00:01:52 verbose #1351 > > │ mpf_neg --> _normalize1_2("_normalize1()") │
00:01:52 verbose #1352 > > │ _normalize1_2 --> from_int │
00:01:52 verbose #1353 > > │ from_int --> mpf_div │
00:01:52 verbose #1354 > > │ mpf_div --> python_bitcount_4("python_bitcount()") │
00:01:52 verbose #1355 > > │ python_bitcount_4 --> _normalize1_3("_normalize1()") │
00:01:52 verbose #1356 > > │ _normalize1_3 --> make_mpc_3("make_mpc()") │
00:01:52 verbose #1357 > > │ make_mpc_3 --> final_stop["stop_trace()"]`); │
00:01:52 verbose #1358 > > │ renderTarget.innerHTML = svg; │
00:01:52 verbose #1359 > > │ bindFunctions?.(renderTarget); │
00:01:52 verbose #1360 > > │ } │
00:01:52 verbose #1361 > > │ catch (error) { │
00:01:52 verbose #1362 > > │ console.log(error); │
00:01:52 verbose #1363 > > │ } │
00:01:52 verbose #1364 > > │ </script> │
00:01:52 verbose #1365 > > │ </div> │
00:01:52 verbose #1366 > > │ │
00:01:52 verbose #1367 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #1368 > >
00:01:52 verbose #1369 > > ── mermaid ─────────────────────────────────────────────────────────────────────
00:01:52 verbose #1370 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 verbose #1371 > > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:01:52 verbose #1372 > > │ <link rel="stylesheet" │
00:01:52 verbose #1373 > > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:01:52 verbose #1374 > > │ css"> │
00:01:52 verbose #1375 > > │ <div id="582b51376ab144e5a2d5faf520368cad"></div> │
00:01:52 verbose #1376 > > │ <script type="module"> │
00:01:52 verbose #1377 > > │ │
00:01:52 verbose #1378 > > │ import mermaid from │
00:01:52 verbose #1379 > > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:01:52 verbose #1380 > > │ let renderTarget = │
00:01:52 verbose #1381 > > │ document.getElementById('582b51376ab144e5a2d5faf520368cad'); │
00:01:52 verbose #1382 > > │ try { │
00:01:52 verbose #1383 > > │ const {svg, bindFunctions} = await │
00:01:52 verbose #1384 > > │ mermaid.mermaidAPI.render( │
00:01:52 verbose #1385 > > │ 'mermaid_582b51376ab144e5a2d5faf520368cad', │
00:01:52 verbose #1386 > > │ `graph TD │
00:01:52 verbose #1387 > > │ zeta_rust("zeta() - Rust") --> num_traits("num-traits") │
00:01:52 verbose #1388 > > │ zeta_rust --> num_bigint("num-bigint") │
00:01:52 verbose #1389 > > │ zeta_rust --> rust_decimal("rust_decimal for precision") │
00:01:52 verbose #1390 > > │ zeta_rust --> error_handling("Rust Error Handling") │
00:01:52 verbose #1391 > > │ │
00:01:52 verbose #1392 > > │ num_traits --> num_traits_usage("Use for common traits") │
00:01:52 verbose #1393 > > │ num_bigint --> bigint_operations("Arbitrary-precision arithmetic │
00:01:52 verbose #1394 > > │ operations") │
00:01:52 verbose #1395 > > │ rust_decimal --> decimal_operations("High-precision decimal operations") │
00:01:52 verbose #1396 > > │ error_handling --> result_type("Use Result<T, E> for error handling") │
00:01:52 verbose #1397 > > │ │
00:01:52 verbose #1398 > > │ bigint_operations --> convert_rust("convert() - Rust") │
00:01:52 verbose #1399 > > │ bigint_operations --> normalize_rust("_normalize() - Rust") │
00:01:52 verbose #1400 > > │ │
00:01:52 verbose #1401 > > │ convert_rust --> from_float_rust("from_float() - Rust") │
00:01:52 verbose #1402 > > │ from_float_rust --> from_man_exp_rust("from_man_exp() - Rust") │
00:01:52 verbose #1403 > > │ from_man_exp_rust --> bitcount_rust("bitcount() - Rust") │
00:01:52 verbose #1404 > > │ bitcount_rust --> normalize_rust │
00:01:52 verbose #1405 > > │ normalize_rust --> mpc_zeta_rust("mpc_zeta() - Rust") │
00:01:52 verbose #1406 > > │ mpc_zeta_rust --> mpf_zeta_rust("mpf_zeta() - Rust") │
00:01:52 verbose #1407 > > │ mpf_zeta_rust --> to_int_rust("to_int() - Rust") │
00:01:52 verbose #1408 > > │ to_int_rust --> mpf_zeta_int_rust("mpf_zeta_int() - Rust") │
00:01:52 verbose #1409 > > │ │
00:01:52 verbose #1410 > > │ mpf_zeta_int_rust --> borwein_coefficients_rust("borwein_coefficients() │
00:01:52 verbose #1411 > > │ - Rust") │
00:01:52 verbose #1412 > > │ borwein_coefficients_rust --> from_man_exp_rust_2("from_man_exp() - │
00:01:52 verbose #1413 > > │ Rust") │
00:01:52 verbose #1414 > > │ from_man_exp_rust_2 --> bitcount_rust_2("bitcount() - Rust") │
00:01:52 verbose #1415 > > │ bitcount_rust_2 --> normalize_rust_2("_normalize() - Rust") │
00:01:52 verbose #1416 > > │ normalize_rust_2 --> make_mpc_rust("make_mpc() - Rust") │
00:01:52 verbose #1417 > > │ │
00:01:52 verbose #1418 > > │ mpf_zeta_int_rust --> mpf_bernoulli_rust("mpf_bernoulli() - Rust") │
00:01:52 verbose #1419 > > │ mpf_bernoulli_rust --> bernoulli_size_rust("bernoulli_size() - Rust") │
00:01:52 verbose #1420 > > │ bernoulli_size_rust --> mpf_rdiv_int_rust("mpf_rdiv_int() - Rust") │
00:01:52 verbose #1421 > > │ mpf_rdiv_int_rust --> bitcount_rust_3("bitcount() - Rust") │
00:01:52 verbose #1422 > > │ bitcount_rust_3 --> normalize1_rust("_normalize1() - Rust") │
00:01:52 verbose #1423 > > │ normalize1_rust --> from_man_exp_rust_3("from_man_exp() - Rust") │
00:01:52 verbose #1424 > > │ from_man_exp_rust_3 --> normalize_rust_3("_normalize() - Rust") │
00:01:52 verbose #1425 > > │ normalize_rust_3 --> mpf_sub_rust("mpf_sub() - Rust") │
00:01:52 verbose #1426 > > │ mpf_sub_rust --> mpf_add_rust("mpf_add() - Rust") │
00:01:52 verbose #1427 > > │ mpf_add_rust --> mpf_neg_rust("mpf_neg() - Rust") │
00:01:52 verbose #1428 > > │ mpf_neg_rust --> normalize1_rust_2("_normalize1() - Rust") │
00:01:52 verbose #1429 > > │ normalize1_rust_2 --> from_int_rust("from_int() - Rust") │
00:01:52 verbose #1430 > > │ from_int_rust --> mpf_div_rust("mpf_div() - Rust") │
00:01:52 verbose #1431 > > │ mpf_div_rust --> bitcount_rust_4("bitcount() - Rust") │
00:01:52 verbose #1432 > > │ bitcount_rust_4 --> normalize1_rust_3("_normalize1() - Rust") │
00:01:52 verbose #1433 > > │ │
00:01:52 verbose #1434 > > │ style zeta_rust fill:#f9f,stroke:#333,stroke-width:4px │
00:01:52 verbose #1435 > > │ style num_traits fill:#bbf,stroke:#333,stroke-width:2px │
00:01:52 verbose #1436 > > │ style num_bigint fill:#bbf,stroke:#333,stroke-width:2px │
00:01:52 verbose #1437 > > │ style rust_decimal fill:#bbf,stroke:#333,stroke-width:2px │
00:01:52 verbose #1438 > > │ style error_handling fill:#bbf,stroke:#333,stroke-width:2px │
00:01:52 verbose #1439 > > │ style bigint_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:01:52 verbose #1440 > > │ style decimal_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:01:52 verbose #1441 > > │ style result_type fill:#bfb,stroke:#333,stroke-width:2px`); │
00:01:52 verbose #1442 > > │ renderTarget.innerHTML = svg; │
00:01:52 verbose #1443 > > │ bindFunctions?.(renderTarget); │
00:01:52 verbose #1444 > > │ } │
00:01:52 verbose #1445 > > │ catch (error) { │
00:01:52 verbose #1446 > > │ console.log(error); │
00:01:52 verbose #1447 > > │ } │
00:01:52 verbose #1448 > > │ </script> │
00:01:52 verbose #1449 > > │ </div> │
00:01:52 verbose #1450 > > │ │
00:01:52 verbose #1451 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #1452 > >
00:01:52 verbose #1453 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:52 verbose #1454 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 verbose #1455 > > │ ## tests │
00:01:52 verbose #1456 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #1457 > >
00:01:52 verbose #1458 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:52 verbose #1459 > > inl tests () =
00:01:52 verbose #1460 > > rust.run_tests [[
00:01:52 verbose #1461 > > "test_zeta_at_known_values_", fun _ =>
00:01:52 verbose #1462 > > test_zeta_at_known_values_ false
00:01:52 verbose #1463 > >
00:01:52 verbose #1464 > > "test_zeta_at_2_minus2", fun _ =>
00:01:52 verbose #1465 > > test_zeta_at_2_minus2 false
00:01:52 verbose #1466 > >
00:01:52 verbose #1467 > > "test_trivial_zero_at_negative_even___", fun _ =>
00:01:52 verbose #1468 > > test_trivial_zero_at_negative_even___ false
00:01:52 verbose #1469 > >
00:01:52 verbose #1470 > > "test_non_trivial_zero___", fun _ =>
00:01:52 verbose #1471 > > test_non_trivial_zero___ false
00:01:52 verbose #1472 > >
00:01:52 verbose #1473 > > "test_real_part_greater_than_one___", fun _ =>
00:01:52 verbose #1474 > > test_real_part_greater_than_one___ false
00:01:52 verbose #1475 > >
00:01:52 verbose #1476 > > "test_zeta_at_1___", fun _ =>
00:01:52 verbose #1477 > > test_zeta_at_1___ false
00:01:52 verbose #1478 > >
00:01:52 verbose #1479 > > "test_symmetry_across_real_axis___", fun _ =>
00:01:52 verbose #1480 > > test_symmetry_across_real_axis___ false
00:01:52 verbose #1481 > >
00:01:52 verbose #1482 > > "test_behavior_near_origin___", fun _ =>
00:01:52 verbose #1483 > > test_behavior_near_origin___ false
00:01:52 verbose #1484 > >
00:01:52 verbose #1485 > > "test_imaginary_axis", fun _ =>
00:01:52 verbose #1486 > > test_imaginary_axis false
00:01:52 verbose #1487 > >
00:01:52 verbose #1488 > > "test_critical_strip", fun _ =>
00:01:52 verbose #1489 > > test_critical_strip false
00:01:52 verbose #1490 > >
00:01:52 verbose #1491 > > "test_reflection_formula_for_specific_value", fun _ =>
00:01:52 verbose #1492 > > test_reflection_formula_for_specific_value false
00:01:52 verbose #1493 > >
00:01:52 verbose #1494 > > "test_euler_product_formula", fun _ =>
00:01:52 verbose #1495 > > test_euler_product_formula false
00:01:52 verbose #1496 > > ]]
00:01:53 verbose #1497 > >
00:01:53 verbose #1498 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:53 verbose #1499 > > ///!
00:01:53 verbose #1500 > >
00:01:53 verbose #1501 > > inl main (_args : array_base string) =
00:01:53 verbose #1502 > > inl value = 1i32
00:01:53 verbose #1503 > > console.write_line ($'$"value: {!value}"' : string)
00:01:53 verbose #1504 > > 0i32
00:01:53 verbose #1505 > >
00:01:53 verbose #1506 > > inl main () =
00:01:53 verbose #1507 > > types ()
00:01:53 verbose #1508 > > $'let tests () = !tests ()' : ()
00:01:53 verbose #1509 > > $'let main args = !main args' : ()
00:01:54 verbose #1510 > 00:01:53 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 90120
00:01:54 verbose #1511 > 00:01:53 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/math/math.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/math/math.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:57 verbose #1512 > 00:01:55 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/math/math.dib.ipynb to html
00:01:57 verbose #1513 > 00:01:55 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:57 verbose #1514 > 00:01:55 verbose #7 ! validate(nb)
00:01:59 verbose #1515 > 00:01:58 verbose #8 ! [NbConvertApp] Writing 7276498 bytes to c:\home\git\polyglot\lib\math\math.dib.html
00:01:59 verbose #1516 > 00:01:58 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 636
00:01:59 verbose #1517 > 00:01:58 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 636
00:01:59 verbose #1518 > 00:01:58 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/math/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/math/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:01 verbose #1519 > 00:01:59 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:01 verbose #1520 > 00:01:59 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:01 verbose #1521 > 00:02:00 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 90815
00:02:01 debug #1522 runtime.execute_with_options_async / exit_code: 0 / output.Length: 96050
00:02:01 debug #1 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 1
00:00:00 debug #1 writeDibCode / output: Spi / path: math.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: math.dib
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #2 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #2 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 verbose #3 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # math\nopen testing\nopen rust_operators\n\ninl types () =\n global ...027let main args = !main args\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result:
00:00:01 verbose #4 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result:
00:00:02 debug #5 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'... let v2 : (string -> unit) = System.Console.WriteLine
v2 v1
0
let v0 : (unit -> unit) = closure0()
let tests () = v0 ()
let v1 : ((string []) -> int32) = closure5()
let main args = v1 args
()
/ errors: [] / typeErrorCount: 0
00:00:02 debug #6 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: math / hash: / code.Length: 143298
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\math\math.fsproj
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime linux-x64",
[||], None, None, true, Some "C:\home\git\polyglot\target\Builder\math")
00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 verbose #3 > Determining projects to restore...
00:00:02 verbose #4 > Restored C:\home\git\polyglot\target\Builder\math\math.fsproj (in 403 ms).
00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\math\math.fsproj]
00:00:14 verbose #6 > math -> C:\home\git\polyglot\target\Builder\math\bin\Release\net9.0\linux-x64\math.dll
00:00:16 verbose #7 > math -> C:\home\git\polyglot\lib\math\dist\
00:00:16 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 637
00:00:16 debug #9 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime win-x64",
[||], None, None, true, Some "C:\home\git\polyglot\target\Builder\math")
00:00:16 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:17 verbose #11 > Determining projects to restore...
00:00:17 verbose #12 > Restored C:\home\git\polyglot\target\Builder\math\math.fsproj (in 372 ms).
00:00:18 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\math\math.fsproj]
00:00:31 verbose #14 > math -> C:\home\git\polyglot\target\Builder\math\bin\Release\net9.0\win-x64\math.dll
00:00:35 verbose #15 > math -> C:\home\git\polyglot\lib\math\dist\
00:00:35 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 635
targetDir: C:\home\git\polyglot\target\Builder\math
Fable 4.17.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @markek
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing target\Builder\math\math.fsproj...
target\Builder\math> cmd /C dotnet restore math.fable-temp.csproj -p:FABLE_COMPILER=true -p:FABLE_COMPILER_4=true -p:FABLE_COMPILER_RUST=true -p:_WINDOWS=true
Determining projects to restore...
Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2
The last full restore is still up to date. Nothing left to do.
Total time taken: 0 milliseconds
Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2
Restoring C:\home\git\polyglot\target\Builder\math\math.fable-temp.csproj
Starting restore process.
Total time taken: 0 milliseconds
Restored C:\home\git\polyglot\target\Builder\math\math.fable-temp.csproj (in 798 ms).
target\Builder\math> cmd /C dotnet restore C:/home/git/polyglot/target/Builder/math/math.fsproj
Determining projects to restore...
Restored C:\home\git\polyglot\target\Builder\math\math.fsproj (in 448 ms).
Project and references (14 source files) parsed in 14624ms
Started Fable compilation...
Fable compilation finished in 10437ms
.\lib\spiral\sm.fsx(581,0): (581,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\common.fsx(1316,0): (1316,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\common.fsx(1323,0): (1323,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\crypto.fsx(1624,0): (1624,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\async_.fsx(112,0): (112,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\threading.fsx(171,0): (171,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\date_time.fsx(1264,0): (1264,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\platform.fsx(108,0): (108,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\networking.fsx(3349,0): (3349,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\networking.fsx(3358,0): (3358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\trace.fsx(1217,0): (1217,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\trace.fsx(1220,0): (1220,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\runtime.fsx(3271,0): (3271,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\runtime.fsx(3282,0): (3282,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\file_system.fsx(6319,0): (6319,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\file_system.fsx(6358,0): (6358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\target\Builder\math\math.fs(233,0): (235,3) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
Downloading crates ...
Downloaded wide v0.7.24
Compiling wide v0.7.24
Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust)
Compiling simba v0.6.0
Compiling nalgebra v0.29.0
Compiling statrs v0.16.1
Compiling math v0.0.1 (C:\home\git\polyglot\lib\math)
Finished `release` profile [optimized] target(s) in 53.26s
Running unittests math.rs (C:\home\git\polyglot\workspace\target\release\deps\math-f995d37236e07280.exe)
running 12 tests
test module_b7a9935b::Math::test_behavior_near_origin___ ... ok
test module_b7a9935b::Math::test_symmetry_across_real_axis___ ... ok
test module_b7a9935b::Math::test_euler_product_formula ... ok
test module_b7a9935b::Math::test_real_part_greater_than_one___ ... ok
test module_b7a9935b::Math::test_zeta_at_1___ ... ok
test module_b7a9935b::Math::test_zeta_at_2_minus2 ... ok
test module_b7a9935b::Math::test_reflection_formula_for_specific_value ... ok
test module_b7a9935b::Math::test_zeta_at_known_values_ ... ok
test module_b7a9935b::Math::test_critical_strip ... ok
test module_b7a9935b::Math::test_non_trivial_zero___ ... ok
test module_b7a9935b::Math::test_trivial_zero_at_negative_even___ ... ok
test module_b7a9935b::Math::test_imaginary_axis ... ok
test result: ok. 12 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.46s
In [ ]:
{ pwsh ../apps/plot/build.ps1 } | Invoke-Block
Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) Compiling plot v0.0.1 (C:\home\git\polyglot\apps\plot) Finished `release` profile [optimized] target(s) in 27.05s
In [ ]:
{ pwsh ../apps/perf/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Perf.dib --retries 3",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Perf.dib", "--retries", "3"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/perf/Perf.dib", "--output-path", "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/perf/Perf.dib" --output-path "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #4 > >
00:00:04 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #7 > > │ # Perf (Polyglot) │
00:00:04 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #9 > >
00:00:04 verbose #10 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #11 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:04 verbose #12 > > #!import ../../lib/fsharp/Testing.dib
00:00:04 verbose #13 > >
00:00:04 verbose #14 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #15 > > #r
00:00:04 verbose #16 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:04 verbose #17 > > spNetCore.Html.Abstractions.dll"
00:00:04 verbose #18 > > #r
00:00:04 verbose #19 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #20 > > otNet.Interactive.dll"
00:00:04 verbose #21 > > #r
00:00:04 verbose #22 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #23 > > otNet.Interactive.FSharp.dll"
00:00:04 verbose #24 > > #r
00:00:04 verbose #25 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #26 > > otNet.Interactive.Formatting.dll"
00:00:04 verbose #27 > > open System
00:00:04 verbose #28 > > open System.IO
00:00:04 verbose #29 > > open System.Text
00:00:04 verbose #30 > > open Microsoft.DotNet.Interactive.Formatting
00:00:08 verbose #31 > >
00:00:08 verbose #32 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #33 > > #r
00:00:08 verbose #34 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #35 > > otNet.Interactive.FSharp.dll"
00:00:08 verbose #36 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:08 verbose #37 > > #r
00:00:08 verbose #38 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #39 > > otNet.Interactive.dll"
00:00:08 verbose #40 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:09 verbose #41 > >
00:00:09 verbose #42 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #43 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:09 verbose #44 > >
00:00:09 verbose #45 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #46 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:09 verbose #47 > > TextWriter)->fprintfn writer "%120A" x)
00:00:09 verbose #48 > >
00:00:09 verbose #49 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #50 > > //// test
00:00:09 verbose #51 > >
00:00:09 verbose #52 > > Formatter.ListExpansionLimit <- 100
00:00:09 verbose #53 > >
00:00:09 verbose #54 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #55 > > #if FABLE_COMPILER
00:00:09 verbose #56 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:09 verbose #57 > > #endif
00:00:09 verbose #58 > > type std_env_VarError = class end
00:00:09 verbose #59 > > #if FABLE_COMPILER
00:00:09 verbose #60 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:09 verbose #61 > > #endif
00:00:09 verbose #62 > > type core_any_Any = class end
00:00:09 verbose #63 > > #if FABLE_COMPILER
00:00:09 verbose #64 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:09 verbose #65 > > #endif
00:00:09 verbose #66 > > type core_ops_Try<'T> = class end
00:00:09 verbose #67 > > #if FABLE_COMPILER
00:00:09 verbose #68 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:09 verbose #69 > > #endif
00:00:09 verbose #70 > > type Func0<'T> = class end
00:00:09 verbose #71 > > #if FABLE_COMPILER
00:00:09 verbose #72 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:09 verbose #73 > > #endif
00:00:09 verbose #74 > > type Func0<'T, 'U> = class end
00:00:09 verbose #75 > > #if FABLE_COMPILER
00:00:09 verbose #76 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:09 verbose #77 > > #endif
00:00:09 verbose #78 > > type Box<'T> = class end
00:00:09 verbose #79 > > #if FABLE_COMPILER
00:00:09 verbose #80 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:09 verbose #81 > > #endif
00:00:09 verbose #82 > > type Dyn<'T> = class end
00:00:09 verbose #83 > > #if FABLE_COMPILER
00:00:09 verbose #84 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:09 verbose #85 > > #endif
00:00:09 verbose #86 > > type Send<'T> = class end
00:00:09 verbose #87 > > #if FABLE_COMPILER
00:00:09 verbose #88 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:09 verbose #89 > > #endif
00:00:09 verbose #90 > > type Fn<'T> = class end
00:00:09 verbose #91 > > #if FABLE_COMPILER
00:00:09 verbose #92 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:09 verbose #93 > > #endif
00:00:09 verbose #94 > > type FnUnit = class end
00:00:09 verbose #95 > > #if FABLE_COMPILER
00:00:09 verbose #96 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:09 verbose #97 > > #endif
00:00:09 verbose #98 > > type FnOnce<'T> = class end
00:00:09 verbose #99 > > #if FABLE_COMPILER
00:00:09 verbose #100 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:09 verbose #101 > > #endif
00:00:09 verbose #102 > > type ActionFn<'T> = class end
00:00:09 verbose #103 > > #if FABLE_COMPILER
00:00:09 verbose #104 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:09 verbose #105 > > #endif
00:00:09 verbose #106 > > type ActionFn2<'T, 'U> = class end
00:00:09 verbose #107 > > #if FABLE_COMPILER
00:00:09 verbose #108 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:09 verbose #109 > > #endif
00:00:09 verbose #110 > > type Impl<'T> = class end
00:00:09 verbose #111 > > #if FABLE_COMPILER
00:00:09 verbose #112 > > [[<Fabl...2, v3, v4)
00:00:09 verbose #113 > > US5_1
00:00:09 verbose #114 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:09 verbose #115 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:09 verbose #116 > > let v4 : (US4 -> US5) = closure6()
00:00:09 verbose #117 > > let v5 : (exn -> US5) = closure7(v2)
00:00:09 verbose #118 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:09 verbose #119 > > match v6 with
00:00:09 verbose #120 > > | US5_1 -> (* None *)
00:00:09 verbose #121 > > let v8 : int32 = v2 + 1
00:00:09 verbose #122 > > method6(v0, v1, v8)
00:00:09 verbose #123 > > | US5_0(v7) -> (* Some *)
00:00:09 verbose #124 > > v7
00:00:09 verbose #125 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:09 verbose #126 > > let v2 : int32 = 0
00:00:09 verbose #127 > > let v3 : US4 = method6(v0, v1, v2)
00:00:09 verbose #128 > > match v3 with
00:00:09 verbose #129 > > | US4_1 -> (* None *)
00:00:09 verbose #130 > > let v5 : unit option = None
00:00:09 verbose #131 > > v5
00:00:09 verbose #132 > > | US4_0 -> (* Some *)
00:00:09 verbose #133 > > let v4 : unit option = Some ()
00:00:09 verbose #134 > > v4
00:00:09 verbose #135 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:09 verbose #136 > > closure4(v0)
00:00:09 verbose #137 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #138 > > v0
00:00:09 verbose #139 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:09 verbose #140 > > v0.Value
00:00:09 verbose #141 > > ()
00:00:09 verbose #142 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #143 > > let v1 : (unit -> unit) = method12(v0)
00:00:09 verbose #144 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:09 verbose #145 > > closure13(v2)
00:00:09 verbose #146 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:09 verbose #147 > > let v1 : US0 = US0_0
00:00:09 verbose #148 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:09 verbose #149 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:09 verbose #150 > > let new_disposable x = v2 x
00:00:09 verbose #151 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:09 verbose #152 > > let retry_fn x = v3 x
00:00:09 verbose #153 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:09 verbose #154 > > let memoize x = v4 x
00:00:09 verbose #155 > > ()
00:00:09 verbose #156 > >
00:00:11 verbose #157 > >
00:00:11 verbose #158 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #159 > > #if FABLE_COMPILER
00:00:11 verbose #160 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:11 verbose #161 > > #endif
00:00:11 verbose #162 > > type core_any_Any = class end
00:00:11 verbose #163 > > #if FABLE_COMPILER
00:00:11 verbose #164 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:11 verbose #165 > > #endif
00:00:11 verbose #166 > > type core_ops_Try<'T> = class end
00:00:11 verbose #167 > > #if FABLE_COMPILER
00:00:11 verbose #168 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:11 verbose #169 > > #endif
00:00:11 verbose #170 > > type Func0<'T> = class end
00:00:11 verbose #171 > > #if FABLE_COMPILER
00:00:11 verbose #172 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:11 verbose #173 > > #endif
00:00:11 verbose #174 > > type Func0<'T, 'U> = class end
00:00:11 verbose #175 > > #if FABLE_COMPILER
00:00:11 verbose #176 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:11 verbose #177 > > #endif
00:00:11 verbose #178 > > type Box<'T> = class end
00:00:11 verbose #179 > > #if FABLE_COMPILER
00:00:11 verbose #180 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:11 verbose #181 > > #endif
00:00:11 verbose #182 > > type Dyn<'T> = class end
00:00:11 verbose #183 > > #if FABLE_COMPILER
00:00:11 verbose #184 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:11 verbose #185 > > #endif
00:00:11 verbose #186 > > type Send<'T> = class end
00:00:11 verbose #187 > > #if FABLE_COMPILER
00:00:11 verbose #188 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:11 verbose #189 > > #endif
00:00:11 verbose #190 > > type Fn<'T> = class end
00:00:11 verbose #191 > > #if FABLE_COMPILER
00:00:11 verbose #192 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:11 verbose #193 > > #endif
00:00:11 verbose #194 > > type FnUnit = class end
00:00:11 verbose #195 > > #if FABLE_COMPILER
00:00:11 verbose #196 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:11 verbose #197 > > #endif
00:00:11 verbose #198 > > type FnOnce<'T> = class end
00:00:11 verbose #199 > > #if FABLE_COMPILER
00:00:11 verbose #200 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:11 verbose #201 > > #endif
00:00:11 verbose #202 > > type ActionFn<'T> = class end
00:00:11 verbose #203 > > #if FABLE_COMPILER
00:00:11 verbose #204 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:11 verbose #205 > > #endif
00:00:11 verbose #206 > > type ActionFn2<'T, 'U> = class end
00:00:11 verbose #207 > > #if FABLE_COMPILER
00:00:11 verbose #208 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:11 verbose #209 > > #endif
00:00:11 verbose #210 > > type Impl<'T> = class end
00:00:11 verbose #211 > > #if FABLE_COMPILER
00:00:11 verbose #212 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:11 verbose #213 > > #endif
00:00:11 verbose #214 > > type Mut<'T> = class end
00:00:11 verbose #215 > > #if FABLE_COMPILER
00:00:11 verbose #216 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:11 verbose #217 > > let replace x = v4 x
00:00:11 verbose #218 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:11 verbose #219 > > let replace_regex x = v5 x
00:00:11 verbose #220 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:11 verbose #221 > > let slice x = v6 x
00:00:11 verbose #222 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:11 verbose #223 > > let split x = v7 x
00:00:11 verbose #224 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:11 verbose #225 > > let split_string x = v8 x
00:00:11 verbose #226 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:11 verbose #227 > > let starts_with x = v9 x
00:00:11 verbose #228 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:11 verbose #229 > > let substring x = v10 x
00:00:11 verbose #230 > > let v11 : (string -> string) = closure28()
00:00:11 verbose #231 > > let to_lower x = v11 x
00:00:11 verbose #232 > > let v12 : (string -> string) = closure29()
00:00:11 verbose #233 > > let to_upper x = v12 x
00:00:11 verbose #234 > > let v13 : (string -> string) = closure30()
00:00:11 verbose #235 > > let trim x = v13 x
00:00:11 verbose #236 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:11 verbose #237 > > let trim_end x = v14 x
00:00:11 verbose #238 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:11 verbose #239 > > let trim_start x = v15 x
00:00:11 verbose #240 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:11 verbose #241 > > let ellipsis x = v16 x
00:00:11 verbose #242 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:11 verbose #243 > > let ellipsis_end x = v17 x
00:00:11 verbose #244 > > let v18 : (exn -> string) = closure39()
00:00:11 verbose #245 > > let format_exception x = v18 x
00:00:11 verbose #246 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:11 verbose #247 > > let concat_array_trailing x = v19 x
00:00:11 verbose #248 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:11 verbose #249 > > let concat x = v20 x
00:00:11 verbose #250 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:11 verbose #251 > > let join' x = v21 x
00:00:11 verbose #252 > > let v22 : (string -> (char [[]])) = closure46()
00:00:11 verbose #253 > > let to_char_array x = v22 x
00:00:11 verbose #254 > > ()
00:00:11 verbose #255 > >
00:00:12 verbose #256 > >
00:00:12 verbose #257 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #258 > > #if FABLE_COMPILER
00:00:12 verbose #259 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:12 verbose #260 > > #endif
00:00:12 verbose #261 > > type core_any_Any = class end
00:00:12 verbose #262 > > #if FABLE_COMPILER
00:00:12 verbose #263 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:12 verbose #264 > > #endif
00:00:12 verbose #265 > > type core_ops_Try<'T> = class end
00:00:12 verbose #266 > > #if FABLE_COMPILER
00:00:12 verbose #267 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:12 verbose #268 > > #endif
00:00:12 verbose #269 > > type Func0<'T> = class end
00:00:12 verbose #270 > > #if FABLE_COMPILER
00:00:12 verbose #271 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:12 verbose #272 > > #endif
00:00:12 verbose #273 > > type Func0<'T, 'U> = class end
00:00:12 verbose #274 > > #if FABLE_COMPILER
00:00:12 verbose #275 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:12 verbose #276 > > #endif
00:00:12 verbose #277 > > type Box<'T> = class end
00:00:12 verbose #278 > > #if FABLE_COMPILER
00:00:12 verbose #279 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:12 verbose #280 > > #endif
00:00:12 verbose #281 > > type Dyn<'T> = class end
00:00:12 verbose #282 > > #if FABLE_COMPILER
00:00:12 verbose #283 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:12 verbose #284 > > #endif
00:00:12 verbose #285 > > type Send<'T> = class end
00:00:12 verbose #286 > > #if FABLE_COMPILER
00:00:12 verbose #287 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:12 verbose #288 > > #endif
00:00:12 verbose #289 > > type Fn<'T> = class end
00:00:12 verbose #290 > > #if FABLE_COMPILER
00:00:12 verbose #291 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:12 verbose #292 > > #endif
00:00:12 verbose #293 > > type FnUnit = class end
00:00:12 verbose #294 > > #if FABLE_COMPILER
00:00:12 verbose #295 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:12 verbose #296 > > #endif
00:00:12 verbose #297 > > type FnOnce<'T> = class end
00:00:12 verbose #298 > > #if FABLE_COMPILER
00:00:12 verbose #299 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:12 verbose #300 > > #endif
00:00:12 verbose #301 > > type ActionFn<'T> = class end
00:00:12 verbose #302 > > #if FABLE_COMPILER
00:00:12 verbose #303 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:12 verbose #304 > > #endif
00:00:12 verbose #305 > > type ActionFn2<'T, 'U> = class end
00:00:12 verbose #306 > > #if FABLE_COMPILER
00:00:12 verbose #307 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:12 verbose #308 > > #endif
00:00:12 verbose #309 > > type Impl<'T> = class end
00:00:12 verbose #310 > > #if FABLE_COMPILER
00:00:12 verbose #311 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:12 verbose #312 > > #endif
00:00:12 verbose #313 > > type Mut<'T> = class end
00:00:12 verbose #314 > > #if FABLE_COMPILER
00:00:12 verbose #315 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:12 verbose #316 > > ()
00:00:12 verbose #317 > > #endif
00:00:12 verbose #318 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:12 verbose #319 > > let v28 : string = @"println!(""{}"", $0)"
00:00:12 verbose #320 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:12 verbose #321 > > ()
00:00:12 verbose #322 > > #endif
00:00:12 verbose #323 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:12 verbose #324 > > System.Console.WriteLine v24
00:00:12 verbose #325 > > ()
00:00:12 verbose #326 > > #endif
00:00:12 verbose #327 > > #if FABLE_COMPILER_PYTHON
00:00:12 verbose #328 > > System.Console.WriteLine v24
00:00:12 verbose #329 > > ()
00:00:12 verbose #330 > > #endif
00:00:12 verbose #331 > > #else
00:00:12 verbose #332 > > System.Console.WriteLine v24
00:00:12 verbose #333 > > ()
00:00:12 verbose #334 > > #endif
00:00:12 verbose #335 > > |> fun x -> _v25 <- Some x
00:00:12 verbose #336 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:12 verbose #337 > > _v25=None"
00:00:12 verbose #338 > > let v29 : (string -> unit) = v8.l0
00:00:12 verbose #339 > > v29 v24
00:00:12 verbose #340 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:12 verbose #341 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:12 verbose #342 > > method11(v0, v3)
00:00:12 verbose #343 > > and closure1 () (v0 : string) : uint16 =
00:00:12 verbose #344 > > let v1 : char = v0.[[int 0]]
00:00:12 verbose #345 > > let v2 : (char -> int32) = int32
00:00:12 verbose #346 > > let v3 : int32 = v2 v1
00:00:12 verbose #347 > > let v4 : string = v0.[[int 0..int 7]]
00:00:12 verbose #348 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:12 verbose #349 > > let v6 : int32 = v5 + v3
00:00:12 verbose #350 > > let v7 : (int32 -> uint16) = uint16
00:00:12 verbose #351 > > let v8 : uint16 = v7 v6
00:00:12 verbose #352 > > let v9 : US0 = US0_0
00:00:12 verbose #353 > > let v10 : (unit -> string) = closure2()
00:00:12 verbose #354 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:12 verbose #355 > > method3(v9, v10, v11)
00:00:12 verbose #356 > > let v12 : uint16 = v8 % 48128us
00:00:12 verbose #357 > > let v13 : uint16 = v12 + 1024us
00:00:12 verbose #358 > > v13
00:00:12 verbose #359 > > let v0 : (string -> string) = closure0()
00:00:12 verbose #360 > > let hash_text x = v0 x
00:00:12 verbose #361 > > let v1 : (string -> uint16) = closure1()
00:00:12 verbose #362 > > let hash_to_port x = v1 x
00:00:12 verbose #363 > > ()
00:00:12 verbose #364 > >
00:00:13 verbose #365 > >
00:00:13 verbose #366 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #367 > > #if FABLE_COMPILER
00:00:13 verbose #368 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:13 verbose #369 > > #endif
00:00:13 verbose #370 > > type core_any_Any = class end
00:00:13 verbose #371 > > #if FABLE_COMPILER
00:00:13 verbose #372 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:13 verbose #373 > > #endif
00:00:13 verbose #374 > > type core_ops_Try<'T> = class end
00:00:13 verbose #375 > > #if FABLE_COMPILER
00:00:13 verbose #376 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:13 verbose #377 > > #endif
00:00:13 verbose #378 > > type Func0<'T> = class end
00:00:13 verbose #379 > > #if FABLE_COMPILER
00:00:13 verbose #380 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:13 verbose #381 > > #endif
00:00:13 verbose #382 > > type Func0<'T, 'U> = class end
00:00:13 verbose #383 > > #if FABLE_COMPILER
00:00:13 verbose #384 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:13 verbose #385 > > #endif
00:00:13 verbose #386 > > type Box<'T> = class end
00:00:13 verbose #387 > > #if FABLE_COMPILER
00:00:13 verbose #388 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:13 verbose #389 > > #endif
00:00:13 verbose #390 > > type Dyn<'T> = class end
00:00:13 verbose #391 > > #if FABLE_COMPILER
00:00:13 verbose #392 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:13 verbose #393 > > #endif
00:00:13 verbose #394 > > type Send<'T> = class end
00:00:13 verbose #395 > > #if FABLE_COMPILER
00:00:13 verbose #396 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:13 verbose #397 > > #endif
00:00:13 verbose #398 > > type Fn<'T> = class end
00:00:13 verbose #399 > > #if FABLE_COMPILER
00:00:13 verbose #400 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:13 verbose #401 > > #endif
00:00:13 verbose #402 > > type FnUnit = class end
00:00:13 verbose #403 > > #if FABLE_COMPILER
00:00:13 verbose #404 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:13 verbose #405 > > #endif
00:00:13 verbose #406 > > type FnOnce<'T> = class end
00:00:13 verbose #407 > > #if FABLE_COMPILER
00:00:13 verbose #408 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:13 verbose #409 > > #endif
00:00:13 verbose #410 > > type ActionFn<'T> = class end
00:00:13 verbose #411 > > #if FABLE_COMPILER
00:00:13 verbose #412 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:13 verbose #413 > > #endif
00:00:13 verbose #414 > > type ActionFn2<'T, 'U> = class end
00:00:13 verbose #415 > > #if FABLE_COMPILER
00:00:13 verbose #416 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:13 verbose #417 > > #endif
00:00:13 verbose #418 > > type Impl<'T> = class end
00:00:13 verbose #419 > > #if FABLE_COMPILER
00:00:13 verbose #420 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:13 verbose #421 > > #endif
00:00:13 verbose #422 > > type Mut<'T> = class end
00:00:13 verbose #423 > > #if FABLE_COMPILER
00:00:13 verbose #424 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:13 verbose #425 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:13 verbose #426 > > let v2 : System.Guid = v1 ()
00:00:13 verbose #427 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:13 verbose #428 > > let v4 : string = v3 v2
00:00:13 verbose #429 > > let v5 : (int64 -> string) = _.ToString()
00:00:13 verbose #430 > > let v6 : string = v5 v0
00:00:13 verbose #431 > > let v7 : string = v6.PadLeft (18, '0')
00:00:13 verbose #432 > > let v8 : System.Guid = System.Guid
00:00:13 verbose #433 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:13 verbose #434 > > v8
00:00:13 verbose #435 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:13 verbose #436 > > let v2 : (string -> string) = v1.ToString
00:00:13 verbose #437 > > v2 v0
00:00:13 verbose #438 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:13 verbose #439 > > closure12(v0)
00:00:13 verbose #440 > > and closure13 () (v0 : System.DateTime) : string =
00:00:13 verbose #441 > > let v1 : (string -> string) = v0.ToString
00:00:13 verbose #442 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:13 verbose #443 > > v1 v2
00:00:13 verbose #444 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:13 verbose #445 > > let date_time_guid_from_date_time x = v0 x
00:00:13 verbose #446 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:13 verbose #447 > > let date_time_from_guid x = v1 x
00:00:13 verbose #448 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:13 verbose #449 > > let timestamp_guid_from_timestamp x = v2 x
00:00:13 verbose #450 > > let v3 : (System.Guid -> int64) = closure8()
00:00:13 verbose #451 > > let timestamp_from_guid x = v3 x
00:00:13 verbose #452 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:13 verbose #453 > > let new_guid_from_date_time x = v4 x
00:00:13 verbose #454 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:13 verbose #455 > > let new_guid_from_timestamp x = v5 x
00:00:13 verbose #456 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:13 verbose #457 > > let format x = v6 x
00:00:13 verbose #458 > > let v7 : (System.DateTime -> string) = closure13()
00:00:13 verbose #459 > > let format_iso8601 x = v7 x
00:00:13 verbose #460 > > ()
00:00:13 verbose #461 > >
00:00:13 verbose #462 > >
00:00:13 verbose #463 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #464 > > #if FABLE_COMPILER
00:00:13 verbose #465 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:13 verbose #466 > > #endif
00:00:13 verbose #467 > > type futures_future_JoinAll<'T> = class end
00:00:13 verbose #468 > > #if FABLE_COMPILER
00:00:13 verbose #469 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:13 verbose #470 > > #endif
00:00:13 verbose #471 > > type futures_future_TryJoinAll<'T> = class end
00:00:13 verbose #472 > > #if FABLE_COMPILER
00:00:13 verbose #473 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:13 verbose #474 > > #endif
00:00:13 verbose #475 > > type rayon_iter_Map<'T> = class end
00:00:13 verbose #476 > > #if FABLE_COMPILER
00:00:13 verbose #477 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:13 verbose #478 > > #endif
00:00:13 verbose #479 > > type rayon_vec_IntoIter<'T> = class end
00:00:13 verbose #480 > > #if FABLE_COMPILER
00:00:13 verbose #481 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:13 verbose #482 > > #endif
00:00:13 verbose #483 > > type std_future_Future<'T> = class end
00:00:13 verbose #484 > > #if FABLE_COMPILER
00:00:13 verbose #485 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:13 verbose #486 > > #endif
00:00:13 verbose #487 > > type futures_future_Fuse<'T> = class end
00:00:13 verbose #488 > > #if FABLE_COMPILER
00:00:13 verbose #489 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:13 verbose #490 > > #endif
00:00:13 verbose #491 > > type tokio_task_JoinHandle<'T> = class end
00:00:13 verbose #492 > > #if FABLE_COMPILER
00:00:13 verbose #493 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:13 verbose #494 > > #endif
00:00:13 verbose #495 > > type tokio_stream_StreamExt = class end
00:00:13 verbose #496 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:13 verbose #497 > > Async<System.Threading.CancellationToken> =
00:00:13 verbose #498 > > let v1 : bool = true
00:00:13 verbose #499 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:13 verbose #500 > >
00:00:13 verbose #501 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:13 verbose #502 > >
00:00:13 verbose #503 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:13 verbose #504 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:13 verbose #505 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:13 verbose #506 > > v12
00:00:13 verbose #507 > > #endif
00:00:13 verbose #508 > > #else
00:00:13 verbose #509 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:13 verbose #510 > > let mutable _v13 = v13
00:00:13 verbose #511 > > async {
00:00:13 verbose #512 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:13 verbose #513 > > Async.CancellationToken
00:00:13 verbose #514 > > let! v14 = v14
00:00:13 verbose #515 > > let v15 : System.Threading.CancellationToken = v14
00:00:13 verbose #516 > > let v16 : System.Threading.CancellationToken =
00:00:13 verbose #517 > > Async.DefaultCancellationToken
00:00:13 verbose #518 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:13 verbose #519 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:13 verbose #520 > > System.Threading.CancellationTokenSource) =
00:00:13 verbose #521 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:13 verbose #522 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:13 verbose #523 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:13 verbose #524 > > return v20
00:00:13 verbose #525 > > }
00:00:13 verbose #526 > > |> fun x -> _v13 <- Some x
00:00:13 verbose #527 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:13 verbose #528 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:13 verbose #529 > > v21
00:00:13 verbose #530 > > #endif
00:00:13 verbose #531 > > |> fun x -> _v7 <- Some x
00:00:13 verbose #532 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:13 verbose #533 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:13 verbose #534 > > v22
00:00:13 verbose #535 > > #endif
00:00:13 verbose #536 > > |> fun x -> _v1 <- Some x
00:00:13 verbose #537 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:13 verbose #538 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:13 verbose #539 > > v23
00:00:13 verbose #540 > > let v0 : (System.Threading.CancellationToken ->
00:00:13 verbose #541 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:13 verbose #542 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:13 verbose #543 > > ()
00:00:13 verbose #544 > >
00:00:13 verbose #545 > >
00:00:13 verbose #546 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #547 > > #if FABLE_COMPILER
00:00:13 verbose #548 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:13 verbose #549 > > #endif
00:00:13 verbose #550 > > type std_thread_JoinHandle<'T> = class end
00:00:13 verbose #551 > > #if FABLE_COMPILER
00:00:13 verbose #552 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:13 verbose #553 > > #endif
00:00:13 verbose #554 > > type std_sync_Arc<'T> = class end
00:00:13 verbose #555 > > #if FABLE_COMPILER
00:00:13 verbose #556 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:13 verbose #557 > > #endif
00:00:13 verbose #558 > > type std_sync_Mutex<'T> = class end
00:00:13 verbose #559 > > #if FABLE_COMPILER
00:00:13 verbose #560 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:13 verbose #561 > > #endif
00:00:13 verbose #562 > > type std_sync_MutexGuard<'T> = class end
00:00:13 verbose #563 > > #if FABLE_COMPILER
00:00:13 verbose #564 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:13 verbose #565 > > #endif
00:00:13 verbose #566 > > type std_sync_PoisonError<'T> = class end
00:00:13 verbose #567 > > #if FABLE_COMPILER
00:00:13 verbose #568 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:13 verbose #569 > > #endif
00:00:13 verbose #570 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:13 verbose #571 > > #if FABLE_COMPILER
00:00:13 verbose #572 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:13 verbose #573 > > #endif
00:00:13 verbose #574 > > type std_sync_mpsc_SendError<'T> = class end
00:00:13 verbose #575 > > #if FABLE_COMPILER
00:00:13 verbose #576 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:13 verbose #577 > > #endif
00:00:13 verbose #578 > > type std_sync_mpsc_Sender<'T> = class end
00:00:13 verbose #579 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:13 verbose #580 > > _.Dispose () = f ()
00:00:13 verbose #581 > > type [[<Struct>]] US0 =
00:00:13 verbose #582 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:13 verbose #583 > > | US0_1
00:00:13 verbose #584 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:13 verbose #585 > > let v1 : bool = true
00:00:13 verbose #586 > > let mutable _v1 : unit option = None
00:00:13 verbose #587 > >
00:00:13 verbose #588 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:13 verbose #589 > >
00:00:13 verbose #590 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:13 verbose #591 > > "$0()" )
00:00:13 verbose #592 > > v28
00:00:13 verbose #593 > > #endif
00:00:13 verbose #594 > > #if FABLE_COMPILER_RUST && WASM
00:00:13 verbose #595 > > let v29 : (unit -> unit) = method0(v25)
00:00:13 verbose #596 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:13 verbose #597 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:13 verbose #598 > > v30
00:00:13 verbose #599 > > #endif
00:00:13 verbose #600 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:13 verbose #601 > > let v31 : (unit -> unit) = method0(v25)
00:00:13 verbose #602 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:13 verbose #603 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:13 verbose #604 > > v32
00:00:13 verbose #605 > > #endif
00:00:13 verbose #606 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:13 verbose #607 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:13 verbose #608 > > v33
00:00:13 verbose #609 > > #endif
00:00:13 verbose #610 > > #if FABLE_COMPILER_PYTHON
00:00:13 verbose #611 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:13 verbose #612 > > v34
00:00:13 verbose #613 > > #endif
00:00:13 verbose #614 > > #else
00:00:13 verbose #615 > > let v35 : (unit -> unit) = method1(v25)
00:00:13 verbose #616 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:13 verbose #617 > > _.Dispose () = v35 () }
00:00:13 verbose #618 > > v36
00:00:13 verbose #619 > > #endif
00:00:13 verbose #620 > > |> fun x -> _v26 <- Some x
00:00:13 verbose #621 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:13 verbose #622 > > failwith "base.run_target / _v26=None"
00:00:13 verbose #623 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:13 verbose #624 > > struct (v38, v37)
00:00:13 verbose #625 > > #endif
00:00:13 verbose #626 > > |> fun x -> _v1 <- Some x
00:00:13 verbose #627 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:13 verbose #628 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:13 verbose #629 > > "base.run_target / _v1=None"
00:00:13 verbose #630 > > struct (v39, v40)
00:00:13 verbose #631 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:13 verbose #632 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:13 verbose #633 > > let new_disposable_token x = v0 x
00:00:13 verbose #634 > > ()
00:00:13 verbose #635 > >
00:00:14 verbose #636 > >
00:00:14 verbose #637 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #638 > > #if FABLE_COMPILER
00:00:14 verbose #639 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:14 verbose #640 > > #endif
00:00:14 verbose #641 > > type reqwest_Error = class end
00:00:14 verbose #642 > > #if FABLE_COMPILER
00:00:14 verbose #643 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:14 verbose #644 > > #endif
00:00:14 verbose #645 > > type reqwest_RequestBuilder = class end
00:00:14 verbose #646 > > #if FABLE_COMPILER
00:00:14 verbose #647 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:14 verbose #648 > > #endif
00:00:14 verbose #649 > > type reqwest_Response = class end
00:00:14 verbose #650 > > #if FABLE_COMPILER
00:00:14 verbose #651 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:14 verbose #652 > > #endif
00:00:14 verbose #653 > > type std_env_VarError = class end
00:00:14 verbose #654 > > #if FABLE_COMPILER
00:00:14 verbose #655 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:14 verbose #656 > > #endif
00:00:14 verbose #657 > > type core_any_Any = class end
00:00:14 verbose #658 > > #if FABLE_COMPILER
00:00:14 verbose #659 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:14 verbose #660 > > #endif
00:00:14 verbose #661 > > type core_ops_Try<'T> = class end
00:00:14 verbose #662 > > #if FABLE_COMPILER
00:00:14 verbose #663 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:14 verbose #664 > > #endif
00:00:14 verbose #665 > > type Func0<'T> = class end
00:00:14 verbose #666 > > #if FABLE_COMPILER
00:00:14 verbose #667 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:14 verbose #668 > > #endif
00:00:14 verbose #669 > > type Func0<'T, 'U> = class end
00:00:14 verbose #670 > > #if FABLE_COMPILER
00:00:14 verbose #671 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:14 verbose #672 > > #endif
00:00:14 verbose #673 > > type Box<'T> = class end
00:00:14 verbose #674 > > #if FABLE_COMPILER
00:00:14 verbose #675 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:14 verbose #676 > > #endif
00:00:14 verbose #677 > > type Dyn<'T> = class end
00:00:14 verbose #678 > > #if FABLE_COMPILER
00:00:14 verbose #679 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:14 verbose #680 > > #endif
00:00:14 verbose #681 > > type Send<'T> = class end
00:00:14 verbose #682 > > #if FABLE_COMPILER
00:00:14 verbose #683 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:14 verbose #684 > > #endif
00:00:14 verbose #685 > > type Fn<'T> = class end
00:00:14 verbose #686 > > #if FABLE_COMPILER
00:00:14 verbose #687 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:14 verbose #688 > > #endif
00:00:14 verbose #689 > > type FnUnit = class end
00:00:14 verbose #690 > > #if FABLE_COMPILER
00:00:14 verbose #691 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:14 verbose #692 > > ... v212 = v212
00:00:14 verbose #693 > > let v213 : bool = v212
00:00:14 verbose #694 > > let v214 : bool = v213 = false
00:00:14 verbose #695 > > if v214 then
00:00:14 verbose #696 > > return v2
00:00:14 verbose #697 > > (*
00:00:14 verbose #698 > > ()
00:00:14 verbose #699 > > else
00:00:14 verbose #700 > > *) else
00:00:14 verbose #701 > > let v215 : int32 = v2 + 1
00:00:14 verbose #702 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:14 verbose #703 > > return! v216
00:00:14 verbose #704 > > (*
00:00:14 verbose #705 > > ()
00:00:14 verbose #706 > > *)
00:00:14 verbose #707 > > }
00:00:14 verbose #708 > > |> fun x -> _v9 <- Some x
00:00:14 verbose #709 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:14 verbose #710 > > "async.new_async_unit / _v9=None"
00:00:14 verbose #711 > > v217
00:00:14 verbose #712 > > #endif
00:00:14 verbose #713 > > |> fun x -> _v3 <- Some x
00:00:14 verbose #714 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:14 verbose #715 > > "base.run_target / _v3=None"
00:00:14 verbose #716 > > v218
00:00:14 verbose #717 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:14 verbose #718 > > method10(v0, v1, v2)
00:00:14 verbose #719 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:14 verbose #720 > > closure23(v0, v1)
00:00:14 verbose #721 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:14 verbose #722 > > closure22(v0)
00:00:14 verbose #723 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:14 verbose #724 > > let v1 : US0 = US0_0
00:00:14 verbose #725 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:14 verbose #726 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:14 verbose #727 > > let test_port_open x = v2 x
00:00:14 verbose #728 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:14 verbose #729 > > let test_port_open_timeout x = v3 x
00:00:14 verbose #730 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:14 verbose #731 > > closure15()
00:00:14 verbose #732 > > let wait_for_port_access x = v4 x
00:00:14 verbose #733 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:14 verbose #734 > > let get_available_port x = v5 x
00:00:14 verbose #735 > > ()
00:00:14 verbose #736 > >
00:00:15 verbose #737 > >
00:00:15 verbose #738 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:15 verbose #739 > > type [[<Struct>]] US0 =
00:00:15 verbose #740 > > | US0_0
00:00:15 verbose #741 > > | US0_1
00:00:15 verbose #742 > > | US0_2
00:00:15 verbose #743 > > and [[<Struct>]] US1 =
00:00:15 verbose #744 > > | US1_0 of f0_0 : US0
00:00:15 verbose #745 > > | US1_1 of f1_0 : US0
00:00:15 verbose #746 > > | US1_2 of f2_0 : US0
00:00:15 verbose #747 > > | US1_3 of f3_0 : US0
00:00:15 verbose #748 > > | US1_4 of f4_0 : US0
00:00:15 verbose #749 > > let rec closure0 () () : bool =
00:00:15 verbose #750 > > let v0 : bool = true
00:00:15 verbose #751 > > let mutable _v0 : bool option = None
00:00:15 verbose #752 > >
00:00:15 verbose #753 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:15 verbose #754 > >
00:00:15 verbose #755 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:15 verbose #756 > > let v1 : string = "cfg!(windows)"
00:00:15 verbose #757 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:15 verbose #758 > > v2
00:00:15 verbose #759 > > #endif
00:00:15 verbose #760 > > #if FABLE_COMPILER_RUST && WASM
00:00:15 verbose #761 > > let v3 : string = "cfg!(windows)"
00:00:15 verbose #762 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:15 verbose #763 > > v4
00:00:15 verbose #764 > > #endif
00:00:15 verbose #765 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:15 verbose #766 > > let v5 : string = "cfg!(windows)"
00:00:15 verbose #767 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:15 verbose #768 > > v6
00:00:15 verbose #769 > > #endif
00:00:15 verbose #770 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:15 verbose #771 > > let v7 : US0 = US0_0
00:00:15 verbose #772 > > let v8 : US1 = US1_3(v7)
00:00:15 verbose #773 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:15 verbose #774 > > let v10 : bool = failwith<bool> v9
00:00:15 verbose #775 > > v10
00:00:15 verbose #776 > > #endif
00:00:15 verbose #777 > > #if FABLE_COMPILER_PYTHON
00:00:15 verbose #778 > > let v11 : US0 = US0_0
00:00:15 verbose #779 > > let v12 : US1 = US1_4(v11)
00:00:15 verbose #780 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:15 verbose #781 > > let v14 : bool = failwith<bool> v13
00:00:15 verbose #782 > > v14
00:00:15 verbose #783 > > #endif
00:00:15 verbose #784 > > #else
00:00:15 verbose #785 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:15 verbose #786 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:15 verbose #787 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:15 verbose #788 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:15 verbose #789 > > let v17 : b...: string = "cfg!(windows)"
00:00:15 verbose #790 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:15 verbose #791 > > v2
00:00:15 verbose #792 > > #endif
00:00:15 verbose #793 > > #if FABLE_COMPILER_RUST && WASM
00:00:15 verbose #794 > > let v3 : string = "cfg!(windows)"
00:00:15 verbose #795 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:15 verbose #796 > > v4
00:00:15 verbose #797 > > #endif
00:00:15 verbose #798 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:15 verbose #799 > > let v5 : string = "cfg!(windows)"
00:00:15 verbose #800 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:15 verbose #801 > > v6
00:00:15 verbose #802 > > #endif
00:00:15 verbose #803 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:15 verbose #804 > > let v7 : US0 = US0_0
00:00:15 verbose #805 > > let v8 : US1 = US1_3(v7)
00:00:15 verbose #806 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:15 verbose #807 > > let v10 : bool = failwith<bool> v9
00:00:15 verbose #808 > > v10
00:00:15 verbose #809 > > #endif
00:00:15 verbose #810 > > #if FABLE_COMPILER_PYTHON
00:00:15 verbose #811 > > let v11 : US0 = US0_0
00:00:15 verbose #812 > > let v12 : US1 = US1_4(v11)
00:00:15 verbose #813 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:15 verbose #814 > > let v14 : bool = failwith<bool> v13
00:00:15 verbose #815 > > v14
00:00:15 verbose #816 > > #endif
00:00:15 verbose #817 > > #else
00:00:15 verbose #818 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:15 verbose #819 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:15 verbose #820 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:15 verbose #821 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:15 verbose #822 > > let v17 : bool = v16 v15
00:00:15 verbose #823 > > v17
00:00:15 verbose #824 > > #endif
00:00:15 verbose #825 > > |> fun x -> _v0 <- Some x
00:00:15 verbose #826 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:15 verbose #827 > > "base.run_target / _v0=None"
00:00:15 verbose #828 > > if v18 then
00:00:15 verbose #829 > > let v19 : string = ".exe"
00:00:15 verbose #830 > > v19
00:00:15 verbose #831 > > else
00:00:15 verbose #832 > > let v20 : string = ""
00:00:15 verbose #833 > > v20
00:00:15 verbose #834 > > let v0 : (unit -> bool) = closure0()
00:00:15 verbose #835 > > let is_windows () = v0 ()
00:00:15 verbose #836 > > let v1 : (unit -> string) = closure1()
00:00:15 verbose #837 > > let get_executable_suffix () = v1 ()
00:00:15 verbose #838 > > ()
00:00:15 verbose #839 > >
00:00:16 verbose #840 > >
00:00:16 verbose #841 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #842 > > #if FABLE_COMPILER
00:00:16 verbose #843 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:16 verbose #844 > > #endif
00:00:16 verbose #845 > > type clap_Arg = class end
00:00:16 verbose #846 > > #if FABLE_COMPILER
00:00:16 verbose #847 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:16 verbose #848 > > #endif
00:00:16 verbose #849 > > type clap_ArgAction = class end
00:00:16 verbose #850 > > #if FABLE_COMPILER
00:00:16 verbose #851 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:16 verbose #852 > > #endif
00:00:16 verbose #853 > > type clap_Command = class end
00:00:16 verbose #854 > > #if FABLE_COMPILER
00:00:16 verbose #855 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:16 verbose #856 > > #endif
00:00:16 verbose #857 > > type clap_ArgMatches = class end
00:00:16 verbose #858 > > #if FABLE_COMPILER
00:00:16 verbose #859 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:16 verbose #860 > > #endif
00:00:16 verbose #861 > > type clap_builder_ValueRange = class end
00:00:16 verbose #862 > > #if FABLE_COMPILER
00:00:16 verbose #863 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:16 verbose #864 > > #endif
00:00:16 verbose #865 > > type clap_builder_ValueParser = class end
00:00:16 verbose #866 > > #if FABLE_COMPILER
00:00:16 verbose #867 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:16 verbose #868 > > #endif
00:00:16 verbose #869 > > type clap_builder_PossibleValue = class end
00:00:16 verbose #870 > > #if FABLE_COMPILER
00:00:16 verbose #871 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:16 verbose #872 > > #endif
00:00:16 verbose #873 > > type std_process_Child = class end
00:00:16 verbose #874 > > #if FABLE_COMPILER
00:00:16 verbose #875 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:16 verbose #876 > > #endif
00:00:16 verbose #877 > > type std_process_ChildStderr = class end
00:00:16 verbose #878 > > #if FABLE_COMPILER
00:00:16 verbose #879 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:16 verbose #880 > > #endif
00:00:16 verbose #881 > > type std_process_ChildStdout = class end
00:00:16 verbose #882 > > #if FABLE_COMPILER
00:00:16 verbose #883 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:16 verbose #884 > > #endif
00:00:16 verbose #885 > > type std_process_ChildStdin = class end
00:00:16 verbose #886 > > #if FABLE_COMPILER
00:00:16 verbose #887 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:16 verbose #888 > > #endif
00:00:16 verbose #889 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:00:16 verbose #890 > > List.toArray
00:00:16 verbose #891 > > let v20 : (string [[]]) = v19 v18
00:00:16 verbose #892 > > US8_0(v20)
00:00:16 verbose #893 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:00:16 verbose #894 > > let v1 : US8 = method16(v0)
00:00:16 verbose #895 > > match v1 with
00:00:16 verbose #896 > > | US8_1(v4) -> (* Error *)
00:00:16 verbose #897 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:16 verbose #898 > > v5
00:00:16 verbose #899 > > | US8_0(v2) -> (* Ok *)
00:00:16 verbose #900 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:16 verbose #901 > > v3
00:00:16 verbose #902 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:16 verbose #903 > > let v1 : US0 = US0_0
00:00:16 verbose #904 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:16 verbose #905 > > let v2 : (unit -> unit) = closure2()
00:00:16 verbose #906 > > let current_process_kill () = v2 ()
00:00:16 verbose #907 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:00:16 verbose #908 > > let execute_async x = v3 x
00:00:16 verbose #909 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:16 verbose #910 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:16 verbose #911 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:16 verbose #912 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:00:16 verbose #913 > > let execute_with_options_async x = v4 x
00:00:16 verbose #914 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:16 verbose #915 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:16 verbose #916 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:16 verbose #917 > > unit) option * bool * string option)) = closure20()
00:00:16 verbose #918 > > let execution_options x = v5 x
00:00:16 verbose #919 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:00:16 verbose #920 > > let split_args x = v6 x
00:00:16 verbose #921 > > ()
00:00:16 verbose #922 > >
00:00:18 verbose #923 > >
00:00:18 verbose #924 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:18 verbose #925 > > #if FABLE_COMPILER
00:00:18 verbose #926 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:18 verbose #927 > > #endif
00:00:18 verbose #928 > > type std_fs_File = class end
00:00:18 verbose #929 > > #if FABLE_COMPILER
00:00:18 verbose #930 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:18 verbose #931 > > #endif
00:00:18 verbose #932 > > type std_fs_FileType = class end
00:00:18 verbose #933 > > #if FABLE_COMPILER
00:00:18 verbose #934 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:18 verbose #935 > > #endif
00:00:18 verbose #936 > > type std_path_Display = class end
00:00:18 verbose #937 > > #if FABLE_COMPILER
00:00:18 verbose #938 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:18 verbose #939 > > #endif
00:00:18 verbose #940 > > type std_path_Path = class end
00:00:18 verbose #941 > > #if FABLE_COMPILER
00:00:18 verbose #942 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:18 verbose #943 > > #endif
00:00:18 verbose #944 > > type std_path_PathBuf = class end
00:00:18 verbose #945 > > #if FABLE_COMPILER
00:00:18 verbose #946 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:18 verbose #947 > > #endif
00:00:18 verbose #948 > > type async_walkdir_DirEntry = class end
00:00:18 verbose #949 > > #if FABLE_COMPILER
00:00:18 verbose #950 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:18 verbose #951 > > #endif
00:00:18 verbose #952 > > type async_walkdir_Filtering = class end
00:00:18 verbose #953 > > #if FABLE_COMPILER
00:00:18 verbose #954 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:18 verbose #955 > > #endif
00:00:18 verbose #956 > > type async_walkdir_WalkDir = class end
00:00:18 verbose #957 > > #if FABLE_COMPILER
00:00:18 verbose #958 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:18 verbose #959 > > #endif
00:00:18 verbose #960 > > type core_any_Any = class end
00:00:18 verbose #961 > > #if FABLE_COMPILER
00:00:18 verbose #962 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:18 verbose #963 > > #endif
00:00:18 verbose #964 > > type core_ops_Try<'T> = class end
00:00:18 verbose #965 > > #if FABLE_COMPILER
00:00:18 verbose #966 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:18 verbose #967 > > #endif
00:00:18 verbose #968 > > type Func0<'T> = class end
00:00:18 verbose #969 > > #if FABLE_COMPILER
00:00:18 verbose #970 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:18 verbose #971 > > #endif
00:00:18 verbose #972 > > type Func0<'T, 'U> = class end
00:00:18 verbose #973 > > #if FABLE_COMPILER
00:00:18 verbose #974 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:18 verbose #975 > > #endif
00:00:18 verbose #976 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:00:18 verbose #977 > > let wait_for_file_access x = v3 x
00:00:18 verbose #978 > > let v4 : (string -> Async<int64>) = closure12()
00:00:18 verbose #979 > > let wait_for_file_access_read x = v4 x
00:00:18 verbose #980 > > let v5 : (string -> Async<string>) = closure13()
00:00:18 verbose #981 > > let read_all_text_async x = v5 x
00:00:18 verbose #982 > > let v6 : (string -> (string -> bool)) = closure14()
00:00:18 verbose #983 > > let file_exists_content x = v6 x
00:00:18 verbose #984 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:18 verbose #985 > > let write_all_text_async x = v7 x
00:00:18 verbose #986 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:18 verbose #987 > > let write_all_text_exists x = v8 x
00:00:18 verbose #988 > > let v9 : (string -> Async<int64>) = closure20()
00:00:18 verbose #989 > > let delete_file_async x = v9 x
00:00:18 verbose #990 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:18 verbose #991 > > let move_file_async x = v10 x
00:00:18 verbose #992 > > let v11 : (string -> Async<string option>) = closure27()
00:00:18 verbose #993 > > let read_all_text_retry_async x = v11 x
00:00:18 verbose #994 > > let v12 : (unit -> string) = closure35()
00:00:18 verbose #995 > > let create_temp_path () = v12 ()
00:00:18 verbose #996 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:18 verbose #997 > > let create_temp_dir () = v13 ()
00:00:18 verbose #998 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:18 verbose #999 > > let create_temp_dir' x = v14 x
00:00:18 verbose #1000 > > let v15 : (unit -> string) = closure49()
00:00:18 verbose #1001 > > let get_source_directory () = v15 ()
00:00:18 verbose #1002 > > let v16 : (string -> string) = closure50()
00:00:18 verbose #1003 > > let normalize_path x = v16 x
00:00:18 verbose #1004 > > let v17 : (string -> string) = closure51()
00:00:18 verbose #1005 > > let new_file_uri x = v17 x
00:00:18 verbose #1006 > > let v18 : (unit -> string) = closure52()
00:00:18 verbose #1007 > > let get_workspace_root () = v18 ()
00:00:18 verbose #1008 > > let v19 : (bool -> unit) = closure56()
00:00:18 verbose #1009 > > let init_trace_file x = v19 x
00:00:18 verbose #1010 > > let v20 : (string -> (string -> string)) = closure58()
00:00:18 verbose #1011 > > let (</>) x = v20 x
00:00:18 verbose #1012 > > ()
00:00:18 verbose #1013 > >
00:00:21 verbose #1014 > >
00:00:21 verbose #1015 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1016 > > #if FABLE_COMPILER
00:00:21 verbose #1017 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:21 verbose #1018 > > #endif
00:00:21 verbose #1019 > > type core_any_Any = class end
00:00:21 verbose #1020 > > #if FABLE_COMPILER
00:00:21 verbose #1021 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:21 verbose #1022 > > #endif
00:00:21 verbose #1023 > > type core_ops_Try<'T> = class end
00:00:21 verbose #1024 > > #if FABLE_COMPILER
00:00:21 verbose #1025 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:21 verbose #1026 > > #endif
00:00:21 verbose #1027 > > type Func0<'T> = class end
00:00:21 verbose #1028 > > #if FABLE_COMPILER
00:00:21 verbose #1029 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:21 verbose #1030 > > #endif
00:00:21 verbose #1031 > > type Func0<'T, 'U> = class end
00:00:21 verbose #1032 > > #if FABLE_COMPILER
00:00:21 verbose #1033 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:21 verbose #1034 > > #endif
00:00:21 verbose #1035 > > type Box<'T> = class end
00:00:21 verbose #1036 > > #if FABLE_COMPILER
00:00:21 verbose #1037 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:21 verbose #1038 > > #endif
00:00:21 verbose #1039 > > type Dyn<'T> = class end
00:00:21 verbose #1040 > > #if FABLE_COMPILER
00:00:21 verbose #1041 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:21 verbose #1042 > > #endif
00:00:21 verbose #1043 > > type Send<'T> = class end
00:00:21 verbose #1044 > > #if FABLE_COMPILER
00:00:21 verbose #1045 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:21 verbose #1046 > > #endif
00:00:21 verbose #1047 > > type Fn<'T> = class end
00:00:21 verbose #1048 > > #if FABLE_COMPILER
00:00:21 verbose #1049 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:21 verbose #1050 > > #endif
00:00:21 verbose #1051 > > type FnUnit = class end
00:00:21 verbose #1052 > > #if FABLE_COMPILER
00:00:21 verbose #1053 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:21 verbose #1054 > > #endif
00:00:21 verbose #1055 > > type FnOnce<'T> = class end
00:00:21 verbose #1056 > > #if FABLE_COMPILER
00:00:21 verbose #1057 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:21 verbose #1058 > > #endif
00:00:21 verbose #1059 > > type ActionFn<'T> = class end
00:00:21 verbose #1060 > > #if FABLE_COMPILER
00:00:21 verbose #1061 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:21 verbose #1062 > > #endif
00:00:21 verbose #1063 > > type ActionFn2<'T, 'U> = class end
00:00:21 verbose #1064 > > #if FABLE_COMPILER
00:00:21 verbose #1065 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:21 verbose #1066 > > #endif
00:00:21 verbose #1067 > > type Impl<'T> = class end
00:00:21 verbose #1068 > > #if FABLE_COMPILER
00:00:21 verbose #1069 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:21 verbose #1070 > > #endif
00:00:21 verbose #1071 > > type Mut<'T> = class end
00:00:21 verbose #1072 > > #if FABLE_COMPILER
00:00:21 verbose #1073 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:21 verbose #1074 > > #if FABLE_COMPILER_RUST && WASM
00:00:21 verbose #1075 > > let v27 : string = @"println!(""{}"", $0)"
00:00:21 verbose #1076 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:21 verbose #1077 > > ()
00:00:21 verbose #1078 > > #endif
00:00:21 verbose #1079 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:21 verbose #1080 > > let v28 : string = @"println!(""{}"", $0)"
00:00:21 verbose #1081 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:21 verbose #1082 > > ()
00:00:21 verbose #1083 > > #endif
00:00:21 verbose #1084 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:21 verbose #1085 > > System.Console.WriteLine v24
00:00:21 verbose #1086 > > ()
00:00:21 verbose #1087 > > #endif
00:00:21 verbose #1088 > > #if FABLE_COMPILER_PYTHON
00:00:21 verbose #1089 > > System.Console.WriteLine v24
00:00:21 verbose #1090 > > ()
00:00:21 verbose #1091 > > #endif
00:00:21 verbose #1092 > > #else
00:00:21 verbose #1093 > > System.Console.WriteLine v24
00:00:21 verbose #1094 > > ()
00:00:21 verbose #1095 > > #endif
00:00:21 verbose #1096 > > |> fun x -> _v25 <- Some x
00:00:21 verbose #1097 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:21 verbose #1098 > > _v25=None"
00:00:21 verbose #1099 > > let v29 : (string -> unit) = v8.l0
00:00:21 verbose #1100 > > v29 v24
00:00:21 verbose #1101 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:21 verbose #1102 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:21 verbose #1103 > > method8(v0, v3)
00:00:21 verbose #1104 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:21 verbose #1105 > > method4(v0, v1, v2)
00:00:21 verbose #1106 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:21 verbose #1107 > > closure4(v0, v1)
00:00:21 verbose #1108 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:21 verbose #1109 > > closure3(v0)
00:00:21 verbose #1110 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:21 verbose #1111 > > let v1 : US0 = US0_0
00:00:21 verbose #1112 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:21 verbose #1113 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:21 verbose #1114 > > let trace x = v2 x
00:00:21 verbose #1115 > > ()
00:00:21 verbose #1116 > >
00:00:21 verbose #1117 > >
00:00:21 verbose #1118 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1119 > > module SpiralTrace =
00:00:21 verbose #1120 > > let trace x =
00:00:21 verbose #1121 > > #if !INTERACTIVE
00:00:21 verbose #1122 > > Trace.trace x
00:00:21 verbose #1123 > > #else
00:00:21 verbose #1124 > > trace x
00:00:21 verbose #1125 > > #endif
00:00:21 verbose #1126 > >
00:00:21 verbose #1127 > > type TraceLevel =
00:00:21 verbose #1128 > > #if !INTERACTIVE
00:00:21 verbose #1129 > > Trace.US0
00:00:21 verbose #1130 > > #else
00:00:21 verbose #1131 > > US0
00:00:21 verbose #1132 > > #endif
00:00:21 verbose #1133 > >
00:00:21 verbose #1134 > > module SpiralCrypto =
00:00:21 verbose #1135 > > let hash_text x =
00:00:21 verbose #1136 > > #if !INTERACTIVE
00:00:21 verbose #1137 > > Crypto.hash_text x
00:00:21 verbose #1138 > > #else
00:00:21 verbose #1139 > > hash_text x
00:00:21 verbose #1140 > > #endif
00:00:21 verbose #1141 > >
00:00:21 verbose #1142 > > let hash_to_port x =
00:00:21 verbose #1143 > > #if !INTERACTIVE
00:00:21 verbose #1144 > > Crypto.hash_to_port x
00:00:21 verbose #1145 > > #else
00:00:21 verbose #1146 > > hash_to_port x
00:00:21 verbose #1147 > > #endif
00:00:21 verbose #1148 > >
00:00:21 verbose #1149 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:21 verbose #1150 > >
00:00:21 verbose #1151 > > module SpiralAsync =
00:00:21 verbose #1152 > > let merge_cancellation_token_with_default_async x =
00:00:21 verbose #1153 > > #if !INTERACTIVE
00:00:21 verbose #1154 > > Async_.merge_cancellation_token_with_default_async x
00:00:21 verbose #1155 > > #else
00:00:21 verbose #1156 > > merge_cancellation_token_with_default_async x
00:00:21 verbose #1157 > > #endif
00:00:21 verbose #1158 > >
00:00:21 verbose #1159 > > module SpiralThreading =
00:00:21 verbose #1160 > > let new_disposable_token x =
00:00:21 verbose #1161 > > #if !INTERACTIVE
00:00:21 verbose #1162 > > Threading.new_disposable_token x
00:00:21 verbose #1163 > > #else
00:00:21 verbose #1164 > > new_disposable_token x
00:00:21 verbose #1165 > > #endif
00:00:21 verbose #1166 > >
00:00:21 verbose #1167 > > module SpiralNetworking =
00:00:21 verbose #1168 > > let test_port_open x =
00:00:21 verbose #1169 > > #if !INTERACTIVE
00:00:21 verbose #1170 > > Networking.test_port_open x
00:00:21 verbose #1171 > > #else
00:00:21 verbose #1172 > > test_port_open x
00:00:21 verbose #1173 > > #endif
00:00:21 verbose #1174 > >
00:00:21 verbose #1175 > > let test_port_open_timeout x =
00:00:21 verbose #1176 > > #if !INTERACTIVE
00:00:21 verbose #1177 > > Networking.test_port_open_timeout x
00:00:21 verbose #1178 > > #else
00:00:21 verbose #1179 > > test_port_open_timeout x
00:00:21 verbose #1180 > > #endif
00:00:21 verbose #1181 > >
00:00:21 verbose #1182 > > let wait_for_port_access x =
00:00:21 verbose #1183 > > #if !INTERACTIVE
00:00:21 verbose #1184 > > Networking.wait_for_port_access x
00:00:21 verbose #1185 > > #else
00:00:21 verbose #1186 > > wait_for_port_access x
00:00:21 verbose #1187 > > #endif
00:00:21 verbose #1188 > >
00:00:21 verbose #1189 > > let get_available_port x =
00:00:21 verbose #1190 > > #if !INTERACTIVE
00:00:21 verbose #1191 > > Networking.get_available_port x
00:00:21 verbose #1192 > > #else
00:00:21 verbose #1193 > > get_available_port x
00:00:21 verbose #1194 > > #endif
00:00:21 verbose #1195 > >
00:00:21 verbose #1196 > > module SpiralPlatform =
00:00:21 verbose #1197 > > let get_executable_suffix () =
00:00:21 verbose #1198 > > #if !INTERACTIVE
00:00:21 verbose #1199 > > Platform.g...e.trace_state
00:00:21 verbose #1200 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1201 > > level.l0 <-
00:00:21 verbose #1202 > > match new_level with
00:00:21 verbose #1203 > > | Trace.US0_0 -> File_system.US0_0
00:00:21 verbose #1204 > > | Trace.US0_1 -> File_system.US0_1
00:00:21 verbose #1205 > > | Trace.US0_2 -> File_system.US0_2
00:00:21 verbose #1206 > > | Trace.US0_3 -> File_system.US0_3
00:00:21 verbose #1207 > > | Trace.US0_4 -> File_system.US0_4
00:00:21 verbose #1208 > > )
00:00:21 verbose #1209 > >
00:00:21 verbose #1210 > > Runtime.State.trace_state
00:00:21 verbose #1211 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1212 > > level.l0 <-
00:00:21 verbose #1213 > > match new_level with
00:00:21 verbose #1214 > > | Trace.US0_0 -> Runtime.US0_0
00:00:21 verbose #1215 > > | Trace.US0_1 -> Runtime.US0_1
00:00:21 verbose #1216 > > | Trace.US0_2 -> Runtime.US0_2
00:00:21 verbose #1217 > > | Trace.US0_3 -> Runtime.US0_3
00:00:21 verbose #1218 > > | Trace.US0_4 -> Runtime.US0_4
00:00:21 verbose #1219 > > )
00:00:21 verbose #1220 > >
00:00:21 verbose #1221 > > Common.State.trace_state
00:00:21 verbose #1222 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1223 > > level.l0 <-
00:00:21 verbose #1224 > > match new_level with
00:00:21 verbose #1225 > > | Trace.US0_0 -> Common.US0_0
00:00:21 verbose #1226 > > | Trace.US0_1 -> Common.US0_1
00:00:21 verbose #1227 > > | Trace.US0_2 -> Common.US0_2
00:00:21 verbose #1228 > > | Trace.US0_3 -> Common.US0_3
00:00:21 verbose #1229 > > | Trace.US0_4 -> Common.US0_4
00:00:21 verbose #1230 > > )
00:00:21 verbose #1231 > >
00:00:21 verbose #1232 > > Trace.State.trace_state
00:00:21 verbose #1233 > > #else
00:00:21 verbose #1234 > > State.trace_state
00:00:21 verbose #1235 > > #endif
00:00:21 verbose #1236 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:21 verbose #1237 > > level.l0 <- new_level
00:00:21 verbose #1238 > > )
00:00:21 verbose #1239 > >
00:00:21 verbose #1240 > > let get_trace_level () =
00:00:21 verbose #1241 > > #if !INTERACTIVE
00:00:21 verbose #1242 > > Trace.State.trace_state
00:00:21 verbose #1243 > > #else
00:00:21 verbose #1244 > > State.trace_state
00:00:21 verbose #1245 > > #endif
00:00:21 verbose #1246 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1247 > > level.l0
00:00:21 verbose #1248 > > )
00:00:21 verbose #1249 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:21 verbose #1250 > > trace_state=None")
00:00:21 verbose #1251 > >
00:00:22 verbose #1252 > >
00:00:22 verbose #1253 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1254 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:22 verbose #1255 > >
00:00:22 verbose #1256 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1257 > > //// test
00:00:22 verbose #1258 > >
00:00:22 verbose #1259 > > type AssertExceptionFormatter (ex) =
00:00:22 verbose #1260 > > member _.Text =
00:00:22 verbose #1261 > > ex.ToString()
00:00:22 verbose #1262 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:22 verbose #1263 > > .Replace("36m", "</span>")
00:00:22 verbose #1264 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:22 verbose #1265 > > .Replace("\n", "<br/>\n")
00:00:22 verbose #1266 > >
00:00:22 verbose #1267 > >
00:00:22 verbose #1268 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:22 verbose #1269 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:22 verbose #1270 > >
00:00:22 verbose #1271 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1272 > > //// test
00:00:22 verbose #1273 > >
00:00:22 verbose #1274 > > let inline __expect fn log expected actual =
00:00:22 verbose #1275 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:22 verbose #1276 > > try
00:00:22 verbose #1277 > > "Testing.__expect" |> fn actual expected
00:00:22 verbose #1278 > > with :? Expecto.AssertException as ex ->
00:00:22 verbose #1279 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:22 verbose #1280 > > failwith (ex.GetType().FullName)
00:00:22 verbose #1281 > >
00:00:22 verbose #1282 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:22 verbose #1283 > > expected actual
00:00:22 verbose #1284 > > let inline _contains expected actual = __contains true expected actual
00:00:22 verbose #1285 > >
00:00:22 verbose #1286 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:22 verbose #1287 > > expected actual
00:00:22 verbose #1288 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:22 verbose #1289 > >
00:00:22 verbose #1290 > > let inline __isGreaterThan log expected actual = __expect
00:00:22 verbose #1291 > > Expecto.Expect.isGreaterThan log expected actual
00:00:22 verbose #1292 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:22 verbose #1293 > >
00:00:22 verbose #1294 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:22 verbose #1295 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:22 verbose #1296 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:22 verbose #1297 > > expected actual
00:00:22 verbose #1298 > >
00:00:22 verbose #1299 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:22 verbose #1300 > > log expected actual
00:00:22 verbose #1301 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:22 verbose #1302 > >
00:00:22 verbose #1303 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:22 verbose #1304 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:22 verbose #1305 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:22 verbose #1306 > > expected actual
00:00:22 verbose #1307 > >
00:00:22 verbose #1308 > > let inline __sequenceEqual log expected actual = __expect
00:00:22 verbose #1309 > > Expecto.Expect.sequenceEqual log expected actual
00:00:22 verbose #1310 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:22 verbose #1311 > >
00:00:22 verbose #1312 > > let inline __stringContains log expected actual = __expect
00:00:22 verbose #1313 > > Expecto.Expect.stringContains log expected actual
00:00:22 verbose #1314 > > let inline _stringContains expected actual = __stringContains true expected
00:00:22 verbose #1315 > > actual
00:00:22 verbose #1316 > >
00:00:22 verbose #1317 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:22 verbose #1318 > > log expected actual
00:00:22 verbose #1319 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:22 verbose #1320 > >
00:00:22 verbose #1321 > > let inline __stringStarts log expected actual = __expect
00:00:22 verbose #1322 > > Expecto.Expect.stringStarts log expected actual
00:00:22 verbose #1323 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:22 verbose #1324 > >
00:00:22 verbose #1325 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:22 verbose #1326 > > expected actual
00:00:22 verbose #1327 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:22 verbose #1328 > >
00:00:22 verbose #1329 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1330 > > //// test
00:00:22 verbose #1331 > >
00:00:22 verbose #1332 > > let inline __isBetween log a b actual =
00:00:22 verbose #1333 > > let inline isBetween actual (a, b) _ =
00:00:22 verbose #1334 > > __isGreaterThanOrEqual log a actual
00:00:22 verbose #1335 > > __isLessThanOrEqual log b actual
00:00:22 verbose #1336 > > __expect isBetween log (a, b) actual
00:00:22 verbose #1337 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:22 verbose #1338 > >
00:00:22 verbose #1339 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1340 > > //// test
00:00:22 verbose #1341 > >
00:00:22 verbose #1342 > > open testing
00:00:22 verbose #1343 > > open benchmark
00:00:22 verbose #1344 > >
00:00:22 verbose #1345 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1346 > > #r
00:00:22 verbose #1347 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:22 verbose #1348 > > otNet.Interactive.Spiral.dll"
00:00:22 verbose #1349 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:22 verbose #1350 > > #r
00:00:22 verbose #1351 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:22 verbose #1352 > > otNet.Interactive.dll"
00:00:22 verbose #1353 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:25 verbose #1354 > >
00:00:25 verbose #1355 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1356 > > #if !INTERACTIVE
00:00:25 verbose #1357 > > open Lib
00:00:25 verbose #1358 > > #endif
00:00:25 verbose #1359 > >
00:00:25 verbose #1360 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1361 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1362 > > │ ## TestCaseResult │
00:00:25 verbose #1363 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1364 > >
00:00:25 verbose #1365 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1366 > > type TestCaseResult =
00:00:25 verbose #1367 > > {
00:00:25 verbose #1368 > > Input: string
00:00:25 verbose #1369 > > Expected: string
00:00:25 verbose #1370 > > Result: string
00:00:25 verbose #1371 > > TimeList: int64 list
00:00:25 verbose #1372 > > }
00:00:25 verbose #1373 > >
00:00:25 verbose #1374 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1375 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1376 > > │ ## run │
00:00:25 verbose #1377 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1378 > >
00:00:25 verbose #1379 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1380 > > let run count (solutions: (string * ('TInput -> 'TExpected)) list) (input,
00:00:25 verbose #1381 > > expected) =
00:00:25 verbose #1382 > > let inputStr =
00:00:25 verbose #1383 > > match box input with
00:00:25 verbose #1384 > > | :? System.Collections.ICollection as input ->
00:00:25 verbose #1385 > > System.Linq.Enumerable.Cast<obj> input
00:00:25 verbose #1386 > > |> Seq.map string
00:00:25 verbose #1387 > > |> SpiralSm.concat ","
00:00:25 verbose #1388 > > | _ -> input.ToString ()
00:00:25 verbose #1389 > >
00:00:25 verbose #1390 > > printfn ""
00:00:25 verbose #1391 > > printfn $"Solution: {inputStr} "
00:00:25 verbose #1392 > >
00:00:25 verbose #1393 > > let performanceInvoke (fn: unit -> 'T) =
00:00:25 verbose #1394 > > GC.Collect ()
00:00:25 verbose #1395 > > let stopwatch = System.Diagnostics.Stopwatch ()
00:00:25 verbose #1396 > > stopwatch.Start ()
00:00:25 verbose #1397 > > let time1 = stopwatch.ElapsedMilliseconds
00:00:25 verbose #1398 > >
00:00:25 verbose #1399 > > let result =
00:00:25 verbose #1400 > > [[| 0 .. count |]]
00:00:25 verbose #1401 > > |> Array.Parallel.map (fun _ ->
00:00:25 verbose #1402 > > fn ()
00:00:25 verbose #1403 > > )
00:00:25 verbose #1404 > > |> Array.last
00:00:25 verbose #1405 > >
00:00:25 verbose #1406 > > let time2 = stopwatch.ElapsedMilliseconds - time1
00:00:25 verbose #1407 > >
00:00:25 verbose #1408 > > result, time2
00:00:25 verbose #1409 > >
00:00:25 verbose #1410 > > let resultsWithTime =
00:00:25 verbose #1411 > > solutions
00:00:25 verbose #1412 > > |> List.mapi (fun i (testName, solution) ->
00:00:25 verbose #1413 > > let result, time = performanceInvoke (fun () -> solution input)
00:00:25 verbose #1414 > > printfn $"Test case %d{i + 1}. %s{testName}. Time: %A{time} "
00:00:25 verbose #1415 > > result, time
00:00:25 verbose #1416 > > )
00:00:25 verbose #1417 > >
00:00:25 verbose #1418 > >
00:00:25 verbose #1419 > > match resultsWithTime |> List.map fst with
00:00:25 verbose #1420 > > | ([[]] | [[ _ ]]) -> ()
00:00:25 verbose #1421 > > | (head :: tail) when tail |> List.forall ((=) head) -> ()
00:00:25 verbose #1422 > > | results -> failwithf $"Challenge error: %A{results}"
00:00:25 verbose #1423 > >
00:00:25 verbose #1424 > > {
00:00:25 verbose #1425 > > Input = inputStr
00:00:25 verbose #1426 > > Expected = expected.ToString ()
00:00:25 verbose #1427 > > Result = resultsWithTime |> Seq.map fst |> Seq.head |> _.ToString()
00:00:25 verbose #1428 > > TimeList = resultsWithTime |> List.map snd
00:00:25 verbose #1429 > > }
00:00:25 verbose #1430 > >
00:00:25 verbose #1431 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1432 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1433 > > │ ## runAll │
00:00:25 verbose #1434 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1435 > >
00:00:25 verbose #1436 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1437 > > let runAll testName count (solutions: (string * ('TInput -> 'TExpected)) list)
00:00:25 verbose #1438 > > testCases =
00:00:25 verbose #1439 > > printfn ""
00:00:25 verbose #1440 > > printfn ""
00:00:25 verbose #1441 > > printfn $"Test: {testName}"
00:00:25 verbose #1442 > > testCases
00:00:25 verbose #1443 > > |> Seq.map (run count solutions)
00:00:25 verbose #1444 > > |> Seq.toList
00:00:25 verbose #1445 > >
00:00:25 verbose #1446 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #1447 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #1448 > > │ ## sortResultList │
00:00:25 verbose #1449 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #1450 > >
00:00:25 verbose #1451 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1452 > > let sortResultList resultList =
00:00:25 verbose #1453 > > let table =
00:00:25 verbose #1454 > > let rows =
00:00:25 verbose #1455 > > resultList
00:00:25 verbose #1456 > > |> List.map (fun result ->
00:00:25 verbose #1457 > > let best =
00:00:25 verbose #1458 > > result.TimeList
00:00:25 verbose #1459 > > |> List.mapi (fun i time ->
00:00:25 verbose #1460 > > i + 1, time
00:00:25 verbose #1461 > > )
00:00:25 verbose #1462 > > |> List.sortBy snd
00:00:25 verbose #1463 > > |> List.head
00:00:25 verbose #1464 > > |> _.ToString()
00:00:25 verbose #1465 > > let row =
00:00:25 verbose #1466 > > [[
00:00:25 verbose #1467 > > result.Input
00:00:25 verbose #1468 > > result.Expected
00:00:25 verbose #1469 > > result.Result
00:00:25 verbose #1470 > > best
00:00:25 verbose #1471 > > ]]
00:00:25 verbose #1472 > > let color =
00:00:25 verbose #1473 > > match result.Expected = result.Result with
00:00:25 verbose #1474 > > | true -> Some ConsoleColor.DarkGreen
00:00:25 verbose #1475 > > | false -> Some ConsoleColor.DarkRed
00:00:25 verbose #1476 > > row, color
00:00:25 verbose #1477 > > )
00:00:25 verbose #1478 > > let header =
00:00:25 verbose #1479 > > [[
00:00:25 verbose #1480 > > [[
00:00:25 verbose #1481 > > "Input"
00:00:25 verbose #1482 > > "Expected"
00:00:25 verbose #1483 > > "Result"
00:00:25 verbose #1484 > > "Best"
00:00:25 verbose #1485 > > ]]
00:00:25 verbose #1486 > > [[
00:00:25 verbose #1487 > > "---"
00:00:25 verbose #1488 > > "---"
00:00:25 verbose #1489 > > "---"
00:00:25 verbose #1490 > > "---"
00:00:25 verbose #1491 > > ]]
00:00:25 verbose #1492 > > ]]
00:00:25 verbose #1493 > > |> List.map (fun row -> row, None)
00:00:25 verbose #1494 > > header @ rows
00:00:25 verbose #1495 > >
00:00:25 verbose #1496 > > let formattedTable =
00:00:25 verbose #1497 > > let lengthMap =
00:00:25 verbose #1498 > > table
00:00:25 verbose #1499 > > |> List.map fst
00:00:25 verbose #1500 > > |> List.transpose
00:00:25 verbose #1501 > > |> List.map (fun column ->
00:00:25 verbose #1502 > > column
00:00:25 verbose #1503 > > |> List.map String.length
00:00:25 verbose #1504 > > |> List.sortDescending
00:00:25 verbose #1505 > > |> List.tryHead
00:00:25 verbose #1506 > > |> Option.defaultValue 0
00:00:25 verbose #1507 > > )
00:00:25 verbose #1508 > > |> List.indexed
00:00:25 verbose #1509 > > |> Map.ofList
00:00:25 verbose #1510 > > table
00:00:25 verbose #1511 > > |> List.map (fun (row, color) ->
00:00:25 verbose #1512 > > let newRow =
00:00:25 verbose #1513 > > row
00:00:25 verbose #1514 > > |> List.mapi (fun i cell ->
00:00:25 verbose #1515 > > cell.PadRight lengthMap.[[i]]
00:00:25 verbose #1516 > > )
00:00:25 verbose #1517 > > newRow, color
00:00:25 verbose #1518 > > )
00:00:25 verbose #1519 > >
00:00:25 verbose #1520 > > printfn ""
00:00:25 verbose #1521 > > formattedTable
00:00:25 verbose #1522 > > |> List.iter (fun (row, color) ->
00:00:25 verbose #1523 > > match color with
00:00:25 verbose #1524 > > | Some color -> Console.ForegroundColor <- color
00:00:25 verbose #1525 > > | None -> Console.ResetColor ()
00:00:25 verbose #1526 > >
00:00:25 verbose #1527 > > printfn "%s" (String.Join ("\t| ", row))
00:00:25 verbose #1528 > >
00:00:25 verbose #1529 > > Console.ResetColor ()
00:00:25 verbose #1530 > > )
00:00:25 verbose #1531 > >
00:00:25 verbose #1532 > > let averages =
00:00:25 verbose #1533 > > resultList
00:00:25 verbose #1534 > > |> List.map (fun result -> result.TimeList |> List.map float)
00:00:25 verbose #1535 > > |> List.transpose
00:00:25 verbose #1536 > > |> List.map List.average
00:00:25 verbose #1537 > > |> List.map int64
00:00:25 verbose #1538 > > |> List.indexed
00:00:25 verbose #1539 > >
00:00:25 verbose #1540 > > printfn ""
00:00:25 verbose #1541 > > printfn "Average Ranking "
00:00:25 verbose #1542 > > averages
00:00:25 verbose #1543 > > |> List.sortBy snd
00:00:25 verbose #1544 > > |> List.iter (fun (i, avg) ->
00:00:25 verbose #1545 > > printfn $"Test case %d{i + 1}. Average Time: %A{avg} "
00:00:25 verbose #1546 > > )
00:00:25 verbose #1547 > >
00:00:25 verbose #1548 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1549 > > let mutable _count =
00:00:25 verbose #1550 > > if ("CI" |> System.Environment.GetEnvironmentVariable |> fun x -> $"%A{x}")
00:00:25 verbose #1551 > > <> "<null>"
00:00:25 verbose #1552 > > then 2000000
00:00:25 verbose #1553 > > else 2000
00:00:25 verbose #1554 > >
00:00:25 verbose #1555 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #1556 > > inl is_fast () =
00:00:25 verbose #1557 > > false
00:00:26 verbose #1558 > >
00:00:26 verbose #1559 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:26 verbose #1560 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:26 verbose #1561 > > │ ## empty3Tests │
00:00:26 verbose #1562 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 verbose #1563 > >
00:00:26 verbose #1564 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:26 verbose #1565 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:26 verbose #1566 > > │ Test: Empty3 │
00:00:26 verbose #1567 > > │ │
00:00:26 verbose #1568 > > │ Solution: (a, a) │
00:00:26 verbose #1569 > > │ Test case 1. A. Time: 91L │
00:00:26 verbose #1570 > > │ │
00:00:26 verbose #1571 > > │ Solution: (a, a) │
00:00:26 verbose #1572 > > │ Test case 1. A. Time: 56L │
00:00:26 verbose #1573 > > │ │
00:00:26 verbose #1574 > > │ Input | Expected | Result | Best │
00:00:26 verbose #1575 > > │ --- | --- | --- | --- │
00:00:26 verbose #1576 > > │ (a, a) | a | a | (1, 91) │
00:00:26 verbose #1577 > > │ (a, a) | a | a | (1, 56) │
00:00:26 verbose #1578 > > │ │
00:00:26 verbose #1579 > > │ Averages │
00:00:26 verbose #1580 > > │ Test case 1. Average Time: 73L │
00:00:26 verbose #1581 > > │ │
00:00:26 verbose #1582 > > │ Ranking │
00:00:26 verbose #1583 > > │ Test case 1. Average Time: 73L │
00:00:26 verbose #1584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 verbose #1585 > >
00:00:26 verbose #1586 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:26 verbose #1587 > > //// test
00:00:26 verbose #1588 > >
00:00:26 verbose #1589 > > let solutions = [[
00:00:26 verbose #1590 > > "A",
00:00:26 verbose #1591 > > fun (a, _b) ->
00:00:26 verbose #1592 > > a
00:00:26 verbose #1593 > > ]]
00:00:26 verbose #1594 > > let testCases = seq {
00:00:26 verbose #1595 > > ("a", "a"), "a"
00:00:26 verbose #1596 > > ("a", "a"), "a"
00:00:26 verbose #1597 > > }
00:00:26 verbose #1598 > > let rec empty3Tests = runAll (nameof empty3Tests) _count solutions testCases
00:00:26 verbose #1599 > > empty3Tests
00:00:26 verbose #1600 > > |> sortResultList
00:00:26 verbose #1601 > >
00:00:26 verbose #1602 > > ╭─[ 563.13ms - stdout ]────────────────────────────────────────────────────────╮
00:00:26 verbose #1603 > > │ │
00:00:26 verbose #1604 > > │ │
00:00:26 verbose #1605 > > │ Test: empty3Tests │
00:00:26 verbose #1606 > > │ │
00:00:26 verbose #1607 > > │ Solution: (a, a) │
00:00:26 verbose #1608 > > │ Test case 1. A. Time: 1L │
00:00:26 verbose #1609 > > │ │
00:00:26 verbose #1610 > > │ Solution: (a, a) │
00:00:26 verbose #1611 > > │ Test case 1. A. Time: 0L │
00:00:26 verbose #1612 > > │ │
00:00:26 verbose #1613 > > │ Input | Expected | Result | Best │
00:00:26 verbose #1614 > > │ --- | --- | --- | --- │
00:00:26 verbose #1615 > > │ (a, a) | a | a | (1, 1) │
00:00:26 verbose #1616 > > │ (a, a) | a | a | (1, 0) │
00:00:26 verbose #1617 > > │ │
00:00:26 verbose #1618 > > │ Average Ranking │
00:00:26 verbose #1619 > > │ Test case 1. Average Time: 0L │
00:00:26 verbose #1620 > > │ │
00:00:26 verbose #1621 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 verbose #1622 > >
00:00:26 verbose #1623 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:26 verbose #1624 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:26 verbose #1625 > > │ ## empty2Tests │
00:00:26 verbose #1626 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 verbose #1627 > >
00:00:26 verbose #1628 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:26 verbose #1629 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:26 verbose #1630 > > │ Test: Empty2 │
00:00:26 verbose #1631 > > │ │
00:00:26 verbose #1632 > > │ Solution: (a, a) │
00:00:26 verbose #1633 > > │ Test case 1. A. Time: 59L │
00:00:26 verbose #1634 > > │ │
00:00:26 verbose #1635 > > │ Solution: (a, a) │
00:00:26 verbose #1636 > > │ Test case 1. A. Time: 53L │
00:00:26 verbose #1637 > > │ │
00:00:26 verbose #1638 > > │ Input | Expected | Result | Best │
00:00:26 verbose #1639 > > │ --- | --- | --- | --- │
00:00:26 verbose #1640 > > │ (a, a) | a | a | (1, 59) │
00:00:26 verbose #1641 > > │ (a, a) | a | a | (1, 53) │
00:00:26 verbose #1642 > > │ │
00:00:26 verbose #1643 > > │ Averages │
00:00:26 verbose #1644 > > │ Test case 1. Average Time: 56L │
00:00:26 verbose #1645 > > │ │
00:00:26 verbose #1646 > > │ Ranking │
00:00:26 verbose #1647 > > │ Test case 1. Average Time: 56L │
00:00:26 verbose #1648 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 verbose #1649 > >
00:00:26 verbose #1650 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:26 verbose #1651 > > //// test
00:00:26 verbose #1652 > >
00:00:26 verbose #1653 > > let solutions = [[
00:00:26 verbose #1654 > > "A",
00:00:26 verbose #1655 > > fun (a, _b) ->
00:00:26 verbose #1656 > > a
00:00:26 verbose #1657 > > ]]
00:00:26 verbose #1658 > > let testCases = seq {
00:00:26 verbose #1659 > > ("a", "a"), "a"
00:00:26 verbose #1660 > > ("a", "a"), "a"
00:00:26 verbose #1661 > > }
00:00:26 verbose #1662 > > let rec empty2Tests = runAll (nameof empty2Tests) _count solutions testCases
00:00:26 verbose #1663 > > empty2Tests
00:00:26 verbose #1664 > > |> sortResultList
00:00:27 verbose #1665 > >
00:00:27 verbose #1666 > > ╭─[ 502.78ms - stdout ]────────────────────────────────────────────────────────╮
00:00:27 verbose #1667 > > │ │
00:00:27 verbose #1668 > > │ │
00:00:27 verbose #1669 > > │ Test: empty2Tests │
00:00:27 verbose #1670 > > │ │
00:00:27 verbose #1671 > > │ Solution: (a, a) │
00:00:27 verbose #1672 > > │ Test case 1. A. Time: 0L │
00:00:27 verbose #1673 > > │ │
00:00:27 verbose #1674 > > │ Solution: (a, a) │
00:00:27 verbose #1675 > > │ Test case 1. A. Time: 0L │
00:00:27 verbose #1676 > > │ │
00:00:27 verbose #1677 > > │ Input | Expected | Result | Best │
00:00:27 verbose #1678 > > │ --- | --- | --- | --- │
00:00:27 verbose #1679 > > │ (a, a) | a | a | (1, 0) │
00:00:27 verbose #1680 > > │ (a, a) | a | a | (1, 0) │
00:00:27 verbose #1681 > > │ │
00:00:27 verbose #1682 > > │ Average Ranking │
00:00:27 verbose #1683 > > │ Test case 1. Average Time: 0L │
00:00:27 verbose #1684 > > │ │
00:00:27 verbose #1685 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 verbose #1686 > >
00:00:27 verbose #1687 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:27 verbose #1688 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:27 verbose #1689 > > │ ## emptyTests │
00:00:27 verbose #1690 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 verbose #1691 > >
00:00:27 verbose #1692 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:27 verbose #1693 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:27 verbose #1694 > > │ Test: Empty │
00:00:27 verbose #1695 > > │ │
00:00:27 verbose #1696 > > │ Solution: 0 │
00:00:27 verbose #1697 > > │ Test case 1. A. Time: 61L │
00:00:27 verbose #1698 > > │ │
00:00:27 verbose #1699 > > │ Solution: 2 │
00:00:27 verbose #1700 > > │ Test case 1. A. Time: 62L │
00:00:27 verbose #1701 > > │ │
00:00:27 verbose #1702 > > │ Solution: 5 │
00:00:27 verbose #1703 > > │ Test case 1. A. Time: 70L │
00:00:27 verbose #1704 > > │ │
00:00:27 verbose #1705 > > │ Input | Expected | Result | Best │
00:00:27 verbose #1706 > > │ --- | --- | --- | --- │
00:00:27 verbose #1707 > > │ 0 | 0 | 0 | (1, 61) │
00:00:27 verbose #1708 > > │ 2 | 2 | 2 | (1, 62) │
00:00:27 verbose #1709 > > │ 5 | 5 | 5 | (1, 70) │
00:00:27 verbose #1710 > > │ │
00:00:27 verbose #1711 > > │ Averages │
00:00:27 verbose #1712 > > │ Test case 1. Average Time: 64L │
00:00:27 verbose #1713 > > │ │
00:00:27 verbose #1714 > > │ Ranking │
00:00:27 verbose #1715 > > │ Test case 1. Average Time: 64L │
00:00:27 verbose #1716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 verbose #1717 > >
00:00:27 verbose #1718 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:27 verbose #1719 > > //// test
00:00:27 verbose #1720 > >
00:00:27 verbose #1721 > > let solutions = [[
00:00:27 verbose #1722 > > "A",
00:00:27 verbose #1723 > > fun n ->
00:00:27 verbose #1724 > > n + 0
00:00:27 verbose #1725 > > ]]
00:00:27 verbose #1726 > > let testCases = seq {
00:00:27 verbose #1727 > > 0, 0
00:00:27 verbose #1728 > > 2, 2
00:00:27 verbose #1729 > > 5, 5
00:00:27 verbose #1730 > > }
00:00:27 verbose #1731 > > let rec emptyTests = runAll (nameof emptyTests) _count solutions testCases
00:00:27 verbose #1732 > > emptyTests
00:00:27 verbose #1733 > > |> sortResultList
00:00:27 verbose #1734 > >
00:00:27 verbose #1735 > > ╭─[ 718.86ms - stdout ]────────────────────────────────────────────────────────╮
00:00:27 verbose #1736 > > │ │
00:00:27 verbose #1737 > > │ │
00:00:27 verbose #1738 > > │ Test: emptyTests │
00:00:27 verbose #1739 > > │ │
00:00:27 verbose #1740 > > │ Solution: 0 │
00:00:27 verbose #1741 > > │ Test case 1. A. Time: 2L │
00:00:27 verbose #1742 > > │ │
00:00:27 verbose #1743 > > │ Solution: 2 │
00:00:27 verbose #1744 > > │ Test case 1. A. Time: 0L │
00:00:27 verbose #1745 > > │ │
00:00:27 verbose #1746 > > │ Solution: 5 │
00:00:27 verbose #1747 > > │ Test case 1. A. Time: 0L │
00:00:27 verbose #1748 > > │ │
00:00:27 verbose #1749 > > │ Input | Expected | Result | Best │
00:00:27 verbose #1750 > > │ --- | --- | --- | --- │
00:00:27 verbose #1751 > > │ 0 | 0 | 0 | (1, 2) │
00:00:27 verbose #1752 > > │ 2 | 2 | 2 | (1, 0) │
00:00:27 verbose #1753 > > │ 5 | 5 | 5 | (1, 0) │
00:00:27 verbose #1754 > > │ │
00:00:27 verbose #1755 > > │ Average Ranking │
00:00:27 verbose #1756 > > │ Test case 1. Average Time: 0L │
00:00:27 verbose #1757 > > │ │
00:00:27 verbose #1758 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 verbose #1759 > >
00:00:28 verbose #1760 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:28 verbose #1761 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:28 verbose #1762 > > │ ## uniqueLettersTests │
00:00:28 verbose #1763 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 verbose #1764 > >
00:00:28 verbose #1765 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:28 verbose #1766 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:28 verbose #1767 > > │ Test: UniqueLetters │
00:00:28 verbose #1768 > > │ │
00:00:28 verbose #1769 > > │ Solution: abc │
00:00:28 verbose #1770 > > │ Test case 1. A. Time: 1512L │
00:00:28 verbose #1771 > > │ Test case 2. B. Time: 1947L │
00:00:28 verbose #1772 > > │ Test case 3. C. Time: 2023L │
00:00:28 verbose #1773 > > │ Test case 4. D. Time: 1358L │
00:00:28 verbose #1774 > > │ Test case 5. E. Time: 1321L │
00:00:28 verbose #1775 > > │ Test case 6. F. Time: 1346L │
00:00:28 verbose #1776 > > │ Test case 7. G. Time: 1304L │
00:00:28 verbose #1777 > > │ Test case 8. H. Time: 1383L │
00:00:28 verbose #1778 > > │ Test case 9. I. Time: 1495L │
00:00:28 verbose #1779 > > │ Test case 10. J. Time: 1245L │
00:00:28 verbose #1780 > > │ Test case 11. K. Time: 1219L │
00:00:28 verbose #1781 > > │ │
00:00:28 verbose #1782 > > │ Solution: accabb │
00:00:28 verbose #1783 > > │ Test case 1. A. Time: 1648L │
00:00:28 verbose #1784 > > │ Test case 2. B. Time: 2061L │
00:00:28 verbose #1785 > > │ Test case 3. C. Time: 2413L │
00:00:28 verbose #1786 > > │ Test case 4. D. Time: 1561L │
00:00:28 verbose #1787 > > │ Test case 5. E. Time: 1593L │
00:00:28 verbose #1788 > > │ Test case 6. F. Time: 1518L │
00:00:28 verbose #1789 > > │ Test case 7. G. Time: 1415L │
00:00:28 verbose #1790 > > │ Test case 8. H. Time: 1510L │
00:00:28 verbose #1791 > > │ Test case 9. I. Time: 1445L │
00:00:28 verbose #1792 > > │ Test case 10. J. Time: 1636L │
00:00:28 verbose #1793 > > │ Test case 11. K. Time: 1317L │
00:00:28 verbose #1794 > > │ │
00:00:28 verbose #1795 > > │ Solution: pprrqqpp │
00:00:28 verbose #1796 > > │ Test case 1. A. Time: 2255L │
00:00:28 verbose #1797 > > │ Test case 2. B. Time: 2408L │
00:00:28 verbose #1798 > > │ Test case 3. C. Time: 2393L │
00:00:28 verbose #1799 > > │ Test case 4. D. Time: 1675L │
00:00:28 verbose #1800 > > │ Test case 5. E. Time: 1911L │
00:00:28 verbose #1801 > > │ Test case 6. F. Time: 2126L │
00:00:28 verbose #1802 > > │ Test case 7. G. Time: 1504L │
00:00:28 verbose #1803 > > │ Test case 8. H. Time: 1715L │
00:00:28 verbose #1804 > > │ Test case 9. I. Time: 1537L │
00:00:28 verbose #1805 > > │ Test case 10. J. Time: 1522L │
00:00:28 verbose #1806 > > │ Test case 11. K. Time: 1322L │
00:00:28 verbose #1807 > > │ │
00:00:28 verbose #1808 > > │ Solution: │
00:00:28 verbose #1809 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:28 verbose #1810 > > │ bbb │
00:00:28 verbose #1811 > > │ Test case 1. A. Time: 13073L │
00:00:28 verbose #1812 > > │ Test case 2. B. Time: 11519L │
00:00:28 verbose #1813 > > │ Test case 3. C. Time: 8373L │
00:00:28 verbose #1814 > > │ Test case 4. D. Time: 5860L │
00:00:28 verbose #1815 > > │ Test case 5. E. Time: 6490L │
00:00:28 verbose #1816 > > │ Test case 6. F. Time: 6325L │
00:00:28 verbose #1817 > > │ Test case 7. G. Time: 5799L │
00:00:28 verbose #1818 > > │ Test case 8. H. Time: 7099L │
00:00:28 verbose #1819 > > │ Test case 9. I. Time: 6133L │
00:00:28 verbose #1820 > > │ Test case 10. J. Time: 5993L │
00:00:28 verbose #1821 > > │ Test case 11. K. Time: 2040L │
00:00:28 verbose #1822 > > │ │
00:00:28 verbose #1823 > > │ Input │
00:00:28 verbose #1824 > > │ | Expected | Result | Best │
00:00:28 verbose #1825 > > │ --- │
00:00:28 verbose #1826 > > │ │
00:00:28 verbose #1827 > > │ | --- | --- | --- │
00:00:28 verbose #1828 > > │ abc │
00:00:28 verbose #1829 > > │ │
00:00:28 verbose #1830 > > │ | abc | abc | (11, 1219) │
00:00:28 verbose #1831 > > │ accabb │
00:00:28 verbose #1832 > > │ | acb | acb | (11, 1317) │
00:00:28 verbose #1833 > > │ pprrqqpp │
00:00:28 verbose #1834 > > │ | prq | prq | (11, 1322) │
00:00:28 verbose #1835 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:28 verbose #1836 > > │ bbb | acb | acb | (11, 2040) │
00:00:28 verbose #1837 > > │ │
00:00:28 verbose #1838 > > │ Averages │
00:00:28 verbose #1839 > > │ Test case 1. Average Time: 4622L │
00:00:28 verbose #1840 > > │ Test case 2. Average Time: 4483L │
00:00:28 verbose #1841 > > │ Test case 3. Average Time: 3800L │
00:00:28 verbose #1842 > > │ Test case 4. Average Time: 2613L │
00:00:28 verbose #1843 > > │ Test case 5. Average Time: 2828L │
00:00:28 verbose #1844 > > │ Test case 6. Average Time: 2828L │
00:00:28 verbose #1845 > > │ Test case 7. Average Time: 2505L │
00:00:28 verbose #1846 > > │ Test case 8. Average Time: 2926L │
00:00:28 verbose #1847 > > │ Test case 9. Average Time: 2652L │
00:00:28 verbose #1848 > > │ Test case 10. Average Time: 2599L │
00:00:28 verbose #1849 > > │ Test case 11. Average Time: 1474L │
00:00:28 verbose #1850 > > │ │
00:00:28 verbose #1851 > > │ Ranking │
00:00:28 verbose #1852 > > │ Test case 1. Average Time: 4622L │
00:00:28 verbose #1853 > > │ Test case 2. Average Time: 4483L │
00:00:28 verbose #1854 > > │ Test case 3. Average Time: 3800L │
00:00:28 verbose #1855 > > │ Test case 8. Average Time: 2926L │
00:00:28 verbose #1856 > > │ Test case 5. Average Time: 2828L │
00:00:28 verbose #1857 > > │ Test case 6. Average Time: 2828L │
00:00:28 verbose #1858 > > │ Test case 9. Average Time: 2652L │
00:00:28 verbose #1859 > > │ Test case 4. Average Time: 2613L │
00:00:28 verbose #1860 > > │ Test case 10. Average Time: 2599L │
00:00:28 verbose #1861 > > │ Test case 7. Average Time: 2505L │
00:00:28 verbose #1862 > > │ Test case 11. Average Time: 1474L │
00:00:28 verbose #1863 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 verbose #1864 > >
00:00:28 verbose #1865 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:28 verbose #1866 > > //// test
00:00:28 verbose #1867 > >
00:00:28 verbose #1868 > > let solutions = [[
00:00:28 verbose #1869 > > "A",
00:00:28 verbose #1870 > > fun input ->
00:00:28 verbose #1871 > > input
00:00:28 verbose #1872 > > |> Seq.toList
00:00:28 verbose #1873 > > |> List.fold (fun acc x -> if List.contains x acc then acc else acc @ [[
00:00:28 verbose #1874 > > x ]]) [[]]
00:00:28 verbose #1875 > > |> Seq.toArray
00:00:28 verbose #1876 > > |> String
00:00:28 verbose #1877 > >
00:00:28 verbose #1878 > > "B",
00:00:28 verbose #1879 > > fun input ->
00:00:28 verbose #1880 > > input
00:00:28 verbose #1881 > > |> Seq.rev
00:00:28 verbose #1882 > > |> fun list -> Seq.foldBack (fun x acc -> if List.contains x acc then
00:00:28 verbose #1883 > > acc else x :: acc) list [[]]
00:00:28 verbose #1884 > > |> Seq.rev
00:00:28 verbose #1885 > > |> Seq.toArray
00:00:28 verbose #1886 > > |> String
00:00:28 verbose #1887 > >
00:00:28 verbose #1888 > > "C",
00:00:28 verbose #1889 > > fun input ->
00:00:28 verbose #1890 > > input
00:00:28 verbose #1891 > > |> Seq.rev
00:00:28 verbose #1892 > > |> fun list -> Seq.foldBack (fun x (set, acc) -> if Set.contains x set
00:00:28 verbose #1893 > > then set, acc else set.Add x, x :: acc) list (Set.empty, [[]])
00:00:28 verbose #1894 > > |> snd
00:00:28 verbose #1895 > > |> Seq.rev
00:00:28 verbose #1896 > > |> Seq.toArray
00:00:28 verbose #1897 > > |> String
00:00:28 verbose #1898 > >
00:00:28 verbose #1899 > > "D",
00:00:28 verbose #1900 > > fun input ->
00:00:28 verbose #1901 > > input
00:00:28 verbose #1902 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:28 verbose #1903 > > else set.Add x, Array.append acc [[| x |]]) (Set.empty, [[||]])
00:00:28 verbose #1904 > > |> snd
00:00:28 verbose #1905 > > |> String
00:00:28 verbose #1906 > >
00:00:28 verbose #1907 > > "E",
00:00:28 verbose #1908 > > fun input ->
00:00:28 verbose #1909 > > input
00:00:28 verbose #1910 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:28 verbose #1911 > > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:28 verbose #1912 > > |> snd
00:00:28 verbose #1913 > > |> List.rev
00:00:28 verbose #1914 > > |> List.toArray
00:00:28 verbose #1915 > > |> String
00:00:28 verbose #1916 > >
00:00:28 verbose #1917 > > "F",
00:00:28 verbose #1918 > > fun input ->
00:00:28 verbose #1919 > > input
00:00:28 verbose #1920 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:28 verbose #1921 > > else set.Add x, acc @ [[ x ]]) (Set.empty, [[]])
00:00:28 verbose #1922 > > |> snd
00:00:28 verbose #1923 > > |> List.toArray
00:00:28 verbose #1924 > > |> String
00:00:28 verbose #1925 > >
00:00:28 verbose #1926 > > "G",
00:00:28 verbose #1927 > > fun input ->
00:00:28 verbose #1928 > > input
00:00:28 verbose #1929 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:28 verbose #1930 > > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:28 verbose #1931 > > |> snd
00:00:28 verbose #1932 > > |> List.toArray
00:00:28 verbose #1933 > > |> Array.rev
00:00:28 verbose #1934 > > |> String
00:00:28 verbose #1935 > >
00:00:28 verbose #1936 > > "H",
00:00:28 verbose #1937 > > fun input ->
00:00:28 verbose #1938 > > input
00:00:28 verbose #1939 > > |> Seq.toList
00:00:28 verbose #1940 > > |> fun list ->
00:00:28 verbose #1941 > > let rec loop set = function
00:00:28 verbose #1942 > > | head :: tail when Set.contains head set -> loop set tail
00:00:28 verbose #1943 > > | head :: tail -> (loop (set.Add head) tail) @ [[ head ]]
00:00:28 verbose #1944 > > | [[]] -> [[]]
00:00:28 verbose #1945 > > loop Set.empty list
00:00:28 verbose #1946 > > |> List.rev
00:00:28 verbose #1947 > > |> List.toArray
00:00:28 verbose #1948 > > |> String
00:00:28 verbose #1949 > >
00:00:28 verbose #1950 > > "I",
00:00:28 verbose #1951 > > fun input ->
00:00:28 verbose #1952 > > input
00:00:28 verbose #1953 > > |> Seq.toList
00:00:28 verbose #1954 > > |> fun list ->
00:00:28 verbose #1955 > > let rec loop set = function
00:00:28 verbose #1956 > > | head :: tail when Set.contains head set -> loop set tail
00:00:28 verbose #1957 > > | head :: tail -> loop (set.Add head) tail |> Array.append [[|
00:00:28 verbose #1958 > > head |]]
00:00:28 verbose #1959 > > | [[]] -> [[||]]
00:00:28 verbose #1960 > > loop Set.empty list
00:00:28 verbose #1961 > > |> String
00:00:28 verbose #1962 > >
00:00:28 verbose #1963 > > "J",
00:00:28 verbose #1964 > > fun input ->
00:00:28 verbose #1965 > > input
00:00:28 verbose #1966 > > |> Seq.toList
00:00:28 verbose #1967 > > |> fun list ->
00:00:28 verbose #1968 > > let rec loop set = function
00:00:28 verbose #1969 > > | head :: tail when Set.contains head set -> loop set tail
00:00:28 verbose #1970 > > | head :: tail -> head :: loop (set.Add head) tail
00:00:28 verbose #1971 > > | [[]] -> [[]]
00:00:28 verbose #1972 > > loop Set.empty list
00:00:28 verbose #1973 > > |> List.toArray
00:00:28 verbose #1974 > > |> String
00:00:28 verbose #1975 > >
00:00:28 verbose #1976 > > "K",
00:00:28 verbose #1977 > > fun input ->
00:00:28 verbose #1978 > > input
00:00:28 verbose #1979 > > |> Seq.distinct
00:00:28 verbose #1980 > > |> Seq.toArray
00:00:28 verbose #1981 > > |> String
00:00:28 verbose #1982 > > ]]
00:00:28 verbose #1983 > > let testCases = seq {
00:00:28 verbose #1984 > > "abc", "abc"
00:00:28 verbose #1985 > > "accabb", "acb"
00:00:28 verbose #1986 > > "pprrqqpp", "prq"
00:00:28 verbose #1987 > >
00:00:28 verbose #1988 > > "aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbbbbb
00:00:28 verbose #1989 > > ", "acb"
00:00:28 verbose #1990 > > }
00:00:28 verbose #1991 > > let rec uniqueLettersTests = runAll (nameof uniqueLettersTests) _count solutions
00:00:28 verbose #1992 > > testCases
00:00:28 verbose #1993 > > uniqueLettersTests
00:00:28 verbose #1994 > > |> sortResultList
00:00:38 verbose #1995 > >
00:00:38 verbose #1996 > > ╭─[ 10.72s - stdout ]──────────────────────────────────────────────────────────╮
00:00:38 verbose #1997 > > │ │
00:00:38 verbose #1998 > > │ │
00:00:38 verbose #1999 > > │ Test: uniqueLettersTests │
00:00:38 verbose #2000 > > │ │
00:00:38 verbose #2001 > > │ Solution: abc │
00:00:38 verbose #2002 > > │ Test case 1. A. Time: 3L │
00:00:38 verbose #2003 > > │ Test case 2. B. Time: 4L │
00:00:38 verbose #2004 > > │ Test case 3. C. Time: 3L │
00:00:38 verbose #2005 > > │ Test case 4. D. Time: 1L │
00:00:38 verbose #2006 > > │ Test case 5. E. Time: 3L │
00:00:38 verbose #2007 > > │ Test case 6. F. Time: 1L │
00:00:38 verbose #2008 > > │ Test case 7. G. Time: 1L │
00:00:38 verbose #2009 > > │ Test case 8. H. Time: 2L │
00:00:38 verbose #2010 > > │ Test case 9. I. Time: 1L │
00:00:38 verbose #2011 > > │ Test case 10. J. Time: 1L │
00:00:38 verbose #2012 > > │ Test case 11. K. Time: 3L │
00:00:38 verbose #2013 > > │ │
00:00:38 verbose #2014 > > │ Solution: accabb │
00:00:38 verbose #2015 > > │ Test case 1. A. Time: 1L │
00:00:38 verbose #2016 > > │ Test case 2. B. Time: 1L │
00:00:38 verbose #2017 > > │ Test case 3. C. Time: 2L │
00:00:38 verbose #2018 > > │ Test case 4. D. Time: 1L │
00:00:38 verbose #2019 > > │ Test case 5. E. Time: 1L │
00:00:38 verbose #2020 > > │ Test case 6. F. Time: 1L │
00:00:38 verbose #2021 > > │ Test case 7. G. Time: 1L │
00:00:38 verbose #2022 > > │ Test case 8. H. Time: 1L │
00:00:38 verbose #2023 > > │ Test case 9. I. Time: 0L │
00:00:38 verbose #2024 > > │ Test case 10. J. Time: 1L │
00:00:38 verbose #2025 > > │ Test case 11. K. Time: 1L │
00:00:38 verbose #2026 > > │ │
00:00:38 verbose #2027 > > │ Solution: pprrqqpp │
00:00:38 verbose #2028 > > │ Test case 1. A. Time: 1L │
00:00:38 verbose #2029 > > │ Test case 2. B. Time: 1L │
00:00:38 verbose #2030 > > │ Test case 3. C. Time: 1L │
00:00:38 verbose #2031 > > │ Test case 4. D. Time: 1L │
00:00:38 verbose #2032 > > │ Test case 5. E. Time: 1L │
00:00:38 verbose #2033 > > │ Test case 6. F. Time: 1L │
00:00:38 verbose #2034 > > │ Test case 7. G. Time: 1L │
00:00:38 verbose #2035 > > │ Test case 8. H. Time: 1L │
00:00:38 verbose #2036 > > │ Test case 9. I. Time: 0L │
00:00:38 verbose #2037 > > │ Test case 10. J. Time: 1L │
00:00:38 verbose #2038 > > │ Test case 11. K. Time: 0L │
00:00:38 verbose #2039 > > │ │
00:00:38 verbose #2040 > > │ Solution: │
00:00:38 verbose #2041 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:38 verbose #2042 > > │ bbb │
00:00:38 verbose #2043 > > │ Test case 1. A. Time: 12L │
00:00:38 verbose #2044 > > │ Test case 2. B. Time: 9L │
00:00:38 verbose #2045 > > │ Test case 3. C. Time: 14L │
00:00:38 verbose #2046 > > │ Test case 4. D. Time: 8L │
00:00:38 verbose #2047 > > │ Test case 5. E. Time: 8L │
00:00:38 verbose #2048 > > │ Test case 6. F. Time: 8L │
00:00:38 verbose #2049 > > │ Test case 7. G. Time: 11L │
00:00:38 verbose #2050 > > │ Test case 8. H. Time: 8L │
00:00:38 verbose #2051 > > │ Test case 9. I. Time: 7L │
00:00:38 verbose #2052 > > │ Test case 10. J. Time: 7L │
00:00:38 verbose #2053 > > │ Test case 11. K. Time: 3L │
00:00:38 verbose #2054 > > │ │
00:00:38 verbose #2055 > > │ Input │
00:00:38 verbose #2056 > > │ | Expected | Result | Best │
00:00:38 verbose #2057 > > │ --- │
00:00:38 verbose #2058 > > │ | --- | --- | --- │
00:00:38 verbose #2059 > > │ abc │
00:00:38 verbose #2060 > > │ | abc | abc | (4, 1) │
00:00:38 verbose #2061 > > │ accabb │
00:00:38 verbose #2062 > > │ | acb | acb | (9, 0) │
00:00:38 verbose #2063 > > │ pprrqqpp │
00:00:38 verbose #2064 > > │ | prq | prq | (9, 0) │
00:00:38 verbose #2065 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:38 verbose #2066 > > │ bbb | acb | acb | (11, 3) │
00:00:38 verbose #2067 > > │ │
00:00:38 verbose #2068 > > │ Average Ranking │
00:00:38 verbose #2069 > > │ Test case 11. Average Time: 1L │
00:00:38 verbose #2070 > > │ Test case 4. Average Time: 2L │
00:00:38 verbose #2071 > > │ Test case 6. Average Time: 2L │
00:00:38 verbose #2072 > > │ Test case 9. Average Time: 2L │
00:00:38 verbose #2073 > > │ Test case 10. Average Time: 2L │
00:00:38 verbose #2074 > > │ Test case 2. Average Time: 3L │
00:00:38 verbose #2075 > > │ Test case 5. Average Time: 3L │
00:00:38 verbose #2076 > > │ Test case 7. Average Time: 3L │
00:00:38 verbose #2077 > > │ Test case 8. Average Time: 3L │
00:00:38 verbose #2078 > > │ Test case 1. Average Time: 4L │
00:00:38 verbose #2079 > > │ Test case 3. Average Time: 5L │
00:00:38 verbose #2080 > > │ │
00:00:38 verbose #2081 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #2082 > >
00:00:38 verbose #2083 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #2084 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #2085 > > │ ## rotateStringsTests │
00:00:38 verbose #2086 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #2087 > >
00:00:38 verbose #2088 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #2089 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #2090 > > │ https://www.hackerrank.com/challenges/rotate-string/forum │
00:00:38 verbose #2091 > > │ │
00:00:38 verbose #2092 > > │ Test: RotateStrings │
00:00:38 verbose #2093 > > │ │
00:00:38 verbose #2094 > > │ Solution: abc │
00:00:38 verbose #2095 > > │ Test case 1. A. Time: 1842L │
00:00:38 verbose #2096 > > │ Test case 2. B. Time: 1846L │
00:00:38 verbose #2097 > > │ Test case 3. C. Time: 1936L │
00:00:38 verbose #2098 > > │ Test case 4. CA. Time: 2224L │
00:00:38 verbose #2099 > > │ Test case 5. CB. Time: 2329L │
00:00:38 verbose #2100 > > │ Test case 6. D. Time: 2474L │
00:00:38 verbose #2101 > > │ Test case 7. E. Time: 1664L │
00:00:38 verbose #2102 > > │ Test case 8. F. Time: 1517L │
00:00:38 verbose #2103 > > │ Test case 9. FA. Time: 1651L │
00:00:38 verbose #2104 > > │ Test case 10. FB. Time: 3764L │
00:00:38 verbose #2105 > > │ Test case 11. FC. Time: 5415L │
00:00:38 verbose #2106 > > │ │
00:00:38 verbose #2107 > > │ Solution: abcde │
00:00:38 verbose #2108 > > │ Test case 1. A. Time: 3356L │
00:00:38 verbose #2109 > > │ Test case 2. B. Time: 2592L │
00:00:38 verbose #2110 > > │ Test case 3. C. Time: 2346L │
00:00:38 verbose #2111 > > │ Test case 4. CA. Time: 2997L │
00:00:38 verbose #2112 > > │ Test case 5. CB. Time: 3061L │
00:00:38 verbose #2113 > > │ Test case 6. D. Time: 4051L │
00:00:38 verbose #2114 > > │ Test case 7. E. Time: 1905L │
00:00:38 verbose #2115 > > │ Test case 8. F. Time: 1771L │
00:00:38 verbose #2116 > > │ Test case 9. FA. Time: 2175L │
00:00:38 verbose #2117 > > │ Test case 10. FB. Time: 3275L │
00:00:38 verbose #2118 > > │ Test case 11. FC. Time: 5266L │
00:00:38 verbose #2119 > > │ │
00:00:38 verbose #2120 > > │ Solution: abcdefghi │
00:00:38 verbose #2121 > > │ Test case 1. A. Time: 4492L │
00:00:38 verbose #2122 > > │ Test case 2. B. Time: 3526L │
00:00:38 verbose #2123 > > │ Test case 3. C. Time: 3583L │
00:00:38 verbose #2124 > > │ Test case 4. CA. Time: 3711L │
00:00:38 verbose #2125 > > │ Test case 5. CB. Time: 4783L │
00:00:38 verbose #2126 > > │ Test case 6. D. Time: 7557L │
00:00:38 verbose #2127 > > │ Test case 7. E. Time: 3452L │
00:00:38 verbose #2128 > > │ Test case 8. F. Time: 3050L │
00:00:38 verbose #2129 > > │ Test case 9. FA. Time: 3275L │
00:00:38 verbose #2130 > > │ Test case 10. FB. Time: 4635L │
00:00:38 verbose #2131 > > │ Test case 11. FC. Time: 5616L │
00:00:38 verbose #2132 > > │ │
00:00:38 verbose #2133 > > │ Solution: abab │
00:00:38 verbose #2134 > > │ Test case 1. A. Time: 2093L │
00:00:38 verbose #2135 > > │ Test case 2. B. Time: 1843L │
00:00:38 verbose #2136 > > │ Test case 3. C. Time: 1746L │
00:00:38 verbose #2137 > > │ Test case 4. CA. Time: 2085L │
00:00:38 verbose #2138 > > │ Test case 5. CB. Time: 2139L │
00:00:38 verbose #2139 > > │ Test case 6. D. Time: 2095L │
00:00:38 verbose #2140 > > │ Test case 7. E. Time: 1723L │
00:00:38 verbose #2141 > > │ Test case 8. F. Time: 1558L │
00:00:38 verbose #2142 > > │ Test case 9. FA. Time: 1620L │
00:00:38 verbose #2143 > > │ Test case 10. FB. Time: 2319L │
00:00:38 verbose #2144 > > │ Test case 11. FC. Time: 3918L │
00:00:38 verbose #2145 > > │ │
00:00:38 verbose #2146 > > │ Solution: aa │
00:00:38 verbose #2147 > > │ Test case 1. A. Time: 1107L │
00:00:38 verbose #2148 > > │ Test case 2. B. Time: 1241L │
00:00:38 verbose #2149 > > │ Test case 3. C. Time: 1183L │
00:00:38 verbose #2150 > > │ Test case 4. CA. Time: 1563L │
00:00:38 verbose #2151 > > │ Test case 5. CB. Time: 1525L │
00:00:38 verbose #2152 > > │ Test case 6. D. Time: 1591L │
00:00:38 verbose #2153 > > │ Test case 7. E. Time: 1327L │
00:00:38 verbose #2154 > > │ Test case 8. F. Time: 1151L │
00:00:38 verbose #2155 > > │ Test case 9. FA. Time: 1180L │
00:00:38 verbose #2156 > > │ Test case 10. FB. Time: 1733L │
00:00:38 verbose #2157 > > │ Test case 11. FC. Time: 2817L │
00:00:38 verbose #2158 > > │ │
00:00:38 verbose #2159 > > │ Solution: z │
00:00:38 verbose #2160 > > │ Test case 1. A. Time: 816L │
00:00:38 verbose #2161 > > │ Test case 2. B. Time: 745L │
00:00:38 verbose #2162 > > │ Test case 3. C. Time: 928L │
00:00:38 verbose #2163 > > │ Test case 4. CA. Time: 1375L │
00:00:38 verbose #2164 > > │ Test case 5. CB. Time: 1029L │
00:00:38 verbose #2165 > > │ Test case 6. D. Time: 852L │
00:00:38 verbose #2166 > > │ Test case 7. E. Time: 712L │
00:00:38 verbose #2167 > > │ Test case 8. F. Time: 263L │
00:00:38 verbose #2168 > > │ Test case 9. FA. Time: 232L │
00:00:38 verbose #2169 > > │ Test case 10. FB. Time: 773L │
00:00:38 verbose #2170 > > │ Test case 11. FC. Time: 1789L │
00:00:38 verbose #2171 > > │ │
00:00:38 verbose #2172 > > │ Input | Expected │
00:00:38 verbose #2173 > > │ │
00:00:38 verbose #2174 > > │ | Result │
00:00:38 verbose #2175 > > │ │
00:00:38 verbose #2176 > > │ | Best │
00:00:38 verbose #2177 > > │ --- | --- │
00:00:38 verbose #2178 > > │ │
00:00:38 verbose #2179 > > │ | --- │
00:00:38 verbose #2180 > > │ │
00:00:38 verbose #2181 > > │ | --- │
00:00:38 verbose #2182 > > │ abc | bca cab abc │
00:00:38 verbose #2183 > > │ │
00:00:38 verbose #2184 > > │ | bca cab abc │
00:00:38 verbose #2185 > > │ │
00:00:38 verbose #2186 > > │ | (8, 1517) │
00:00:38 verbose #2187 > > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:38 verbose #2188 > > │ | bcdea cdeab deabc eabcd abcde │
00:00:38 verbose #2189 > > │ | (8, 1771) │
00:00:38 verbose #2190 > > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:00:38 verbose #2191 > > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab │
00:00:38 verbose #2192 > > │ defghiabc efghiabcd fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi │
00:00:38 verbose #2193 > > │ | (8, 3050) │
00:00:38 verbose #2194 > > │ abab | baba abab baba abab │
00:00:38 verbose #2195 > > │ │
00:00:38 verbose #2196 > > │ | baba abab baba abab │
00:00:38 verbose #2197 > > │ │
00:00:38 verbose #2198 > > │ | (8, 1558) │
00:00:38 verbose #2199 > > │ aa | aa aa │
00:00:38 verbose #2200 > > │ │
00:00:38 verbose #2201 > > │ | aa aa │
00:00:38 verbose #2202 > > │ │
00:00:38 verbose #2203 > > │ | (1, 1107) │
00:00:38 verbose #2204 > > │ z | z │
00:00:38 verbose #2205 > > │ │
00:00:38 verbose #2206 > > │ | z │
00:00:38 verbose #2207 > > │ │
00:00:38 verbose #2208 > > │ | (9, 232) │
00:00:38 verbose #2209 > > │ │
00:00:38 verbose #2210 > > │ Averages │
00:00:38 verbose #2211 > > │ Test case 1. Average Time: 2284L │
00:00:38 verbose #2212 > > │ Test case 2. Average Time: 1965L │
00:00:38 verbose #2213 > > │ Test case 3. Average Time: 1953L │
00:00:38 verbose #2214 > > │ Test case 4. Average Time: 2325L │
00:00:38 verbose #2215 > > │ Test case 5. Average Time: 2477L │
00:00:38 verbose #2216 > > │ Test case 6. Average Time: 3103L │
00:00:38 verbose #2217 > > │ Test case 7. Average Time: 1797L │
00:00:38 verbose #2218 > > │ Test case 8. Average Time: 1551L │
00:00:38 verbose #2219 > > │ Test case 9. Average Time: 1688L │
00:00:38 verbose #2220 > > │ Test case 10. Average Time: 2749L │
00:00:38 verbose #2221 > > │ Test case 11. Average Time: 4136L │
00:00:38 verbose #2222 > > │ │
00:00:38 verbose #2223 > > │ Ranking │
00:00:38 verbose #2224 > > │ Test case 11. Average Time: 4136L │
00:00:38 verbose #2225 > > │ Test case 6. Average Time: 3103L │
00:00:38 verbose #2226 > > │ Test case 10. Average Time: 2749L │
00:00:38 verbose #2227 > > │ Test case 5. Average Time: 2477L │
00:00:38 verbose #2228 > > │ Test case 4. Average Time: 2325L │
00:00:38 verbose #2229 > > │ Test case 1. Average Time: 2284L │
00:00:38 verbose #2230 > > │ Test case 2. Average Time: 1965L │
00:00:38 verbose #2231 > > │ Test case 3. Average Time: 1953L │
00:00:38 verbose #2232 > > │ Test case 7. Average Time: 1797L │
00:00:38 verbose #2233 > > │ Test case 9. Average Time: 1688L │
00:00:38 verbose #2234 > > │ Test case 8. Average Time: 1551L │
00:00:38 verbose #2235 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #2236 > >
00:00:38 verbose #2237 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #2238 > > //// test
00:00:38 verbose #2239 > >
00:00:38 verbose #2240 > > let solutions = [[
00:00:38 verbose #2241 > > "A",
00:00:38 verbose #2242 > > fun (input: string) ->
00:00:38 verbose #2243 > > let resultList =
00:00:38 verbose #2244 > > List.fold (fun acc x ->
00:00:38 verbose #2245 > > let rotate (text: string) (letter: string) = (text |>
00:00:38 verbose #2246 > > SpiralSm.slice 1 (input.Length - 1)) + letter
00:00:38 verbose #2247 > > [[ rotate (if acc.IsEmpty then input else acc.Head) (string x)
00:00:38 verbose #2248 > > ]] @ acc
00:00:38 verbose #2249 > > ) [[]] (Seq.toList input)
00:00:38 verbose #2250 > >
00:00:38 verbose #2251 > > (resultList, "")
00:00:38 verbose #2252 > > ||> List.foldBack (fun acc x -> x + acc + " ")
00:00:38 verbose #2253 > > |> _.TrimEnd()
00:00:38 verbose #2254 > >
00:00:38 verbose #2255 > > "B",
00:00:38 verbose #2256 > > fun input ->
00:00:38 verbose #2257 > > input
00:00:38 verbose #2258 > > |> Seq.toList
00:00:38 verbose #2259 > > |> List.fold (fun (acc: string list) letter ->
00:00:38 verbose #2260 > > let last =
00:00:38 verbose #2261 > > if acc.IsEmpty
00:00:38 verbose #2262 > > then input
00:00:38 verbose #2263 > > else acc.Head
00:00:38 verbose #2264 > >
00:00:38 verbose #2265 > > let item = last.[[1 .. input.Length - 1]] + string letter
00:00:38 verbose #2266 > >
00:00:38 verbose #2267 > > item :: acc
00:00:38 verbose #2268 > > ) [[]]
00:00:38 verbose #2269 > > |> List.rev
00:00:38 verbose #2270 > > |> SpiralSm.concat " "
00:00:38 verbose #2271 > >
00:00:38 verbose #2272 > > "C",
00:00:38 verbose #2273 > > fun input ->
00:00:38 verbose #2274 > > input
00:00:38 verbose #2275 > > |> Seq.toList
00:00:38 verbose #2276 > > |> List.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:38 verbose #2277 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:38 verbose #2278 > > |> List.rev
00:00:38 verbose #2279 > > |> List.skip 1
00:00:38 verbose #2280 > > |> SpiralSm.concat " "
00:00:38 verbose #2281 > >
00:00:38 verbose #2282 > > "CA",
00:00:38 verbose #2283 > > fun input ->
00:00:38 verbose #2284 > > input
00:00:38 verbose #2285 > > |> Seq.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:38 verbose #2286 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:38 verbose #2287 > > |> Seq.rev
00:00:38 verbose #2288 > > |> Seq.skip 1
00:00:38 verbose #2289 > > |> SpiralSm.concat " "
00:00:38 verbose #2290 > >
00:00:38 verbose #2291 > > "CB",
00:00:38 verbose #2292 > > fun input ->
00:00:38 verbose #2293 > > input
00:00:38 verbose #2294 > > |> Seq.toArray
00:00:38 verbose #2295 > > |> Array.fold (fun (acc: string[[]]) letter -> acc |> Array.append [[|
00:00:38 verbose #2296 > > acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter |]]) [[| input |]]
00:00:38 verbose #2297 > > |> Array.rev
00:00:38 verbose #2298 > > |> Array.skip 1
00:00:38 verbose #2299 > > |> SpiralSm.concat " "
00:00:38 verbose #2300 > >
00:00:38 verbose #2301 > > "D",
00:00:38 verbose #2302 > > fun input ->
00:00:38 verbose #2303 > > input
00:00:38 verbose #2304 > > |> Seq.toList
00:00:38 verbose #2305 > > |> fun list ->
00:00:38 verbose #2306 > > let rec loop (acc: char list list) = function
00:00:38 verbose #2307 > > | _ when acc.Length = list.Length -> acc
00:00:38 verbose #2308 > > | head :: tail ->
00:00:38 verbose #2309 > > let item = tail @ [[ head ]]
00:00:38 verbose #2310 > > loop (item :: acc) item
00:00:38 verbose #2311 > > | [[]] -> [[]]
00:00:38 verbose #2312 > > loop [[]] list
00:00:38 verbose #2313 > > |> List.rev
00:00:38 verbose #2314 > > |> List.map (List.toArray >> String)
00:00:38 verbose #2315 > > |> SpiralSm.concat " "
00:00:38 verbose #2316 > >
00:00:38 verbose #2317 > > "E",
00:00:38 verbose #2318 > > fun input ->
00:00:38 verbose #2319 > > input
00:00:38 verbose #2320 > > |> Seq.toList
00:00:38 verbose #2321 > > |> fun list ->
00:00:38 verbose #2322 > > let rec loop (last: string) = function
00:00:38 verbose #2323 > > | head :: tail ->
00:00:38 verbose #2324 > > let item = last.[[1 .. input.Length - 1]] + string head
00:00:38 verbose #2325 > > item :: loop item tail
00:00:38 verbose #2326 > > | [[]] -> [[]]
00:00:38 verbose #2327 > > loop input list
00:00:38 verbose #2328 > > |> SpiralSm.concat " "
00:00:38 verbose #2329 > >
00:00:38 verbose #2330 > > "F",
00:00:38 verbose #2331 > > fun input ->
00:00:38 verbose #2332 > > Array.singleton 0
00:00:38 verbose #2333 > > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:38 verbose #2334 > > |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:38 verbose #2335 > > |> SpiralSm.concat " "
00:00:38 verbose #2336 > >
00:00:38 verbose #2337 > > "FA",
00:00:38 verbose #2338 > > fun input ->
00:00:38 verbose #2339 > > List.singleton 0
00:00:38 verbose #2340 > > |> List.append [[ 1 .. input.Length - 1 ]]
00:00:38 verbose #2341 > > |> List.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:38 verbose #2342 > > |> SpiralSm.concat " "
00:00:38 verbose #2343 > >
00:00:38 verbose #2344 > > "FB",
00:00:38 verbose #2345 > > fun input ->
00:00:38 verbose #2346 > > Seq.singleton 0
00:00:38 verbose #2347 > > |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:38 verbose #2348 > > |> Seq.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:38 verbose #2349 > > |> SpiralSm.concat " "
00:00:38 verbose #2350 > >
00:00:38 verbose #2351 > > "FC",
00:00:38 verbose #2352 > > fun input ->
00:00:38 verbose #2353 > > Array.singleton 0
00:00:38 verbose #2354 > > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:38 verbose #2355 > > |> Array.Parallel.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:38 verbose #2356 > > |> SpiralSm.concat " "
00:00:38 verbose #2357 > > ]]
00:00:38 verbose #2358 > > let testCases = seq {
00:00:38 verbose #2359 > > "abc", "bca cab abc"
00:00:38 verbose #2360 > > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:38 verbose #2361 > > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef
00:00:38 verbose #2362 > > hiabcdefg iabcdefgh abcdefghi"
00:00:38 verbose #2363 > > "abab", "baba abab baba abab"
00:00:38 verbose #2364 > > "aa", "aa aa"
00:00:38 verbose #2365 > > "z", "z"
00:00:38 verbose #2366 > > }
00:00:38 verbose #2367 > > let rec rotateStringsTests = runAll (nameof rotateStringsTests) _count solutions
00:00:38 verbose #2368 > > testCases
00:00:38 verbose #2369 > > rotateStringsTests
00:00:38 verbose #2370 > > |> sortResultList
00:00:54 verbose #2371 > >
00:00:54 verbose #2372 > > ╭─[ 15.43s - stdout ]──────────────────────────────────────────────────────────╮
00:00:54 verbose #2373 > > │ │
00:00:54 verbose #2374 > > │ │
00:00:54 verbose #2375 > > │ Test: rotateStringsTests │
00:00:54 verbose #2376 > > │ │
00:00:54 verbose #2377 > > │ Solution: abc │
00:00:54 verbose #2378 > > │ Test case 1. A. Time: 3L │
00:00:54 verbose #2379 > > │ Test case 2. B. Time: 2L │
00:00:54 verbose #2380 > > │ Test case 3. C. Time: 1L │
00:00:54 verbose #2381 > > │ Test case 4. CA. Time: 3L │
00:00:54 verbose #2382 > > │ Test case 5. CB. Time: 2L │
00:00:54 verbose #2383 > > │ Test case 6. D. Time: 3L │
00:00:54 verbose #2384 > > │ Test case 7. E. Time: 1L │
00:00:54 verbose #2385 > > │ Test case 8. F. Time: 2L │
00:00:54 verbose #2386 > > │ Test case 9. FA. Time: 2L │
00:00:54 verbose #2387 > > │ Test case 10. FB. Time: 7L │
00:00:54 verbose #2388 > > │ Test case 11. FC. Time: 8L │
00:00:54 verbose #2389 > > │ │
00:00:54 verbose #2390 > > │ Solution: abcde │
00:00:54 verbose #2391 > > │ Test case 1. A. Time: 3L │
00:00:54 verbose #2392 > > │ Test case 2. B. Time: 1L │
00:00:54 verbose #2393 > > │ Test case 3. C. Time: 1L │
00:00:54 verbose #2394 > > │ Test case 4. CA. Time: 1L │
00:00:54 verbose #2395 > > │ Test case 5. CB. Time: 1L │
00:00:54 verbose #2396 > > │ Test case 6. D. Time: 3L │
00:00:54 verbose #2397 > > │ Test case 7. E. Time: 1L │
00:00:54 verbose #2398 > > │ Test case 8. F. Time: 1L │
00:00:54 verbose #2399 > > │ Test case 9. FA. Time: 1L │
00:00:54 verbose #2400 > > │ Test case 10. FB. Time: 3L │
00:00:54 verbose #2401 > > │ Test case 11. FC. Time: 6L │
00:00:54 verbose #2402 > > │ │
00:00:54 verbose #2403 > > │ Solution: abcdefghi │
00:00:54 verbose #2404 > > │ Test case 1. A. Time: 6L │
00:00:54 verbose #2405 > > │ Test case 2. B. Time: 1L │
00:00:54 verbose #2406 > > │ Test case 3. C. Time: 3L │
00:00:54 verbose #2407 > > │ Test case 4. CA. Time: 2L │
00:00:54 verbose #2408 > > │ Test case 5. CB. Time: 3L │
00:00:54 verbose #2409 > > │ Test case 6. D. Time: 8L │
00:00:54 verbose #2410 > > │ Test case 7. E. Time: 3L │
00:00:54 verbose #2411 > > │ Test case 8. F. Time: 1L │
00:00:54 verbose #2412 > > │ Test case 9. FA. Time: 4L │
00:00:54 verbose #2413 > > │ Test case 10. FB. Time: 2L │
00:00:54 verbose #2414 > > │ Test case 11. FC. Time: 7L │
00:00:54 verbose #2415 > > │ │
00:00:54 verbose #2416 > > │ Solution: abab │
00:00:54 verbose #2417 > > │ Test case 1. A. Time: 1L │
00:00:54 verbose #2418 > > │ Test case 2. B. Time: 0L │
00:00:54 verbose #2419 > > │ Test case 3. C. Time: 1L │
00:00:54 verbose #2420 > > │ Test case 4. CA. Time: 1L │
00:00:54 verbose #2421 > > │ Test case 5. CB. Time: 1L │
00:00:54 verbose #2422 > > │ Test case 6. D. Time: 1L │
00:00:54 verbose #2423 > > │ Test case 7. E. Time: 1L │
00:00:54 verbose #2424 > > │ Test case 8. F. Time: 0L │
00:00:54 verbose #2425 > > │ Test case 9. FA. Time: 1L │
00:00:54 verbose #2426 > > │ Test case 10. FB. Time: 1L │
00:00:54 verbose #2427 > > │ Test case 11. FC. Time: 5L │
00:00:54 verbose #2428 > > │ │
00:00:54 verbose #2429 > > │ Solution: aa │
00:00:54 verbose #2430 > > │ Test case 1. A. Time: 0L │
00:00:54 verbose #2431 > > │ Test case 2. B. Time: 0L │
00:00:54 verbose #2432 > > │ Test case 3. C. Time: 0L │
00:00:54 verbose #2433 > > │ Test case 4. CA. Time: 0L │
00:00:54 verbose #2434 > > │ Test case 5. CB. Time: 0L │
00:00:54 verbose #2435 > > │ Test case 6. D. Time: 1L │
00:00:54 verbose #2436 > > │ Test case 7. E. Time: 0L │
00:00:54 verbose #2437 > > │ Test case 8. F. Time: 0L │
00:00:54 verbose #2438 > > │ Test case 9. FA. Time: 0L │
00:00:54 verbose #2439 > > │ Test case 10. FB. Time: 0L │
00:00:54 verbose #2440 > > │ Test case 11. FC. Time: 6L │
00:00:54 verbose #2441 > > │ │
00:00:54 verbose #2442 > > │ Solution: z │
00:00:54 verbose #2443 > > │ Test case 1. A. Time: 0L │
00:00:54 verbose #2444 > > │ Test case 2. B. Time: 0L │
00:00:54 verbose #2445 > > │ Test case 3. C. Time: 0L │
00:00:54 verbose #2446 > > │ Test case 4. CA. Time: 0L │
00:00:54 verbose #2447 > > │ Test case 5. CB. Time: 0L │
00:00:54 verbose #2448 > > │ Test case 6. D. Time: 0L │
00:00:54 verbose #2449 > > │ Test case 7. E. Time: 0L │
00:00:54 verbose #2450 > > │ Test case 8. F. Time: 1L │
00:00:54 verbose #2451 > > │ Test case 9. FA. Time: 0L │
00:00:54 verbose #2452 > > │ Test case 10. FB. Time: 0L │
00:00:54 verbose #2453 > > │ Test case 11. FC. Time: 4L │
00:00:54 verbose #2454 > > │ │
00:00:54 verbose #2455 > > │ Input | Expected │
00:00:54 verbose #2456 > > │ │
00:00:54 verbose #2457 > > │ | Result │
00:00:54 verbose #2458 > > │ │
00:00:54 verbose #2459 > > │ | Best │
00:00:54 verbose #2460 > > │ --- | --- │
00:00:54 verbose #2461 > > │ │
00:00:54 verbose #2462 > > │ | --- │
00:00:54 verbose #2463 > > │ │
00:00:54 verbose #2464 > > │ | --- │
00:00:54 verbose #2465 > > │ abc | bca cab abc │
00:00:54 verbose #2466 > > │ │
00:00:54 verbose #2467 > > │ | bca cab abc │
00:00:54 verbose #2468 > > │ │
00:00:54 verbose #2469 > > │ | (3, 1) │
00:00:54 verbose #2470 > > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:54 verbose #2471 > > │ | bcdea cdeab deabc eabcd abcde │
00:00:54 verbose #2472 > > │ | (2, 1) │
00:00:54 verbose #2473 > > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:00:54 verbose #2474 > > │ hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd │
00:00:54 verbose #2475 > > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi | (2, 1) │
00:00:54 verbose #2476 > > │ abab | baba abab baba abab │
00:00:54 verbose #2477 > > │ | baba abab baba abab │
00:00:54 verbose #2478 > > │ | (2, 0) │
00:00:54 verbose #2479 > > │ aa | aa aa │
00:00:54 verbose #2480 > > │ │
00:00:54 verbose #2481 > > │ | aa aa │
00:00:54 verbose #2482 > > │ │
00:00:54 verbose #2483 > > │ | (1, 0) │
00:00:54 verbose #2484 > > │ z | z │
00:00:54 verbose #2485 > > │ │
00:00:54 verbose #2486 > > │ | z │
00:00:54 verbose #2487 > > │ │
00:00:54 verbose #2488 > > │ | (1, 0) │
00:00:54 verbose #2489 > > │ │
00:00:54 verbose #2490 > > │ Average Ranking │
00:00:54 verbose #2491 > > │ Test case 2. Average Time: 0L │
00:00:54 verbose #2492 > > │ Test case 8. Average Time: 0L │
00:00:54 verbose #2493 > > │ Test case 3. Average Time: 1L │
00:00:54 verbose #2494 > > │ Test case 4. Average Time: 1L │
00:00:54 verbose #2495 > > │ Test case 5. Average Time: 1L │
00:00:54 verbose #2496 > > │ Test case 7. Average Time: 1L │
00:00:54 verbose #2497 > > │ Test case 9. Average Time: 1L │
00:00:54 verbose #2498 > > │ Test case 1. Average Time: 2L │
00:00:54 verbose #2499 > > │ Test case 6. Average Time: 2L │
00:00:54 verbose #2500 > > │ Test case 10. Average Time: 2L │
00:00:54 verbose #2501 > > │ Test case 11. Average Time: 6L │
00:00:54 verbose #2502 > > │ │
00:00:54 verbose #2503 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 verbose #2504 > >
00:00:54 verbose #2505 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:54 verbose #2506 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:54 verbose #2507 > > │ ## rotate_strings_tests │
00:00:54 verbose #2508 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 verbose #2509 > >
00:00:54 verbose #2510 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 verbose #2511 > > //// test
00:00:54 verbose #2512 > > //// timeout=60000
00:00:54 verbose #2513 > >
00:00:54 verbose #2514 > > inl get_solutions () =
00:00:54 verbose #2515 > > [[
00:00:54 verbose #2516 > > // "A",
00:00:54 verbose #2517 > > // fun (input : string) =>
00:00:54 verbose #2518 > > // let resultList =
00:00:54 verbose #2519 > > // List.fold (fun acc x =>
00:00:54 verbose #2520 > > // let rotate (text : string) (letter : string) =
00:00:54 verbose #2521 > > text.Substring (1, input.Length - 1) + letter
00:00:54 verbose #2522 > > // [[ rotate (if acc.IsEmpty then input else acc.Head)
00:00:54 verbose #2523 > > (string x) ]] ++ acc
00:00:54 verbose #2524 > > // ) [[]] (Seq.toList input)
00:00:54 verbose #2525 > >
00:00:54 verbose #2526 > > // List.foldBack (fun acc x => x + acc + " ") resultList ""
00:00:54 verbose #2527 > > // |> fun x => x.TrimEnd ()
00:00:54 verbose #2528 > >
00:00:54 verbose #2529 > > // "B",
00:00:54 verbose #2530 > > // fun input =>
00:00:54 verbose #2531 > > // input
00:00:54 verbose #2532 > > // |> Seq.toList
00:00:54 verbose #2533 > > // |> List.fold (fun (acc : string list) letter =>
00:00:54 verbose #2534 > > // let last =
00:00:54 verbose #2535 > > // if acc.IsEmpty
00:00:54 verbose #2536 > > // then input
00:00:54 verbose #2537 > > // else acc.Head
00:00:54 verbose #2538 > >
00:00:54 verbose #2539 > > // let item = last.[[1 .. input.Length - 1]] + string letter
00:00:54 verbose #2540 > >
00:00:54 verbose #2541 > > // item :: acc
00:00:54 verbose #2542 > > // ) [[]]
00:00:54 verbose #2543 > > // |> List.rev
00:00:54 verbose #2544 > > // |> SpiralSm.concat " "
00:00:54 verbose #2545 > >
00:00:54 verbose #2546 > > // "C",
00:00:54 verbose #2547 > > // fun input =>
00:00:54 verbose #2548 > > // input
00:00:54 verbose #2549 > > // |> Seq.toList
00:00:54 verbose #2550 > > // |> List.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:54 verbose #2551 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:54 verbose #2552 > > // |> List.rev
00:00:54 verbose #2553 > > // |> List.skip 1
00:00:54 verbose #2554 > > // |> SpiralSm.concat " "
00:00:54 verbose #2555 > >
00:00:54 verbose #2556 > > // "CA",
00:00:54 verbose #2557 > > // fun input =>
00:00:54 verbose #2558 > > // input
00:00:54 verbose #2559 > > // |> Seq.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:54 verbose #2560 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:54 verbose #2561 > > // |> Seq.rev
00:00:54 verbose #2562 > > // |> Seq.skip 1
00:00:54 verbose #2563 > > // |> SpiralSm.concat " "
00:00:54 verbose #2564 > >
00:00:54 verbose #2565 > > // "CB",
00:00:54 verbose #2566 > > // fun input =>
00:00:54 verbose #2567 > > // input
00:00:54 verbose #2568 > > // |> Seq.toArray
00:00:54 verbose #2569 > > // |> Array.fold (fun (acc : a _ string) letter => acc |>
00:00:54 verbose #2570 > > Array.append (a ;[[ acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter ]]))
00:00:54 verbose #2571 > > (a ;[[ input ]])
00:00:54 verbose #2572 > > // |> Array.rev
00:00:54 verbose #2573 > > // |> Array.skip 1
00:00:54 verbose #2574 > > // |> SpiralSm.concat " "
00:00:54 verbose #2575 > >
00:00:54 verbose #2576 > > // "D",
00:00:54 verbose #2577 > > // fun input =>
00:00:54 verbose #2578 > > // input
00:00:54 verbose #2579 > > // |> Seq.toList
00:00:54 verbose #2580 > > // |> fun list =>
00:00:54 verbose #2581 > > // let rec loop (acc : list (list char)) = function
00:00:54 verbose #2582 > > // | _ when acc.Length = list.Length => acc
00:00:54 verbose #2583 > > // | head :: tail =>
00:00:54 verbose #2584 > > // let item = tail ++ [[ head ]]
00:00:54 verbose #2585 > > // loop (item :: acc) item
00:00:54 verbose #2586 > > // | [[]] => [[]]
00:00:54 verbose #2587 > > // loop [[]] list
00:00:54 verbose #2588 > > // |> List.rev
00:00:54 verbose #2589 > > // |> List.map (List.toArray >> String)
00:00:54 verbose #2590 > > // |> SpiralSm.concat " "
00:00:54 verbose #2591 > >
00:00:54 verbose #2592 > > // "E",
00:00:54 verbose #2593 > > // fun input =>
00:00:54 verbose #2594 > > // input
00:00:54 verbose #2595 > > // |> Seq.toList
00:00:54 verbose #2596 > > // |> fun list =>
00:00:54 verbose #2597 > > // let rec loop (last : string) = function
00:00:54 verbose #2598 > > // | head :: tail =>
00:00:54 verbose #2599 > > // let item = last.[[1 .. input.Length - 1]] + string
00:00:54 verbose #2600 > > head
00:00:54 verbose #2601 > > // item :: loop item tail
00:00:54 verbose #2602 > > // | [[]] => [[]]
00:00:54 verbose #2603 > > // loop input list
00:00:54 verbose #2604 > > // |> SpiralSm.concat " "
00:00:54 verbose #2605 > >
00:00:54 verbose #2606 > > "F",
00:00:54 verbose #2607 > > fun input =>
00:00:54 verbose #2608 > > // Array.singleton 0
00:00:54 verbose #2609 > > // |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:54 verbose #2610 > > // |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:54 verbose #2611 > > // |> SpiralSm.concat " "
00:00:54 verbose #2612 > > inl input_length = input |> sm.length
00:00:54 verbose #2613 > > am.singleton 0i32
00:00:54 verbose #2614 > > |> am.append (am'.init_series 1 (input_length - 1) 1)
00:00:54 verbose #2615 > > |> am.map (fun i =>
00:00:54 verbose #2616 > > inl a = input |> sm'.slice i (input_length - 1)
00:00:54 verbose #2617 > > inl b = input |> sm'.slice 0 (i - 1)
00:00:54 verbose #2618 > > a +. b
00:00:54 verbose #2619 > > )
00:00:54 verbose #2620 > > |> seq.of_array
00:00:54 verbose #2621 > > |> sm'.concat " "
00:00:54 verbose #2622 > >
00:00:54 verbose #2623 > > "FA",
00:00:54 verbose #2624 > > fun input =>
00:00:54 verbose #2625 > > // List.singleton 0
00:00:54 verbose #2626 > > // |> List.append [[ 1 .. input.Length - 1 ]]
00:00:54 verbose #2627 > > // // |> List.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:54 verbose #2628 > > // |> SpiralSm.concat " "
00:00:54 verbose #2629 > > inl input_length = input |> sm.length
00:00:54 verbose #2630 > > listm.singleton 0i32
00:00:54 verbose #2631 > > |> listm.append (listm'.init_series 1 (input_length - 1) 1)
00:00:54 verbose #2632 > > |> listm.map (fun i =>
00:00:54 verbose #2633 > > inl a = input |> sm'.slice i (input_length - 1)
00:00:54 verbose #2634 > > inl b = if i = 0 then "" else input |> sm'.slice 0 (i - 1)
00:00:54 verbose #2635 > > a +. b
00:00:54 verbose #2636 > > )
00:00:54 verbose #2637 > > |> listm.toArray
00:00:54 verbose #2638 > > |> fun x => x : a i32 _
00:00:54 verbose #2639 > > |> seq.of_array
00:00:54 verbose #2640 > > |> sm'.concat " "
00:00:54 verbose #2641 > >
00:00:54 verbose #2642 > > // "FB",
00:00:54 verbose #2643 > > // fun input =>
00:00:54 verbose #2644 > > // Seq.singleton 0
00:00:54 verbose #2645 > > // // |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:54 verbose #2646 > > // // |> Seq.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:54 verbose #2647 > > // |> SpiralSm.concat " "
00:00:54 verbose #2648 > >
00:00:54 verbose #2649 > > // "FC",
00:00:54 verbose #2650 > > // fun input =>
00:00:54 verbose #2651 > > // Array.singleton 0
00:00:54 verbose #2652 > > // |> Array.append (a ;[[ 1 .. input.Length - 1 ]])
00:00:54 verbose #2653 > > //// |> Array.Parallel.map (fun i => input.[[ i .. ]] + input.[[ .. i
00:00:54 verbose #2654 > > - 1 ]])
00:00:54 verbose #2655 > > // |> SpiralSm.concat " "
00:00:54 verbose #2656 > > ]]
00:00:54 verbose #2657 > >
00:00:54 verbose #2658 > > inl rec rotate_strings_tests () =
00:00:54 verbose #2659 > > inl test_cases = [[
00:00:54 verbose #2660 > > "abc", "bca cab abc"
00:00:54 verbose #2661 > > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:54 verbose #2662 > > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde
00:00:54 verbose #2663 > > ghiabcdef hiabcdefg iabcdefgh abcdefghi"
00:00:54 verbose #2664 > > "abab", "baba abab baba abab"
00:00:54 verbose #2665 > > "aa", "aa aa"
00:00:54 verbose #2666 > > "z", "z"
00:00:54 verbose #2667 > > ]]
00:00:54 verbose #2668 > >
00:00:54 verbose #2669 > > inl solutions = get_solutions ()
00:00:54 verbose #2670 > >
00:00:54 verbose #2671 > > // inl is_fast () = true
00:00:54 verbose #2672 > >
00:00:54 verbose #2673 > > inl count =
00:00:54 verbose #2674 > > if is_fast ()
00:00:54 verbose #2675 > > then 1000i32
00:00:54 verbose #2676 > > else 2000000i32
00:00:54 verbose #2677 > >
00:00:54 verbose #2678 > > run_all (nameof rotate_strings_tests) count solutions test_cases
00:00:54 verbose #2679 > > |> sort_result_list
00:00:54 verbose #2680 > >
00:00:54 verbose #2681 > > rotate_strings_tests ()
00:01:23 verbose #2682 > >
00:01:23 verbose #2683 > > ╭─[ 28.92s - stdout ]──────────────────────────────────────────────────────────╮
00:01:23 verbose #2684 > > │ │
00:01:23 verbose #2685 > > │ │
00:01:23 verbose #2686 > > │ Test: v0 │
00:01:23 verbose #2687 > > │ │
00:01:23 verbose #2688 > > │ Solution: "abc" │
00:01:23 verbose #2689 > > │ Test case 1. F. Time: 1189 │
00:01:23 verbose #2690 > > │ Test case 2. FA. Time: 1571 │
00:01:23 verbose #2691 > > │ │
00:01:23 verbose #2692 > > │ Solution: "abcde" │
00:01:23 verbose #2693 > > │ Test case 1. F. Time: 1446 │
00:01:23 verbose #2694 > > │ Test case 2. FA. Time: 1635 │
00:01:23 verbose #2695 > > │ │
00:01:23 verbose #2696 > > │ Solution: "abcdefghi" │
00:01:23 verbose #2697 > > │ Test case 1. F. Time: 2171 │
00:01:23 verbose #2698 > > │ Test case 2. FA. Time: 3191 │
00:01:23 verbose #2699 > > │ │
00:01:23 verbose #2700 > > │ Solution: "abab" │
00:01:23 verbose #2701 > > │ Test case 1. F. Time: 2121 │
00:01:23 verbose #2702 > > │ Test case 2. FA. Time: 1243 │
00:01:23 verbose #2703 > > │ │
00:01:23 verbose #2704 > > │ Solution: "aa" │
00:01:23 verbose #2705 > > │ Test case 1. F. Time: 812 │
00:01:23 verbose #2706 > > │ Test case 2. FA. Time: 1044 │
00:01:23 verbose #2707 > > │ │
00:01:23 verbose #2708 > > │ Solution: "z" │
00:01:23 verbose #2709 > > │ Test case 1. F. Time: 278 │
00:01:23 verbose #2710 > > │ Test case 2. FA. Time: 267 │
00:01:23 verbose #2711 > > │ │
00:01:23 verbose #2712 > > │ Input | Expected │
00:01:23 verbose #2713 > > │ │
00:01:23 verbose #2714 > > │ | Result │
00:01:23 verbose #2715 > > │ │
00:01:23 verbose #2716 > > │ | Best │
00:01:23 verbose #2717 > > │ --- | --- │
00:01:23 verbose #2718 > > │ │
00:01:23 verbose #2719 > > │ | --- │
00:01:23 verbose #2720 > > │ │
00:01:23 verbose #2721 > > │ | --- │
00:01:23 verbose #2722 > > │ "abc" | "bca cab abc" │
00:01:23 verbose #2723 > > │ │
00:01:23 verbose #2724 > > │ | "bca cab abc" │
00:01:23 verbose #2725 > > │ │
00:01:23 verbose #2726 > > │ | struct (1L, 1189L) │
00:01:23 verbose #2727 > > │ "abcde" | "bcdea cdeab deabc eabcd abcde" │
00:01:23 verbose #2728 > > │ | "bcdea cdeab deabc eabcd abcde" │
00:01:23 verbose #2729 > > │ | struct (1L, 1446L) │
00:01:23 verbose #2730 > > │ "abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:01:23 verbose #2731 > > │ hiabcdefg iabcdefgh abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd │
00:01:23 verbose #2732 > > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi" | struct (1L, 2171L) │
00:01:23 verbose #2733 > > │ "abab" | "baba abab baba abab" │
00:01:23 verbose #2734 > > │ | "baba abab baba abab" │
00:01:23 verbose #2735 > > │ | struct (2L, 1243L) │
00:01:23 verbose #2736 > > │ "aa" | "aa aa" │
00:01:23 verbose #2737 > > │ │
00:01:23 verbose #2738 > > │ | "aa aa" │
00:01:23 verbose #2739 > > │ │
00:01:23 verbose #2740 > > │ | struct (1L, 812L) │
00:01:23 verbose #2741 > > │ "z" | "z" │
00:01:23 verbose #2742 > > │ │
00:01:23 verbose #2743 > > │ | "z" │
00:01:23 verbose #2744 > > │ │
00:01:23 verbose #2745 > > │ | struct (2L, 267L) │
00:01:23 verbose #2746 > > │ │
00:01:23 verbose #2747 > > │ Average Ranking │
00:01:23 verbose #2748 > > │ Test case 1. Average Time: 1336L │
00:01:23 verbose #2749 > > │ Test case 2. Average Time: 1491L │
00:01:23 verbose #2750 > > │ │
00:01:23 verbose #2751 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:23 verbose #2752 > >
00:01:23 verbose #2753 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:23 verbose #2754 > > //// test
00:01:23 verbose #2755 > >
00:01:23 verbose #2756 > > // rotate_strings_tests ()
00:01:23 verbose #2757 > > ()
00:01:23 verbose #2758 > >
00:01:23 verbose #2759 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:23 verbose #2760 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:23 verbose #2761 > > │ ## binary_search_tests │
00:01:23 verbose #2762 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:23 verbose #2763 > >
00:01:23 verbose #2764 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:23 verbose #2765 > > //// test
00:01:23 verbose #2766 > > //// timeout=90000
00:01:23 verbose #2767 > >
00:01:23 verbose #2768 > > inl binary_search_semi_open_1 arr target left right =
00:01:23 verbose #2769 > > inl rec body left right =
00:01:23 verbose #2770 > > if left >= right
00:01:23 verbose #2771 > > then None
00:01:23 verbose #2772 > > else
00:01:23 verbose #2773 > > inl mid = (left + right) / 2
00:01:23 verbose #2774 > > inl item = index arr mid
00:01:23 verbose #2775 > > if item = target
00:01:23 verbose #2776 > > then Some mid
00:01:23 verbose #2777 > > elif item < target
00:01:23 verbose #2778 > > then loop (mid + 1) right
00:01:23 verbose #2779 > > else loop left mid
00:01:23 verbose #2780 > > and inl loop left right =
00:01:23 verbose #2781 > > if var_is right |> not
00:01:23 verbose #2782 > > then body left right
00:01:23 verbose #2783 > > else
00:01:23 verbose #2784 > > inl left = dyn left
00:01:23 verbose #2785 > > join body left right
00:01:23 verbose #2786 > > loop left right
00:01:23 verbose #2787 > >
00:01:23 verbose #2788 > > inl binary_search_closed_1 arr target left right =
00:01:23 verbose #2789 > > inl rec body left right =
00:01:23 verbose #2790 > > if left > right
00:01:23 verbose #2791 > > then None
00:01:23 verbose #2792 > > else
00:01:23 verbose #2793 > > inl mid = (left + right) / 2
00:01:23 verbose #2794 > > inl item = index arr mid
00:01:23 verbose #2795 > > if item = target
00:01:23 verbose #2796 > > then Some mid
00:01:23 verbose #2797 > > elif item < target
00:01:23 verbose #2798 > > then loop (mid + 1) right
00:01:23 verbose #2799 > > else loop left (mid - 1)
00:01:23 verbose #2800 > > and inl loop left right =
00:01:23 verbose #2801 > > if var_is right |> not
00:01:23 verbose #2802 > > then body left right
00:01:23 verbose #2803 > > else
00:01:23 verbose #2804 > > inl left = dyn left
00:01:23 verbose #2805 > > join body left right
00:01:23 verbose #2806 > > loop left right
00:01:23 verbose #2807 > >
00:01:23 verbose #2808 > > inl binary_search_semi_open_2 arr target left right =
00:01:23 verbose #2809 > > let rec body left right =
00:01:23 verbose #2810 > > if left >= right
00:01:23 verbose #2811 > > then None
00:01:23 verbose #2812 > > else
00:01:23 verbose #2813 > > inl mid = (left + right) / 2
00:01:23 verbose #2814 > > inl item = index arr mid
00:01:23 verbose #2815 > > if item = target
00:01:23 verbose #2816 > > then Some mid
00:01:23 verbose #2817 > > elif item < target
00:01:23 verbose #2818 > > then loop (mid + 1) right
00:01:23 verbose #2819 > > else loop left mid
00:01:23 verbose #2820 > > and inl loop left right = body left right
00:01:23 verbose #2821 > > loop left right
00:01:23 verbose #2822 > >
00:01:23 verbose #2823 > > inl binary_search_closed_2 arr target left right =
00:01:23 verbose #2824 > > let rec body left right =
00:01:23 verbose #2825 > > if left > right
00:01:23 verbose #2826 > > then None
00:01:23 verbose #2827 > > else
00:01:23 verbose #2828 > > inl mid = (left + right) / 2
00:01:23 verbose #2829 > > inl item = index arr mid
00:01:23 verbose #2830 > > if item = target
00:01:23 verbose #2831 > > then Some mid
00:01:23 verbose #2832 > > elif item < target
00:01:23 verbose #2833 > > then loop (mid + 1) right
00:01:23 verbose #2834 > > else loop left (mid - 1)
00:01:23 verbose #2835 > > and inl loop left right = body left right
00:01:23 verbose #2836 > > loop left right
00:01:23 verbose #2837 > >
00:01:23 verbose #2838 > > inl get_solutions () =
00:01:23 verbose #2839 > > [[
00:01:23 verbose #2840 > > "semi_open_1",
00:01:23 verbose #2841 > > fun (arr, (target, len)) =>
00:01:23 verbose #2842 > > binary_search_semi_open_1 arr target 0 len
00:01:23 verbose #2843 > >
00:01:23 verbose #2844 > > "closed_1",
00:01:23 verbose #2845 > > fun (arr, (target, len)) =>
00:01:23 verbose #2846 > > binary_search_closed_1 arr target 0 (len - 1)
00:01:23 verbose #2847 > >
00:01:23 verbose #2848 > > "semi_open_2",
00:01:23 verbose #2849 > > fun (arr, (target, len)) =>
00:01:23 verbose #2850 > > binary_search_semi_open_2 arr target 0 len
00:01:23 verbose #2851 > >
00:01:23 verbose #2852 > > "closed_2",
00:01:23 verbose #2853 > > fun (arr, (target, len)) =>
00:01:23 verbose #2854 > > binary_search_closed_2 arr target 0 (len - 1)
00:01:23 verbose #2855 > > ]]
00:01:23 verbose #2856 > >
00:01:23 verbose #2857 > > inl rec binary_search_tests () =
00:01:23 verbose #2858 > > inl arr_with_len target len arr =
00:01:23 verbose #2859 > > arr, (target, (len |> optionm'.default_with fun () => length arr))
00:01:23 verbose #2860 > >
00:01:23 verbose #2861 > > inl test_cases = [[
00:01:23 verbose #2862 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 None), (Some 3i32)
00:01:23 verbose #2863 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 None), (Some 0i32)
00:01:23 verbose #2864 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 None), (Some 6i32)
00:01:23 verbose #2865 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 None), None
00:01:23 verbose #2866 > > ((am'.init_series 1i32 100 1) |> arr_with_len 60 None), (Some 59)
00:01:23 verbose #2867 > >
00:01:23 verbose #2868 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 (Some 7)), (Some
00:01:23 verbose #2869 > > 3i32)
00:01:23 verbose #2870 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 (Some 7)), (Some
00:01:23 verbose #2871 > > 0i32)
00:01:23 verbose #2872 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 (Some 7)), (Some
00:01:23 verbose #2873 > > 6i32)
00:01:23 verbose #2874 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 (Some 7)), None
00:01:23 verbose #2875 > > ((am'.init_series 1i32 100 1) |> arr_with_len 60 (Some 100)), (Some 59)
00:01:23 verbose #2876 > > ]]
00:01:23 verbose #2877 > >
00:01:23 verbose #2878 > > inl solutions = get_solutions ()
00:01:23 verbose #2879 > >
00:01:23 verbose #2880 > > // inl is_fast () = true
00:01:23 verbose #2881 > >
00:01:23 verbose #2882 > > inl count =
00:01:23 verbose #2883 > > if is_fast ()
00:01:23 verbose #2884 > > then 1000i32
00:01:23 verbose #2885 > > else 8000000i32
00:01:23 verbose #2886 > >
00:01:23 verbose #2887 > > run_all (nameof binary_search_tests) count solutions test_cases
00:01:23 verbose #2888 > > |> sort_result_list
00:01:23 verbose #2889 > >
00:01:23 verbose #2890 > >
00:01:23 verbose #2891 > > let main () =
00:01:23 verbose #2892 > > binary_search_tests ()
00:02:01 verbose #2893 > >
00:02:01 verbose #2894 > > ╭─[ 38.07s - stdout ]──────────────────────────────────────────────────────────╮
00:02:01 verbose #2895 > > │ │
00:02:01 verbose #2896 > > │ │
00:02:01 verbose #2897 > > │ Test: v25 │
00:02:01 verbose #2898 > > │ │
00:02:01 verbose #2899 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:02:01 verbose #2900 > > │ Test case 1. semi_open_1. Time: 623 │
00:02:01 verbose #2901 > > │ Test case 2. closed_1. Time: 564 │
00:02:01 verbose #2902 > > │ Test case 3. semi_open_2. Time: 592 │
00:02:01 verbose #2903 > > │ Test case 4. closed_2. Time: 551 │
00:02:01 verbose #2904 > > │ │
00:02:01 verbose #2905 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:02:01 verbose #2906 > > │ Test case 1. semi_open_1. Time: 524 │
00:02:01 verbose #2907 > > │ Test case 2. closed_1. Time: 514 │
00:02:01 verbose #2908 > > │ Test case 3. semi_open_2. Time: 510 │
00:02:01 verbose #2909 > > │ Test case 4. closed_2. Time: 520 │
00:02:01 verbose #2910 > > │ │
00:02:01 verbose #2911 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:02:01 verbose #2912 > > │ Test case 1. semi_open_1. Time: 604 │
00:02:01 verbose #2913 > > │ Test case 2. closed_1. Time: 556 │
00:02:01 verbose #2914 > > │ Test case 3. semi_open_2. Time: 581 │
00:02:01 verbose #2915 > > │ Test case 4. closed_2. Time: 606 │
00:02:01 verbose #2916 > > │ │
00:02:01 verbose #2917 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:02:01 verbose #2918 > > │ Test case 1. semi_open_1. Time: 670 │
00:02:01 verbose #2919 > > │ Test case 2. closed_1. Time: 527 │
00:02:01 verbose #2920 > > │ Test case 3. semi_open_2. Time: 537 │
00:02:01 verbose #2921 > > │ Test case 4. closed_2. Time: 529 │
00:02:01 verbose #2922 > > │ │
00:02:01 verbose #2923 > > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:02:01 verbose #2924 > > │ 17; 18; 19; 20; │
00:02:01 verbose #2925 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:02:01 verbose #2926 > > │ 37; 38; │
00:02:01 verbose #2927 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:02:01 verbose #2928 > > │ 55; 56; │
00:02:01 verbose #2929 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:02:01 verbose #2930 > > │ 73; 74; │
00:02:01 verbose #2931 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:02:01 verbose #2932 > > │ 91; 92; │
00:02:01 verbose #2933 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:02:01 verbose #2934 > > │ Test case 1. semi_open_1. Time: 509 │
00:02:01 verbose #2935 > > │ Test case 2. closed_1. Time: 500 │
00:02:01 verbose #2936 > > │ Test case 3. semi_open_2. Time: 492 │
00:02:01 verbose #2937 > > │ Test case 4. closed_2. Time: 519 │
00:02:01 verbose #2938 > > │ │
00:02:01 verbose #2939 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:02:01 verbose #2940 > > │ Test case 1. semi_open_1. Time: 716 │
00:02:01 verbose #2941 > > │ Test case 2. closed_1. Time: 659 │
00:02:01 verbose #2942 > > │ Test case 3. semi_open_2. Time: 545 │
00:02:01 verbose #2943 > > │ Test case 4. closed_2. Time: 534 │
00:02:01 verbose #2944 > > │ │
00:02:01 verbose #2945 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:02:01 verbose #2946 > > │ Test case 1. semi_open_1. Time: 486 │
00:02:01 verbose #2947 > > │ Test case 2. closed_1. Time: 475 │
00:02:01 verbose #2948 > > │ Test case 3. semi_open_2. Time: 471 │
00:02:01 verbose #2949 > > │ Test case 4. closed_2. Time: 506 │
00:02:01 verbose #2950 > > │ │
00:02:01 verbose #2951 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:02:01 verbose #2952 > > │ Test case 1. semi_open_1. Time: 492 │
00:02:01 verbose #2953 > > │ Test case 2. closed_1. Time: 558 │
00:02:01 verbose #2954 > > │ Test case 3. semi_open_2. Time: 511 │
00:02:01 verbose #2955 > > │ Test case 4. closed_2. Time: 528 │
00:02:01 verbose #2956 > > │ │
00:02:01 verbose #2957 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:02:01 verbose #2958 > > │ Test case 1. semi_open_1. Time: 561 │
00:02:01 verbose #2959 > > │ Test case 2. closed_1. Time: 476 │
00:02:01 verbose #2960 > > │ Test case 3. semi_open_2. Time: 447 │
00:02:01 verbose #2961 > > │ Test case 4. closed_2. Time: 446 │
00:02:01 verbose #2962 > > │ │
00:02:01 verbose #2963 > > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:02:01 verbose #2964 > > │ 17; 18; 19; 20; │
00:02:01 verbose #2965 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:02:01 verbose #2966 > > │ 37; 38; │
00:02:01 verbose #2967 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:02:01 verbose #2968 > > │ 55; 56; │
00:02:01 verbose #2969 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:02:01 verbose #2970 > > │ 73; 74; │
00:02:01 verbose #2971 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:02:01 verbose #2972 > > │ 91; 92; │
00:02:01 verbose #2973 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:02:01 verbose #2974 > > │ Test case 1. semi_open_1. Time: 479 │
00:02:01 verbose #2975 > > │ Test case 2. closed_1. Time: 536 │
00:02:01 verbose #2976 > > │ Test case 3. semi_open_2. Time: 551 │
00:02:01 verbose #2977 > > │ Test case 4. closed_2. Time: 477 │
00:02:01 verbose #2978 > > │ │
00:02:01 verbose #2979 > > │ Input │
00:02:01 verbose #2980 > > │ │
00:02:01 verbose #2981 > > │ │
00:02:01 verbose #2982 > > │ │
00:02:01 verbose #2983 > > │ | Expected | Result | Best │
00:02:01 verbose #2984 > > │ --- │
00:02:01 verbose #2985 > > │ │
00:02:01 verbose #2986 > > │ │
00:02:01 verbose #2987 > > │ │
00:02:01 verbose #2988 > > │ | --- | --- | --- │
00:02:01 verbose #2989 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:02:01 verbose #2990 > > │ │
00:02:01 verbose #2991 > > │ │
00:02:01 verbose #2992 > > │ │
00:02:01 verbose #2993 > > │ | US0_0 3 | US0_0 3 | struct (4L, 551L) │
00:02:01 verbose #2994 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:02:01 verbose #2995 > > │ │
00:02:01 verbose #2996 > > │ │
00:02:01 verbose #2997 > > │ │
00:02:01 verbose #2998 > > │ | US0_0 0 | US0_0 0 | struct (3L, 510L) │
00:02:01 verbose #2999 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:02:01 verbose #3000 > > │ │
00:02:01 verbose #3001 > > │ │
00:02:01 verbose #3002 > > │ │
00:02:01 verbose #3003 > > │ | US0_0 6 | US0_0 6 | struct (2L, 556L) │
00:02:01 verbose #3004 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:02:01 verbose #3005 > > │ │
00:02:01 verbose #3006 > > │ │
00:02:01 verbose #3007 > > │ │
00:02:01 verbose #3008 > > │ | US0_1 | US0_1 | struct (2L, 527L) │
00:02:01 verbose #3009 > > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:02:01 verbose #3010 > > │ 20; │
00:02:01 verbose #3011 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:02:01 verbose #3012 > > │ 37; 38; │
00:02:01 verbose #3013 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:02:01 verbose #3014 > > │ 55; 56; │
00:02:01 verbose #3015 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:02:01 verbose #3016 > > │ 73; 74; │
00:02:01 verbose #3017 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:02:01 verbose #3018 > > │ 91; 92; │
00:02:01 verbose #3019 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:02:01 verbose #3020 > > │ struct (3L, 492L) │
00:02:01 verbose #3021 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:02:01 verbose #3022 > > │ │
00:02:01 verbose #3023 > > │ │
00:02:01 verbose #3024 > > │ │
00:02:01 verbose #3025 > > │ | US0_0 3 | US0_0 3 | struct (4L, 534L) │
00:02:01 verbose #3026 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:02:01 verbose #3027 > > │ │
00:02:01 verbose #3028 > > │ │
00:02:01 verbose #3029 > > │ │
00:02:01 verbose #3030 > > │ | US0_0 0 | US0_0 0 | struct (3L, 471L) │
00:02:01 verbose #3031 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:02:01 verbose #3032 > > │ │
00:02:01 verbose #3033 > > │ │
00:02:01 verbose #3034 > > │ │
00:02:01 verbose #3035 > > │ | US0_0 6 | US0_0 6 | struct (1L, 492L) │
00:02:01 verbose #3036 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:02:01 verbose #3037 > > │ │
00:02:01 verbose #3038 > > │ │
00:02:01 verbose #3039 > > │ │
00:02:01 verbose #3040 > > │ | US0_1 | US0_1 | struct (4L, 446L) │
00:02:01 verbose #3041 > > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:02:01 verbose #3042 > > │ 20; │
00:02:01 verbose #3043 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:02:01 verbose #3044 > > │ 37; 38; │
00:02:01 verbose #3045 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:02:01 verbose #3046 > > │ 55; 56; │
00:02:01 verbose #3047 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:02:01 verbose #3048 > > │ 73; 74; │
00:02:01 verbose #3049 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:02:01 verbose #3050 > > │ 91; 92; │
00:02:01 verbose #3051 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:02:01 verbose #3052 > > │ struct (4L, 477L) │
00:02:01 verbose #3053 > > │ │
00:02:01 verbose #3054 > > │ Average Ranking │
00:02:01 verbose #3055 > > │ Test case 4. Average Time: 521L │
00:02:01 verbose #3056 > > │ Test case 3. Average Time: 523L │
00:02:01 verbose #3057 > > │ Test case 2. Average Time: 536L │
00:02:01 verbose #3058 > > │ Test case 1. Average Time: 566L │
00:02:01 verbose #3059 > > │ │
00:02:01 verbose #3060 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #3061 > >
00:02:01 verbose #3062 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:01 verbose #3063 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:01 verbose #3064 > > │ ## returnLettersWithOddCountTests │
00:02:01 verbose #3065 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #3066 > >
00:02:01 verbose #3067 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:01 verbose #3068 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:01 verbose #3069 > > │ Test: ReturnLettersWithOddCount │
00:02:01 verbose #3070 > > │ │
00:02:01 verbose #3071 > > │ Solution: 1 │
00:02:01 verbose #3072 > > │ Test case 1. A. Time: 645L │
00:02:01 verbose #3073 > > │ │
00:02:01 verbose #3074 > > │ Solution: 2 │
00:02:01 verbose #3075 > > │ Test case 1. A. Time: 663L │
00:02:01 verbose #3076 > > │ │
00:02:01 verbose #3077 > > │ Solution: 3 │
00:02:01 verbose #3078 > > │ Test case 1. A. Time: 680L │
00:02:01 verbose #3079 > > │ │
00:02:01 verbose #3080 > > │ Solution: 9 │
00:02:01 verbose #3081 > > │ Test case 1. A. Time: 730L │
00:02:01 verbose #3082 > > │ │
00:02:01 verbose #3083 > > │ Solution: 10 │
00:02:01 verbose #3084 > > │ Test case 1. A. Time: 815L │
00:02:01 verbose #3085 > > │ │
00:02:01 verbose #3086 > > │ Input | Expected | Result | Best │
00:02:01 verbose #3087 > > │ --- | --- | --- | --- │
00:02:01 verbose #3088 > > │ 1 | a | a | (1, 645) │
00:02:01 verbose #3089 > > │ 2 | ba | ba | (1, 663) │
00:02:01 verbose #3090 > > │ 3 | aaa | aaa | (1, 680) │
00:02:01 verbose #3091 > > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 730) │
00:02:01 verbose #3092 > > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 815) │
00:02:01 verbose #3093 > > │ │
00:02:01 verbose #3094 > > │ Averages │
00:02:01 verbose #3095 > > │ Test case 1. Average Time: 706L │
00:02:01 verbose #3096 > > │ │
00:02:01 verbose #3097 > > │ Ranking │
00:02:01 verbose #3098 > > │ Test case 1. Average Time: 706L │
00:02:01 verbose #3099 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #3100 > >
00:02:01 verbose #3101 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:01 verbose #3102 > > //// test
00:02:01 verbose #3103 > >
00:02:01 verbose #3104 > > let solutions = [[
00:02:01 verbose #3105 > > "A",
00:02:01 verbose #3106 > > fun n ->
00:02:01 verbose #3107 > > let mutable _builder = StringBuilder (new string('a', n))
00:02:01 verbose #3108 > > if n % 2 = 0 then
00:02:01 verbose #3109 > > _builder.[[0]] <- 'b'
00:02:01 verbose #3110 > >
00:02:01 verbose #3111 > > _builder.ToString ()
00:02:01 verbose #3112 > > ]]
00:02:01 verbose #3113 > > let testCases = seq {
00:02:01 verbose #3114 > > 1, "a"
00:02:01 verbose #3115 > > 2, "ba"
00:02:01 verbose #3116 > > 3, "aaa"
00:02:01 verbose #3117 > > 9, "aaaaaaaaa"
00:02:01 verbose #3118 > > 10, "baaaaaaaaa"
00:02:01 verbose #3119 > > }
00:02:01 verbose #3120 > > let rec returnLettersWithOddCountTests =
00:02:01 verbose #3121 > > runAll (nameof returnLettersWithOddCountTests) _count solutions testCases
00:02:01 verbose #3122 > > returnLettersWithOddCountTests
00:02:01 verbose #3123 > > |> sortResultList
00:02:03 verbose #3124 > >
00:02:03 verbose #3125 > > ╭─[ 1.21s - stdout ]───────────────────────────────────────────────────────────╮
00:02:03 verbose #3126 > > │ │
00:02:03 verbose #3127 > > │ │
00:02:03 verbose #3128 > > │ Test: returnLettersWithOddCountTests │
00:02:03 verbose #3129 > > │ │
00:02:03 verbose #3130 > > │ Solution: 1 │
00:02:03 verbose #3131 > > │ Test case 1. A. Time: 0L │
00:02:03 verbose #3132 > > │ │
00:02:03 verbose #3133 > > │ Solution: 2 │
00:02:03 verbose #3134 > > │ Test case 1. A. Time: 0L │
00:02:03 verbose #3135 > > │ │
00:02:03 verbose #3136 > > │ Solution: 3 │
00:02:03 verbose #3137 > > │ Test case 1. A. Time: 0L │
00:02:03 verbose #3138 > > │ │
00:02:03 verbose #3139 > > │ Solution: 9 │
00:02:03 verbose #3140 > > │ Test case 1. A. Time: 0L │
00:02:03 verbose #3141 > > │ │
00:02:03 verbose #3142 > > │ Solution: 10 │
00:02:03 verbose #3143 > > │ Test case 1. A. Time: 2L │
00:02:03 verbose #3144 > > │ │
00:02:03 verbose #3145 > > │ Input | Expected | Result | Best │
00:02:03 verbose #3146 > > │ --- | --- | --- | --- │
00:02:03 verbose #3147 > > │ 1 | a | a | (1, 0) │
00:02:03 verbose #3148 > > │ 2 | ba | ba | (1, 0) │
00:02:03 verbose #3149 > > │ 3 | aaa | aaa | (1, 0) │
00:02:03 verbose #3150 > > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 0) │
00:02:03 verbose #3151 > > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 2) │
00:02:03 verbose #3152 > > │ │
00:02:03 verbose #3153 > > │ Average Ranking │
00:02:03 verbose #3154 > > │ Test case 1. Average Time: 0L │
00:02:03 verbose #3155 > > │ │
00:02:03 verbose #3156 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:03 verbose #3157 > >
00:02:03 verbose #3158 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:03 verbose #3159 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:03 verbose #3160 > > │ ## hasAnyPairCloseToEachotherTests │
00:02:03 verbose #3161 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:03 verbose #3162 > >
00:02:03 verbose #3163 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:03 verbose #3164 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:03 verbose #3165 > > │ Test: HasAnyPairCloseToEachother │
00:02:03 verbose #3166 > > │ │
00:02:03 verbose #3167 > > │ Solution: 0 │
00:02:03 verbose #3168 > > │ Test case 1. A. Time: 137L │
00:02:03 verbose #3169 > > │ │
00:02:03 verbose #3170 > > │ Solution: 1,2 │
00:02:03 verbose #3171 > > │ Test case 1. A. Time: 186L │
00:02:03 verbose #3172 > > │ │
00:02:03 verbose #3173 > > │ Solution: 3,5 │
00:02:03 verbose #3174 > > │ Test case 1. A. Time: 206L │
00:02:03 verbose #3175 > > │ │
00:02:03 verbose #3176 > > │ Solution: 3,4,6 │
00:02:03 verbose #3177 > > │ Test case 1. A. Time: 149L │
00:02:03 verbose #3178 > > │ │
00:02:03 verbose #3179 > > │ Solution: 2,4,6 │
00:02:03 verbose #3180 > > │ Test case 1. A. Time: 150L │
00:02:03 verbose #3181 > > │ │
00:02:03 verbose #3182 > > │ Input | Expected | Result | Best │
00:02:03 verbose #3183 > > │ --- | --- | --- | --- │
00:02:03 verbose #3184 > > │ 0 | False | False | (1, 137) │
00:02:03 verbose #3185 > > │ 1,2 | True | True | (1, 186) │
00:02:03 verbose #3186 > > │ 3,5 | False | False | (1, 206) │
00:02:03 verbose #3187 > > │ 3,4,6 | True | True | (1, 149) │
00:02:03 verbose #3188 > > │ 2,4,6 | False | False | (1, 150) │
00:02:03 verbose #3189 > > │ │
00:02:03 verbose #3190 > > │ Averages │
00:02:03 verbose #3191 > > │ Test case 1. Average Time: 165L │
00:02:03 verbose #3192 > > │ │
00:02:03 verbose #3193 > > │ Ranking │
00:02:03 verbose #3194 > > │ Test case 1. Average Time: 165L │
00:02:03 verbose #3195 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:03 verbose #3196 > >
00:02:03 verbose #3197 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:03 verbose #3198 > > //// test
00:02:03 verbose #3199 > >
00:02:03 verbose #3200 > > let solutions = [[
00:02:03 verbose #3201 > > "A",
00:02:03 verbose #3202 > > fun (a: int[[]]) ->
00:02:03 verbose #3203 > > let indices = System.Linq.Enumerable.Range(0, a.Length) |>
00:02:03 verbose #3204 > > System.Linq.Enumerable.ToArray
00:02:03 verbose #3205 > > System.Array.Sort (a, indices)
00:02:03 verbose #3206 > >
00:02:03 verbose #3207 > > indices
00:02:03 verbose #3208 > > |> Array.take (a.Length - 1)
00:02:03 verbose #3209 > > |> Array.exists (fun i -> a.[[i + 1]] - a.[[i]] = 1)
00:02:03 verbose #3210 > > ]]
00:02:03 verbose #3211 > > let testCases = seq {
00:02:03 verbose #3212 > > [[| 0 |]], false
00:02:03 verbose #3213 > > [[| 1; 2 |]], true
00:02:03 verbose #3214 > > [[| 3; 5 |]], false
00:02:03 verbose #3215 > > [[| 3; 4; 6 |]], true
00:02:03 verbose #3216 > > [[| 2; 4; 6 |]], false
00:02:03 verbose #3217 > > }
00:02:03 verbose #3218 > > let rec hasAnyPairCloseToEachotherTests =
00:02:03 verbose #3219 > > runAll (nameof hasAnyPairCloseToEachotherTests) _count solutions testCases
00:02:03 verbose #3220 > > hasAnyPairCloseToEachotherTests
00:02:03 verbose #3221 > > |> sortResultList
00:02:04 verbose #3222 > >
00:02:04 verbose #3223 > > ╭─[ 1.30s - stdout ]───────────────────────────────────────────────────────────╮
00:02:04 verbose #3224 > > │ │
00:02:04 verbose #3225 > > │ │
00:02:04 verbose #3226 > > │ Test: hasAnyPairCloseToEachotherTests │
00:02:04 verbose #3227 > > │ │
00:02:04 verbose #3228 > > │ Solution: 0 │
00:02:04 verbose #3229 > > │ Test case 1. A. Time: 2L │
00:02:04 verbose #3230 > > │ │
00:02:04 verbose #3231 > > │ Solution: 1,2 │
00:02:04 verbose #3232 > > │ Test case 1. A. Time: 0L │
00:02:04 verbose #3233 > > │ │
00:02:04 verbose #3234 > > │ Solution: 3,5 │
00:02:04 verbose #3235 > > │ Test case 1. A. Time: 0L │
00:02:04 verbose #3236 > > │ │
00:02:04 verbose #3237 > > │ Solution: 3,4,6 │
00:02:04 verbose #3238 > > │ Test case 1. A. Time: 0L │
00:02:04 verbose #3239 > > │ │
00:02:04 verbose #3240 > > │ Solution: 2,4,6 │
00:02:04 verbose #3241 > > │ Test case 1. A. Time: 0L │
00:02:04 verbose #3242 > > │ │
00:02:04 verbose #3243 > > │ Input | Expected | Result | Best │
00:02:04 verbose #3244 > > │ --- | --- | --- | --- │
00:02:04 verbose #3245 > > │ 0 | False | False | (1, 2) │
00:02:04 verbose #3246 > > │ 1,2 | True | True | (1, 0) │
00:02:04 verbose #3247 > > │ 3,5 | False | False | (1, 0) │
00:02:04 verbose #3248 > > │ 3,4,6 | True | True | (1, 0) │
00:02:04 verbose #3249 > > │ 2,4,6 | False | False | (1, 0) │
00:02:04 verbose #3250 > > │ │
00:02:04 verbose #3251 > > │ Average Ranking │
00:02:04 verbose #3252 > > │ Test case 1. Average Time: 0L │
00:02:04 verbose #3253 > > │ │
00:02:04 verbose #3254 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #3255 > 00:02:03 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 150141
00:02:04 verbose #3256 > 00:02:03 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:02:07 verbose #3257 > 00:02:06 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/perf/Perf.dib.ipynb to html
00:02:07 verbose #3258 > 00:02:06 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:07 verbose #3259 > 00:02:06 verbose #7 ! validate(nb)
00:02:11 verbose #3260 > 00:02:09 verbose #8 ! [NbConvertApp] Writing 445209 bytes to c:\home\git\polyglot\apps\perf\Perf.dib.html
00:02:11 verbose #3261 > 00:02:09 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:02:11 verbose #3262 > 00:02:09 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:02:11 verbose #3263 > 00:02:09 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/perf/Perf.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/perf/Perf.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:13 verbose #3264 > 00:02:12 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:13 verbose #3265 > 00:02:12 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:14 verbose #3266 > 00:02:12 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 150837
00:02:14 debug #3267 runtime.execute_with_options_async / exit_code: 0 / output.Length: 159572
00:02:14 debug #1 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Perf.dib --retries 3
00:00:00 debug #1 writeDibCode / output: Fs / path: Perf.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: Perf.dib
In [ ]:
{ pwsh ../apps/dir-tree-html/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path DirTreeHtml.dib",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "DirTreeHtml.dib"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib", "--output-path", "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib" --output-path "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:03 verbose #4 > >
00:00:03 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:03 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:03 verbose #7 > > │ # DirTreeHtml (Polyglot) │
00:00:03 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:03 verbose #9 > >
00:00:03 verbose #10 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:03 verbose #11 > > #r
00:00:03 verbose #12 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:00:03 verbose #13 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:00:03 verbose #14 > > #r
00:00:03 verbose #15 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:00:03 verbose #16 > > 0/System.Reactive.dll"
00:00:03 verbose #17 > > #r
00:00:03 verbose #18 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:00:03 verbose #19 > > netstandard2.0/System.Reactive.Linq.dll"
00:00:03 verbose #20 > > #r
00:00:03 verbose #21 > > @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll"
00:00:03 verbose #22 > > #r
00:00:03 verbose #23 > > @"../../../../../../../.nuget/packages/falco.markup/1.1.1/lib/netstandard2.0/Fal
00:00:03 verbose #24 > > co.Markup.dll"
00:00:03 verbose #25 > >
00:00:03 verbose #26 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:03 verbose #27 > > #r
00:00:03 verbose #28 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:03 verbose #29 > > spNetCore.Html.Abstractions.dll"
00:00:03 verbose #30 > > #r
00:00:03 verbose #31 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 verbose #32 > > otNet.Interactive.dll"
00:00:03 verbose #33 > > #r
00:00:03 verbose #34 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 verbose #35 > > otNet.Interactive.FSharp.dll"
00:00:03 verbose #36 > > #r
00:00:03 verbose #37 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:03 verbose #38 > > otNet.Interactive.Formatting.dll"
00:00:03 verbose #39 > > open System
00:00:03 verbose #40 > > open System.IO
00:00:03 verbose #41 > > open System.Text
00:00:03 verbose #42 > > open Microsoft.DotNet.Interactive.Formatting
00:00:07 verbose #43 > >
00:00:07 verbose #44 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 verbose #45 > > #r
00:00:07 verbose #46 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 verbose #47 > > otNet.Interactive.FSharp.dll"
00:00:07 verbose #48 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:07 verbose #49 > > #r
00:00:07 verbose #50 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 verbose #51 > > otNet.Interactive.dll"
00:00:07 verbose #52 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:07 verbose #53 > >
00:00:07 verbose #54 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 verbose #55 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:08 verbose #56 > >
00:00:08 verbose #57 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #58 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:08 verbose #59 > > TextWriter)->fprintfn writer "%120A" x)
00:00:08 verbose #60 > >
00:00:08 verbose #61 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:08 verbose #62 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:08 verbose #63 > > #!import ../../lib/fsharp/Testing.dib
00:00:08 verbose #64 > >
00:00:08 verbose #65 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #66 > > //// test
00:00:08 verbose #67 > >
00:00:08 verbose #68 > > Formatter.ListExpansionLimit <- 100
00:00:08 verbose #69 > >
00:00:08 verbose #70 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #71 > > #if FABLE_COMPILER
00:00:08 verbose #72 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:08 verbose #73 > > #endif
00:00:08 verbose #74 > > type std_env_VarError = class end
00:00:08 verbose #75 > > #if FABLE_COMPILER
00:00:08 verbose #76 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:08 verbose #77 > > #endif
00:00:08 verbose #78 > > type core_any_Any = class end
00:00:08 verbose #79 > > #if FABLE_COMPILER
00:00:08 verbose #80 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:08 verbose #81 > > #endif
00:00:08 verbose #82 > > type core_ops_Try<'T> = class end
00:00:08 verbose #83 > > #if FABLE_COMPILER
00:00:08 verbose #84 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:08 verbose #85 > > #endif
00:00:08 verbose #86 > > type Func0<'T> = class end
00:00:08 verbose #87 > > #if FABLE_COMPILER
00:00:08 verbose #88 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:08 verbose #89 > > #endif
00:00:08 verbose #90 > > type Func0<'T, 'U> = class end
00:00:08 verbose #91 > > #if FABLE_COMPILER
00:00:08 verbose #92 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:08 verbose #93 > > #endif
00:00:08 verbose #94 > > type Box<'T> = class end
00:00:08 verbose #95 > > #if FABLE_COMPILER
00:00:08 verbose #96 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:08 verbose #97 > > #endif
00:00:08 verbose #98 > > type Dyn<'T> = class end
00:00:08 verbose #99 > > #if FABLE_COMPILER
00:00:08 verbose #100 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:08 verbose #101 > > #endif
00:00:08 verbose #102 > > type Send<'T> = class end
00:00:08 verbose #103 > > #if FABLE_COMPILER
00:00:08 verbose #104 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:08 verbose #105 > > #endif
00:00:08 verbose #106 > > type Fn<'T> = class end
00:00:08 verbose #107 > > #if FABLE_COMPILER
00:00:08 verbose #108 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:08 verbose #109 > > #endif
00:00:08 verbose #110 > > type FnUnit = class end
00:00:08 verbose #111 > > #if FABLE_COMPILER
00:00:08 verbose #112 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:08 verbose #113 > > #endif
00:00:08 verbose #114 > > type FnOnce<'T> = class end
00:00:08 verbose #115 > > #if FABLE_COMPILER
00:00:08 verbose #116 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:08 verbose #117 > > #endif
00:00:08 verbose #118 > > type ActionFn<'T> = class end
00:00:08 verbose #119 > > #if FABLE_COMPILER
00:00:08 verbose #120 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:08 verbose #121 > > #endif
00:00:08 verbose #122 > > type ActionFn2<'T, 'U> = class end
00:00:08 verbose #123 > > #if FABLE_COMPILER
00:00:08 verbose #124 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:08 verbose #125 > > #endif
00:00:08 verbose #126 > > type Impl<'T> = class end
00:00:08 verbose #127 > > #if FABLE_COMPILER
00:00:08 verbose #128 > > [[<Fabl...2, v3, v4)
00:00:08 verbose #129 > > US5_1
00:00:08 verbose #130 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:08 verbose #131 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:08 verbose #132 > > let v4 : (US4 -> US5) = closure6()
00:00:08 verbose #133 > > let v5 : (exn -> US5) = closure7(v2)
00:00:08 verbose #134 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:08 verbose #135 > > match v6 with
00:00:08 verbose #136 > > | US5_1 -> (* None *)
00:00:08 verbose #137 > > let v8 : int32 = v2 + 1
00:00:08 verbose #138 > > method6(v0, v1, v8)
00:00:08 verbose #139 > > | US5_0(v7) -> (* Some *)
00:00:08 verbose #140 > > v7
00:00:08 verbose #141 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:08 verbose #142 > > let v2 : int32 = 0
00:00:08 verbose #143 > > let v3 : US4 = method6(v0, v1, v2)
00:00:08 verbose #144 > > match v3 with
00:00:08 verbose #145 > > | US4_1 -> (* None *)
00:00:08 verbose #146 > > let v5 : unit option = None
00:00:08 verbose #147 > > v5
00:00:08 verbose #148 > > | US4_0 -> (* Some *)
00:00:08 verbose #149 > > let v4 : unit option = Some ()
00:00:08 verbose #150 > > v4
00:00:08 verbose #151 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:08 verbose #152 > > closure4(v0)
00:00:08 verbose #153 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:08 verbose #154 > > v0
00:00:08 verbose #155 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:08 verbose #156 > > v0.Value
00:00:08 verbose #157 > > ()
00:00:08 verbose #158 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:08 verbose #159 > > let v1 : (unit -> unit) = method12(v0)
00:00:08 verbose #160 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:08 verbose #161 > > closure13(v2)
00:00:08 verbose #162 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:08 verbose #163 > > let v1 : US0 = US0_0
00:00:08 verbose #164 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:08 verbose #165 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:08 verbose #166 > > let new_disposable x = v2 x
00:00:08 verbose #167 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:08 verbose #168 > > let retry_fn x = v3 x
00:00:08 verbose #169 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:08 verbose #170 > > let memoize x = v4 x
00:00:08 verbose #171 > > ()
00:00:08 verbose #172 > >
00:00:10 verbose #173 > >
00:00:10 verbose #174 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #175 > > #if FABLE_COMPILER
00:00:10 verbose #176 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:10 verbose #177 > > #endif
00:00:10 verbose #178 > > type core_any_Any = class end
00:00:10 verbose #179 > > #if FABLE_COMPILER
00:00:10 verbose #180 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:10 verbose #181 > > #endif
00:00:10 verbose #182 > > type core_ops_Try<'T> = class end
00:00:10 verbose #183 > > #if FABLE_COMPILER
00:00:10 verbose #184 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:10 verbose #185 > > #endif
00:00:10 verbose #186 > > type Func0<'T> = class end
00:00:10 verbose #187 > > #if FABLE_COMPILER
00:00:10 verbose #188 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:10 verbose #189 > > #endif
00:00:10 verbose #190 > > type Func0<'T, 'U> = class end
00:00:10 verbose #191 > > #if FABLE_COMPILER
00:00:10 verbose #192 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:10 verbose #193 > > #endif
00:00:10 verbose #194 > > type Box<'T> = class end
00:00:10 verbose #195 > > #if FABLE_COMPILER
00:00:10 verbose #196 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:10 verbose #197 > > #endif
00:00:10 verbose #198 > > type Dyn<'T> = class end
00:00:10 verbose #199 > > #if FABLE_COMPILER
00:00:10 verbose #200 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:10 verbose #201 > > #endif
00:00:10 verbose #202 > > type Send<'T> = class end
00:00:10 verbose #203 > > #if FABLE_COMPILER
00:00:10 verbose #204 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:10 verbose #205 > > #endif
00:00:10 verbose #206 > > type Fn<'T> = class end
00:00:10 verbose #207 > > #if FABLE_COMPILER
00:00:10 verbose #208 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:10 verbose #209 > > #endif
00:00:10 verbose #210 > > type FnUnit = class end
00:00:10 verbose #211 > > #if FABLE_COMPILER
00:00:10 verbose #212 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:10 verbose #213 > > #endif
00:00:10 verbose #214 > > type FnOnce<'T> = class end
00:00:10 verbose #215 > > #if FABLE_COMPILER
00:00:10 verbose #216 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:10 verbose #217 > > #endif
00:00:10 verbose #218 > > type ActionFn<'T> = class end
00:00:10 verbose #219 > > #if FABLE_COMPILER
00:00:10 verbose #220 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:10 verbose #221 > > #endif
00:00:10 verbose #222 > > type ActionFn2<'T, 'U> = class end
00:00:10 verbose #223 > > #if FABLE_COMPILER
00:00:10 verbose #224 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:10 verbose #225 > > #endif
00:00:10 verbose #226 > > type Impl<'T> = class end
00:00:10 verbose #227 > > #if FABLE_COMPILER
00:00:10 verbose #228 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:10 verbose #229 > > #endif
00:00:10 verbose #230 > > type Mut<'T> = class end
00:00:10 verbose #231 > > #if FABLE_COMPILER
00:00:10 verbose #232 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:10 verbose #233 > > let replace x = v4 x
00:00:10 verbose #234 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:10 verbose #235 > > let replace_regex x = v5 x
00:00:10 verbose #236 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:10 verbose #237 > > let slice x = v6 x
00:00:10 verbose #238 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:10 verbose #239 > > let split x = v7 x
00:00:10 verbose #240 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:10 verbose #241 > > let split_string x = v8 x
00:00:10 verbose #242 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:10 verbose #243 > > let starts_with x = v9 x
00:00:10 verbose #244 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:10 verbose #245 > > let substring x = v10 x
00:00:10 verbose #246 > > let v11 : (string -> string) = closure28()
00:00:10 verbose #247 > > let to_lower x = v11 x
00:00:10 verbose #248 > > let v12 : (string -> string) = closure29()
00:00:10 verbose #249 > > let to_upper x = v12 x
00:00:10 verbose #250 > > let v13 : (string -> string) = closure30()
00:00:10 verbose #251 > > let trim x = v13 x
00:00:10 verbose #252 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:10 verbose #253 > > let trim_end x = v14 x
00:00:10 verbose #254 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:10 verbose #255 > > let trim_start x = v15 x
00:00:10 verbose #256 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:10 verbose #257 > > let ellipsis x = v16 x
00:00:10 verbose #258 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:10 verbose #259 > > let ellipsis_end x = v17 x
00:00:10 verbose #260 > > let v18 : (exn -> string) = closure39()
00:00:10 verbose #261 > > let format_exception x = v18 x
00:00:10 verbose #262 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:10 verbose #263 > > let concat_array_trailing x = v19 x
00:00:10 verbose #264 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:10 verbose #265 > > let concat x = v20 x
00:00:10 verbose #266 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:10 verbose #267 > > let join' x = v21 x
00:00:10 verbose #268 > > let v22 : (string -> (char [[]])) = closure46()
00:00:10 verbose #269 > > let to_char_array x = v22 x
00:00:10 verbose #270 > > ()
00:00:10 verbose #271 > >
00:00:11 verbose #272 > >
00:00:11 verbose #273 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #274 > > #if FABLE_COMPILER
00:00:11 verbose #275 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:11 verbose #276 > > #endif
00:00:11 verbose #277 > > type core_any_Any = class end
00:00:11 verbose #278 > > #if FABLE_COMPILER
00:00:11 verbose #279 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:11 verbose #280 > > #endif
00:00:11 verbose #281 > > type core_ops_Try<'T> = class end
00:00:11 verbose #282 > > #if FABLE_COMPILER
00:00:11 verbose #283 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:11 verbose #284 > > #endif
00:00:11 verbose #285 > > type Func0<'T> = class end
00:00:11 verbose #286 > > #if FABLE_COMPILER
00:00:11 verbose #287 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:11 verbose #288 > > #endif
00:00:11 verbose #289 > > type Func0<'T, 'U> = class end
00:00:11 verbose #290 > > #if FABLE_COMPILER
00:00:11 verbose #291 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:11 verbose #292 > > #endif
00:00:11 verbose #293 > > type Box<'T> = class end
00:00:11 verbose #294 > > #if FABLE_COMPILER
00:00:11 verbose #295 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:11 verbose #296 > > #endif
00:00:11 verbose #297 > > type Dyn<'T> = class end
00:00:11 verbose #298 > > #if FABLE_COMPILER
00:00:11 verbose #299 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:11 verbose #300 > > #endif
00:00:11 verbose #301 > > type Send<'T> = class end
00:00:11 verbose #302 > > #if FABLE_COMPILER
00:00:11 verbose #303 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:11 verbose #304 > > #endif
00:00:11 verbose #305 > > type Fn<'T> = class end
00:00:11 verbose #306 > > #if FABLE_COMPILER
00:00:11 verbose #307 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:11 verbose #308 > > #endif
00:00:11 verbose #309 > > type FnUnit = class end
00:00:11 verbose #310 > > #if FABLE_COMPILER
00:00:11 verbose #311 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:11 verbose #312 > > #endif
00:00:11 verbose #313 > > type FnOnce<'T> = class end
00:00:11 verbose #314 > > #if FABLE_COMPILER
00:00:11 verbose #315 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:11 verbose #316 > > #endif
00:00:11 verbose #317 > > type ActionFn<'T> = class end
00:00:11 verbose #318 > > #if FABLE_COMPILER
00:00:11 verbose #319 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:11 verbose #320 > > #endif
00:00:11 verbose #321 > > type ActionFn2<'T, 'U> = class end
00:00:11 verbose #322 > > #if FABLE_COMPILER
00:00:11 verbose #323 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:11 verbose #324 > > #endif
00:00:11 verbose #325 > > type Impl<'T> = class end
00:00:11 verbose #326 > > #if FABLE_COMPILER
00:00:11 verbose #327 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:11 verbose #328 > > #endif
00:00:11 verbose #329 > > type Mut<'T> = class end
00:00:11 verbose #330 > > #if FABLE_COMPILER
00:00:11 verbose #331 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:11 verbose #332 > > ()
00:00:11 verbose #333 > > #endif
00:00:11 verbose #334 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:11 verbose #335 > > let v28 : string = @"println!(""{}"", $0)"
00:00:11 verbose #336 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:11 verbose #337 > > ()
00:00:11 verbose #338 > > #endif
00:00:11 verbose #339 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:11 verbose #340 > > System.Console.WriteLine v24
00:00:11 verbose #341 > > ()
00:00:11 verbose #342 > > #endif
00:00:11 verbose #343 > > #if FABLE_COMPILER_PYTHON
00:00:11 verbose #344 > > System.Console.WriteLine v24
00:00:11 verbose #345 > > ()
00:00:11 verbose #346 > > #endif
00:00:11 verbose #347 > > #else
00:00:11 verbose #348 > > System.Console.WriteLine v24
00:00:11 verbose #349 > > ()
00:00:11 verbose #350 > > #endif
00:00:11 verbose #351 > > |> fun x -> _v25 <- Some x
00:00:11 verbose #352 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:11 verbose #353 > > _v25=None"
00:00:11 verbose #354 > > let v29 : (string -> unit) = v8.l0
00:00:11 verbose #355 > > v29 v24
00:00:11 verbose #356 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:11 verbose #357 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:11 verbose #358 > > method11(v0, v3)
00:00:11 verbose #359 > > and closure1 () (v0 : string) : uint16 =
00:00:11 verbose #360 > > let v1 : char = v0.[[int 0]]
00:00:11 verbose #361 > > let v2 : (char -> int32) = int32
00:00:11 verbose #362 > > let v3 : int32 = v2 v1
00:00:11 verbose #363 > > let v4 : string = v0.[[int 0..int 7]]
00:00:11 verbose #364 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:11 verbose #365 > > let v6 : int32 = v5 + v3
00:00:11 verbose #366 > > let v7 : (int32 -> uint16) = uint16
00:00:11 verbose #367 > > let v8 : uint16 = v7 v6
00:00:11 verbose #368 > > let v9 : US0 = US0_0
00:00:11 verbose #369 > > let v10 : (unit -> string) = closure2()
00:00:11 verbose #370 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:11 verbose #371 > > method3(v9, v10, v11)
00:00:11 verbose #372 > > let v12 : uint16 = v8 % 48128us
00:00:11 verbose #373 > > let v13 : uint16 = v12 + 1024us
00:00:11 verbose #374 > > v13
00:00:11 verbose #375 > > let v0 : (string -> string) = closure0()
00:00:11 verbose #376 > > let hash_text x = v0 x
00:00:11 verbose #377 > > let v1 : (string -> uint16) = closure1()
00:00:11 verbose #378 > > let hash_to_port x = v1 x
00:00:11 verbose #379 > > ()
00:00:11 verbose #380 > >
00:00:12 verbose #381 > >
00:00:12 verbose #382 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #383 > > #if FABLE_COMPILER
00:00:12 verbose #384 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:12 verbose #385 > > #endif
00:00:12 verbose #386 > > type core_any_Any = class end
00:00:12 verbose #387 > > #if FABLE_COMPILER
00:00:12 verbose #388 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:12 verbose #389 > > #endif
00:00:12 verbose #390 > > type core_ops_Try<'T> = class end
00:00:12 verbose #391 > > #if FABLE_COMPILER
00:00:12 verbose #392 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:12 verbose #393 > > #endif
00:00:12 verbose #394 > > type Func0<'T> = class end
00:00:12 verbose #395 > > #if FABLE_COMPILER
00:00:12 verbose #396 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:12 verbose #397 > > #endif
00:00:12 verbose #398 > > type Func0<'T, 'U> = class end
00:00:12 verbose #399 > > #if FABLE_COMPILER
00:00:12 verbose #400 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:12 verbose #401 > > #endif
00:00:12 verbose #402 > > type Box<'T> = class end
00:00:12 verbose #403 > > #if FABLE_COMPILER
00:00:12 verbose #404 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:12 verbose #405 > > #endif
00:00:12 verbose #406 > > type Dyn<'T> = class end
00:00:12 verbose #407 > > #if FABLE_COMPILER
00:00:12 verbose #408 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:12 verbose #409 > > #endif
00:00:12 verbose #410 > > type Send<'T> = class end
00:00:12 verbose #411 > > #if FABLE_COMPILER
00:00:12 verbose #412 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:12 verbose #413 > > #endif
00:00:12 verbose #414 > > type Fn<'T> = class end
00:00:12 verbose #415 > > #if FABLE_COMPILER
00:00:12 verbose #416 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:12 verbose #417 > > #endif
00:00:12 verbose #418 > > type FnUnit = class end
00:00:12 verbose #419 > > #if FABLE_COMPILER
00:00:12 verbose #420 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:12 verbose #421 > > #endif
00:00:12 verbose #422 > > type FnOnce<'T> = class end
00:00:12 verbose #423 > > #if FABLE_COMPILER
00:00:12 verbose #424 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:12 verbose #425 > > #endif
00:00:12 verbose #426 > > type ActionFn<'T> = class end
00:00:12 verbose #427 > > #if FABLE_COMPILER
00:00:12 verbose #428 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:12 verbose #429 > > #endif
00:00:12 verbose #430 > > type ActionFn2<'T, 'U> = class end
00:00:12 verbose #431 > > #if FABLE_COMPILER
00:00:12 verbose #432 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:12 verbose #433 > > #endif
00:00:12 verbose #434 > > type Impl<'T> = class end
00:00:12 verbose #435 > > #if FABLE_COMPILER
00:00:12 verbose #436 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:12 verbose #437 > > #endif
00:00:12 verbose #438 > > type Mut<'T> = class end
00:00:12 verbose #439 > > #if FABLE_COMPILER
00:00:12 verbose #440 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:12 verbose #441 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:12 verbose #442 > > let v2 : System.Guid = v1 ()
00:00:12 verbose #443 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:12 verbose #444 > > let v4 : string = v3 v2
00:00:12 verbose #445 > > let v5 : (int64 -> string) = _.ToString()
00:00:12 verbose #446 > > let v6 : string = v5 v0
00:00:12 verbose #447 > > let v7 : string = v6.PadLeft (18, '0')
00:00:12 verbose #448 > > let v8 : System.Guid = System.Guid
00:00:12 verbose #449 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:12 verbose #450 > > v8
00:00:12 verbose #451 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:12 verbose #452 > > let v2 : (string -> string) = v1.ToString
00:00:12 verbose #453 > > v2 v0
00:00:12 verbose #454 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:12 verbose #455 > > closure12(v0)
00:00:12 verbose #456 > > and closure13 () (v0 : System.DateTime) : string =
00:00:12 verbose #457 > > let v1 : (string -> string) = v0.ToString
00:00:12 verbose #458 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:12 verbose #459 > > v1 v2
00:00:12 verbose #460 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:12 verbose #461 > > let date_time_guid_from_date_time x = v0 x
00:00:12 verbose #462 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:12 verbose #463 > > let date_time_from_guid x = v1 x
00:00:12 verbose #464 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:12 verbose #465 > > let timestamp_guid_from_timestamp x = v2 x
00:00:12 verbose #466 > > let v3 : (System.Guid -> int64) = closure8()
00:00:12 verbose #467 > > let timestamp_from_guid x = v3 x
00:00:12 verbose #468 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:12 verbose #469 > > let new_guid_from_date_time x = v4 x
00:00:12 verbose #470 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:12 verbose #471 > > let new_guid_from_timestamp x = v5 x
00:00:12 verbose #472 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:12 verbose #473 > > let format x = v6 x
00:00:12 verbose #474 > > let v7 : (System.DateTime -> string) = closure13()
00:00:12 verbose #475 > > let format_iso8601 x = v7 x
00:00:12 verbose #476 > > ()
00:00:12 verbose #477 > >
00:00:12 verbose #478 > >
00:00:12 verbose #479 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #480 > > #if FABLE_COMPILER
00:00:12 verbose #481 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:12 verbose #482 > > #endif
00:00:12 verbose #483 > > type futures_future_JoinAll<'T> = class end
00:00:12 verbose #484 > > #if FABLE_COMPILER
00:00:12 verbose #485 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:12 verbose #486 > > #endif
00:00:12 verbose #487 > > type futures_future_TryJoinAll<'T> = class end
00:00:12 verbose #488 > > #if FABLE_COMPILER
00:00:12 verbose #489 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:12 verbose #490 > > #endif
00:00:12 verbose #491 > > type rayon_iter_Map<'T> = class end
00:00:12 verbose #492 > > #if FABLE_COMPILER
00:00:12 verbose #493 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:12 verbose #494 > > #endif
00:00:12 verbose #495 > > type rayon_vec_IntoIter<'T> = class end
00:00:12 verbose #496 > > #if FABLE_COMPILER
00:00:12 verbose #497 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:12 verbose #498 > > #endif
00:00:12 verbose #499 > > type std_future_Future<'T> = class end
00:00:12 verbose #500 > > #if FABLE_COMPILER
00:00:12 verbose #501 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:12 verbose #502 > > #endif
00:00:12 verbose #503 > > type futures_future_Fuse<'T> = class end
00:00:12 verbose #504 > > #if FABLE_COMPILER
00:00:12 verbose #505 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:12 verbose #506 > > #endif
00:00:12 verbose #507 > > type tokio_task_JoinHandle<'T> = class end
00:00:12 verbose #508 > > #if FABLE_COMPILER
00:00:12 verbose #509 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:12 verbose #510 > > #endif
00:00:12 verbose #511 > > type tokio_stream_StreamExt = class end
00:00:12 verbose #512 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:12 verbose #513 > > Async<System.Threading.CancellationToken> =
00:00:12 verbose #514 > > let v1 : bool = true
00:00:12 verbose #515 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #516 > >
00:00:12 verbose #517 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:12 verbose #518 > >
00:00:12 verbose #519 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:12 verbose #520 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:12 verbose #521 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:12 verbose #522 > > v12
00:00:12 verbose #523 > > #endif
00:00:12 verbose #524 > > #else
00:00:12 verbose #525 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #526 > > let mutable _v13 = v13
00:00:12 verbose #527 > > async {
00:00:12 verbose #528 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:12 verbose #529 > > Async.CancellationToken
00:00:12 verbose #530 > > let! v14 = v14
00:00:12 verbose #531 > > let v15 : System.Threading.CancellationToken = v14
00:00:12 verbose #532 > > let v16 : System.Threading.CancellationToken =
00:00:12 verbose #533 > > Async.DefaultCancellationToken
00:00:12 verbose #534 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:12 verbose #535 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:12 verbose #536 > > System.Threading.CancellationTokenSource) =
00:00:12 verbose #537 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:12 verbose #538 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:12 verbose #539 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:12 verbose #540 > > return v20
00:00:12 verbose #541 > > }
00:00:12 verbose #542 > > |> fun x -> _v13 <- Some x
00:00:12 verbose #543 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:12 verbose #544 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:12 verbose #545 > > v21
00:00:12 verbose #546 > > #endif
00:00:12 verbose #547 > > |> fun x -> _v7 <- Some x
00:00:12 verbose #548 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:12 verbose #549 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:12 verbose #550 > > v22
00:00:12 verbose #551 > > #endif
00:00:12 verbose #552 > > |> fun x -> _v1 <- Some x
00:00:12 verbose #553 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:12 verbose #554 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:12 verbose #555 > > v23
00:00:12 verbose #556 > > let v0 : (System.Threading.CancellationToken ->
00:00:12 verbose #557 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:12 verbose #558 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:12 verbose #559 > > ()
00:00:12 verbose #560 > >
00:00:13 verbose #561 > >
00:00:13 verbose #562 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #563 > > #if FABLE_COMPILER
00:00:13 verbose #564 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:13 verbose #565 > > #endif
00:00:13 verbose #566 > > type std_thread_JoinHandle<'T> = class end
00:00:13 verbose #567 > > #if FABLE_COMPILER
00:00:13 verbose #568 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:13 verbose #569 > > #endif
00:00:13 verbose #570 > > type std_sync_Arc<'T> = class end
00:00:13 verbose #571 > > #if FABLE_COMPILER
00:00:13 verbose #572 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:13 verbose #573 > > #endif
00:00:13 verbose #574 > > type std_sync_Mutex<'T> = class end
00:00:13 verbose #575 > > #if FABLE_COMPILER
00:00:13 verbose #576 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:13 verbose #577 > > #endif
00:00:13 verbose #578 > > type std_sync_MutexGuard<'T> = class end
00:00:13 verbose #579 > > #if FABLE_COMPILER
00:00:13 verbose #580 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:13 verbose #581 > > #endif
00:00:13 verbose #582 > > type std_sync_PoisonError<'T> = class end
00:00:13 verbose #583 > > #if FABLE_COMPILER
00:00:13 verbose #584 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:13 verbose #585 > > #endif
00:00:13 verbose #586 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:13 verbose #587 > > #if FABLE_COMPILER
00:00:13 verbose #588 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:13 verbose #589 > > #endif
00:00:13 verbose #590 > > type std_sync_mpsc_SendError<'T> = class end
00:00:13 verbose #591 > > #if FABLE_COMPILER
00:00:13 verbose #592 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:13 verbose #593 > > #endif
00:00:13 verbose #594 > > type std_sync_mpsc_Sender<'T> = class end
00:00:13 verbose #595 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:13 verbose #596 > > _.Dispose () = f ()
00:00:13 verbose #597 > > type [[<Struct>]] US0 =
00:00:13 verbose #598 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:13 verbose #599 > > | US0_1
00:00:13 verbose #600 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:13 verbose #601 > > let v1 : bool = true
00:00:13 verbose #602 > > let mutable _v1 : unit option = None
00:00:13 verbose #603 > >
00:00:13 verbose #604 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:13 verbose #605 > >
00:00:13 verbose #606 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:13 verbose #607 > > "$0()" )
00:00:13 verbose #608 > > v28
00:00:13 verbose #609 > > #endif
00:00:13 verbose #610 > > #if FABLE_COMPILER_RUST && WASM
00:00:13 verbose #611 > > let v29 : (unit -> unit) = method0(v25)
00:00:13 verbose #612 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:13 verbose #613 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:13 verbose #614 > > v30
00:00:13 verbose #615 > > #endif
00:00:13 verbose #616 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:13 verbose #617 > > let v31 : (unit -> unit) = method0(v25)
00:00:13 verbose #618 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:13 verbose #619 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:13 verbose #620 > > v32
00:00:13 verbose #621 > > #endif
00:00:13 verbose #622 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:13 verbose #623 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:13 verbose #624 > > v33
00:00:13 verbose #625 > > #endif
00:00:13 verbose #626 > > #if FABLE_COMPILER_PYTHON
00:00:13 verbose #627 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:13 verbose #628 > > v34
00:00:13 verbose #629 > > #endif
00:00:13 verbose #630 > > #else
00:00:13 verbose #631 > > let v35 : (unit -> unit) = method1(v25)
00:00:13 verbose #632 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:13 verbose #633 > > _.Dispose () = v35 () }
00:00:13 verbose #634 > > v36
00:00:13 verbose #635 > > #endif
00:00:13 verbose #636 > > |> fun x -> _v26 <- Some x
00:00:13 verbose #637 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:13 verbose #638 > > failwith "base.run_target / _v26=None"
00:00:13 verbose #639 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:13 verbose #640 > > struct (v38, v37)
00:00:13 verbose #641 > > #endif
00:00:13 verbose #642 > > |> fun x -> _v1 <- Some x
00:00:13 verbose #643 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:13 verbose #644 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:13 verbose #645 > > "base.run_target / _v1=None"
00:00:13 verbose #646 > > struct (v39, v40)
00:00:13 verbose #647 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:13 verbose #648 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:13 verbose #649 > > let new_disposable_token x = v0 x
00:00:13 verbose #650 > > ()
00:00:13 verbose #651 > >
00:00:13 verbose #652 > >
00:00:13 verbose #653 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 verbose #654 > > #if FABLE_COMPILER
00:00:13 verbose #655 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:13 verbose #656 > > #endif
00:00:13 verbose #657 > > type reqwest_Error = class end
00:00:13 verbose #658 > > #if FABLE_COMPILER
00:00:13 verbose #659 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:13 verbose #660 > > #endif
00:00:13 verbose #661 > > type reqwest_RequestBuilder = class end
00:00:13 verbose #662 > > #if FABLE_COMPILER
00:00:13 verbose #663 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:13 verbose #664 > > #endif
00:00:13 verbose #665 > > type reqwest_Response = class end
00:00:13 verbose #666 > > #if FABLE_COMPILER
00:00:13 verbose #667 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:13 verbose #668 > > #endif
00:00:13 verbose #669 > > type std_env_VarError = class end
00:00:13 verbose #670 > > #if FABLE_COMPILER
00:00:13 verbose #671 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:13 verbose #672 > > #endif
00:00:13 verbose #673 > > type core_any_Any = class end
00:00:13 verbose #674 > > #if FABLE_COMPILER
00:00:13 verbose #675 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:13 verbose #676 > > #endif
00:00:13 verbose #677 > > type core_ops_Try<'T> = class end
00:00:13 verbose #678 > > #if FABLE_COMPILER
00:00:13 verbose #679 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:13 verbose #680 > > #endif
00:00:13 verbose #681 > > type Func0<'T> = class end
00:00:13 verbose #682 > > #if FABLE_COMPILER
00:00:13 verbose #683 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:13 verbose #684 > > #endif
00:00:13 verbose #685 > > type Func0<'T, 'U> = class end
00:00:13 verbose #686 > > #if FABLE_COMPILER
00:00:13 verbose #687 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:13 verbose #688 > > #endif
00:00:13 verbose #689 > > type Box<'T> = class end
00:00:13 verbose #690 > > #if FABLE_COMPILER
00:00:13 verbose #691 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:13 verbose #692 > > #endif
00:00:13 verbose #693 > > type Dyn<'T> = class end
00:00:13 verbose #694 > > #if FABLE_COMPILER
00:00:13 verbose #695 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:13 verbose #696 > > #endif
00:00:13 verbose #697 > > type Send<'T> = class end
00:00:13 verbose #698 > > #if FABLE_COMPILER
00:00:13 verbose #699 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:13 verbose #700 > > #endif
00:00:13 verbose #701 > > type Fn<'T> = class end
00:00:13 verbose #702 > > #if FABLE_COMPILER
00:00:13 verbose #703 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:13 verbose #704 > > #endif
00:00:13 verbose #705 > > type FnUnit = class end
00:00:13 verbose #706 > > #if FABLE_COMPILER
00:00:13 verbose #707 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:13 verbose #708 > > ... v212 = v212
00:00:13 verbose #709 > > let v213 : bool = v212
00:00:13 verbose #710 > > let v214 : bool = v213 = false
00:00:13 verbose #711 > > if v214 then
00:00:13 verbose #712 > > return v2
00:00:13 verbose #713 > > (*
00:00:13 verbose #714 > > ()
00:00:13 verbose #715 > > else
00:00:13 verbose #716 > > *) else
00:00:13 verbose #717 > > let v215 : int32 = v2 + 1
00:00:13 verbose #718 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:13 verbose #719 > > return! v216
00:00:13 verbose #720 > > (*
00:00:13 verbose #721 > > ()
00:00:13 verbose #722 > > *)
00:00:13 verbose #723 > > }
00:00:13 verbose #724 > > |> fun x -> _v9 <- Some x
00:00:13 verbose #725 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:13 verbose #726 > > "async.new_async_unit / _v9=None"
00:00:13 verbose #727 > > v217
00:00:13 verbose #728 > > #endif
00:00:13 verbose #729 > > |> fun x -> _v3 <- Some x
00:00:13 verbose #730 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:13 verbose #731 > > "base.run_target / _v3=None"
00:00:13 verbose #732 > > v218
00:00:13 verbose #733 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:13 verbose #734 > > method10(v0, v1, v2)
00:00:13 verbose #735 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:13 verbose #736 > > closure23(v0, v1)
00:00:13 verbose #737 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:13 verbose #738 > > closure22(v0)
00:00:13 verbose #739 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:13 verbose #740 > > let v1 : US0 = US0_0
00:00:13 verbose #741 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:13 verbose #742 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:13 verbose #743 > > let test_port_open x = v2 x
00:00:13 verbose #744 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:13 verbose #745 > > let test_port_open_timeout x = v3 x
00:00:13 verbose #746 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:13 verbose #747 > > closure15()
00:00:13 verbose #748 > > let wait_for_port_access x = v4 x
00:00:13 verbose #749 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:13 verbose #750 > > let get_available_port x = v5 x
00:00:13 verbose #751 > > ()
00:00:13 verbose #752 > >
00:00:15 verbose #753 > >
00:00:15 verbose #754 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:15 verbose #755 > > type [[<Struct>]] US0 =
00:00:15 verbose #756 > > | US0_0
00:00:15 verbose #757 > > | US0_1
00:00:15 verbose #758 > > | US0_2
00:00:15 verbose #759 > > and [[<Struct>]] US1 =
00:00:15 verbose #760 > > | US1_0 of f0_0 : US0
00:00:15 verbose #761 > > | US1_1 of f1_0 : US0
00:00:15 verbose #762 > > | US1_2 of f2_0 : US0
00:00:15 verbose #763 > > | US1_3 of f3_0 : US0
00:00:15 verbose #764 > > | US1_4 of f4_0 : US0
00:00:15 verbose #765 > > let rec closure0 () () : bool =
00:00:15 verbose #766 > > let v0 : bool = true
00:00:15 verbose #767 > > let mutable _v0 : bool option = None
00:00:15 verbose #768 > >
00:00:15 verbose #769 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:15 verbose #770 > >
00:00:15 verbose #771 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:15 verbose #772 > > let v1 : string = "cfg!(windows)"
00:00:15 verbose #773 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:15 verbose #774 > > v2
00:00:15 verbose #775 > > #endif
00:00:15 verbose #776 > > #if FABLE_COMPILER_RUST && WASM
00:00:15 verbose #777 > > let v3 : string = "cfg!(windows)"
00:00:15 verbose #778 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:15 verbose #779 > > v4
00:00:15 verbose #780 > > #endif
00:00:15 verbose #781 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:15 verbose #782 > > let v5 : string = "cfg!(windows)"
00:00:15 verbose #783 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:15 verbose #784 > > v6
00:00:15 verbose #785 > > #endif
00:00:15 verbose #786 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:15 verbose #787 > > let v7 : US0 = US0_0
00:00:15 verbose #788 > > let v8 : US1 = US1_3(v7)
00:00:15 verbose #789 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:15 verbose #790 > > let v10 : bool = failwith<bool> v9
00:00:15 verbose #791 > > v10
00:00:15 verbose #792 > > #endif
00:00:15 verbose #793 > > #if FABLE_COMPILER_PYTHON
00:00:15 verbose #794 > > let v11 : US0 = US0_0
00:00:15 verbose #795 > > let v12 : US1 = US1_4(v11)
00:00:15 verbose #796 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:15 verbose #797 > > let v14 : bool = failwith<bool> v13
00:00:15 verbose #798 > > v14
00:00:15 verbose #799 > > #endif
00:00:15 verbose #800 > > #else
00:00:15 verbose #801 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:15 verbose #802 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:15 verbose #803 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:15 verbose #804 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:15 verbose #805 > > let v17 : b...: string = "cfg!(windows)"
00:00:15 verbose #806 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:15 verbose #807 > > v2
00:00:15 verbose #808 > > #endif
00:00:15 verbose #809 > > #if FABLE_COMPILER_RUST && WASM
00:00:15 verbose #810 > > let v3 : string = "cfg!(windows)"
00:00:15 verbose #811 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:15 verbose #812 > > v4
00:00:15 verbose #813 > > #endif
00:00:15 verbose #814 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:15 verbose #815 > > let v5 : string = "cfg!(windows)"
00:00:15 verbose #816 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:15 verbose #817 > > v6
00:00:15 verbose #818 > > #endif
00:00:15 verbose #819 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:15 verbose #820 > > let v7 : US0 = US0_0
00:00:15 verbose #821 > > let v8 : US1 = US1_3(v7)
00:00:15 verbose #822 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:15 verbose #823 > > let v10 : bool = failwith<bool> v9
00:00:15 verbose #824 > > v10
00:00:15 verbose #825 > > #endif
00:00:15 verbose #826 > > #if FABLE_COMPILER_PYTHON
00:00:15 verbose #827 > > let v11 : US0 = US0_0
00:00:15 verbose #828 > > let v12 : US1 = US1_4(v11)
00:00:15 verbose #829 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:15 verbose #830 > > let v14 : bool = failwith<bool> v13
00:00:15 verbose #831 > > v14
00:00:15 verbose #832 > > #endif
00:00:15 verbose #833 > > #else
00:00:15 verbose #834 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:15 verbose #835 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:15 verbose #836 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:15 verbose #837 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:15 verbose #838 > > let v17 : bool = v16 v15
00:00:15 verbose #839 > > v17
00:00:15 verbose #840 > > #endif
00:00:15 verbose #841 > > |> fun x -> _v0 <- Some x
00:00:15 verbose #842 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:15 verbose #843 > > "base.run_target / _v0=None"
00:00:15 verbose #844 > > if v18 then
00:00:15 verbose #845 > > let v19 : string = ".exe"
00:00:15 verbose #846 > > v19
00:00:15 verbose #847 > > else
00:00:15 verbose #848 > > let v20 : string = ""
00:00:15 verbose #849 > > v20
00:00:15 verbose #850 > > let v0 : (unit -> bool) = closure0()
00:00:15 verbose #851 > > let is_windows () = v0 ()
00:00:15 verbose #852 > > let v1 : (unit -> string) = closure1()
00:00:15 verbose #853 > > let get_executable_suffix () = v1 ()
00:00:15 verbose #854 > > ()
00:00:15 verbose #855 > >
00:00:15 verbose #856 > >
00:00:15 verbose #857 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:15 verbose #858 > > #if FABLE_COMPILER
00:00:15 verbose #859 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:15 verbose #860 > > #endif
00:00:15 verbose #861 > > type clap_Arg = class end
00:00:15 verbose #862 > > #if FABLE_COMPILER
00:00:15 verbose #863 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:15 verbose #864 > > #endif
00:00:15 verbose #865 > > type clap_ArgAction = class end
00:00:15 verbose #866 > > #if FABLE_COMPILER
00:00:15 verbose #867 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:15 verbose #868 > > #endif
00:00:15 verbose #869 > > type clap_Command = class end
00:00:15 verbose #870 > > #if FABLE_COMPILER
00:00:15 verbose #871 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:15 verbose #872 > > #endif
00:00:15 verbose #873 > > type clap_ArgMatches = class end
00:00:15 verbose #874 > > #if FABLE_COMPILER
00:00:15 verbose #875 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:15 verbose #876 > > #endif
00:00:15 verbose #877 > > type clap_builder_ValueRange = class end
00:00:15 verbose #878 > > #if FABLE_COMPILER
00:00:15 verbose #879 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:15 verbose #880 > > #endif
00:00:15 verbose #881 > > type clap_builder_ValueParser = class end
00:00:15 verbose #882 > > #if FABLE_COMPILER
00:00:15 verbose #883 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:15 verbose #884 > > #endif
00:00:15 verbose #885 > > type clap_builder_PossibleValue = class end
00:00:15 verbose #886 > > #if FABLE_COMPILER
00:00:15 verbose #887 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:15 verbose #888 > > #endif
00:00:15 verbose #889 > > type std_process_Child = class end
00:00:15 verbose #890 > > #if FABLE_COMPILER
00:00:15 verbose #891 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:15 verbose #892 > > #endif
00:00:15 verbose #893 > > type std_process_ChildStderr = class end
00:00:15 verbose #894 > > #if FABLE_COMPILER
00:00:15 verbose #895 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:15 verbose #896 > > #endif
00:00:15 verbose #897 > > type std_process_ChildStdout = class end
00:00:15 verbose #898 > > #if FABLE_COMPILER
00:00:15 verbose #899 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:15 verbose #900 > > #endif
00:00:15 verbose #901 > > type std_process_ChildStdin = class end
00:00:15 verbose #902 > > #if FABLE_COMPILER
00:00:15 verbose #903 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:15 verbose #904 > > #endif
00:00:15 verbose #905 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:00:15 verbose #906 > > List.toArray
00:00:15 verbose #907 > > let v20 : (string [[]]) = v19 v18
00:00:15 verbose #908 > > US8_0(v20)
00:00:15 verbose #909 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:00:15 verbose #910 > > let v1 : US8 = method16(v0)
00:00:15 verbose #911 > > match v1 with
00:00:15 verbose #912 > > | US8_1(v4) -> (* Error *)
00:00:15 verbose #913 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:15 verbose #914 > > v5
00:00:15 verbose #915 > > | US8_0(v2) -> (* Ok *)
00:00:15 verbose #916 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:15 verbose #917 > > v3
00:00:15 verbose #918 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:15 verbose #919 > > let v1 : US0 = US0_0
00:00:15 verbose #920 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:15 verbose #921 > > let v2 : (unit -> unit) = closure2()
00:00:15 verbose #922 > > let current_process_kill () = v2 ()
00:00:15 verbose #923 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:00:15 verbose #924 > > let execute_async x = v3 x
00:00:15 verbose #925 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:15 verbose #926 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:15 verbose #927 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:15 verbose #928 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:00:15 verbose #929 > > let execute_with_options_async x = v4 x
00:00:15 verbose #930 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:15 verbose #931 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:15 verbose #932 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:15 verbose #933 > > unit) option * bool * string option)) = closure20()
00:00:15 verbose #934 > > let execution_options x = v5 x
00:00:15 verbose #935 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:00:15 verbose #936 > > let split_args x = v6 x
00:00:15 verbose #937 > > ()
00:00:15 verbose #938 > >
00:00:18 verbose #939 > >
00:00:18 verbose #940 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:18 verbose #941 > > #if FABLE_COMPILER
00:00:18 verbose #942 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:18 verbose #943 > > #endif
00:00:18 verbose #944 > > type std_fs_File = class end
00:00:18 verbose #945 > > #if FABLE_COMPILER
00:00:18 verbose #946 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:18 verbose #947 > > #endif
00:00:18 verbose #948 > > type std_fs_FileType = class end
00:00:18 verbose #949 > > #if FABLE_COMPILER
00:00:18 verbose #950 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:18 verbose #951 > > #endif
00:00:18 verbose #952 > > type std_path_Display = class end
00:00:18 verbose #953 > > #if FABLE_COMPILER
00:00:18 verbose #954 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:18 verbose #955 > > #endif
00:00:18 verbose #956 > > type std_path_Path = class end
00:00:18 verbose #957 > > #if FABLE_COMPILER
00:00:18 verbose #958 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:18 verbose #959 > > #endif
00:00:18 verbose #960 > > type std_path_PathBuf = class end
00:00:18 verbose #961 > > #if FABLE_COMPILER
00:00:18 verbose #962 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:18 verbose #963 > > #endif
00:00:18 verbose #964 > > type async_walkdir_DirEntry = class end
00:00:18 verbose #965 > > #if FABLE_COMPILER
00:00:18 verbose #966 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:18 verbose #967 > > #endif
00:00:18 verbose #968 > > type async_walkdir_Filtering = class end
00:00:18 verbose #969 > > #if FABLE_COMPILER
00:00:18 verbose #970 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:18 verbose #971 > > #endif
00:00:18 verbose #972 > > type async_walkdir_WalkDir = class end
00:00:18 verbose #973 > > #if FABLE_COMPILER
00:00:18 verbose #974 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:18 verbose #975 > > #endif
00:00:18 verbose #976 > > type core_any_Any = class end
00:00:18 verbose #977 > > #if FABLE_COMPILER
00:00:18 verbose #978 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:18 verbose #979 > > #endif
00:00:18 verbose #980 > > type core_ops_Try<'T> = class end
00:00:18 verbose #981 > > #if FABLE_COMPILER
00:00:18 verbose #982 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:18 verbose #983 > > #endif
00:00:18 verbose #984 > > type Func0<'T> = class end
00:00:18 verbose #985 > > #if FABLE_COMPILER
00:00:18 verbose #986 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:18 verbose #987 > > #endif
00:00:18 verbose #988 > > type Func0<'T, 'U> = class end
00:00:18 verbose #989 > > #if FABLE_COMPILER
00:00:18 verbose #990 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:18 verbose #991 > > #endif
00:00:18 verbose #992 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:00:18 verbose #993 > > let wait_for_file_access x = v3 x
00:00:18 verbose #994 > > let v4 : (string -> Async<int64>) = closure12()
00:00:18 verbose #995 > > let wait_for_file_access_read x = v4 x
00:00:18 verbose #996 > > let v5 : (string -> Async<string>) = closure13()
00:00:18 verbose #997 > > let read_all_text_async x = v5 x
00:00:18 verbose #998 > > let v6 : (string -> (string -> bool)) = closure14()
00:00:18 verbose #999 > > let file_exists_content x = v6 x
00:00:18 verbose #1000 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:18 verbose #1001 > > let write_all_text_async x = v7 x
00:00:18 verbose #1002 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:18 verbose #1003 > > let write_all_text_exists x = v8 x
00:00:18 verbose #1004 > > let v9 : (string -> Async<int64>) = closure20()
00:00:18 verbose #1005 > > let delete_file_async x = v9 x
00:00:18 verbose #1006 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:18 verbose #1007 > > let move_file_async x = v10 x
00:00:18 verbose #1008 > > let v11 : (string -> Async<string option>) = closure27()
00:00:18 verbose #1009 > > let read_all_text_retry_async x = v11 x
00:00:18 verbose #1010 > > let v12 : (unit -> string) = closure35()
00:00:18 verbose #1011 > > let create_temp_path () = v12 ()
00:00:18 verbose #1012 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:18 verbose #1013 > > let create_temp_dir () = v13 ()
00:00:18 verbose #1014 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:18 verbose #1015 > > let create_temp_dir' x = v14 x
00:00:18 verbose #1016 > > let v15 : (unit -> string) = closure49()
00:00:18 verbose #1017 > > let get_source_directory () = v15 ()
00:00:18 verbose #1018 > > let v16 : (string -> string) = closure50()
00:00:18 verbose #1019 > > let normalize_path x = v16 x
00:00:18 verbose #1020 > > let v17 : (string -> string) = closure51()
00:00:18 verbose #1021 > > let new_file_uri x = v17 x
00:00:18 verbose #1022 > > let v18 : (unit -> string) = closure52()
00:00:18 verbose #1023 > > let get_workspace_root () = v18 ()
00:00:18 verbose #1024 > > let v19 : (bool -> unit) = closure56()
00:00:18 verbose #1025 > > let init_trace_file x = v19 x
00:00:18 verbose #1026 > > let v20 : (string -> (string -> string)) = closure58()
00:00:18 verbose #1027 > > let (</>) x = v20 x
00:00:18 verbose #1028 > > ()
00:00:18 verbose #1029 > >
00:00:21 verbose #1030 > >
00:00:21 verbose #1031 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1032 > > #if FABLE_COMPILER
00:00:21 verbose #1033 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:21 verbose #1034 > > #endif
00:00:21 verbose #1035 > > type core_any_Any = class end
00:00:21 verbose #1036 > > #if FABLE_COMPILER
00:00:21 verbose #1037 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:21 verbose #1038 > > #endif
00:00:21 verbose #1039 > > type core_ops_Try<'T> = class end
00:00:21 verbose #1040 > > #if FABLE_COMPILER
00:00:21 verbose #1041 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:21 verbose #1042 > > #endif
00:00:21 verbose #1043 > > type Func0<'T> = class end
00:00:21 verbose #1044 > > #if FABLE_COMPILER
00:00:21 verbose #1045 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:21 verbose #1046 > > #endif
00:00:21 verbose #1047 > > type Func0<'T, 'U> = class end
00:00:21 verbose #1048 > > #if FABLE_COMPILER
00:00:21 verbose #1049 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:21 verbose #1050 > > #endif
00:00:21 verbose #1051 > > type Box<'T> = class end
00:00:21 verbose #1052 > > #if FABLE_COMPILER
00:00:21 verbose #1053 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:21 verbose #1054 > > #endif
00:00:21 verbose #1055 > > type Dyn<'T> = class end
00:00:21 verbose #1056 > > #if FABLE_COMPILER
00:00:21 verbose #1057 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:21 verbose #1058 > > #endif
00:00:21 verbose #1059 > > type Send<'T> = class end
00:00:21 verbose #1060 > > #if FABLE_COMPILER
00:00:21 verbose #1061 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:21 verbose #1062 > > #endif
00:00:21 verbose #1063 > > type Fn<'T> = class end
00:00:21 verbose #1064 > > #if FABLE_COMPILER
00:00:21 verbose #1065 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:21 verbose #1066 > > #endif
00:00:21 verbose #1067 > > type FnUnit = class end
00:00:21 verbose #1068 > > #if FABLE_COMPILER
00:00:21 verbose #1069 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:21 verbose #1070 > > #endif
00:00:21 verbose #1071 > > type FnOnce<'T> = class end
00:00:21 verbose #1072 > > #if FABLE_COMPILER
00:00:21 verbose #1073 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:21 verbose #1074 > > #endif
00:00:21 verbose #1075 > > type ActionFn<'T> = class end
00:00:21 verbose #1076 > > #if FABLE_COMPILER
00:00:21 verbose #1077 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:21 verbose #1078 > > #endif
00:00:21 verbose #1079 > > type ActionFn2<'T, 'U> = class end
00:00:21 verbose #1080 > > #if FABLE_COMPILER
00:00:21 verbose #1081 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:21 verbose #1082 > > #endif
00:00:21 verbose #1083 > > type Impl<'T> = class end
00:00:21 verbose #1084 > > #if FABLE_COMPILER
00:00:21 verbose #1085 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:21 verbose #1086 > > #endif
00:00:21 verbose #1087 > > type Mut<'T> = class end
00:00:21 verbose #1088 > > #if FABLE_COMPILER
00:00:21 verbose #1089 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:21 verbose #1090 > > #if FABLE_COMPILER_RUST && WASM
00:00:21 verbose #1091 > > let v27 : string = @"println!(""{}"", $0)"
00:00:21 verbose #1092 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:21 verbose #1093 > > ()
00:00:21 verbose #1094 > > #endif
00:00:21 verbose #1095 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:21 verbose #1096 > > let v28 : string = @"println!(""{}"", $0)"
00:00:21 verbose #1097 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:21 verbose #1098 > > ()
00:00:21 verbose #1099 > > #endif
00:00:21 verbose #1100 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:21 verbose #1101 > > System.Console.WriteLine v24
00:00:21 verbose #1102 > > ()
00:00:21 verbose #1103 > > #endif
00:00:21 verbose #1104 > > #if FABLE_COMPILER_PYTHON
00:00:21 verbose #1105 > > System.Console.WriteLine v24
00:00:21 verbose #1106 > > ()
00:00:21 verbose #1107 > > #endif
00:00:21 verbose #1108 > > #else
00:00:21 verbose #1109 > > System.Console.WriteLine v24
00:00:21 verbose #1110 > > ()
00:00:21 verbose #1111 > > #endif
00:00:21 verbose #1112 > > |> fun x -> _v25 <- Some x
00:00:21 verbose #1113 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:21 verbose #1114 > > _v25=None"
00:00:21 verbose #1115 > > let v29 : (string -> unit) = v8.l0
00:00:21 verbose #1116 > > v29 v24
00:00:21 verbose #1117 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:21 verbose #1118 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:21 verbose #1119 > > method8(v0, v3)
00:00:21 verbose #1120 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:21 verbose #1121 > > method4(v0, v1, v2)
00:00:21 verbose #1122 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:21 verbose #1123 > > closure4(v0, v1)
00:00:21 verbose #1124 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:21 verbose #1125 > > closure3(v0)
00:00:21 verbose #1126 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:21 verbose #1127 > > let v1 : US0 = US0_0
00:00:21 verbose #1128 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:21 verbose #1129 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:21 verbose #1130 > > let trace x = v2 x
00:00:21 verbose #1131 > > ()
00:00:21 verbose #1132 > >
00:00:21 verbose #1133 > >
00:00:21 verbose #1134 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1135 > > module SpiralTrace =
00:00:21 verbose #1136 > > let trace x =
00:00:21 verbose #1137 > > #if !INTERACTIVE
00:00:21 verbose #1138 > > Trace.trace x
00:00:21 verbose #1139 > > #else
00:00:21 verbose #1140 > > trace x
00:00:21 verbose #1141 > > #endif
00:00:21 verbose #1142 > >
00:00:21 verbose #1143 > > type TraceLevel =
00:00:21 verbose #1144 > > #if !INTERACTIVE
00:00:21 verbose #1145 > > Trace.US0
00:00:21 verbose #1146 > > #else
00:00:21 verbose #1147 > > US0
00:00:21 verbose #1148 > > #endif
00:00:21 verbose #1149 > >
00:00:21 verbose #1150 > > module SpiralCrypto =
00:00:21 verbose #1151 > > let hash_text x =
00:00:21 verbose #1152 > > #if !INTERACTIVE
00:00:21 verbose #1153 > > Crypto.hash_text x
00:00:21 verbose #1154 > > #else
00:00:21 verbose #1155 > > hash_text x
00:00:21 verbose #1156 > > #endif
00:00:21 verbose #1157 > >
00:00:21 verbose #1158 > > let hash_to_port x =
00:00:21 verbose #1159 > > #if !INTERACTIVE
00:00:21 verbose #1160 > > Crypto.hash_to_port x
00:00:21 verbose #1161 > > #else
00:00:21 verbose #1162 > > hash_to_port x
00:00:21 verbose #1163 > > #endif
00:00:21 verbose #1164 > >
00:00:21 verbose #1165 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:21 verbose #1166 > >
00:00:21 verbose #1167 > > module SpiralAsync =
00:00:21 verbose #1168 > > let merge_cancellation_token_with_default_async x =
00:00:21 verbose #1169 > > #if !INTERACTIVE
00:00:21 verbose #1170 > > Async_.merge_cancellation_token_with_default_async x
00:00:21 verbose #1171 > > #else
00:00:21 verbose #1172 > > merge_cancellation_token_with_default_async x
00:00:21 verbose #1173 > > #endif
00:00:21 verbose #1174 > >
00:00:21 verbose #1175 > > module SpiralThreading =
00:00:21 verbose #1176 > > let new_disposable_token x =
00:00:21 verbose #1177 > > #if !INTERACTIVE
00:00:21 verbose #1178 > > Threading.new_disposable_token x
00:00:21 verbose #1179 > > #else
00:00:21 verbose #1180 > > new_disposable_token x
00:00:21 verbose #1181 > > #endif
00:00:21 verbose #1182 > >
00:00:21 verbose #1183 > > module SpiralNetworking =
00:00:21 verbose #1184 > > let test_port_open x =
00:00:21 verbose #1185 > > #if !INTERACTIVE
00:00:21 verbose #1186 > > Networking.test_port_open x
00:00:21 verbose #1187 > > #else
00:00:21 verbose #1188 > > test_port_open x
00:00:21 verbose #1189 > > #endif
00:00:21 verbose #1190 > >
00:00:21 verbose #1191 > > let test_port_open_timeout x =
00:00:21 verbose #1192 > > #if !INTERACTIVE
00:00:21 verbose #1193 > > Networking.test_port_open_timeout x
00:00:21 verbose #1194 > > #else
00:00:21 verbose #1195 > > test_port_open_timeout x
00:00:21 verbose #1196 > > #endif
00:00:21 verbose #1197 > >
00:00:21 verbose #1198 > > let wait_for_port_access x =
00:00:21 verbose #1199 > > #if !INTERACTIVE
00:00:21 verbose #1200 > > Networking.wait_for_port_access x
00:00:21 verbose #1201 > > #else
00:00:21 verbose #1202 > > wait_for_port_access x
00:00:21 verbose #1203 > > #endif
00:00:21 verbose #1204 > >
00:00:21 verbose #1205 > > let get_available_port x =
00:00:21 verbose #1206 > > #if !INTERACTIVE
00:00:21 verbose #1207 > > Networking.get_available_port x
00:00:21 verbose #1208 > > #else
00:00:21 verbose #1209 > > get_available_port x
00:00:21 verbose #1210 > > #endif
00:00:21 verbose #1211 > >
00:00:21 verbose #1212 > > module SpiralPlatform =
00:00:21 verbose #1213 > > let get_executable_suffix () =
00:00:21 verbose #1214 > > #if !INTERACTIVE
00:00:21 verbose #1215 > > Platform.g...e.trace_state
00:00:21 verbose #1216 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1217 > > level.l0 <-
00:00:21 verbose #1218 > > match new_level with
00:00:21 verbose #1219 > > | Trace.US0_0 -> File_system.US0_0
00:00:21 verbose #1220 > > | Trace.US0_1 -> File_system.US0_1
00:00:21 verbose #1221 > > | Trace.US0_2 -> File_system.US0_2
00:00:21 verbose #1222 > > | Trace.US0_3 -> File_system.US0_3
00:00:21 verbose #1223 > > | Trace.US0_4 -> File_system.US0_4
00:00:21 verbose #1224 > > )
00:00:21 verbose #1225 > >
00:00:21 verbose #1226 > > Runtime.State.trace_state
00:00:21 verbose #1227 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1228 > > level.l0 <-
00:00:21 verbose #1229 > > match new_level with
00:00:21 verbose #1230 > > | Trace.US0_0 -> Runtime.US0_0
00:00:21 verbose #1231 > > | Trace.US0_1 -> Runtime.US0_1
00:00:21 verbose #1232 > > | Trace.US0_2 -> Runtime.US0_2
00:00:21 verbose #1233 > > | Trace.US0_3 -> Runtime.US0_3
00:00:21 verbose #1234 > > | Trace.US0_4 -> Runtime.US0_4
00:00:21 verbose #1235 > > )
00:00:21 verbose #1236 > >
00:00:21 verbose #1237 > > Common.State.trace_state
00:00:21 verbose #1238 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1239 > > level.l0 <-
00:00:21 verbose #1240 > > match new_level with
00:00:21 verbose #1241 > > | Trace.US0_0 -> Common.US0_0
00:00:21 verbose #1242 > > | Trace.US0_1 -> Common.US0_1
00:00:21 verbose #1243 > > | Trace.US0_2 -> Common.US0_2
00:00:21 verbose #1244 > > | Trace.US0_3 -> Common.US0_3
00:00:21 verbose #1245 > > | Trace.US0_4 -> Common.US0_4
00:00:21 verbose #1246 > > )
00:00:21 verbose #1247 > >
00:00:21 verbose #1248 > > Trace.State.trace_state
00:00:21 verbose #1249 > > #else
00:00:21 verbose #1250 > > State.trace_state
00:00:21 verbose #1251 > > #endif
00:00:21 verbose #1252 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:21 verbose #1253 > > level.l0 <- new_level
00:00:21 verbose #1254 > > )
00:00:21 verbose #1255 > >
00:00:21 verbose #1256 > > let get_trace_level () =
00:00:21 verbose #1257 > > #if !INTERACTIVE
00:00:21 verbose #1258 > > Trace.State.trace_state
00:00:21 verbose #1259 > > #else
00:00:21 verbose #1260 > > State.trace_state
00:00:21 verbose #1261 > > #endif
00:00:21 verbose #1262 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:21 verbose #1263 > > level.l0
00:00:21 verbose #1264 > > )
00:00:21 verbose #1265 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:21 verbose #1266 > > trace_state=None")
00:00:21 verbose #1267 > >
00:00:21 verbose #1268 > >
00:00:21 verbose #1269 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1270 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:21 verbose #1271 > >
00:00:21 verbose #1272 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1273 > > //// test
00:00:21 verbose #1274 > >
00:00:21 verbose #1275 > > type AssertExceptionFormatter (ex) =
00:00:21 verbose #1276 > > member _.Text =
00:00:21 verbose #1277 > > ex.ToString()
00:00:21 verbose #1278 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:21 verbose #1279 > > .Replace("36m", "</span>")
00:00:21 verbose #1280 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:21 verbose #1281 > > .Replace("\n", "<br/>\n")
00:00:21 verbose #1282 > >
00:00:21 verbose #1283 > >
00:00:21 verbose #1284 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:21 verbose #1285 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:21 verbose #1286 > >
00:00:21 verbose #1287 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1288 > > //// test
00:00:21 verbose #1289 > >
00:00:21 verbose #1290 > > let inline __expect fn log expected actual =
00:00:21 verbose #1291 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:21 verbose #1292 > > try
00:00:21 verbose #1293 > > "Testing.__expect" |> fn actual expected
00:00:21 verbose #1294 > > with :? Expecto.AssertException as ex ->
00:00:21 verbose #1295 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:21 verbose #1296 > > failwith (ex.GetType().FullName)
00:00:21 verbose #1297 > >
00:00:21 verbose #1298 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:21 verbose #1299 > > expected actual
00:00:21 verbose #1300 > > let inline _contains expected actual = __contains true expected actual
00:00:21 verbose #1301 > >
00:00:21 verbose #1302 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:21 verbose #1303 > > expected actual
00:00:21 verbose #1304 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:21 verbose #1305 > >
00:00:21 verbose #1306 > > let inline __isGreaterThan log expected actual = __expect
00:00:21 verbose #1307 > > Expecto.Expect.isGreaterThan log expected actual
00:00:21 verbose #1308 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:21 verbose #1309 > >
00:00:21 verbose #1310 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:21 verbose #1311 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:21 verbose #1312 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:21 verbose #1313 > > expected actual
00:00:21 verbose #1314 > >
00:00:21 verbose #1315 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:21 verbose #1316 > > log expected actual
00:00:21 verbose #1317 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:21 verbose #1318 > >
00:00:21 verbose #1319 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:21 verbose #1320 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:21 verbose #1321 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:21 verbose #1322 > > expected actual
00:00:21 verbose #1323 > >
00:00:21 verbose #1324 > > let inline __sequenceEqual log expected actual = __expect
00:00:21 verbose #1325 > > Expecto.Expect.sequenceEqual log expected actual
00:00:21 verbose #1326 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:21 verbose #1327 > >
00:00:21 verbose #1328 > > let inline __stringContains log expected actual = __expect
00:00:21 verbose #1329 > > Expecto.Expect.stringContains log expected actual
00:00:21 verbose #1330 > > let inline _stringContains expected actual = __stringContains true expected
00:00:21 verbose #1331 > > actual
00:00:21 verbose #1332 > >
00:00:21 verbose #1333 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:21 verbose #1334 > > log expected actual
00:00:21 verbose #1335 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:21 verbose #1336 > >
00:00:21 verbose #1337 > > let inline __stringStarts log expected actual = __expect
00:00:21 verbose #1338 > > Expecto.Expect.stringStarts log expected actual
00:00:21 verbose #1339 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:21 verbose #1340 > >
00:00:21 verbose #1341 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:21 verbose #1342 > > expected actual
00:00:21 verbose #1343 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:22 verbose #1344 > >
00:00:22 verbose #1345 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1346 > > //// test
00:00:22 verbose #1347 > >
00:00:22 verbose #1348 > > let inline __isBetween log a b actual =
00:00:22 verbose #1349 > > let inline isBetween actual (a, b) _ =
00:00:22 verbose #1350 > > __isGreaterThanOrEqual log a actual
00:00:22 verbose #1351 > > __isLessThanOrEqual log b actual
00:00:22 verbose #1352 > > __expect isBetween log (a, b) actual
00:00:22 verbose #1353 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:22 verbose #1354 > >
00:00:22 verbose #1355 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1356 > > #!import ../../lib/fsharp/Common.fs
00:00:22 verbose #1357 > > #!import ../../lib/fsharp/CommonFSharp.fs
00:00:22 verbose #1358 > > #!import ../../lib/fsharp/Async.fs
00:00:22 verbose #1359 > > #!import ../../lib/fsharp/AsyncSeq.fs
00:00:22 verbose #1360 > > #!import ../../lib/fsharp/Runtime.fs
00:00:22 verbose #1361 > > #!import ../../lib/fsharp/FileSystem.fs
00:00:22 verbose #1362 > >
00:00:22 verbose #1363 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1364 > > #if !INTERACTIVE
00:00:22 verbose #1365 > > namespace Polyglot
00:00:22 verbose #1366 > > #endif
00:00:22 verbose #1367 > >
00:00:22 verbose #1368 > > module Common =
00:00:22 verbose #1369 > >
00:00:22 verbose #1370 > > #if !INTERACTIVE
00:00:22 verbose #1371 > > open Lib
00:00:22 verbose #1372 > > #endif
00:00:22 verbose #1373 > >
00:00:22 verbose #1374 > > let nl = System.Environment.NewLine
00:00:22 verbose #1375 > > let q = @""""
00:00:22 verbose #1376 > >
00:00:22 verbose #1377 > > let inline cons head tail = head :: tail
00:00:22 verbose #1378 > >
00:00:22 verbose #1379 > > /// ## memoize
00:00:22 verbose #1380 > > let inline memoize fn =
00:00:22 verbose #1381 > > let result = lazy fn ()
00:00:22 verbose #1382 > > fun () -> result.Value
00:00:22 verbose #1383 > >
00:00:22 verbose #1384 > > /// ## TraceLevel
00:00:22 verbose #1385 > > type TraceLevel =
00:00:22 verbose #1386 > > | Verbose
00:00:22 verbose #1387 > > | Debug
00:00:22 verbose #1388 > > | Info
00:00:22 verbose #1389 > > | Warning
00:00:22 verbose #1390 > > | Critical
00:00:22 verbose #1391 > >
00:00:22 verbose #1392 > > let inline _locals () = ""
00:00:22 verbose #1393 > >
00:00:22 verbose #1394 > > /// ## trace
00:00:22 verbose #1395 > > let to_trace_level = function
00:00:22 verbose #1396 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:22 verbose #1397 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:22 verbose #1398 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:22 verbose #1399 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:22 verbose #1400 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:00:22 verbose #1401 > >
00:00:22 verbose #1402 > > let trace level fn locals =
00:00:22 verbose #1403 > > let level = level |> to_trace_level
00:00:22 verbose #1404 > > SpiralTrace.trace level fn locals
00:00:22 verbose #1405 > >
00:00:22 verbose #1406 > >
00:00:22 verbose #1407 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1408 > > #if !INTERACTIVE
00:00:22 verbose #1409 > > namespace Polyglot
00:00:22 verbose #1410 > > #endif
00:00:22 verbose #1411 > >
00:00:22 verbose #1412 > > module CommonFSharp =
00:00:22 verbose #1413 > >
00:00:22 verbose #1414 > > open Common
00:00:22 verbose #1415 > >
00:00:22 verbose #1416 > > /// ## getUnionCaseName
00:00:22 verbose #1417 > > let inline getUnionCaseName<'T> (x: 'T) =
00:00:22 verbose #1418 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:00:22 verbose #1419 > > | case, _ -> case.Name
00:00:22 verbose #1420 > >
00:00:22 verbose #1421 > >
00:00:22 verbose #1422 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1423 > > #if !INTERACTIVE
00:00:22 verbose #1424 > > namespace Polyglot
00:00:22 verbose #1425 > > #endif
00:00:22 verbose #1426 > >
00:00:22 verbose #1427 > > module Async =
00:00:22 verbose #1428 > >
00:00:22 verbose #1429 > > #if !INTERACTIVE
00:00:22 verbose #1430 > > open Lib
00:00:22 verbose #1431 > > #endif
00:00:22 verbose #1432 > >
00:00:22 verbose #1433 > > open Common
00:00:22 verbose #1434 > >
00:00:22 verbose #1435 > > /// ## choice
00:00:22 verbose #1436 > > let inline choice asyncs = async {
00:00:22 verbose #1437 > > let e = Event<_> ()
00:00:22 verbose #1438 > > use cts = new System.Threading.CancellationTokenSource ()
00:00:22 verbose #1439 > > let fn =
00:00:22 verbose #1440 > > asyncs
00:00:22 verbose #1441 > > |> Seq.map (fun a -> async {
00:00:22 verbose #1442 > > let! x = a
00:00:22 verbose #1443 > > e.Trigger x
00:00:22 verbose #1444 > > })
00:00:22 verbose #1445 > > |> Async.Parallel
00:00:22 verbose #1446 > > |> Async.Ignore
00:00:22 verbose #1447 > > Async.Start (fn, cts.Token)
00:00:22 verbose #1448 > > let! result = Async.AwaitEvent e.Publish
00:00:22 verbose #1449 > > cts.Cancel ()
00:00:22 verbose #1450 > > return result
00:00:22 verbose #1451 > > }
00:00:22 verbose #1452 > >
00:00:22 verbose #1453 > > /// ## map
00:00:22 verbose #1454 > > let inline map fn a = async {
00:00:22 verbose #1455 > > let! x = a
00:00:22 verbose #1456 > > return fn x
00:00:22 verbose #1457 > > }
00:00:22 verbose #1458 > >
00:00:22 verbose #1459 > > /// ## catch
00:00:22 verbose #1460 > > let inline catch a =
00:00:22 verbose #1461 > > a
00:00:22 verbose #1462 > > |> Async.Catch
00:00:22 verbose #1463 > > |> map (function
00:00:22 verbose #1464 > > | Choice1Of2 result -> Ok result
00:00:22 verbose #1465 > > | Choice2Of2 ex -> Error ex
00:00:22 verbose #1466 > > )
00:00:22 verbose #1467 > >
00:00:22 verbose #1468 > > /// ## runWithTimeoutChoiceAsync
00:00:22 verbose #1469 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:00:22 verbose #1470 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:22 verbose #1471 > >
00:00:22 verbose #1472 > > let timeoutTask = async {
00:00:22 verbose #1473 > > do! Async.Sleep timeout
00:00:22 verbose #1474 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:00:22 verbose #1475 > > return None
00:00:22 verbose #1476 > > }
00:00:22 verbose #1477 > >
00:00:22 verbose #1478 > > let task = async {
00:00:22 verbose #1479 > > try
00:00:22 verbose #1480 > > let! result = fn
00:00:22 verbose #1481 > > return Some result
00:00:22 verbose #1482 > > with
00:00:22 verbose #1483 > > | :? System.AggregateException as ex when
00:00:22 verbose #1484 > > ex.InnerExceptions
00:00:22 verbose #1485 > > |> Seq.exists (function :? Sy... None
00:00:22 verbose #1486 > >
00:00:22 verbose #1487 > > /// ## awaitValueTask
00:00:22 verbose #1488 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:22 verbose #1489 > > task.AsTask () |> Async.AwaitTask
00:00:22 verbose #1490 > >
00:00:22 verbose #1491 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:22 verbose #1492 > > task.AsTask () |> Async.AwaitTask
00:00:22 verbose #1493 > >
00:00:22 verbose #1494 > > /// ## init
00:00:22 verbose #1495 > > let inline init x = async {
00:00:22 verbose #1496 > > return x
00:00:22 verbose #1497 > > }
00:00:22 verbose #1498 > >
00:00:22 verbose #1499 > > /// ## withCancellationToken
00:00:22 verbose #1500 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:00:22 verbose #1501 > > fn =
00:00:22 verbose #1502 > > Async.StartImmediateAsTask (fn, ct)
00:00:22 verbose #1503 > > |> Async.AwaitTask
00:00:22 verbose #1504 > >
00:00:22 verbose #1505 > > /// ## retryAsync
00:00:22 verbose #1506 > > let inline retryAsync retries fn =
00:00:22 verbose #1507 > > let rec loop retry lastError = async {
00:00:22 verbose #1508 > > try
00:00:22 verbose #1509 > > return!
00:00:22 verbose #1510 > > if retry <= retries
00:00:22 verbose #1511 > > then fn |> map Ok
00:00:22 verbose #1512 > > else lastError |> Error |> init
00:00:22 verbose #1513 > > with ex ->
00:00:22 verbose #1514 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:00:22 verbose #1515 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:00:22 verbose #1516 > > do! Async.Sleep 1
00:00:22 verbose #1517 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:00:22 verbose #1518 > > }
00:00:22 verbose #1519 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:00:22 verbose #1520 > >
00:00:22 verbose #1521 > > /// ## fold
00:00:22 verbose #1522 > > let fold folder state array =
00:00:22 verbose #1523 > > let rec loop acc i =
00:00:22 verbose #1524 > > async {
00:00:22 verbose #1525 > > if i < Array.length array then
00:00:22 verbose #1526 > > let! newAcc = folder acc array.[[i]]
00:00:22 verbose #1527 > > return! loop newAcc (i + 1)
00:00:22 verbose #1528 > > else
00:00:22 verbose #1529 > > return acc
00:00:22 verbose #1530 > > }
00:00:22 verbose #1531 > > loop state 0
00:00:22 verbose #1532 > >
00:00:23 verbose #1533 > >
00:00:23 verbose #1534 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:23 verbose #1535 > > #if !INTERACTIVE
00:00:23 verbose #1536 > > namespace Polyglot
00:00:23 verbose #1537 > > #endif
00:00:23 verbose #1538 > >
00:00:23 verbose #1539 > > module AsyncSeq =
00:00:23 verbose #1540 > >
00:00:23 verbose #1541 > > #if !INTERACTIVE
00:00:23 verbose #1542 > > open Lib
00:00:23 verbose #1543 > > #endif
00:00:23 verbose #1544 > >
00:00:23 verbose #1545 > > open Common
00:00:23 verbose #1546 > >
00:00:23 verbose #1547 > > /// ## subscribeEvent
00:00:23 verbose #1548 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:00:23 verbose #1549 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:00:23 verbose #1550 > > 'A>(event.AddHandler, event.RemoveHandler)
00:00:23 verbose #1551 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:00:23 verbose #1552 > > event.EventArgs)
00:00:23 verbose #1553 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:00:23 verbose #1554 > >
00:00:23 verbose #1555 > > /// ## subscribeToken
00:00:23 verbose #1556 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:00:23 verbose #1557 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:00:23 verbose #1558 > > System.Action tcs.SetResult |> token.Register |> ignore
00:00:23 verbose #1559 > > let start = System.DateTime.Now.Ticks
00:00:23 verbose #1560 > > FSharp.Control.AsyncSeq.unfoldAsync
00:00:23 verbose #1561 > > (fun () -> async {
00:00:23 verbose #1562 > > do! tcs.Task |> Async.AwaitTask
00:00:23 verbose #1563 > > return Some (System.DateTime.Now.Ticks - start, ())
00:00:23 verbose #1564 > > })
00:00:23 verbose #1565 > > ()
00:00:23 verbose #1566 > >
00:00:23 verbose #1567 > >
00:00:23 verbose #1568 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:23 verbose #1569 > > #if !INTERACTIVE
00:00:23 verbose #1570 > > namespace Polyglot
00:00:23 verbose #1571 > > #endif
00:00:23 verbose #1572 > >
00:00:23 verbose #1573 > > module Runtime =
00:00:23 verbose #1574 > >
00:00:23 verbose #1575 > > #if !INTERACTIVE
00:00:23 verbose #1576 > > open Lib
00:00:23 verbose #1577 > > #endif
00:00:23 verbose #1578 > >
00:00:23 verbose #1579 > > open Common
00:00:23 verbose #1580 > >
00:00:23 verbose #1581 > > /// ## parseArgs
00:00:23 verbose #1582 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:00:23 verbose #1583 > > let assemblyName =
00:00:23 verbose #1584 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:00:23 verbose #1585 > > let errorHandler : Argu.IExiter =
00:00:23 verbose #1586 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:00:23 verbose #1587 > > List.contains assemblyName
00:00:23 verbose #1588 > > then Argu.ExceptionExiter ()
00:00:23 verbose #1589 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:00:23 verbose #1590 > > _ -> Some System.ConsoleColor.Red)
00:00:23 verbose #1591 > >
00:00:23 verbose #1592 > > let parser =
00:00:23 verbose #1593 > > Argu.ArgumentParser.Create<'T> (
00:00:23 verbose #1594 > > programName =
00:00:23 verbose #1595 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:00:23 verbose #1596 > > errorHandler = errorHandler
00:00:23 verbose #1597 > > )
00:00:23 verbose #1598 > >
00:00:23 verbose #1599 > > parser.ParseCommandLine args
00:00:23 verbose #1600 > >
00:00:23 verbose #1601 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:00:23 verbose #1602 > > args
00:00:23 verbose #1603 > > |> parseArgs<'T>
00:00:23 verbose #1604 > > |> fun results -> results.GetAllResults ()
00:00:23 verbose #1605 > >
00:00:23 verbose #1606 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:00:23 verbose #1607 > > args
00:00:23 verbose #1608 > > |> parseAllArgs<'T>
00:00:23 verbose #1609 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:00:23 verbose #1610 > > |> Map.ofList
00:00:23 verbose #1611 > >
00:00:23 verbose #1612 > >
00:00:23 verbose #1613 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:23 verbose #1614 > > #if !INTERACTIVE
00:00:23 verbose #1615 > > namespace Polyglot
00:00:23 verbose #1616 > > #endif
00:00:23 verbose #1617 > >
00:00:23 verbose #1618 > > module FileSystem =
00:00:23 verbose #1619 > >
00:00:23 verbose #1620 > > #if !INTERACTIVE
00:00:23 verbose #1621 > > open Lib
00:00:23 verbose #1622 > > #endif
00:00:23 verbose #1623 > >
00:00:23 verbose #1624 > > open Common
00:00:23 verbose #1625 > > open SpiralFileSystem.Operators
00:00:23 verbose #1626 > >
00:00:23 verbose #1627 > > /// ## watchDirectory
00:00:23 verbose #1628 > > [[<RequireQualifiedAccess>]]
00:00:23 verbose #1629 > > type FileSystemChangeType =
00:00:23 verbose #1630 > > | Failure
00:00:23 verbose #1631 > > | Changed
00:00:23 verbose #1632 > > | Created
00:00:23 verbose #1633 > > | Deleted
00:00:23 verbose #1634 > > | Renamed
00:00:23 verbose #1635 > >
00:00:23 verbose #1636 > > [[<RequireQualifiedAccess>]]
00:00:23 verbose #1637 > > type FileSystemChange =
00:00:23 verbose #1638 > > | Failure of exn: exn
00:00:23 verbose #1639 > > | Changed of path: string * content: string option
00:00:23 verbose #1640 > > | Created of path: string * content: string option
00:00:23 verbose #1641 > > | Deleted of path: string
00:00:23 verbose #1642 > > | Renamed of oldPath: string * (string * string option)
00:00:23 verbose #1643 > >
00:00:23 verbose #1644 > >
00:00:23 verbose #1645 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:00:23 verbose #1646 > > let fullPath = path |> System.IO.Path.GetFullPath
00:00:23 verbose #1647 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:00:23 verbose #1648 > >
00:00:23 verbose #1649 > > let watcher =
00:00:23 verbose #1650 > > new System.IO.FileSystemWatcher (
00:00:23 verbose #1651 > > Path = fullPath,
00:00:23 verbose #1652 > > NotifyFilter = filter,
00:00:23 verbose #1653 > > EnableRaisingEvents = true,
00:00:23 verbose #1654 > > IncludeSubdirectories = true
00:00:23 verbose #1655 > > )
00:00:23 verbose #1656 > >
00:00:23 verbose #1657 > > let inline getEventPath (path : string) =
00:00:23 verbose #1658 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:00:23 verbose #1659 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:00:23 verbose #1660 > >
00:00:23 verbose #1661 > > let inline ticks () =
00:00:23 verbose #1662 > > System.DateTime.UtcNow.Ticks
00:00:23 verbose #1663 > >
00:00:23 verbose #1664 > > let changedStream =
00:00:23 verbose #1665 > > AsyncSeq.subscribeEvent
00:00:23 verbose #1666 > > watcher.Changed
00:00:23 verbose #1667 > > (fun event ->
00:00:23 verbose #1668 > > ticks (),
00:00:23 verbose #1669 > > [[ FileSystemChang...d_all_text_retry_async
00:00:23 verbose #1670 > > return t, FileSystemChange.Changed (path, content)
00:00:23 verbose #1671 > > | true, FileSystemChange.Created (path, _) ->
00:00:23 verbose #1672 > > do! Async.Sleep 5
00:00:23 verbose #1673 > > let! content = fullPath </> path |>
00:00:23 verbose #1674 > > SpiralFileSystem.read_all_text_retry_async
00:00:23 verbose #1675 > > return t, FileSystemChange.Created (path, content)
00:00:23 verbose #1676 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:00:23 verbose #1677 > > let! content = fullPath </> newPath |>
00:00:23 verbose #1678 > > SpiralFileSystem.read_all_text_retry_async
00:00:23 verbose #1679 > > return t, FileSystemChange.Renamed (oldPath, (newPath,
00:00:23 verbose #1680 > > content))
00:00:23 verbose #1681 > > | _ -> return t, event
00:00:23 verbose #1682 > > })
00:00:23 verbose #1683 > >
00:00:23 verbose #1684 > > let disposable =
00:00:23 verbose #1685 > > new_disposable (fun () ->
00:00:23 verbose #1686 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
00:00:23 verbose #1687 > > watch stream") _locals
00:00:23 verbose #1688 > > watcher.EnableRaisingEvents <- false
00:00:23 verbose #1689 > > watcher.Dispose ()
00:00:23 verbose #1690 > > )
00:00:23 verbose #1691 > >
00:00:23 verbose #1692 > > stream, disposable
00:00:23 verbose #1693 > >
00:00:23 verbose #1694 > > let inline watchDirectory path =
00:00:23 verbose #1695 > > watchDirectoryWithFilter
00:00:23 verbose #1696 > > (System.IO.NotifyFilters.FileName
00:00:23 verbose #1697 > > // ||| System.IO.NotifyFilters.DirectoryName
00:00:23 verbose #1698 > > // ||| System.IO.NotifyFilters.Attributes
00:00:23 verbose #1699 > > //// ||| System.IO.NotifyFilters.Size
00:00:23 verbose #1700 > > ||| System.IO.NotifyFilters.LastWrite
00:00:23 verbose #1701 > > //// ||| System.IO.NotifyFilters.LastAccess
00:00:23 verbose #1702 > > // ||| System.IO.NotifyFilters.CreationTime
00:00:23 verbose #1703 > > // ||| System.IO.NotifyFilters.Security
00:00:23 verbose #1704 > > )
00:00:23 verbose #1705 > > path
00:00:23 verbose #1706 > >
00:00:24 verbose #1707 > >
00:00:24 verbose #1708 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1709 > > #if !INTERACTIVE
00:00:24 verbose #1710 > > open Lib
00:00:24 verbose #1711 > > #endif
00:00:24 verbose #1712 > >
00:00:24 verbose #1713 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1714 > > open SpiralFileSystem.Operators
00:00:24 verbose #1715 > > open Falco.Markup
00:00:24 verbose #1716 > >
00:00:24 verbose #1717 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1718 > > type FileSystemNode =
00:00:24 verbose #1719 > > | File of string * string * int64
00:00:24 verbose #1720 > > | Folder of string * string * FileSystemNode list
00:00:24 verbose #1721 > > | Root of FileSystemNode list
00:00:24 verbose #1722 > >
00:00:24 verbose #1723 > > let rec scanDirectory isRoot (basePath : string) (path : string) =
00:00:24 verbose #1724 > > let relativePath =
00:00:24 verbose #1725 > > path
00:00:24 verbose #1726 > > |> SpiralSm.replace basePath ""
00:00:24 verbose #1727 > > |> SpiralSm.replace "\\" "/"
00:00:24 verbose #1728 > > |> SpiralSm.replace "//" "/"
00:00:24 verbose #1729 > > |> SpiralSm.trim_start [[| '/' |]]
00:00:24 verbose #1730 > >
00:00:24 verbose #1731 > > let directories =
00:00:24 verbose #1732 > > path
00:00:24 verbose #1733 > > |> System.IO.Directory.GetDirectories
00:00:24 verbose #1734 > > |> Array.toList
00:00:24 verbose #1735 > > |> List.sort
00:00:24 verbose #1736 > > |> List.map (scanDirectory false basePath)
00:00:24 verbose #1737 > > let files =
00:00:24 verbose #1738 > > path
00:00:24 verbose #1739 > > |> System.IO.Directory.GetFiles
00:00:24 verbose #1740 > > |> Array.toList
00:00:24 verbose #1741 > > |> List.sort
00:00:24 verbose #1742 > > |> List.map (fun f -> File (System.IO.Path.GetFileName f, relativePath,
00:00:24 verbose #1743 > > System.IO.FileInfo(f).Length))
00:00:24 verbose #1744 > >
00:00:24 verbose #1745 > > let children = directories @ files
00:00:24 verbose #1746 > > if isRoot
00:00:24 verbose #1747 > > then Root children
00:00:24 verbose #1748 > > else Folder (path |> System.IO.Path.GetFileName, relativePath, children)
00:00:24 verbose #1749 > >
00:00:24 verbose #1750 > > let rec generateHtml fsNode =
00:00:24 verbose #1751 > > let sizeLabel size =
00:00:24 verbose #1752 > > match float size with
00:00:24 verbose #1753 > > | size when size > 1024.0 * 1024.0 -> $"%.2f{size / 1024.0 / 1024.0} MB"
00:00:24 verbose #1754 > > | size when size > 1024.0 -> $"%.2f{size / 1024.0} KB"
00:00:24 verbose #1755 > > | size -> $"%.2f{size} B"
00:00:24 verbose #1756 > > match fsNode with
00:00:24 verbose #1757 > > | File (fileName, relativePath, size) ->
00:00:24 verbose #1758 > > Elem.div [[]] [[
00:00:24 verbose #1759 > > Text.raw "📄 "
00:00:24 verbose #1760 > > Elem.a [[
00:00:24 verbose #1761 > > Attr.href $"""{relativePath}{if relativePath = "" then "" else
00:00:24 verbose #1762 > > "/"}{fileName}"""
00:00:24 verbose #1763 > > ]] [[
00:00:24 verbose #1764 > > Text.raw fileName
00:00:24 verbose #1765 > > ]]
00:00:24 verbose #1766 > > Elem.span [[]] [[
00:00:24 verbose #1767 > > Text.raw $" ({size |> sizeLabel})"
00:00:24 verbose #1768 > > ]]
00:00:24 verbose #1769 > > ]]
00:00:24 verbose #1770 > > | Folder (folderName, relativePath, children) ->
00:00:24 verbose #1771 > > let size =
00:00:24 verbose #1772 > > let rec loop children =
00:00:24 verbose #1773 > > children
00:00:24 verbose #1774 > > |> List.sumBy (function
00:00:24 verbose #1775 > > | File (_, _, size) -> size
00:00:24 verbose #1776 > > | Folder (_, _, children)
00:00:24 verbose #1777 > > | Root children -> loop children
00:00:24 verbose #1778 > > )
00:00:24 verbose #1779 > > loop children
00:00:24 verbose #1780 > > Elem.details [[
00:00:24 verbose #1781 > > Attr.open' "true"
00:00:24 verbose #1782 > > ]] [[
00:00:24 verbose #1783 > > Elem.summary [[]] [[
00:00:24 verbose #1784 > > Text.raw "📂 "
00:00:24 verbose #1785 > > Elem.a [[
00:00:24 verbose #1786 > > Attr.href relativePath
00:00:24 verbose #1787 > > ]] [[
00:00:24 verbose #1788 > > Text.raw folderName
00:00:24 verbose #1789 > > ]]
00:00:24 verbose #1790 > > Elem.span [[]] [[
00:00:24 verbose #1791 > > Text.raw $" ({size |> sizeLabel})"
00:00:24 verbose #1792 > > ]]
00:00:24 verbose #1793 > > ]]
00:00:24 verbose #1794 > > Elem.div [[]] [[
00:00:24 verbose #1795 > > yield! children |> List.map generateHtml
00:00:24 verbose #1796 > > ]]
00:00:24 verbose #1797 > > ]]
00:00:24 verbose #1798 > > | Root children ->
00:00:24 verbose #1799 > > Elem.div [[]] [[
00:00:24 verbose #1800 > > yield! children |> List.map generateHtml
00:00:24 verbose #1801 > > ]]
00:00:24 verbose #1802 > >
00:00:24 verbose #1803 > > let generateHtmlForFileSystem root =
00:00:24 verbose #1804 > > $"""<!DOCTYPE html>
00:00:24 verbose #1805 > > <html lang="en">
00:00:24 verbose #1806 > > <head>
00:00:24 verbose #1807 > > <meta charset="UTF-8">
00:00:24 verbose #1808 > > <style>
00:00:24 verbose #1809 > > body {{
00:00:24 verbose #1810 > > background-color: #222;
00:00:24 verbose #1811 > > color: #ccc;
00:00:24 verbose #1812 > > }}
00:00:24 verbose #1813 > > a {{
00:00:24 verbose #1814 > > color: #777;
00:00:24 verbose #1815 > > font-size: 15px;
00:00:24 verbose #1816 > > }}
00:00:24 verbose #1817 > > span {{
00:00:24 verbose #1818 > > font-size: 11px;
00:00:24 verbose #1819 > > }}
00:00:24 verbose #1820 > > div > div {{
00:00:24 verbose #1821 > > padding-left: 10px;
00:00:24 verbose #1822 > > }}
00:00:24 verbose #1823 > > details > div {{
00:00:24 verbose #1824 > > padding-left: 19px;
00:00:24 verbose #1825 > > }}
00:00:24 verbose #1826 > > </style>
00:00:24 verbose #1827 > > </head>
00:00:24 verbose #1828 > > <body>
00:00:24 verbose #1829 > > {root |> generateHtml |> renderNode}
00:00:24 verbose #1830 > > </body>
00:00:24 verbose #1831 > > </html>
00:00:24 verbose #1832 > > """
00:00:24 verbose #1833 > >
00:00:24 verbose #1834 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1835 > > //// test
00:00:24 verbose #1836 > >
00:00:24 verbose #1837 > > let expected = """<!DOCTYPE html>
00:00:24 verbose #1838 > > <html lang="en">
00:00:24 verbose #1839 > > <head>
00:00:24 verbose #1840 > > <meta charset="UTF-8">
00:00:24 verbose #1841 > > <style>
00:00:24 verbose #1842 > > body {
00:00:24 verbose #1843 > > background-color: #222;
00:00:24 verbose #1844 > > color: #ccc;
00:00:24 verbose #1845 > > }
00:00:24 verbose #1846 > > a {
00:00:24 verbose #1847 > > color: #777;
00:00:24 verbose #1848 > > font-size: 15px;
00:00:24 verbose #1849 > > }
00:00:24 verbose #1850 > > span {
00:00:24 verbose #1851 > > font-size: 11px;
00:00:24 verbose #1852 > > }
00:00:24 verbose #1853 > > div > div {
00:00:24 verbose #1854 > > padding-left: 10px;
00:00:24 verbose #1855 > > }
00:00:24 verbose #1856 > > details > div {
00:00:24 verbose #1857 > > padding-left: 19px;
00:00:24 verbose #1858 > > }
00:00:24 verbose #1859 > > </style>
00:00:24 verbose #1860 > > </head>
00:00:24 verbose #1861 > > <body>
00:00:24 verbose #1862 > > <div><details open="true"><summary>📂 <a href="_.root">_.root</a><span>
00:00:24 verbose #1863 > > (10.00 B)</span></summary><div><details open="true"><summary>📂 <a
00:00:24 verbose #1864 > > href="_.root/3">3</a><span> (6.00 B)</span></summary><div><details
00:00:24 verbose #1865 > > open="true"><summary>📂 <a href="_.root/3/2">2</a><span> (3.00
00:00:24 verbose #1866 > > B)</span></summary><div><details open="true"><summary>📂 <a
00:00:24 verbose #1867 > > href="_.root/3/2/1">1</a><span> (1.00 B)</span></summary><div><div>📄 <a
00:00:24 verbose #1868 > > href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00
00:00:24 verbose #1869 > > B)</span></div></div></details><div>📄 <a
00:00:24 verbose #1870 > > href="_.root/3/2/file.txt">file.txt</a><span> (2.00
00:00:24 verbose #1871 > > B)</span></div></div></details><div>📄 <a
00:00:24 verbose #1872 > > href="_.root/3/file.txt">file.txt</a><span> (3.00
00:00:24 verbose #1873 > > B)</span></div></div></details><div>📄 <a
00:00:24 verbose #1874 > > href="_.root/file.txt">file.txt</a><span> (4.00
00:00:24 verbose #1875 > > B)</span></div></div></details></div>
00:00:24 verbose #1876 > > </body>
00:00:24 verbose #1877 > > </html>
00:00:24 verbose #1878 > > """
00:00:24 verbose #1879 > >
00:00:24 verbose #1880 > > let struct (tempFolder, disposable) = expected |> SpiralCrypto.hash_text |>
00:00:24 verbose #1881 > > SpiralFileSystem.create_temp_dir'
00:00:24 verbose #1882 > > let rec loop d n = async {
00:00:24 verbose #1883 > > if n >= 0 then
00:00:24 verbose #1884 > > tempFolder </> d |> System.IO.Directory.CreateDirectory |> ignore
00:00:24 verbose #1885 > > do!
00:00:24 verbose #1886 > > n
00:00:24 verbose #1887 > > |> string
00:00:24 verbose #1888 > > |> String.replicate (n + 1)
00:00:24 verbose #1889 > > |> SpiralFileSystem.write_all_text_async (tempFolder </> d </>
00:00:24 verbose #1890 > > $"file.txt")
00:00:24 verbose #1891 > > do! loop $"{d}/{n}" (n - 1)
00:00:24 verbose #1892 > > }
00:00:24 verbose #1893 > > loop "_.root" 3
00:00:24 verbose #1894 > > |> Async.RunSynchronously
00:00:24 verbose #1895 > >
00:00:24 verbose #1896 > > let html =
00:00:24 verbose #1897 > > scanDirectory true tempFolder tempFolder
00:00:24 verbose #1898 > > |> generateHtmlForFileSystem
00:00:24 verbose #1899 > >
00:00:24 verbose #1900 > > html
00:00:24 verbose #1901 > > |> _assertEqual expected
00:00:24 verbose #1902 > >
00:00:24 verbose #1903 > > disposable.Dispose ()
00:00:24 verbose #1904 > >
00:00:24 verbose #1905 > > html |> Microsoft.DotNet.Interactive.Formatting.Html.ToHtmlContent
00:00:24 verbose #1906 > >
00:00:24 verbose #1907 > > ╭─[ 242.57ms - return value ]──────────────────────────────────────────────────╮
00:00:24 verbose #1908 > > │ <!DOCTYPE html> │
00:00:24 verbose #1909 > > │ <html lang="en"> │
00:00:24 verbose #1910 > > │ <head> │
00:00:24 verbose #1911 > > │ <meta charset="UTF-8"> │
00:00:24 verbose #1912 > > │ <style> │
00:00:24 verbose #1913 > > │ body { │
00:00:24 verbose #1914 > > │ background-color: #222; │
00:00:24 verbose #1915 > > │ color: #ccc; │
00:00:24 verbose #1916 > > │ } │
00:00:24 verbose #1917 > > │ a { │
00:00:24 verbose #1918 > > │ color: #777; │
00:00:24 verbose #1919 > > │ font-size: 15px; │
00:00:24 verbose #1920 > > │ } │
00:00:24 verbose #1921 > > │ span { │
00:00:24 verbose #1922 > > │ font-size: 11px; │
00:00:24 verbose #1923 > > │ } │
00:00:24 verbose #1924 > > │ div > div { │
00:00:24 verbose #1925 > > │ padding-left: 10px; │
00:00:24 verbose #1926 > > │ } │
00:00:24 verbose #1927 > > │ details > div { │
00:00:24 verbose #1928 > > │ padding-left: 19px; │
00:00:24 verbose #1929 > > │ } │
00:00:24 verbose #1930 > > │ </style> │
00:00:24 verbose #1931 > > │ </head> │
00:00:24 verbose #1932 > > │ <body> │
00:00:24 verbose #1933 > > │ <div><details open="true"><summary>📂 <a │
00:00:24 verbose #1934 > > │ href="_.root">_.root</a><span> (10.00 B)</span></summary><div><details │
00:00:24 verbose #1935 > > │ open="true"><summary>📂 <a href="_.root/3">3</a><span> (6.00 │
00:00:24 verbose #1936 > > │ B)</span></summary><div><details open="true"><summary>📂 <a │
00:00:24 verbose #1937 > > │ href="_.root/3/2">2</a><span> (3.00 B)</span></summary><div><details │
00:00:24 verbose #1938 > > │ open="true"><summary>📂 <a href="_.root/3/2/1">1</a><span> (1.00 │
00:00:24 verbose #1939 > > │ B)</span></summary><div><div>📄 <a │
00:00:24 verbose #1940 > > │ href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00 │
00:00:24 verbose #1941 > > │ B)</span></div></div></details><div>📄 <a │
00:00:24 verbose #1942 > > │ href="_.root/3/2/file.txt">file.txt</a><span> (2.00 │
00:00:24 verbose #1943 > > │ B)</span></div></div></details><div>📄 <a │
00:00:24 verbose #1944 > > │ href="_.root/3/file.txt">file.txt</a><span> (3.00 │
00:00:24 verbose #1945 > > │ B)</span></div></div></details><div>📄 <a │
00:00:24 verbose #1946 > > │ href="_.root/file.txt">file.txt</a><span> (4.00 │
00:00:24 verbose #1947 > > │ B)</span></div></div></details></div> │
00:00:24 verbose #1948 > > │ </body> │
00:00:24 verbose #1949 > > │ </html> │
00:00:24 verbose #1950 > > │ │
00:00:24 verbose #1951 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1952 > >
00:00:24 verbose #1953 > > ╭─[ 252.21ms - stdout ]────────────────────────────────────────────────────────╮
00:00:24 verbose #1954 > > │ "<!DOCTYPE html> │
00:00:24 verbose #1955 > > │ <html lang="en"> │
00:00:24 verbose #1956 > > │ <head> │
00:00:24 verbose #1957 > > │ <meta charset="UTF-8"> │
00:00:24 verbose #1958 > > │ <style> │
00:00:24 verbose #1959 > > │ body { │
00:00:24 verbose #1960 > > │ background-color: #222; │
00:00:24 verbose #1961 > > │ color: #ccc; │
00:00:24 verbose #1962 > > │ } │
00:00:24 verbose #1963 > > │ a { │
00:00:24 verbose #1964 > > │ color: #777; │
00:00:24 verbose #1965 > > │ font-size: 15px; │
00:00:24 verbose #1966 > > │ } │
00:00:24 verbose #1967 > > │ span { │
00:00:24 verbose #1968 > > │ font-size: 11px; │
00:00:24 verbose #1969 > > │ } │
00:00:24 verbose #1970 > > │ div > div { │
00:00:24 verbose #1971 > > │ padding-left: 10px; │
00:00:24 verbose #1972 > > │ } │
00:00:24 verbose #1973 > > │ details > div { │
00:00:24 verbose #1974 > > │ padding-left: 19px; │
00:00:24 verbose #1975 > > │ } │
00:00:24 verbose #1976 > > │ </style> │
00:00:24 verbose #1977 > > │ </head> │
00:00:24 verbose #1978 > > │ <body> │
00:00:24 verbose #1979 > > │ <div><details open="true"><summary>📂 <a │
00:00:24 verbose #1980 > > │ href="_.root">_.root</a><span> (10.00 B)</span></summary><div><details │
00:00:24 verbose #1981 > > │ open="true"><summary>📂 <a href="_.root/3">3</a><span> (6.00 │
00:00:24 verbose #1982 > > │ B)</span></summary><div><details open="true"><summary>📂 <a │
00:00:24 verbose #1983 > > │ href="_.root/3/2">2</a><span> (3.00 B)</span></summary><div><details │
00:00:24 verbose #1984 > > │ open="true"><summary>📂 <a href="_.root/3/2/1">1</a><span> (1.00 │
00:00:24 verbose #1985 > > │ B)</span></summary><div><div>📄 <a │
00:00:24 verbose #1986 > > │ href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00 │
00:00:24 verbose #1987 > > │ B)</span></div></div></details><div>📄 <a │
00:00:24 verbose #1988 > > │ href="_.root/3/2/file.txt">file.txt</a><span> (2.00 │
00:00:24 verbose #1989 > > │ B)</span></div></div></details><div>📄 <a │
00:00:24 verbose #1990 > > │ href="_.root/3/file.txt">file.txt</a><span> (3.00 │
00:00:24 verbose #1991 > > │ B)</span></div></div></details><div>📄 <a │
00:00:24 verbose #1992 > > │ href="_.root/file.txt">file.txt</a><span> (4.00 │
00:00:24 verbose #1993 > > │ B)</span></div></div></details></div> │
00:00:24 verbose #1994 > > │ </body> │
00:00:24 verbose #1995 > > │ </html> │
00:00:24 verbose #1996 > > │ " │
00:00:24 verbose #1997 > > │ │
00:00:24 verbose #1998 > > │ │
00:00:24 verbose #1999 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #2000 > >
00:00:24 verbose #2001 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:24 verbose #2002 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:24 verbose #2003 > > │ ## Arguments │
00:00:24 verbose #2004 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #2005 > >
00:00:24 verbose #2006 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #2007 > > [[<RequireQualifiedAccess>]]
00:00:24 verbose #2008 > > type Arguments =
00:00:24 verbose #2009 > > | [[<Argu.ArguAttributes.ExactlyOnce>]] Dir of string
00:00:24 verbose #2010 > > | [[<Argu.ArguAttributes.ExactlyOnce>]] Html of string
00:00:24 verbose #2011 > >
00:00:24 verbose #2012 > > interface Argu.IArgParserTemplate with
00:00:24 verbose #2013 > > member s.Usage =
00:00:24 verbose #2014 > > match s with
00:00:24 verbose #2015 > > | Dir _ -> nameof Dir
00:00:24 verbose #2016 > > | Html _ -> nameof Html
00:00:24 verbose #2017 > >
00:00:24 verbose #2018 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #2019 > > //// test
00:00:24 verbose #2020 > >
00:00:24 verbose #2021 > > Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
00:00:25 verbose #2022 > >
00:00:25 verbose #2023 > > ╭─[ 126.41ms - return value ]──────────────────────────────────────────────────╮
00:00:25 verbose #2024 > > │ "USAGE: dotnet-repl [--help] --dir <string> --html <string> │
00:00:25 verbose #2025 > > │ │
00:00:25 verbose #2026 > > │ OPTIONS: │
00:00:25 verbose #2027 > > │ │
00:00:25 verbose #2028 > > │ --dir <string> Dir │
00:00:25 verbose #2029 > > │ --html <string> Html │
00:00:25 verbose #2030 > > │ --help display this list of options. │
00:00:25 verbose #2031 > > │ " │
00:00:25 verbose #2032 > > │ │
00:00:25 verbose #2033 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #2034 > >
00:00:25 verbose #2035 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 verbose #2036 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 verbose #2037 > > │ ## main │
00:00:25 verbose #2038 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #2039 > >
00:00:25 verbose #2040 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #2041 > > let main args =
00:00:25 verbose #2042 > > let argsMap = args |> Runtime.parseArgsMap<Arguments>
00:00:25 verbose #2043 > >
00:00:25 verbose #2044 > > let dir =
00:00:25 verbose #2045 > > match argsMap.[[nameof Arguments.Dir]] with
00:00:25 verbose #2046 > > | [[ Arguments.Dir dir ]] -> Some dir
00:00:25 verbose #2047 > > | _ -> None
00:00:25 verbose #2048 > > |> Option.get
00:00:25 verbose #2049 > >
00:00:25 verbose #2050 > > let htmlPath =
00:00:25 verbose #2051 > > match argsMap.[[nameof Arguments.Html]] with
00:00:25 verbose #2052 > > | [[ Arguments.Html html ]] -> Some html
00:00:25 verbose #2053 > > | _ -> None
00:00:25 verbose #2054 > > |> Option.get
00:00:25 verbose #2055 > >
00:00:25 verbose #2056 > > let fileSystem = scanDirectory true dir dir
00:00:25 verbose #2057 > > let html = generateHtmlForFileSystem fileSystem
00:00:25 verbose #2058 > >
00:00:25 verbose #2059 > > html |> SpiralFileSystem.write_all_text_async htmlPath
00:00:25 verbose #2060 > > |> Async.runWithTimeout 30000
00:00:25 verbose #2061 > > |> function
00:00:25 verbose #2062 > > | Some () -> 0
00:00:25 verbose #2063 > > | None -> 1
00:00:25 verbose #2064 > >
00:00:25 verbose #2065 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 verbose #2066 > > //// test
00:00:25 verbose #2067 > >
00:00:25 verbose #2068 > > let args =
00:00:25 verbose #2069 > > System.Environment.GetEnvironmentVariable "ARGS"
00:00:25 verbose #2070 > > |> SpiralRuntime.split_args
00:00:25 verbose #2071 > > |> Result.toArray
00:00:25 verbose #2072 > > |> Array.collect id
00:00:25 verbose #2073 > >
00:00:25 verbose #2074 > > match args with
00:00:25 verbose #2075 > > | [[||]] -> 0
00:00:25 verbose #2076 > > | args -> if main args = 0 then 0 else failwith "main failed"
00:00:25 verbose #2077 > >
00:00:25 verbose #2078 > > ╭─[ 111.31ms - return value ]──────────────────────────────────────────────────╮
00:00:25 verbose #2079 > > │ <div class="dni-plaintext"><pre>0 │
00:00:25 verbose #2080 > > │ </pre></div><style> │
00:00:25 verbose #2081 > > │ .dni-code-hint { │
00:00:25 verbose #2082 > > │ font-style: italic; │
00:00:25 verbose #2083 > > │ overflow: hidden; │
00:00:25 verbose #2084 > > │ white-space: nowrap; │
00:00:25 verbose #2085 > > │ } │
00:00:25 verbose #2086 > > │ .dni-treeview { │
00:00:25 verbose #2087 > > │ white-space: nowrap; │
00:00:25 verbose #2088 > > │ } │
00:00:25 verbose #2089 > > │ .dni-treeview td { │
00:00:25 verbose #2090 > > │ vertical-align: top; │
00:00:25 verbose #2091 > > │ text-align: start; │
00:00:25 verbose #2092 > > │ } │
00:00:25 verbose #2093 > > │ details.dni-treeview { │
00:00:25 verbose #2094 > > │ padding-left: 1em; │
00:00:25 verbose #2095 > > │ } │
00:00:25 verbose #2096 > > │ table td { │
00:00:25 verbose #2097 > > │ text-align: start; │
00:00:25 verbose #2098 > > │ } │
00:00:25 verbose #2099 > > │ table tr { │
00:00:25 verbose #2100 > > │ vertical-align: top; │
00:00:25 verbose #2101 > > │ margin: 0em 0px; │
00:00:25 verbose #2102 > > │ } │
00:00:25 verbose #2103 > > │ table tr td pre │
00:00:25 verbose #2104 > > │ { │
00:00:25 verbose #2105 > > │ vertical-align: top !important; │
00:00:25 verbose #2106 > > │ margin: 0em 0px !important; │
00:00:25 verbose #2107 > > │ } │
00:00:25 verbose #2108 > > │ table th { │
00:00:25 verbose #2109 > > │ text-align: start; │
00:00:25 verbose #2110 > > │ } │
00:00:25 verbose #2111 > > │ </style> │
00:00:25 verbose #2112 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 verbose #2113 > 00:00:24 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 72438
00:00:25 verbose #2114 > 00:00:24 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:27 verbose #2115 > 00:00:26 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb to html
00:00:27 verbose #2116 > 00:00:26 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:27 verbose #2117 > 00:00:26 verbose #7 ! validate(nb)
00:00:29 verbose #2118 > 00:00:27 verbose #8 ! [NbConvertApp] Writing 309931 bytes to c:\home\git\polyglot\apps\dir-tree-html\DirTreeHtml.dib.html
00:00:29 verbose #2119 > 00:00:28 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 669
00:00:29 verbose #2120 > 00:00:28 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 669
00:00:29 verbose #2121 > 00:00:28 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:30 verbose #2122 > 00:00:29 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:30 verbose #2123 > 00:00:29 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:30 verbose #2124 > 00:00:29 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 73166
00:00:30 debug #2125 runtime.execute_with_options_async / exit_code: 0 / output.Length: 79732
00:00:30 debug #1 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path DirTreeHtml.dib
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]
#endif
type reqwest_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]
#endif
type reqwest_RequestBuilder = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]
#endif
type reqwest_Response = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Send")>]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("&$0")>]
#endif
type Ref<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("$0 + $1")>]
#endif
type LifetimeJoin<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("'static")>]
#endif
type StaticLifetime = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("$0")>]
#endif
type LifetimeRef<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("$0 $1")>]
#endif
type Lifetime<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>]
#endif
type MutCell<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>]
#endif
type std_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::borrow::Cow<$0>")>]
#endif
type std_borrow_Cow<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>]
#endif
type std_cell_RefCell<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>]
#endif
type std_pin_Pin<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>]
#endif
type std_rc_Rc<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>]
#endif
type std_rc_Weak<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::collections::HashMap<$0, $1>")>]
#endif
type std_collections_HashMap<'K, 'V> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::collections::BTreeMap<$0, $1>")>]
#endif
type std_collections_BTreeMap<'K, 'V> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("[$0]")>]
#endif
type Slice<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type Slice'<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Vec<$0>")>]
#endif
type Vec<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("str")>]
#endif
type Str = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]
#endif
type base64_DecodeError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]
#endif
type borsh_io_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("encoding_rs::Encoding")>]
#endif
type encoding_rs_Encoding = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]
#endif
type js_sys_JsString = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]
#endif
type serde_json_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]
#endif
type serde_json_Value = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]
#endif
type serde_wasm_bindgen_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]
#endif
type std_ffi_OsStr = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>]
#endif
type std_ffi_OsString = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fmt::Display<$0>")>]
#endif
type std_fmt_Display<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>]
#endif
type std_str_Utf8Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::string::FromUtf8Error")>]
#endif
type std_string_FromUtf8Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>]
#endif
type std_string_String = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::slice::Windows<$0>")>]
#endif
type std_slice_Windows<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Regex")>]
#endif
type regex_Regex = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Captures<$0>")>]
#endif
type regex_Captures<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::CaptureMatches")>]
#endif
type regex_CaptureMatches = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::CaptureNames")>]
#endif
type regex_CaptureNames = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Match")>]
#endif
type regex_Match = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Error")>]
#endif
type regex_Error = class end
module State = let mutable trace_state = None
type IOsEnviron = abstract environ: x: unit -> obj
type [<Struct>] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and Mut3 = {mutable l0 : (string -> unit)}
and [<Struct>] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [<Struct>] US2 =
| US2_0 of f0_0 : US0
| US2_1
and [<Struct>] US3 =
| US3_0 of f0_0 : string
| US3_1
and [<Struct>] US4 =
| US4_0 of f0_0 : bool
| US4_1
and [<Struct>] US5 =
| US5_0 of f0_0 : bool
| US5_1 of f1_0 : exn
and [<Struct>] US6 =
| US6_0 of f0_0 : bool
| US6_1 of f1_0 : exn
and [<Struct>] US7 =
| US7_0 of f0_0 : int32
| US7_1
let rec method0 () : string =
let v0 : string = "TRACE_LEVEL"
v0
and method2 () : string =
let v0 : string = ""
v0
and method1 (v0 : string) : string =
let v1 : bool = true
let mutable _v1 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = "std::env::var(&*$0)"
let v3 : Result<std_string_String, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr v0 v2
let v4 : string = "true; let _result = $0.map(|x| { //"
let v5 : bool = Fable.Core.RustInterop.emitRustExpr v3 v4
let v6 : string = "x"
let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v6
let v8 : string = "fable_library_rust::String_::fromString($0)"
let v9 : string = Fable.Core.RustInterop.emitRustExpr v7 v8
let v10 : string = "true; $0 })"
let v11 : bool = Fable.Core.RustInterop.emitRustExpr v9 v10
let v12 : string = "_result"
let v13 : Result<string, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr () v12
let v14 : string = method2()
let v15 : string = "$0.unwrap_or($1)"
let v16 : string = Fable.Core.RustInterop.emitRustExpr struct (v13, v14) v15
v16
#endif
#if FABLE_COMPILER_RUST && WASM
let v17 : string = "std::env::var(&*$0)"
let v18 : Result<std_string_String, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr v0 v17
let v19 : string = "true; let _result = $0.map(|x| { //"
let v20 : bool = Fable.Core.RustInterop.emitRustExpr v18 v19
let v21 : string = "x"
let v22 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v21
let v23 : string = "fable_library_rust::String_::fromString($0)"
let v24 : string = Fable.Core.RustInterop.emitRustExpr v22 v23
let v25 : string = "true; $0 })"
let v26 : bool = Fable.Core.RustInterop.emitRustExpr v24 v25
let v27 : string = "_result"
let v28 : Result<string, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr () v27
let v29 : string = method2()
let v30 : string = "$0.unwrap_or($1)"
let v31 : string = Fable.Core.RustInterop.emitRustExpr struct (v28, v29) v30
v31
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v32 : string = "std::env::var(&*$0)"
let v33 : Result<std_string_String, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr v0 v32
let v34 : string = "true; let _result = $0.map(|x| { //"
let v35 : bool = Fable.Core.RustInterop.emitRustExpr v33 v34
let v36 : string = "x"
let v37 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v36
let v38 : string = "fable_library_rust::String_::fromString($0)"
let v39 : string = Fable.Core.RustInterop.emitRustExpr v37 v38
let v40 : string = "true; $0 })"
let v41 : bool = Fable.Core.RustInterop.emitRustExpr v39 v40
let v42 : string = "_result"
let v43 : Result<string, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr () v42
let v44 : string = method2()
let v45 : string = "$0.unwrap_or($1)"
let v46 : string = Fable.Core.RustInterop.emitRustExpr struct (v43, v44) v45
v46
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v47 : string = "process.env[$0] ?? \"\""
let v48 : string = Fable.Core.JsInterop.emitJsExpr v0 v47
v48
#endif
#if FABLE_COMPILER_PYTHON
let v49 : string = "os"
let v50 : IOsEnviron = Fable.Core.PyInterop.importAll v49
let v51 : string = "v50.environ"
let v52 : obj = Fable.Core.PyInterop.emitPyExpr () v51
let v53 : string = "v52.get($0)"
let v54 : string = Fable.Core.PyInterop.emitPyExpr v0 v53
v54
#endif
#else
let v55 : (string -> string) = System.Environment.GetEnvironmentVariable
let v56 : string = v55 v0
let mutable _v56 = None
#if !FABLE_COMPILER && !WASM && !CONTRACT
let v57 : (string -> string option) = Option.ofObj
let v58 : string option = v57 v56
v58
#else
Some v56
#endif
|> fun x -> _v56 <- Some x
let v59 : string option = match _v56 with Some x -> x | None -> failwith "optionm'.of_obj / _v56=None"
let v60 : US3 option = None
let _v60 = ref v60
match v59 with
| Some x -> (
(fun () ->
(fun () ->
let v61 : string = x
let v62 : US3 = US3_0(v61)
v62
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v60.Value <- x
let v63 : US3 option = _v60.Value
let v64 : US3 = US3_1
let v65 : US3 = v63 |> Option.defaultValue v64
let v69 : string =
match v65 with
| US3_1 -> (* None *)
let v67 : string = ""
v67
| US3_0(v66) -> (* Some *)
v66
v69
#endif
|> fun x -> _v1 <- Some x
let v70 : string = match _v1 with Some x -> x | None -> failwith "base.run_target / _v1=None"
v70
and method3 () : string =
let v0 : string = "AUTOMATION"
v0
and closure1 () (v0 : string) : unit =
()
and closure0 () (v0 : US0) : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) =
let v1 : bool = true
let mutable _v1 : struct (US1 * US2) option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = method0()
let v3 : string = method1(v2)
let v5 : bool = "Verbose" = v3
let v9 : US2 =
if v5 then
let v6 : US0 = US0_0
US2_0(v6)
else
US2_1
let v54 : US2 =
match v9 with
| US2_1 -> (* None *)
let v13 : bool = "Debug" = v3
let v17 : US2 =
if v13 then
let v14 : US0 = US0_1
US2_0(v14)
else
US2_1
match v17 with
| US2_1 -> (* None *)
let v21 : bool = "Info" = v3
let v25 : US2 =
if v21 then
let v22 : US0 = US0_2
US2_0(v22)
else
US2_1
match v25 with
| US2_1 -> (* None *)
let v29 : bool = "Warning" = v3
let v33 : US2 =
if v29 then
let v30 : US0 = US0_3
US2_0(v30)
else
US2_1
match v33 with
| US2_1 -> (* None *)
let v37 : bool = "Critical" = v3
let v41 : US2 =
if v37 then
let v38 : US0 = US0_4
US2_0(v38)
else
US2_1
match v41 with
| US2_1 -> (* None *)
US2_1
| US2_0(v42) -> (* Some *)
US2_0(v42)
| US2_0(v34) -> (* Some *)
US2_0(v34)
| US2_0(v26) -> (* Some *)
US2_0(v26)
| US2_0(v18) -> (* Some *)
US2_0(v18)
| US2_0(v10) -> (* Some *)
US2_0(v10)
let v55 : string = method3()
let v56 : string = method1(v55)
let v58 : bool = v56 = "True"
let v64 : US1 =
if v58 then
let v59 : System.DateTime = System.DateTime.Now
let v60 : (System.DateTime -> int64) = _.Ticks
let v61 : int64 = v60 v59
US1_0(v61)
else
US1_1
struct (v64, v54)
#endif
#if FABLE_COMPILER_RUST && WASM
let v65 : US1 = US1_1
let v66 : US2 = US2_1
struct (v65, v66)
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v67 : US1 = US1_1
let v68 : US2 = US2_1
struct (v67, v68)
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v69 : string = method0()
let v70 : string = method1(v69)
let v72 : bool = "Verbose" = v70
let v76 : US2 =
if v72 then
let v73 : US0 = US0_0
US2_0(v73)
else
US2_1
let v121 : US2 =
match v76 with
| US2_1 -> (* None *)
let v80 : bool = "Debug" = v70
let v84 : US2 =
if v80 then
let v81 : US0 = US0_1
US2_0(v81)
else
US2_1
match v84 with
| US2_1 -> (* None *)
let v88 : bool = "Info" = v70
let v92 : US2 =
if v88 then
let v89 : US0 = US0_2
US2_0(v89)
else
US2_1
match v92 with
| US2_1 -> (* None *)
let v96 : bool = "Warning" = v70
let v100 : US2 =
if v96 then
let v97 : US0 = US0_3
US2_0(v97)
else
US2_1
match v100 with
| US2_1 -> (* None *)
let v104 : bool = "Critical" = v70
let v108 : US2 =
if v104 then
let v105 : US0 = US0_4
US2_0(v105)
else
US2_1
match v108 with
| US2_1 -> (* None *)
US2_1
| US2_0(v109) -> (* Some *)
US2_0(v109)
| US2_0(v101) -> (* Some *)
US2_0(v101)
| US2_0(v93) -> (* Some *)
US2_0(v93)
| US2_0(v85) -> (* Some *)
US2_0(v85)
| US2_0(v77) -> (* Some *)
US2_0(v77)
let v122 : string = method3()
let v123 : string = method1(v122)
let v125 : bool = v123 = "True"
let v131 : US1 =
if v125 then
let v126 : System.DateTime = System.DateTime.Now
let v127 : (System.DateTime -> int64) = _.Ticks
let v128 : int64 = v127 v126
US1_0(v128)
else
US1_1
struct (v131, v121)
#endif
#if FABLE_COMPILER_PYTHON
let v132 : string = method0()
let v133 : string = method1(v132)
let v135 : bool = "Verbose" = v133
let v139 : US2 =
if v135 then
let v136 : US0 = US0_0
US2_0(v136)
else
US2_1
let v184 : US2 =
match v139 with
| US2_1 -> (* None *)
let v143 : bool = "Debug" = v133
let v147 : US2 =
if v143 then
let v144 : US0 = US0_1
US2_0(v144)
else
US2_1
match v147 with
| US2_1 -> (* None *)
let v151 : bool = "Info" = v133
let v155 : US2 =
if v151 then
let v152 : US0 = US0_2
US2_0(v152)
else
US2_1
match v155 with
| US2_1 -> (* None *)
let v159 : bool = "Warning" = v133
let v163 : US2 =
if v159 then
let v160 : US0 = US0_3
US2_0(v160)
else
US2_1
match v163 with
| US2_1 -> (* None *)
let v167 : bool = "Critical" = v133
let v171 : US2 =
if v167 then
let v168 : US0 = US0_4
US2_0(v168)
else
US2_1
match v171 with
| US2_1 -> (* None *)
US2_1
| US2_0(v172) -> (* Some *)
US2_0(v172)
| US2_0(v164) -> (* Some *)
US2_0(v164)
| US2_0(v156) -> (* Some *)
US2_0(v156)
| US2_0(v148) -> (* Some *)
US2_0(v148)
| US2_0(v140) -> (* Some *)
US2_0(v140)
let v185 : string = method3()
let v186 : string = method1(v185)
let v188 : bool = v186 = "True"
let v194 : US1 =
if v188 then
let v189 : System.DateTime = System.DateTime.Now
let v190 : (System.DateTime -> int64) = _.Ticks
let v191 : int64 = v190 v189
US1_0(v191)
else
US1_1
struct (v194, v184)
#endif
#else
let v195 : string = method0()
let v196 : string = method1(v195)
let v198 : bool = "Verbose" = v196
let v202 : US2 =
if v198 then
let v199 : US0 = US0_0
US2_0(v199)
else
US2_1
let v247 : US2 =
match v202 with
| US2_1 -> (* None *)
let v206 : bool = "Debug" = v196
let v210 : US2 =
if v206 then
let v207 : US0 = US0_1
US2_0(v207)
else
US2_1
match v210 with
| US2_1 -> (* None *)
let v214 : bool = "Info" = v196
let v218 : US2 =
if v214 then
let v215 : US0 = US0_2
US2_0(v215)
else
US2_1
match v218 with
| US2_1 -> (* None *)
let v222 : bool = "Warning" = v196
let v226 : US2 =
if v222 then
let v223 : US0 = US0_3
US2_0(v223)
else
US2_1
match v226 with
| US2_1 -> (* None *)
let v230 : bool = "Critical" = v196
let v234 : US2 =
if v230 then
let v231 : US0 = US0_4
US2_0(v231)
else
US2_1
match v234 with
| US2_1 -> (* None *)
US2_1
| US2_0(v235) -> (* Some *)
US2_0(v235)
| US2_0(v227) -> (* Some *)
US2_0(v227)
| US2_0(v219) -> (* Some *)
US2_0(v219)
| US2_0(v211) -> (* Some *)
US2_0(v211)
| US2_0(v203) -> (* Some *)
US2_0(v203)
let v248 : string = method3()
let v249 : string = method1(v248)
let v251 : bool = v249 = "True"
let v257 : US1 =
if v251 then
let v252 : System.DateTime = System.DateTime.Now
let v253 : (System.DateTime -> int64) = _.Ticks
let v254 : int64 = v253 v252
US1_0(v254)
else
US1_1
struct (v257, v247)
#endif
|> fun x -> _v1 <- Some x
let struct (v258 : US1, v259 : US2) = match _v1 with Some x -> x | None -> failwith "base.run_target / _v1=None"
let v260 : Mut1 = {l0 = true} : Mut1
let v261 : Mut0 = {l0 = 0L} : Mut0
let v264 : US0 =
match v259 with
| US2_1 -> (* None *)
v0
| US2_0(v262) -> (* Some *)
v262
let v265 : Mut2 = {l0 = v264} : Mut2
let v266 : (string -> unit) = closure1()
let v267 : Mut3 = {l0 = v266} : Mut3
let v272 : int64 option =
match v258 with
| US1_1 -> (* None *)
let v270 : int64 option = None
v270
| US1_0(v268) -> (* Some *)
let v269 : int64 option = Some v268
v269
struct (v261, v260, v265, v272, v267)
and closure4 (v0 : int32, v1 : string) () : string =
let v2 : string = $"networking.test_port_open / port: {v0} / ex: {v1}"
v2
and closure5 () () : string =
let v0 : string = ""
v0
and method5 () : string =
let v0 : string = "hh:mm:ss"
v0
and method6 () : string =
let v0 : string = ""
v0
and method7 () : string =
let v0 : string = "HH:mm:ss"
v0
and closure6 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : string =
let v3 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v4 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v3 v4 |> Some
let struct (v5 : Mut0, v6 : Mut1, v7 : Mut2, v8 : int64 option, v9 : Mut3) = State.trace_state.Value
let v10 : bool = true
let mutable _v10 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v11 : US1 option = None
let _v11 = ref v11
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v12 : int64 = x
let v13 : US1 = US1_0(v12)
v13
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v11.Value <- x
let v14 : US1 option = _v11.Value
let v15 : US1 = US1_1
let v16 : US1 = v14 |> Option.defaultValue v15
let v35 : System.DateTime =
match v16 with
| US1_1 -> (* None *)
let v33 : System.DateTime = System.DateTime.Now
v33
| US1_0(v17) -> (* Some *)
let v18 : System.DateTime = System.DateTime.Now
let v19 : (System.DateTime -> int64) = _.Ticks
let v20 : int64 = v19 v18
let v21 : int64 = v20 - v17
let v22 : (int64 -> System.TimeSpan) = System.TimeSpan
let v23 : System.TimeSpan = v22 v21
let v24 : (System.TimeSpan -> int32) = _.Hours
let v25 : int32 = v24 v23
let v26 : (System.TimeSpan -> int32) = _.Minutes
let v27 : int32 = v26 v23
let v28 : (System.TimeSpan -> int32) = _.Seconds
let v29 : int32 = v28 v23
let v30 : (System.TimeSpan -> int32) = _.Milliseconds
let v31 : int32 = v30 v23
let v32 : System.DateTime = System.DateTime (1, 1, 1, v25, v27, v29, v31)
v32
let v36 : string = method5()
let v37 : string = v35.ToString v36
v37
#endif
#if FABLE_COMPILER_RUST && WASM
let v38 : US1 option = None
let _v38 = ref v38
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v39 : int64 = x
let v40 : US1 = US1_0(v39)
v40
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v38.Value <- x
let v41 : US1 option = _v38.Value
let v42 : US1 = US1_1
let v43 : US1 = v41 |> Option.defaultValue v42
let v62 : System.DateTime =
match v43 with
| US1_1 -> (* None *)
let v60 : System.DateTime = System.DateTime.Now
v60
| US1_0(v44) -> (* Some *)
let v45 : System.DateTime = System.DateTime.Now
let v46 : (System.DateTime -> int64) = _.Ticks
let v47 : int64 = v46 v45
let v48 : int64 = v47 - v44
let v49 : (int64 -> System.TimeSpan) = System.TimeSpan
let v50 : System.TimeSpan = v49 v48
let v51 : (System.TimeSpan -> int32) = _.Hours
let v52 : int32 = v51 v50
let v53 : (System.TimeSpan -> int32) = _.Minutes
let v54 : int32 = v53 v50
let v55 : (System.TimeSpan -> int32) = _.Seconds
let v56 : int32 = v55 v50
let v57 : (System.TimeSpan -> int32) = _.Milliseconds
let v58 : int32 = v57 v50
let v59 : System.DateTime = System.DateTime (1, 1, 1, v52, v54, v56, v58)
v59
let v63 : string = method5()
let v64 : string = v62.ToString v63
v64
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v65 : string = method6()
v65
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v66 : US1 option = None
let _v66 = ref v66
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v67 : int64 = x
let v68 : US1 = US1_0(v67)
v68
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v66.Value <- x
let v69 : US1 option = _v66.Value
let v70 : US1 = US1_1
let v71 : US1 = v69 |> Option.defaultValue v70
let v90 : System.DateTime =
match v71 with
| US1_1 -> (* None *)
let v88 : System.DateTime = System.DateTime.Now
v88
| US1_0(v72) -> (* Some *)
let v73 : System.DateTime = System.DateTime.Now
let v74 : (System.DateTime -> int64) = _.Ticks
let v75 : int64 = v74 v73
let v76 : int64 = v75 - v72
let v77 : (int64 -> System.TimeSpan) = System.TimeSpan
let v78 : System.TimeSpan = v77 v76
let v79 : (System.TimeSpan -> int32) = _.Hours
let v80 : int32 = v79 v78
let v81 : (System.TimeSpan -> int32) = _.Minutes
let v82 : int32 = v81 v78
let v83 : (System.TimeSpan -> int32) = _.Seconds
let v84 : int32 = v83 v78
let v85 : (System.TimeSpan -> int32) = _.Milliseconds
let v86 : int32 = v85 v78
let v87 : System.DateTime = System.DateTime (1, 1, 1, v80, v82, v84, v86)
v87
let v91 : string = method7()
let v92 : string = v90.ToString v91
v92
#endif
#if FABLE_COMPILER_PYTHON
let v93 : US1 option = None
let _v93 = ref v93
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v94 : int64 = x
let v95 : US1 = US1_0(v94)
v95
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v93.Value <- x
let v96 : US1 option = _v93.Value
let v97 : US1 = US1_1
let v98 : US1 = v96 |> Option.defaultValue v97
let v117 : System.DateTime =
match v98 with
| US1_1 -> (* None *)
let v115 : System.DateTime = System.DateTime.Now
v115
| US1_0(v99) -> (* Some *)
let v100 : System.DateTime = System.DateTime.Now
let v101 : (System.DateTime -> int64) = _.Ticks
let v102 : int64 = v101 v100
let v103 : int64 = v102 - v99
let v104 : (int64 -> System.TimeSpan) = System.TimeSpan
let v105 : System.TimeSpan = v104 v103
let v106 : (System.TimeSpan -> int32) = _.Hours
let v107 : int32 = v106 v105
let v108 : (System.TimeSpan -> int32) = _.Minutes
let v109 : int32 = v108 v105
let v110 : (System.TimeSpan -> int32) = _.Seconds
let v111 : int32 = v110 v105
let v112 : (System.TimeSpan -> int32) = _.Milliseconds
let v113 : int32 = v112 v105
let v114 : System.DateTime = System.DateTime (1, 1, 1, v107, v109, v111, v113)
v114
let v118 : string = method7()
let v119 : string = v117.ToString v118
v119
#endif
#else
let v120 : US1 option = None
let _v120 = ref v120
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v121 : int64 = x
let v122 : US1 = US1_0(v121)
v122
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v120.Value <- x
let v123 : US1 option = _v120.Value
let v124 : US1 = US1_1
let v125 : US1 = v123 |> Option.defaultValue v124
let v144 : System.DateTime =
match v125 with
| US1_1 -> (* None *)
let v142 : System.DateTime = System.DateTime.Now
v142
| US1_0(v126) -> (* Some *)
let v127 : System.DateTime = System.DateTime.Now
let v128 : (System.DateTime -> int64) = _.Ticks
let v129 : int64 = v128 v127
let v130 : int64 = v129 - v126
let v131 : (int64 -> System.TimeSpan) = System.TimeSpan
let v132 : System.TimeSpan = v131 v130
let v133 : (System.TimeSpan -> int32) = _.Hours
let v134 : int32 = v133 v132
let v135 : (System.TimeSpan -> int32) = _.Minutes
let v136 : int32 = v135 v132
let v137 : (System.TimeSpan -> int32) = _.Seconds
let v138 : int32 = v137 v132
let v139 : (System.TimeSpan -> int32) = _.Milliseconds
let v140 : int32 = v139 v132
let v141 : System.DateTime = System.DateTime (1, 1, 1, v134, v136, v138, v140)
v141
let v145 : string = method7()
let v146 : string = v144.ToString v145
v146
#endif
|> fun x -> _v10 <- Some x
let v147 : string = match _v10 with Some x -> x | None -> failwith "base.run_target / _v10=None"
let v150 : bool =
match v0 with
| US0_0 -> (* Verbose *)
true
| _ ->
false
let v154 : US3 =
if v150 then
let v151 : string = "Verbose"
US3_0(v151)
else
US3_1
let v203 : US3 =
match v154 with
| US3_1 -> (* None *)
let v159 : bool =
match v0 with
| US0_1 -> (* Debug *)
true
| _ ->
false
let v163 : US3 =
if v159 then
let v160 : string = "Debug"
US3_0(v160)
else
US3_1
match v163 with
| US3_1 -> (* None *)
let v168 : bool =
match v0 with
| US0_2 -> (* Info *)
true
| _ ->
false
let v172 : US3 =
if v168 then
let v169 : string = "Info"
US3_0(v169)
else
US3_1
match v172 with
| US3_1 -> (* None *)
let v177 : bool =
match v0 with
| US0_3 -> (* Warning *)
true
| _ ->
false
let v181 : US3 =
if v177 then
let v178 : string = "Warning"
US3_0(v178)
else
US3_1
match v181 with
| US3_1 -> (* None *)
let v186 : bool =
match v0 with
| US0_4 -> (* Critical *)
true
| _ ->
false
let v190 : US3 =
if v186 then
let v187 : string = "Critical"
US3_0(v187)
else
US3_1
match v190 with
| US3_1 -> (* None *)
US3_1
| US3_0(v191) -> (* Some *)
US3_0(v191)
| US3_0(v182) -> (* Some *)
US3_0(v182)
| US3_0(v173) -> (* Some *)
US3_0(v173)
| US3_0(v164) -> (* Some *)
US3_0(v164)
| US3_0(v155) -> (* Some *)
US3_0(v155)
let v207 : string =
match v203 with
| US3_1 -> (* None *)
failwith<string> "Option does not have a value."
| US3_0(v204) -> (* Some *)
v204
let v208 : (unit -> string) = v207.ToLower
let v209 : string = v208 ()
let v210 : string = v209.PadLeft (7, ' ')
let v211 : bool = true
let mutable _v211 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v226 : Ref<Str> =
match v0 with
| US0_4 -> (* Critical *)
let v220 : string = "inline_colorization::color_bright_red"
let v221 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v220
v221
| US0_1 -> (* Debug *)
let v214 : string = "inline_colorization::color_bright_blue"
let v215 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v214
v215
| US0_2 -> (* Info *)
let v216 : string = "inline_colorization::color_bright_green"
let v217 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v216
v217
| US0_0 -> (* Verbose *)
let v212 : string = "inline_colorization::color_bright_black"
let v213 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v212
v213
| US0_3 -> (* Warning *)
let v218 : string = "inline_colorization::color_yellow"
let v219 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v218
v219
let v227 : string = "&*$0"
let v228 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v210 v227
let v229 : string = "inline_colorization::color_reset"
let v230 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v229
let v231 : string = "\"{v226}{v228}{v230}\""
let v232 : string = @$"format!(" + v231 + ")"
let v233 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v232
let v234 : string = "fable_library_rust::String_::fromString($0)"
let v235 : string = Fable.Core.RustInterop.emitRustExpr v233 v234
v235
#endif
#if FABLE_COMPILER_RUST && WASM
let v250 : Ref<Str> =
match v0 with
| US0_4 -> (* Critical *)
let v244 : string = "inline_colorization::color_bright_red"
let v245 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v244
v245
| US0_1 -> (* Debug *)
let v238 : string = "inline_colorization::color_bright_blue"
let v239 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v238
v239
| US0_2 -> (* Info *)
let v240 : string = "inline_colorization::color_bright_green"
let v241 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v240
v241
| US0_0 -> (* Verbose *)
let v236 : string = "inline_colorization::color_bright_black"
let v237 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v236
v237
| US0_3 -> (* Warning *)
let v242 : string = "inline_colorization::color_yellow"
let v243 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v242
v243
let v251 : string = "&*$0"
let v252 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v210 v251
let v253 : string = "inline_colorization::color_reset"
let v254 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v253
let v255 : string = "\"{v250}{v252}{v254}\""
let v256 : string = @$"format!(" + v255 + ")"
let v257 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v256
let v258 : string = "fable_library_rust::String_::fromString($0)"
let v259 : string = Fable.Core.RustInterop.emitRustExpr v257 v258
v259
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v274 : Ref<Str> =
match v0 with
| US0_4 -> (* Critical *)
let v268 : string = "inline_colorization::color_bright_red"
let v269 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v268
v269
| US0_1 -> (* Debug *)
let v262 : string = "inline_colorization::color_bright_blue"
let v263 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v262
v263
| US0_2 -> (* Info *)
let v264 : string = "inline_colorization::color_bright_green"
let v265 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v264
v265
| US0_0 -> (* Verbose *)
let v260 : string = "inline_colorization::color_bright_black"
let v261 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v260
v261
| US0_3 -> (* Warning *)
let v266 : string = "inline_colorization::color_yellow"
let v267 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v266
v267
let v275 : string = "&*$0"
let v276 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v210 v275
let v277 : string = "inline_colorization::color_reset"
let v278 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v277
let v279 : string = "\"{v274}{v276}{v278}\""
let v280 : string = @$"format!(" + v279 + ")"
let v281 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v280
let v282 : string = "fable_library_rust::String_::fromString($0)"
let v283 : string = Fable.Core.RustInterop.emitRustExpr v281 v282
v283
#endif
#if FABLE_COMPILER_TYPESCRIPT
v210
#endif
#if FABLE_COMPILER_PYTHON
v210
#endif
#else
v210
#endif
|> fun x -> _v211 <- Some x
let v284 : string = match _v211 with Some x -> x | None -> failwith "base.run_target / _v211=None"
let v285 : int64 = v5.l0
let v286 : string = $"{v147} {v284} #{v285} %s{v1 ()} / %s{v2 ()}"
let v287 : (char []) = [||]
let v288 : string = v286.TrimStart v287
let v289 : (char []) = [|' '; '/'|]
let v290 : string = v288.TrimEnd v289
v290
and method8 (v0 : US0, v1 : (unit -> string)) : unit =
let v2 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v3 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v2 v3 |> Some
let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : Mut3) = State.trace_state.Value
let v9 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v2 v9 |> Some
let struct (v10 : Mut0, v11 : Mut1, v12 : Mut2, v13 : int64 option, v14 : Mut3) = State.trace_state.Value
let v15 : US0 = v12.l0
let v16 : bool = v11.l0
let v17 : bool = v16 = false
let v21 : bool =
if v17 then
false
else
let v18 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; US0_4, 4 ] |> Map |> Map.find v0
let v19 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; US0_4, 4 ] |> Map |> Map.find v15
let v20 : bool = v18 >= v19
v20
if v21 then
let v22 : int64 = v4.l0
let v23 : int64 = v22 + 1L
v4.l0 <- v23
let v24 : string = $"%s{v1 ()}"
let v25 : bool = true
let mutable _v25 : unit option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v26 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v26
()
#endif
#if FABLE_COMPILER_RUST && WASM
let v27 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v27
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v28 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v28
()
#endif
#if FABLE_COMPILER_TYPESCRIPT
System.Console.WriteLine v24
()
#endif
#if FABLE_COMPILER_PYTHON
System.Console.WriteLine v24
()
#endif
#else
System.Console.WriteLine v24
()
#endif
|> fun x -> _v25 <- Some x
match _v25 with Some x -> x | None -> failwith "base.run_target / _v25=None"
let v29 : (string -> unit) = v8.l0
v29 v24
and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
let v3 : (unit -> string) = closure6(v0, v1, v2)
method8(v0, v3)
and closure3 (v0 : string) (v1 : int32) : Async<bool> =
let v2 : bool = true
let mutable _v2 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : Async<bool> = null |> unbox<Async<bool>>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : Async<bool> = null |> unbox<Async<bool>>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : Async<bool> = null |> unbox<Async<bool>>
v5
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v6 : Async<bool> = null |> unbox<Async<bool>>
v6
#endif
#if FABLE_COMPILER_PYTHON
let v7 : Async<bool> = null |> unbox<Async<bool>>
v7
#endif
#else
let v8 : Async<bool> option = None
let mutable _v8 = v8
async {
let v9 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v9 = v9
let v10 : System.Threading.CancellationToken = v9
let v11 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v11 = v11
let v12 : System.Net.Sockets.TcpClient = v11
try
let v13 : System.Threading.Tasks.ValueTask = v12.ConnectAsync (v0, v1, v10)
let v14 : (unit -> System.Threading.Tasks.Task) = v13.AsTask
let v15 : System.Threading.Tasks.Task = v14 ()
let v16 : bool = true
let mutable _v16 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v17 : Async<unit> = null |> unbox<Async<unit>>
v17
#endif
#if FABLE_COMPILER_RUST && WASM
let v18 : Async<unit> = null |> unbox<Async<unit>>
v18
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v19 : Async<unit> = null |> unbox<Async<unit>>
v19
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v20 : Async<unit> = null |> unbox<Async<unit>>
v20
#endif
#if FABLE_COMPILER_PYTHON
let v21 : Async<unit> = null |> unbox<Async<unit>>
v21
#endif
#else
let v22 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v23 : Async<unit> = v22 v15
v23
#endif
|> fun x -> _v16 <- Some x
let v24 : Async<unit> = match _v16 with Some x -> x | None -> failwith "base.run_target / _v16=None"
do! v24
return true
with ex ->
let v25 : exn = ex
let v26 : bool = true
let mutable _v26 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v27 : string = $"%A{v25}"
v27
#endif
#if FABLE_COMPILER_RUST && WASM
let v28 : string = $"%A{v25}"
v28
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v29 : string = $"%A{v25}"
v29
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v30 : string = $"%A{v25}"
v30
#endif
#if FABLE_COMPILER_PYTHON
let v31 : string = $"%A{v25}"
v31
#endif
#else
let v32 : string = $"{v25.GetType ()}: {v25.Message}"
v32
#endif
|> fun x -> _v26 <- Some x
let v33 : string = match _v26 with Some x -> x | None -> failwith "base.run_target / _v26=None"
let v34 : US0 = US0_0
let v35 : (unit -> string) = closure4(v1, v33)
let v36 : (unit -> string) = closure5()
method4(v34, v35, v36)
return false
(*
let v37 : bool = *)
}
|> fun x -> _v8 <- Some x
let v38 : Async<bool> = match _v8 with Some x -> x | None -> failwith "async.new_async_unit / _v8=None"
v38
#endif
|> fun x -> _v2 <- Some x
let v39 : Async<bool> = match _v2 with Some x -> x | None -> failwith "base.run_target / _v2=None"
v39
and closure2 () (v0 : string) : (int32 -> Async<bool>) =
closure3(v0)
and closure10 () (v0 : bool) : US5 =
US5_0(v0)
and closure11 () (v0 : exn) : US5 =
US5_1(v0)
and closure12 () () : string =
let v0 : string = "async.run_with_timeout_async"
v0
and closure13 (v0 : int32) () : string =
let v1 : (unit -> string) = closure5()
let v2 : string = $"timeout: {v0} / {v1 ()}"
v2
and closure14 (v0 : string) () : string =
let v1 : string = $"async.run_with_timeout_async** / ex: {v0}"
v1
and closure9 (v0 : int32, v1 : string) (v2 : int32) : Async<bool> =
let v3 : bool = true
let mutable _v3 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v4 : Async<bool> = null |> unbox<Async<bool>>
v4
#endif
#if FABLE_COMPILER_RUST && WASM
let v5 : Async<bool> = null |> unbox<Async<bool>>
v5
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v6 : Async<bool> = null |> unbox<Async<bool>>
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : Async<bool> = null |> unbox<Async<bool>>
v7
#endif
#if FABLE_COMPILER_PYTHON
let v8 : Async<bool> = null |> unbox<Async<bool>>
v8
#endif
#else
let v9 : Async<bool> option = None
let mutable _v9 = v9
async {
let v10 : bool = true
let mutable _v10 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v11 : Async<bool> = null |> unbox<Async<bool>>
v11
#endif
#if FABLE_COMPILER_RUST && WASM
let v12 : Async<bool> = null |> unbox<Async<bool>>
v12
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v13 : Async<bool> = null |> unbox<Async<bool>>
v13
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v14 : Async<bool> = null |> unbox<Async<bool>>
v14
#endif
#if FABLE_COMPILER_PYTHON
let v15 : Async<bool> = null |> unbox<Async<bool>>
v15
#endif
#else
let v16 : Async<bool> option = None
let mutable _v16 = v16
async {
let v17 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v17 = v17
let v18 : System.Threading.CancellationToken = v17
let v19 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v19 = v19
let v20 : System.Net.Sockets.TcpClient = v19
try
let v21 : System.Threading.Tasks.ValueTask = v20.ConnectAsync (v1, v2, v18)
let v22 : (unit -> System.Threading.Tasks.Task) = v21.AsTask
let v23 : System.Threading.Tasks.Task = v22 ()
let v24 : bool = true
let mutable _v24 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v25 : Async<unit> = null |> unbox<Async<unit>>
v25
#endif
#if FABLE_COMPILER_RUST && WASM
let v26 : Async<unit> = null |> unbox<Async<unit>>
v26
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v27 : Async<unit> = null |> unbox<Async<unit>>
v27
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v28 : Async<unit> = null |> unbox<Async<unit>>
v28
#endif
#if FABLE_COMPILER_PYTHON
let v29 : Async<unit> = null |> unbox<Async<unit>>
v29
#endif
#else
let v30 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v31 : Async<unit> = v30 v23
v31
#endif
|> fun x -> _v24 <- Some x
let v32 : Async<unit> = match _v24 with Some x -> x | None -> failwith "base.run_target / _v24=None"
do! v32
return true
with ex ->
let v33 : exn = ex
let v34 : bool = true
let mutable _v34 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v35 : string = $"%A{v33}"
v35
#endif
#if FABLE_COMPILER_RUST && WASM
let v36 : string = $"%A{v33}"
v36
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v37 : string = $"%A{v33}"
v37
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v38 : string = $"%A{v33}"
v38
#endif
#if FABLE_COMPILER_PYTHON
let v39 : string = $"%A{v33}"
v39
#endif
#else
let v40 : string = $"{v33.GetType ()}: {v33.Message}"
v40
#endif
|> fun x -> _v34 <- Some x
let v41 : string = match _v34 with Some x -> x | None -> failwith "base.run_target / _v34=None"
let v42 : US0 = US0_0
let v43 : (unit -> string) = closure4(v2, v41)
let v44 : (unit -> string) = closure5()
method4(v42, v43, v44)
return false
(*
let v45 : bool = *)
}
|> fun x -> _v16 <- Some x
let v46 : Async<bool> = match _v16 with Some x -> x | None -> failwith "async.new_async_unit / _v16=None"
v46
#endif
|> fun x -> _v10 <- Some x
let v47 : Async<bool> = match _v10 with Some x -> x | None -> failwith "base.run_target / _v10=None"
let v48 : bool = true
let mutable _v48 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v49 : Async<US4> = null |> unbox<Async<US4>>
v49
#endif
#if FABLE_COMPILER_RUST && WASM
let v50 : Async<US4> = null |> unbox<Async<US4>>
v50
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v51 : Async<US4> = null |> unbox<Async<US4>>
v51
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v52 : Async<US4> = null |> unbox<Async<US4>>
v52
#endif
#if FABLE_COMPILER_PYTHON
let v53 : Async<US4> = null |> unbox<Async<US4>>
v53
#endif
#else
let v54 : bool = true
let mutable _v54 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v55 : Async<US4> = null |> unbox<Async<US4>>
v55
#endif
#if FABLE_COMPILER_RUST && WASM
let v56 : Async<US4> = null |> unbox<Async<US4>>
v56
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v57 : Async<US4> = null |> unbox<Async<US4>>
v57
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v58 : Async<US4> = null |> unbox<Async<US4>>
v58
#endif
#if FABLE_COMPILER_PYTHON
let v59 : Async<US4> = null |> unbox<Async<US4>>
v59
#endif
#else
let v60 : Async<US4> option = None
let mutable _v60 = v60
async {
let v61 : bool = true
let mutable _v61 : Async<Async<bool>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v62 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v62
#endif
#if FABLE_COMPILER_RUST && WASM
let v63 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v63
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v64 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v64
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v65 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v65
#endif
#if FABLE_COMPILER_PYTHON
let v66 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v66
#endif
#else
let v67 : Async<Async<bool>> = Async.StartChild (v47, v0)
v67
#endif
|> fun x -> _v61 <- Some x
let v68 : Async<Async<bool>> = match _v61 with Some x -> x | None -> failwith "base.run_target / _v61=None"
let! v68 = v68
let v69 : Async<bool> = v68
let v70 : bool = true
let mutable _v70 : Async<Choice<bool, exn>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v71 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v71
#endif
#if FABLE_COMPILER_RUST && WASM
let v72 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v72
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v73 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v73
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v74 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v74
#endif
#if FABLE_COMPILER_PYTHON
let v75 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v75
#endif
#else
let v76 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch
let v77 : Async<Choice<bool, exn>> = v76 v69
v77
#endif
|> fun x -> _v70 <- Some x
let v78 : Async<Choice<bool, exn>> = match _v70 with Some x -> x | None -> failwith "base.run_target / _v70=None"
let v79 : bool = true
let mutable _v79 : Async<US5> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v80 : Async<US5> = null |> unbox<Async<US5>>
v80
#endif
#if FABLE_COMPILER_RUST && WASM
let v81 : Async<US5> = null |> unbox<Async<US5>>
v81
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v82 : Async<US5> = null |> unbox<Async<US5>>
v82
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v83 : Async<US5> = null |> unbox<Async<US5>>
v83
#endif
#if FABLE_COMPILER_PYTHON
let v84 : Async<US5> = null |> unbox<Async<US5>>
v84
#endif
#else
let v85 : Async<US5> option = None
let mutable _v85 = v85
async {
let! v78 = v78
let v86 : Choice<bool, exn> = v78
let v87 : bool = true
let mutable _v87 : US5 option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v88 : US5 = null |> unbox<US5>
v88
#endif
#if FABLE_COMPILER_RUST && WASM
let v89 : US5 = null |> unbox<US5>
v89
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v90 : US5 = null |> unbox<US5>
v90
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v91 : US5 = null |> unbox<US5>
v91
#endif
#if FABLE_COMPILER_PYTHON
let v92 : US5 = null |> unbox<US5>
v92
#endif
#else
let v93 : (bool -> US5) = closure10()
let v94 : (exn -> US5) = closure11()
let v95 : US5 = match v86 with Choice1Of2 x -> v93 x | Choice2Of2 x -> v94 x
v95
#endif
|> fun x -> _v87 <- Some x
let v96 : US5 = match _v87 with Some x -> x | None -> failwith "base.run_target / _v87=None"
return v96
}
|> fun x -> _v85 <- Some x
let v97 : Async<US5> = match _v85 with Some x -> x | None -> failwith "async.new_async_unit / _v85=None"
v97
#endif
|> fun x -> _v79 <- Some x
let v98 : Async<US5> = match _v79 with Some x -> x | None -> failwith "base.run_target / _v79=None"
let v99 : bool = true
let mutable _v99 : Async<US6> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v100 : Async<US6> = null |> unbox<Async<US6>>
v100
#endif
#if FABLE_COMPILER_RUST && WASM
let v101 : Async<US6> = null |> unbox<Async<US6>>
v101
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v102 : Async<US6> = null |> unbox<Async<US6>>
v102
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v103 : Async<US6> = null |> unbox<Async<US6>>
v103
#endif
#if FABLE_COMPILER_PYTHON
let v104 : Async<US6> = null |> unbox<Async<US6>>
v104
#endif
#else
let v105 : Async<US6> option = None
let mutable _v105 = v105
async {
let! v98 = v98
let v106 : US5 = v98
let v112 : US6 =
match v106 with
| US5_0(v107) -> (* C1of2 *)
US6_0(v107)
| US5_1(v109) -> (* C2of2 *)
US6_1(v109)
return v112
}
|> fun x -> _v105 <- Some x
let v113 : Async<US6> = match _v105 with Some x -> x | None -> failwith "async.new_async_unit / _v105=None"
v113
#endif
|> fun x -> _v99 <- Some x
let v114 : Async<US6> = match _v99 with Some x -> x | None -> failwith "base.run_target / _v99=None"
let v115 : bool = true
let mutable _v115 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v116 : Async<US4> = null |> unbox<Async<US4>>
v116
#endif
#if FABLE_COMPILER_RUST && WASM
let v117 : Async<US4> = null |> unbox<Async<US4>>
v117
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v118 : Async<US4> = null |> unbox<Async<US4>>
v118
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v119 : Async<US4> = null |> unbox<Async<US4>>
v119
#endif
#if FABLE_COMPILER_PYTHON
let v120 : Async<US4> = null |> unbox<Async<US4>>
v120
#endif
#else
let v121 : Async<US4> option = None
let mutable _v121 = v121
async {
let! v114 = v114
let v122 : US6 = v114
let v147 : US4 =
match v122 with
| US6_1(v125) -> (* Error *)
let v126 : string = $"%A{v125}"
let v127 : string = "System.TimeoutException"
let v128 : bool = v126.Contains v127
if v128 then
let v129 : US0 = US0_1
let v130 : (unit -> string) = closure12()
let v131 : (unit -> string) = closure13(v0)
method4(v129, v130, v131)
US4_1
else
let v133 : bool = true
let mutable _v133 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v134 : string = $"%A{v125}"
v134
#endif
#if FABLE_COMPILER_RUST && WASM
let v135 : string = $"%A{v125}"
v135
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v136 : string = $"%A{v125}"
v136
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v137 : string = $"%A{v125}"
v137
#endif
#if FABLE_COMPILER_PYTHON
let v138 : string = $"%A{v125}"
v138
#endif
#else
let v139 : string = $"{v125.GetType ()}: {v125.Message}"
v139
#endif
|> fun x -> _v133 <- Some x
let v140 : string = match _v133 with Some x -> x | None -> failwith "base.run_target / _v133=None"
let v141 : US0 = US0_4
let v142 : (unit -> string) = closure14(v140)
let v143 : (unit -> string) = closure13(v0)
method4(v141, v142, v143)
US4_1
| US6_0(v123) -> (* Ok *)
US4_0(v123)
return v147
}
|> fun x -> _v121 <- Some x
let v148 : Async<US4> = match _v121 with Some x -> x | None -> failwith "async.new_async_unit / _v121=None"
v148
#endif
|> fun x -> _v115 <- Some x
let v149 : Async<US4> = match _v115 with Some x -> x | None -> failwith "base.run_target / _v115=None"
return! v149
}
|> fun x -> _v60 <- Some x
let v150 : Async<US4> = match _v60 with Some x -> x | None -> failwith "async.new_async_unit / _v60=None"
v150
#endif
|> fun x -> _v54 <- Some x
let v151 : Async<US4> = match _v54 with Some x -> x | None -> failwith "base.run_target / _v54=None"
v151
#endif
|> fun x -> _v48 <- Some x
let v152 : Async<US4> = match _v48 with Some x -> x | None -> failwith "base.run_target / _v48=None"
let! v152 = v152
let v153 : US4 = v152
let v156 : bool =
match v153 with
| US4_1 -> (* None *)
false
| US4_0(v154) -> (* Some *)
v154
return v156
}
|> fun x -> _v9 <- Some x
let v157 : Async<bool> = match _v9 with Some x -> x | None -> failwith "async.new_async_unit / _v9=None"
v157
#endif
|> fun x -> _v3 <- Some x
let v158 : Async<bool> = match _v3 with Some x -> x | None -> failwith "base.run_target / _v3=None"
v158
and closure8 (v0 : int32) (v1 : string) : (int32 -> Async<bool>) =
closure9(v0, v1)
and closure7 () (v0 : int32) : (string -> (int32 -> Async<bool>)) =
closure8(v0)
and closure19 () () : string =
let v0 : string = "networking.wait_for_port_access"
v0
and closure20 (v0 : int32 option, v1 : bool, v2 : int32, v3 : int64) () : string =
let v4 : (unit -> string) = closure5()
let v5 : string = $"port: {v2} / retry: {v3} / timeout: %A{v0} / status: {v1} / {v4 ()}"
v5
and method9 (v0 : int32 option, v1 : bool, v2 : string, v3 : int32, v4 : int64) : Async<int64> =
let v5 : bool = true
let mutable _v5 : Async<int64> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v6 : Async<int64> = null |> unbox<Async<int64>>
v6
#endif
#if FABLE_COMPILER_RUST && WASM
let v7 : Async<int64> = null |> unbox<Async<int64>>
v7
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v8 : Async<int64> = null |> unbox<Async<int64>>
v8
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v9 : Async<int64> = null |> unbox<Async<int64>>
v9
#endif
#if FABLE_COMPILER_PYTHON
let v10 : Async<int64> = null |> unbox<Async<int64>>
v10
#endif
#else
let v11 : Async<int64> option = None
let mutable _v11 = v11
async {
let v12 : US7 option = None
let _v12 = ref v12
match v0 with
| Some x -> (
(fun () ->
(fun () ->
let v13 : int32 = x
let v14 : US7 = US7_0(v13)
v14
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v12.Value <- x
let v15 : US7 option = _v12.Value
let v16 : US7 = US7_1
let v17 : US7 = v15 |> Option.defaultValue v16
let v214 : Async<bool> =
match v17 with
| US7_1 -> (* None *)
let v18 : bool = true
let mutable _v18 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v19 : Async<bool> = null |> unbox<Async<bool>>
v19
#endif
#if FABLE_COMPILER_RUST && WASM
let v20 : Async<bool> = null |> unbox<Async<bool>>
v20
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v21 : Async<bool> = null |> unbox<Async<bool>>
v21
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v22 : Async<bool> = null |> unbox<Async<bool>>
v22
#endif
#if FABLE_COMPILER_PYTHON
let v23 : Async<bool> = null |> unbox<Async<bool>>
v23
#endif
#else
let v24 : Async<bool> option = None
let mutable _v24 = v24
async {
let v25 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v25 = v25
let v26 : System.Threading.CancellationToken = v25
let v27 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v27 = v27
let v28 : System.Net.Sockets.TcpClient = v27
try
let v29 : System.Threading.Tasks.ValueTask = v28.ConnectAsync (v2, v3, v26)
let v30 : (unit -> System.Threading.Tasks.Task) = v29.AsTask
let v31 : System.Threading.Tasks.Task = v30 ()
let v32 : bool = true
let mutable _v32 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v33 : Async<unit> = null |> unbox<Async<unit>>
v33
#endif
#if FABLE_COMPILER_RUST && WASM
let v34 : Async<unit> = null |> unbox<Async<unit>>
v34
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v35 : Async<unit> = null |> unbox<Async<unit>>
v35
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v36 : Async<unit> = null |> unbox<Async<unit>>
v36
#endif
#if FABLE_COMPILER_PYTHON
let v37 : Async<unit> = null |> unbox<Async<unit>>
v37
#endif
#else
let v38 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v39 : Async<unit> = v38 v31
v39
#endif
|> fun x -> _v32 <- Some x
let v40 : Async<unit> = match _v32 with Some x -> x | None -> failwith "base.run_target / _v32=None"
do! v40
return true
with ex ->
let v41 : exn = ex
let v42 : bool = true
let mutable _v42 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v43 : string = $"%A{v41}"
v43
#endif
#if FABLE_COMPILER_RUST && WASM
let v44 : string = $"%A{v41}"
v44
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v45 : string = $"%A{v41}"
v45
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v46 : string = $"%A{v41}"
v46
#endif
#if FABLE_COMPILER_PYTHON
let v47 : string = $"%A{v41}"
v47
#endif
#else
let v48 : string = $"{v41.GetType ()}: {v41.Message}"
v48
#endif
|> fun x -> _v42 <- Some x
let v49 : string = match _v42 with Some x -> x | None -> failwith "base.run_target / _v42=None"
let v50 : US0 = US0_0
let v51 : (unit -> string) = closure4(v3, v49)
let v52 : (unit -> string) = closure5()
method4(v50, v51, v52)
return false
(*
let v53 : bool = *)
}
|> fun x -> _v24 <- Some x
let v54 : Async<bool> = match _v24 with Some x -> x | None -> failwith "async.new_async_unit / _v24=None"
v54
#endif
|> fun x -> _v18 <- Some x
let v55 : Async<bool> = match _v18 with Some x -> x | None -> failwith "base.run_target / _v18=None"
v55
| US7_0(v56) -> (* Some *)
let v57 : bool = true
let mutable _v57 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v58 : Async<bool> = null |> unbox<Async<bool>>
v58
#endif
#if FABLE_COMPILER_RUST && WASM
let v59 : Async<bool> = null |> unbox<Async<bool>>
v59
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v60 : Async<bool> = null |> unbox<Async<bool>>
v60
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v61 : Async<bool> = null |> unbox<Async<bool>>
v61
#endif
#if FABLE_COMPILER_PYTHON
let v62 : Async<bool> = null |> unbox<Async<bool>>
v62
#endif
#else
let v63 : Async<bool> option = None
let mutable _v63 = v63
async {
let v64 : bool = true
let mutable _v64 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v65 : Async<bool> = null |> unbox<Async<bool>>
v65
#endif
#if FABLE_COMPILER_RUST && WASM
let v66 : Async<bool> = null |> unbox<Async<bool>>
v66
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v67 : Async<bool> = null |> unbox<Async<bool>>
v67
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v68 : Async<bool> = null |> unbox<Async<bool>>
v68
#endif
#if FABLE_COMPILER_PYTHON
let v69 : Async<bool> = null |> unbox<Async<bool>>
v69
#endif
#else
let v70 : Async<bool> option = None
let mutable _v70 = v70
async {
let v71 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v71 = v71
let v72 : System.Threading.CancellationToken = v71
let v73 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v73 = v73
let v74 : System.Net.Sockets.TcpClient = v73
try
let v75 : System.Threading.Tasks.ValueTask = v74.ConnectAsync (v2, v3, v72)
let v76 : (unit -> System.Threading.Tasks.Task) = v75.AsTask
let v77 : System.Threading.Tasks.Task = v76 ()
let v78 : bool = true
let mutable _v78 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v79 : Async<unit> = null |> unbox<Async<unit>>
v79
#endif
#if FABLE_COMPILER_RUST && WASM
let v80 : Async<unit> = null |> unbox<Async<unit>>
v80
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v81 : Async<unit> = null |> unbox<Async<unit>>
v81
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v82 : Async<unit> = null |> unbox<Async<unit>>
v82
#endif
#if FABLE_COMPILER_PYTHON
let v83 : Async<unit> = null |> unbox<Async<unit>>
v83
#endif
#else
let v84 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v85 : Async<unit> = v84 v77
v85
#endif
|> fun x -> _v78 <- Some x
let v86 : Async<unit> = match _v78 with Some x -> x | None -> failwith "base.run_target / _v78=None"
do! v86
return true
with ex ->
let v87 : exn = ex
let v88 : bool = true
let mutable _v88 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v89 : string = $"%A{v87}"
v89
#endif
#if FABLE_COMPILER_RUST && WASM
let v90 : string = $"%A{v87}"
v90
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v91 : string = $"%A{v87}"
v91
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v92 : string = $"%A{v87}"
v92
#endif
#if FABLE_COMPILER_PYTHON
let v93 : string = $"%A{v87}"
v93
#endif
#else
let v94 : string = $"{v87.GetType ()}: {v87.Message}"
v94
#endif
|> fun x -> _v88 <- Some x
let v95 : string = match _v88 with Some x -> x | None -> failwith "base.run_target / _v88=None"
let v96 : US0 = US0_0
let v97 : (unit -> string) = closure4(v3, v95)
let v98 : (unit -> string) = closure5()
method4(v96, v97, v98)
return false
(*
let v99 : bool = *)
}
|> fun x -> _v70 <- Some x
let v100 : Async<bool> = match _v70 with Some x -> x | None -> failwith "async.new_async_unit / _v70=None"
v100
#endif
|> fun x -> _v64 <- Some x
let v101 : Async<bool> = match _v64 with Some x -> x | None -> failwith "base.run_target / _v64=None"
let v102 : bool = true
let mutable _v102 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v103 : Async<US4> = null |> unbox<Async<US4>>
v103
#endif
#if FABLE_COMPILER_RUST && WASM
let v104 : Async<US4> = null |> unbox<Async<US4>>
v104
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v105 : Async<US4> = null |> unbox<Async<US4>>
v105
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v106 : Async<US4> = null |> unbox<Async<US4>>
v106
#endif
#if FABLE_COMPILER_PYTHON
let v107 : Async<US4> = null |> unbox<Async<US4>>
v107
#endif
#else
let v108 : bool = true
let mutable _v108 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v109 : Async<US4> = null |> unbox<Async<US4>>
v109
#endif
#if FABLE_COMPILER_RUST && WASM
let v110 : Async<US4> = null |> unbox<Async<US4>>
v110
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v111 : Async<US4> = null |> unbox<Async<US4>>
v111
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v112 : Async<US4> = null |> unbox<Async<US4>>
v112
#endif
#if FABLE_COMPILER_PYTHON
let v113 : Async<US4> = null |> unbox<Async<US4>>
v113
#endif
#else
let v114 : Async<US4> option = None
let mutable _v114 = v114
async {
let v115 : bool = true
let mutable _v115 : Async<Async<bool>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v116 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v116
#endif
#if FABLE_COMPILER_RUST && WASM
let v117 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v117
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v118 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v118
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v119 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v119
#endif
#if FABLE_COMPILER_PYTHON
let v120 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v120
#endif
#else
let v121 : Async<Async<bool>> = Async.StartChild (v101, v56)
v121
#endif
|> fun x -> _v115 <- Some x
let v122 : Async<Async<bool>> = match _v115 with Some x -> x | None -> failwith "base.run_target / _v115=None"
let! v122 = v122
let v123 : Async<bool> = v122
let v124 : bool = true
let mutable _v124 : Async<Choice<bool, exn>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v125 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v125
#endif
#if FABLE_COMPILER_RUST && WASM
let v126 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v126
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v127 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v127
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v128 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v128
#endif
#if FABLE_COMPILER_PYTHON
let v129 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v129
#endif
#else
let v130 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch
let v131 : Async<Choice<bool, exn>> = v130 v123
v131
#endif
|> fun x -> _v124 <- Some x
let v132 : Async<Choice<bool, exn>> = match _v124 with Some x -> x | None -> failwith "base.run_target / _v124=None"
let v133 : bool = true
let mutable _v133 : Async<US5> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v134 : Async<US5> = null |> unbox<Async<US5>>
v134
#endif
#if FABLE_COMPILER_RUST && WASM
let v135 : Async<US5> = null |> unbox<Async<US5>>
v135
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v136 : Async<US5> = null |> unbox<Async<US5>>
v136
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v137 : Async<US5> = null |> unbox<Async<US5>>
v137
#endif
#if FABLE_COMPILER_PYTHON
let v138 : Async<US5> = null |> unbox<Async<US5>>
v138
#endif
#else
let v139 : Async<US5> option = None
let mutable _v139 = v139
async {
let! v132 = v132
let v140 : Choice<bool, exn> = v132
let v141 : bool = true
let mutable _v141 : US5 option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v142 : US5 = null |> unbox<US5>
v142
#endif
#if FABLE_COMPILER_RUST && WASM
let v143 : US5 = null |> unbox<US5>
v143
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v144 : US5 = null |> unbox<US5>
v144
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v145 : US5 = null |> unbox<US5>
v145
#endif
#if FABLE_COMPILER_PYTHON
let v146 : US5 = null |> unbox<US5>
v146
#endif
#else
let v147 : (bool -> US5) = closure10()
let v148 : (exn -> US5) = closure11()
let v149 : US5 = match v140 with Choice1Of2 x -> v147 x | Choice2Of2 x -> v148 x
v149
#endif
|> fun x -> _v141 <- Some x
let v150 : US5 = match _v141 with Some x -> x | None -> failwith "base.run_target / _v141=None"
return v150
}
|> fun x -> _v139 <- Some x
let v151 : Async<US5> = match _v139 with Some x -> x | None -> failwith "async.new_async_unit / _v139=None"
v151
#endif
|> fun x -> _v133 <- Some x
let v152 : Async<US5> = match _v133 with Some x -> x | None -> failwith "base.run_target / _v133=None"
let v153 : bool = true
let mutable _v153 : Async<US6> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v154 : Async<US6> = null |> unbox<Async<US6>>
v154
#endif
#if FABLE_COMPILER_RUST && WASM
let v155 : Async<US6> = null |> unbox<Async<US6>>
v155
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v156 : Async<US6> = null |> unbox<Async<US6>>
v156
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v157 : Async<US6> = null |> unbox<Async<US6>>
v157
#endif
#if FABLE_COMPILER_PYTHON
let v158 : Async<US6> = null |> unbox<Async<US6>>
v158
#endif
#else
let v159 : Async<US6> option = None
let mutable _v159 = v159
async {
let! v152 = v152
let v160 : US5 = v152
let v166 : US6 =
match v160 with
| US5_0(v161) -> (* C1of2 *)
US6_0(v161)
| US5_1(v163) -> (* C2of2 *)
US6_1(v163)
return v166
}
|> fun x -> _v159 <- Some x
let v167 : Async<US6> = match _v159 with Some x -> x | None -> failwith "async.new_async_unit / _v159=None"
v167
#endif
|> fun x -> _v153 <- Some x
let v168 : Async<US6> = match _v153 with Some x -> x | None -> failwith "base.run_target / _v153=None"
let v169 : bool = true
let mutable _v169 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v170 : Async<US4> = null |> unbox<Async<US4>>
v170
#endif
#if FABLE_COMPILER_RUST && WASM
let v171 : Async<US4> = null |> unbox<Async<US4>>
v171
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v172 : Async<US4> = null |> unbox<Async<US4>>
v172
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v173 : Async<US4> = null |> unbox<Async<US4>>
v173
#endif
#if FABLE_COMPILER_PYTHON
let v174 : Async<US4> = null |> unbox<Async<US4>>
v174
#endif
#else
let v175 : Async<US4> option = None
let mutable _v175 = v175
async {
let! v168 = v168
let v176 : US6 = v168
let v201 : US4 =
match v176 with
| US6_1(v179) -> (* Error *)
let v180 : string = $"%A{v179}"
let v181 : string = "System.TimeoutException"
let v182 : bool = v180.Contains v181
if v182 then
let v183 : US0 = US0_1
let v184 : (unit -> string) = closure12()
let v185 : (unit -> string) = closure13(v56)
method4(v183, v184, v185)
US4_1
else
let v187 : bool = true
let mutable _v187 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v188 : string = $"%A{v179}"
v188
#endif
#if FABLE_COMPILER_RUST && WASM
let v189 : string = $"%A{v179}"
v189
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v190 : string = $"%A{v179}"
v190
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v191 : string = $"%A{v179}"
v191
#endif
#if FABLE_COMPILER_PYTHON
let v192 : string = $"%A{v179}"
v192
#endif
#else
let v193 : string = $"{v179.GetType ()}: {v179.Message}"
v193
#endif
|> fun x -> _v187 <- Some x
let v194 : string = match _v187 with Some x -> x | None -> failwith "base.run_target / _v187=None"
let v195 : US0 = US0_4
let v196 : (unit -> string) = closure14(v194)
let v197 : (unit -> string) = closure13(v56)
method4(v195, v196, v197)
US4_1
| US6_0(v177) -> (* Ok *)
US4_0(v177)
return v201
}
|> fun x -> _v175 <- Some x
let v202 : Async<US4> = match _v175 with Some x -> x | None -> failwith "async.new_async_unit / _v175=None"
v202
#endif
|> fun x -> _v169 <- Some x
let v203 : Async<US4> = match _v169 with Some x -> x | None -> failwith "base.run_target / _v169=None"
return! v203
}
|> fun x -> _v114 <- Some x
let v204 : Async<US4> = match _v114 with Some x -> x | None -> failwith "async.new_async_unit / _v114=None"
v204
#endif
|> fun x -> _v108 <- Some x
let v205 : Async<US4> = match _v108 with Some x -> x | None -> failwith "base.run_target / _v108=None"
v205
#endif
|> fun x -> _v102 <- Some x
let v206 : Async<US4> = match _v102 with Some x -> x | None -> failwith "base.run_target / _v102=None"
let! v206 = v206
let v207 : US4 = v206
let v210 : bool =
match v207 with
| US4_1 -> (* None *)
false
| US4_0(v208) -> (* Some *)
v208
return v210
}
|> fun x -> _v63 <- Some x
let v211 : Async<bool> = match _v63 with Some x -> x | None -> failwith "async.new_async_unit / _v63=None"
v211
#endif
|> fun x -> _v57 <- Some x
let v212 : Async<bool> = match _v57 with Some x -> x | None -> failwith "base.run_target / _v57=None"
v212
let! v214 = v214
let v215 : bool = v214
let v216 : bool = v215 = v1
if v216 then
return v4
(*
()
else
*) else
let v217 : int64 = v4 % 100L
let v218 : bool = v217 = 0L
if v218 then
let v219 : US0 = US0_0
let v220 : (unit -> string) = closure19()
let v221 : (unit -> string) = closure20(v0, v1, v3, v4)
method4(v219, v220, v221)
let v222 : bool = true
let mutable _v222 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v223 : Async<unit> = null |> unbox<Async<unit>>
v223
#endif
#if FABLE_COMPILER_RUST && WASM
let v224 : Async<unit> = null |> unbox<Async<unit>>
v224
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v225 : Async<unit> = null |> unbox<Async<unit>>
v225
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v226 : Async<unit> = null |> unbox<Async<unit>>
v226
#endif
#if FABLE_COMPILER_PYTHON
let v227 : Async<unit> = null |> unbox<Async<unit>>
v227
#endif
#else
let v228 : (int32 -> Async<unit>) = Async.Sleep
let v229 : Async<unit> = v228 10
v229
#endif
|> fun x -> _v222 <- Some x
let v230 : Async<unit> = match _v222 with Some x -> x | None -> failwith "base.run_target / _v222=None"
do! v230
let v231 : int64 = v4 + 1L
let v232 : Async<int64> = method9(v0, v1, v2, v3, v231)
return! v232
(*
()
*)
}
|> fun x -> _v11 <- Some x
let v233 : Async<int64> = match _v11 with Some x -> x | None -> failwith "async.new_async_unit / _v11=None"
v233
#endif
|> fun x -> _v5 <- Some x
let v234 : Async<int64> = match _v5 with Some x -> x | None -> failwith "base.run_target / _v5=None"
v234
and closure18 (v0 : int32 option, v1 : bool, v2 : string) (v3 : int32) : Async<int64> =
let v4 : int64 = 0L
method9(v0, v1, v2, v3, v4)
and closure17 (v0 : int32 option, v1 : bool) (v2 : string) : (int32 -> Async<int64>) =
closure18(v0, v1, v2)
and closure16 (v0 : int32 option) (v1 : bool) : (string -> (int32 -> Async<int64>)) =
closure17(v0, v1)
and closure15 () (v0 : int32 option) : (bool -> (string -> (int32 -> Async<int64>))) =
closure16(v0)
and method10 (v0 : int32 option, v1 : string, v2 : int32) : Async<int32> =
let v3 : bool = true
let mutable _v3 : Async<int32> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v4 : Async<int32> = null |> unbox<Async<int32>>
v4
#endif
#if FABLE_COMPILER_RUST && WASM
let v5 : Async<int32> = null |> unbox<Async<int32>>
v5
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v6 : Async<int32> = null |> unbox<Async<int32>>
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : Async<int32> = null |> unbox<Async<int32>>
v7
#endif
#if FABLE_COMPILER_PYTHON
let v8 : Async<int32> = null |> unbox<Async<int32>>
v8
#endif
#else
let v9 : Async<int32> option = None
let mutable _v9 = v9
async {
let v10 : US7 option = None
let _v10 = ref v10
match v0 with
| Some x -> (
(fun () ->
(fun () ->
let v11 : int32 = x
let v12 : US7 = US7_0(v11)
v12
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v10.Value <- x
let v13 : US7 option = _v10.Value
let v14 : US7 = US7_1
let v15 : US7 = v13 |> Option.defaultValue v14
let v212 : Async<bool> =
match v15 with
| US7_1 -> (* None *)
let v16 : bool = true
let mutable _v16 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v17 : Async<bool> = null |> unbox<Async<bool>>
v17
#endif
#if FABLE_COMPILER_RUST && WASM
let v18 : Async<bool> = null |> unbox<Async<bool>>
v18
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v19 : Async<bool> = null |> unbox<Async<bool>>
v19
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v20 : Async<bool> = null |> unbox<Async<bool>>
v20
#endif
#if FABLE_COMPILER_PYTHON
let v21 : Async<bool> = null |> unbox<Async<bool>>
v21
#endif
#else
let v22 : Async<bool> option = None
let mutable _v22 = v22
async {
let v23 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v23 = v23
let v24 : System.Threading.CancellationToken = v23
let v25 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v25 = v25
let v26 : System.Net.Sockets.TcpClient = v25
try
let v27 : System.Threading.Tasks.ValueTask = v26.ConnectAsync (v1, v2, v24)
let v28 : (unit -> System.Threading.Tasks.Task) = v27.AsTask
let v29 : System.Threading.Tasks.Task = v28 ()
let v30 : bool = true
let mutable _v30 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v31 : Async<unit> = null |> unbox<Async<unit>>
v31
#endif
#if FABLE_COMPILER_RUST && WASM
let v32 : Async<unit> = null |> unbox<Async<unit>>
v32
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v33 : Async<unit> = null |> unbox<Async<unit>>
v33
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v34 : Async<unit> = null |> unbox<Async<unit>>
v34
#endif
#if FABLE_COMPILER_PYTHON
let v35 : Async<unit> = null |> unbox<Async<unit>>
v35
#endif
#else
let v36 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v37 : Async<unit> = v36 v29
v37
#endif
|> fun x -> _v30 <- Some x
let v38 : Async<unit> = match _v30 with Some x -> x | None -> failwith "base.run_target / _v30=None"
do! v38
return true
with ex ->
let v39 : exn = ex
let v40 : bool = true
let mutable _v40 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v41 : string = $"%A{v39}"
v41
#endif
#if FABLE_COMPILER_RUST && WASM
let v42 : string = $"%A{v39}"
v42
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v43 : string = $"%A{v39}"
v43
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v44 : string = $"%A{v39}"
v44
#endif
#if FABLE_COMPILER_PYTHON
let v45 : string = $"%A{v39}"
v45
#endif
#else
let v46 : string = $"{v39.GetType ()}: {v39.Message}"
v46
#endif
|> fun x -> _v40 <- Some x
let v47 : string = match _v40 with Some x -> x | None -> failwith "base.run_target / _v40=None"
let v48 : US0 = US0_0
let v49 : (unit -> string) = closure4(v2, v47)
let v50 : (unit -> string) = closure5()
method4(v48, v49, v50)
return false
(*
let v51 : bool = *)
}
|> fun x -> _v22 <- Some x
let v52 : Async<bool> = match _v22 with Some x -> x | None -> failwith "async.new_async_unit / _v22=None"
v52
#endif
|> fun x -> _v16 <- Some x
let v53 : Async<bool> = match _v16 with Some x -> x | None -> failwith "base.run_target / _v16=None"
v53
| US7_0(v54) -> (* Some *)
let v55 : bool = true
let mutable _v55 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v56 : Async<bool> = null |> unbox<Async<bool>>
v56
#endif
#if FABLE_COMPILER_RUST && WASM
let v57 : Async<bool> = null |> unbox<Async<bool>>
v57
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v58 : Async<bool> = null |> unbox<Async<bool>>
v58
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v59 : Async<bool> = null |> unbox<Async<bool>>
v59
#endif
#if FABLE_COMPILER_PYTHON
let v60 : Async<bool> = null |> unbox<Async<bool>>
v60
#endif
#else
let v61 : Async<bool> option = None
let mutable _v61 = v61
async {
let v62 : bool = true
let mutable _v62 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v63 : Async<bool> = null |> unbox<Async<bool>>
v63
#endif
#if FABLE_COMPILER_RUST && WASM
let v64 : Async<bool> = null |> unbox<Async<bool>>
v64
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v65 : Async<bool> = null |> unbox<Async<bool>>
v65
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v66 : Async<bool> = null |> unbox<Async<bool>>
v66
#endif
#if FABLE_COMPILER_PYTHON
let v67 : Async<bool> = null |> unbox<Async<bool>>
v67
#endif
#else
let v68 : Async<bool> option = None
let mutable _v68 = v68
async {
let v69 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v69 = v69
let v70 : System.Threading.CancellationToken = v69
let v71 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v71 = v71
let v72 : System.Net.Sockets.TcpClient = v71
try
let v73 : System.Threading.Tasks.ValueTask = v72.ConnectAsync (v1, v2, v70)
let v74 : (unit -> System.Threading.Tasks.Task) = v73.AsTask
let v75 : System.Threading.Tasks.Task = v74 ()
let v76 : bool = true
let mutable _v76 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v77 : Async<unit> = null |> unbox<Async<unit>>
v77
#endif
#if FABLE_COMPILER_RUST && WASM
let v78 : Async<unit> = null |> unbox<Async<unit>>
v78
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v79 : Async<unit> = null |> unbox<Async<unit>>
v79
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v80 : Async<unit> = null |> unbox<Async<unit>>
v80
#endif
#if FABLE_COMPILER_PYTHON
let v81 : Async<unit> = null |> unbox<Async<unit>>
v81
#endif
#else
let v82 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v83 : Async<unit> = v82 v75
v83
#endif
|> fun x -> _v76 <- Some x
let v84 : Async<unit> = match _v76 with Some x -> x | None -> failwith "base.run_target / _v76=None"
do! v84
return true
with ex ->
let v85 : exn = ex
let v86 : bool = true
let mutable _v86 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v87 : string = $"%A{v85}"
v87
#endif
#if FABLE_COMPILER_RUST && WASM
let v88 : string = $"%A{v85}"
v88
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v89 : string = $"%A{v85}"
v89
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v90 : string = $"%A{v85}"
v90
#endif
#if FABLE_COMPILER_PYTHON
let v91 : string = $"%A{v85}"
v91
#endif
#else
let v92 : string = $"{v85.GetType ()}: {v85.Message}"
v92
#endif
|> fun x -> _v86 <- Some x
let v93 : string = match _v86 with Some x -> x | None -> failwith "base.run_target / _v86=None"
let v94 : US0 = US0_0
let v95 : (unit -> string) = closure4(v2, v93)
let v96 : (unit -> string) = closure5()
method4(v94, v95, v96)
return false
(*
let v97 : bool = *)
}
|> fun x -> _v68 <- Some x
let v98 : Async<bool> = match _v68 with Some x -> x | None -> failwith "async.new_async_unit / _v68=None"
v98
#endif
|> fun x -> _v62 <- Some x
let v99 : Async<bool> = match _v62 with Some x -> x | None -> failwith "base.run_target / _v62=None"
let v100 : bool = true
let mutable _v100 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v101 : Async<US4> = null |> unbox<Async<US4>>
v101
#endif
#if FABLE_COMPILER_RUST && WASM
let v102 : Async<US4> = null |> unbox<Async<US4>>
v102
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v103 : Async<US4> = null |> unbox<Async<US4>>
v103
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v104 : Async<US4> = null |> unbox<Async<US4>>
v104
#endif
#if FABLE_COMPILER_PYTHON
let v105 : Async<US4> = null |> unbox<Async<US4>>
v105
#endif
#else
let v106 : bool = true
let mutable _v106 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v107 : Async<US4> = null |> unbox<Async<US4>>
v107
#endif
#if FABLE_COMPILER_RUST && WASM
let v108 : Async<US4> = null |> unbox<Async<US4>>
v108
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v109 : Async<US4> = null |> unbox<Async<US4>>
v109
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v110 : Async<US4> = null |> unbox<Async<US4>>
v110
#endif
#if FABLE_COMPILER_PYTHON
let v111 : Async<US4> = null |> unbox<Async<US4>>
v111
#endif
#else
let v112 : Async<US4> option = None
let mutable _v112 = v112
async {
let v113 : bool = true
let mutable _v113 : Async<Async<bool>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v114 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v114
#endif
#if FABLE_COMPILER_RUST && WASM
let v115 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v115
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v116 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v116
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v117 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v117
#endif
#if FABLE_COMPILER_PYTHON
let v118 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v118
#endif
#else
let v119 : Async<Async<bool>> = Async.StartChild (v99, v54)
v119
#endif
|> fun x -> _v113 <- Some x
let v120 : Async<Async<bool>> = match _v113 with Some x -> x | None -> failwith "base.run_target / _v113=None"
let! v120 = v120
let v121 : Async<bool> = v120
let v122 : bool = true
let mutable _v122 : Async<Choice<bool, exn>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v123 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v123
#endif
#if FABLE_COMPILER_RUST && WASM
let v124 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v124
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v125 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v125
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v126 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v126
#endif
#if FABLE_COMPILER_PYTHON
let v127 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v127
#endif
#else
let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch
let v129 : Async<Choice<bool, exn>> = v128 v121
v129
#endif
|> fun x -> _v122 <- Some x
let v130 : Async<Choice<bool, exn>> = match _v122 with Some x -> x | None -> failwith "base.run_target / _v122=None"
let v131 : bool = true
let mutable _v131 : Async<US5> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v132 : Async<US5> = null |> unbox<Async<US5>>
v132
#endif
#if FABLE_COMPILER_RUST && WASM
let v133 : Async<US5> = null |> unbox<Async<US5>>
v133
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v134 : Async<US5> = null |> unbox<Async<US5>>
v134
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v135 : Async<US5> = null |> unbox<Async<US5>>
v135
#endif
#if FABLE_COMPILER_PYTHON
let v136 : Async<US5> = null |> unbox<Async<US5>>
v136
#endif
#else
let v137 : Async<US5> option = None
let mutable _v137 = v137
async {
let! v130 = v130
let v138 : Choice<bool, exn> = v130
let v139 : bool = true
let mutable _v139 : US5 option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v140 : US5 = null |> unbox<US5>
v140
#endif
#if FABLE_COMPILER_RUST && WASM
let v141 : US5 = null |> unbox<US5>
v141
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v142 : US5 = null |> unbox<US5>
v142
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v143 : US5 = null |> unbox<US5>
v143
#endif
#if FABLE_COMPILER_PYTHON
let v144 : US5 = null |> unbox<US5>
v144
#endif
#else
let v145 : (bool -> US5) = closure10()
let v146 : (exn -> US5) = closure11()
let v147 : US5 = match v138 with Choice1Of2 x -> v145 x | Choice2Of2 x -> v146 x
v147
#endif
|> fun x -> _v139 <- Some x
let v148 : US5 = match _v139 with Some x -> x | None -> failwith "base.run_target / _v139=None"
return v148
}
|> fun x -> _v137 <- Some x
let v149 : Async<US5> = match _v137 with Some x -> x | None -> failwith "async.new_async_unit / _v137=None"
v149
#endif
|> fun x -> _v131 <- Some x
let v150 : Async<US5> = match _v131 with Some x -> x | None -> failwith "base.run_target / _v131=None"
let v151 : bool = true
let mutable _v151 : Async<US6> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v152 : Async<US6> = null |> unbox<Async<US6>>
v152
#endif
#if FABLE_COMPILER_RUST && WASM
let v153 : Async<US6> = null |> unbox<Async<US6>>
v153
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v154 : Async<US6> = null |> unbox<Async<US6>>
v154
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v155 : Async<US6> = null |> unbox<Async<US6>>
v155
#endif
#if FABLE_COMPILER_PYTHON
let v156 : Async<US6> = null |> unbox<Async<US6>>
v156
#endif
#else
let v157 : Async<US6> option = None
let mutable _v157 = v157
async {
let! v150 = v150
let v158 : US5 = v150
let v164 : US6 =
match v158 with
| US5_0(v159) -> (* C1of2 *)
US6_0(v159)
| US5_1(v161) -> (* C2of2 *)
US6_1(v161)
return v164
}
|> fun x -> _v157 <- Some x
let v165 : Async<US6> = match _v157 with Some x -> x | None -> failwith "async.new_async_unit / _v157=None"
v165
#endif
|> fun x -> _v151 <- Some x
let v166 : Async<US6> = match _v151 with Some x -> x | None -> failwith "base.run_target / _v151=None"
let v167 : bool = true
let mutable _v167 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v168 : Async<US4> = null |> unbox<Async<US4>>
v168
#endif
#if FABLE_COMPILER_RUST && WASM
let v169 : Async<US4> = null |> unbox<Async<US4>>
v169
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v170 : Async<US4> = null |> unbox<Async<US4>>
v170
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v171 : Async<US4> = null |> unbox<Async<US4>>
v171
#endif
#if FABLE_COMPILER_PYTHON
let v172 : Async<US4> = null |> unbox<Async<US4>>
v172
#endif
#else
let v173 : Async<US4> option = None
let mutable _v173 = v173
async {
let! v166 = v166
let v174 : US6 = v166
let v199 : US4 =
match v174 with
| US6_1(v177) -> (* Error *)
let v178 : string = $"%A{v177}"
let v179 : string = "System.TimeoutException"
let v180 : bool = v178.Contains v179
if v180 then
let v181 : US0 = US0_1
let v182 : (unit -> string) = closure12()
let v183 : (unit -> string) = closure13(v54)
method4(v181, v182, v183)
US4_1
else
let v185 : bool = true
let mutable _v185 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v186 : string = $"%A{v177}"
v186
#endif
#if FABLE_COMPILER_RUST && WASM
let v187 : string = $"%A{v177}"
v187
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v188 : string = $"%A{v177}"
v188
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v189 : string = $"%A{v177}"
v189
#endif
#if FABLE_COMPILER_PYTHON
let v190 : string = $"%A{v177}"
v190
#endif
#else
let v191 : string = $"{v177.GetType ()}: {v177.Message}"
v191
#endif
|> fun x -> _v185 <- Some x
let v192 : string = match _v185 with Some x -> x | None -> failwith "base.run_target / _v185=None"
let v193 : US0 = US0_4
let v194 : (unit -> string) = closure14(v192)
let v195 : (unit -> string) = closure13(v54)
method4(v193, v194, v195)
US4_1
| US6_0(v175) -> (* Ok *)
US4_0(v175)
return v199
}
|> fun x -> _v173 <- Some x
let v200 : Async<US4> = match _v173 with Some x -> x | None -> failwith "async.new_async_unit / _v173=None"
v200
#endif
|> fun x -> _v167 <- Some x
let v201 : Async<US4> = match _v167 with Some x -> x | None -> failwith "base.run_target / _v167=None"
return! v201
}
|> fun x -> _v112 <- Some x
let v202 : Async<US4> = match _v112 with Some x -> x | None -> failwith "async.new_async_unit / _v112=None"
v202
#endif
|> fun x -> _v106 <- Some x
let v203 : Async<US4> = match _v106 with Some x -> x | None -> failwith "base.run_target / _v106=None"
v203
#endif
|> fun x -> _v100 <- Some x
let v204 : Async<US4> = match _v100 with Some x -> x | None -> failwith "base.run_target / _v100=None"
let! v204 = v204
let v205 : US4 = v204
let v208 : bool =
match v205 with
| US4_1 -> (* None *)
false
| US4_0(v206) -> (* Some *)
v206
return v208
}
|> fun x -> _v61 <- Some x
let v209 : Async<bool> = match _v61 with Some x -> x | None -> failwith "async.new_async_unit / _v61=None"
v209
#endif
|> fun x -> _v55 <- Some x
let v210 : Async<bool> = match _v55 with Some x -> x | None -> failwith "base.run_target / _v55=None"
v210
let! v212 = v212
let v213 : bool = v212
let v214 : bool = v213 = false
if v214 then
return v2
(*
()
else
*) else
let v215 : int32 = v2 + 1
let v216 : Async<int32> = method10(v0, v1, v215)
return! v216
(*
()
*)
}
|> fun x -> _v9 <- Some x
let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith "async.new_async_unit / _v9=None"
v217
#endif
|> fun x -> _v3 <- Some x
let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith "base.run_target / _v3=None"
v218
and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
method10(v0, v1, v2)
and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
closure23(v0, v1)
and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
closure22(v0)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (string -> (int32 -> Async<bool>)) = closure2()
let test_port_open x = v2 x
let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
let test_port_open_timeout x = v3 x
let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = closure15()
let wait_for_port_access x = v4 x
let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
let get_available_port x = v5 x
()
00:00:00 debug #1 writeDibCode / output: Fs / path: DirTreeHtml.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: DirTreeHtml.dib
00:00:00 debug #1 persistCodeProject / packages: [Argu; Falco.Markup; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DirTreeHtml / hash: / code.Length: 4638
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime linux-x64",
[||], None, None, true,
Some "C:\home\git\polyglot\target\Builder\DirTreeHtml")
00:00:01 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:02 verbose #3 > Determining projects to restore...
00:00:04 verbose #4 > Restored C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj (in 2.13 sec).
00:00:05 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:20 verbose #6 > DirTreeHtml -> C:\home\git\polyglot\target\Builder\DirTreeHtml\bin\Release\net9.0\linux-x64\DirTreeHtml.dll
00:00:22 verbose #7 > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:22 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 705
00:00:22 debug #9 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime win-x64",
[||], None, None, true,
Some "C:\home\git\polyglot\target\Builder\DirTreeHtml")
00:00:22 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:23 verbose #11 > Determining projects to restore...
00:00:24 verbose #12 > Restored C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj (in 540 ms).
00:00:24 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:37 verbose #14 > DirTreeHtml -> C:\home\git\polyglot\target\Builder\DirTreeHtml\bin\Release\net9.0\win-x64\DirTreeHtml.dll
00:00:44 verbose #15 > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:44 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 701
In [ ]:
{ pwsh ../lib/spiral/build.ps1 -sequential 1 } | Invoke-Block
00:00:01 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path sm'.dib --retries 3",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "sm'.dib", "--retries", "3"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/sm'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/sm'.dib" --output-path "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #4 > >
00:00:04 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #7 > > │ # sm' │
00:00:04 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #9 > >
00:00:04 verbose #10 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #11 > > //// test
00:00:04 verbose #12 > >
00:00:04 verbose #13 > > open testing
00:00:04 verbose #14 > >
00:00:04 verbose #15 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #16 > > #r
00:00:04 verbose #17 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #18 > > otNet.Interactive.Spiral.dll"
00:00:04 verbose #19 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:04 verbose #20 > > #r
00:00:04 verbose #21 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #22 > > otNet.Interactive.dll"
00:00:04 verbose #23 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:11 verbose #24 > >
00:00:11 verbose #25 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #26 > > open rust_operators
00:00:11 verbose #27 > >
00:00:11 verbose #28 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #29 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #30 > > │ ## types │
00:00:11 verbose #31 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #32 > >
00:00:11 verbose #33 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #34 > > inl types () =
00:00:11 verbose #35 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #36 > > Fable.Core.Emit(\"str\")>]]\n#endif\ntype Str = class end"
00:00:11 verbose #37 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #38 > > Fable.Core.Emit(\"base64::DecodeError\")>]]\n#endif\ntype base64_DecodeError =
00:00:11 verbose #39 > > class end"
00:00:11 verbose #40 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #41 > > Fable.Core.Emit(\"borsh::io::Error\")>]]\n#endif\ntype borsh_io_Error = class
00:00:11 verbose #42 > > end"
00:00:11 verbose #43 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #44 > > Fable.Core.Emit(\"encoding_rs::Encoding\")>]]\n#endif\ntype encoding_rs_Encoding
00:00:11 verbose #45 > > = class end"
00:00:11 verbose #46 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #47 > > Fable.Core.Emit(\"js_sys::JsString\")>]]\n#endif\ntype js_sys_JsString = class
00:00:11 verbose #48 > > end"
00:00:11 verbose #49 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #50 > > Fable.Core.Emit(\"serde_json::Error\")>]]\n#endif\ntype serde_json_Error = class
00:00:11 verbose #51 > > end"
00:00:11 verbose #52 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #53 > > Fable.Core.Emit(\"serde_json::Value\")>]]\n#endif\ntype serde_json_Value = class
00:00:11 verbose #54 > > end"
00:00:11 verbose #55 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #56 > > Fable.Core.Emit(\"serde_wasm_bindgen::Error\")>]]\n#endif\ntype
00:00:11 verbose #57 > > serde_wasm_bindgen_Error = class end"
00:00:11 verbose #58 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #59 > > Fable.Core.Emit(\"std::ffi::OsStr\")>]]\n#endif\ntype std_ffi_OsStr = class end"
00:00:11 verbose #60 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #61 > > Fable.Core.Emit(\"std::ffi::OsString\")>]]\n#endif\ntype std_ffi_OsString =
00:00:11 verbose #62 > > class end"
00:00:11 verbose #63 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #64 > > Fable.Core.Emit(\"std::fmt::Display<$0>\")>]]\n#endif\ntype std_fmt_Display<'T>
00:00:11 verbose #65 > > = class end"
00:00:11 verbose #66 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #67 > > Fable.Core.Emit(\"std::str::Utf8Error\")>]]\n#endif\ntype std_str_Utf8Error =
00:00:11 verbose #68 > > class end"
00:00:11 verbose #69 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #70 > > Fable.Core.Emit(\"std::string::FromUtf8Error\")>]]\n#endif\ntype
00:00:11 verbose #71 > > std_string_FromUtf8Error = class end"
00:00:11 verbose #72 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #73 > > Fable.Core.Emit(\"std::string::String\")>]]\n#endif\ntype std_string_String =
00:00:11 verbose #74 > > class end"
00:00:11 verbose #75 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #76 > > Fable.Core.Emit(\"std::slice::Windows<$0>\")>]]\n#endif\ntype
00:00:11 verbose #77 > > std_slice_Windows<'T> = class end"
00:00:11 verbose #78 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #79 > > Fable.Core.Emit(\"regex::Regex\")>]]\n#endif\ntype regex_Regex = class end"
00:00:11 verbose #80 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #81 > > Fable.Core.Emit(\"regex::Captures<$0>\")>]]\n#endif\ntype regex_Captures<'T> =
00:00:11 verbose #82 > > class end"
00:00:11 verbose #83 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #84 > > Fable.Core.Emit(\"regex::CaptureMatches\")>]]\n#endif\ntype regex_CaptureMatches
00:00:11 verbose #85 > > = class end"
00:00:11 verbose #86 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #87 > > Fable.Core.Emit(\"regex::CaptureNames\")>]]\n#endif\ntype regex_CaptureNames =
00:00:11 verbose #88 > > class end"
00:00:11 verbose #89 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #90 > > Fable.Core.Emit(\"regex::Match\")>]]\n#endif\ntype regex_Match = class end"
00:00:11 verbose #91 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:11 verbose #92 > > Fable.Core.Emit(\"regex::Error\")>]]\n#endif\ntype regex_Error = class end"
00:00:12 verbose #93 > >
00:00:12 verbose #94 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #95 > > inl types () =
00:00:12 verbose #96 > > backend_switch {
00:00:12 verbose #97 > > Fsharp = fun () =>
00:00:12 verbose #98 > > rust.types ()
00:00:12 verbose #99 > > mapm.types ()
00:00:12 verbose #100 > > am'.types ()
00:00:12 verbose #101 > > types ()
00:00:12 verbose #102 > > Python = fun () => ()
00:00:12 verbose #103 > > }
00:00:13 verbose #104 > >
00:00:13 verbose #105 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #106 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #107 > > │ ## sm' │
00:00:13 verbose #108 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #109 > >
00:00:13 verbose #110 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #111 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #112 > > │ ### symbol_to_string │
00:00:13 verbose #113 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #114 > >
00:00:13 verbose #115 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #116 > > inl symbol_to_string forall t {symbol}. (x : t) : string =
00:00:13 verbose #117 > > !!!!SymbolToString(x)
00:00:13 verbose #118 > >
00:00:13 verbose #119 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #120 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #121 > > │ ### index │
00:00:13 verbose #122 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #123 > >
00:00:13 verbose #124 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #125 > > inl index i (str : string) : char =
00:00:13 verbose #126 > > sm.index str i
00:00:14 verbose #127 > >
00:00:14 verbose #128 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 verbose #129 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 verbose #130 > > │ ### to_char_array │
00:00:14 verbose #131 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #132 > >
00:00:14 verbose #133 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #134 > > inl to_char_array (str : string) : a i32 char =
00:00:14 verbose #135 > > am.init (str |> sm.length) (fun i => str |> index i)
00:00:15 verbose #136 > >
00:00:15 verbose #137 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:15 verbose #138 > > //// test
00:00:15 verbose #139 > >
00:00:15 verbose #140 > > "abc"
00:00:15 verbose #141 > > |> to_char_array
00:00:15 verbose #142 > > |> _assert_eq (a ;[[ 'a'; 'b'; 'c' ]])
00:00:17 verbose #143 > >
00:00:17 verbose #144 > > ╭─[ 2.00s - stdout ]───────────────────────────────────────────────────────────╮
00:00:17 verbose #145 > > │ assert_eq / actual: [|'a'; 'b'; 'c'|] / expected: [|'a'; 'b'; 'c'|] │
00:00:17 verbose #146 > > │ │
00:00:17 verbose #147 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #148 > >
00:00:17 verbose #149 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #150 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #151 > > │ ### to_char_list │
00:00:17 verbose #152 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #153 > >
00:00:17 verbose #154 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #155 > > inl to_char_list (str : string) : list char =
00:00:17 verbose #156 > > listm.init (str |> sm.length) (fun (i : i64) => str |> index i)
00:00:17 verbose #157 > >
00:00:17 verbose #158 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #159 > > //// test
00:00:17 verbose #160 > >
00:00:17 verbose #161 > > "abc"
00:00:17 verbose #162 > > |> to_char_list
00:00:17 verbose #163 > > |> _assert_eq [[ 'a'; 'b'; 'c' ]]
00:00:18 verbose #164 > >
00:00:18 verbose #165 > > ╭─[ 830.09ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 verbose #166 > > │ assert_eq / actual: UH0_1 ('a', UH0_1 ('b', UH0_1 ('c', UH0_0))) / expected: │
00:00:18 verbose #167 > > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('c', UH0_0))) │
00:00:18 verbose #168 > > │ │
00:00:18 verbose #169 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #170 > >
00:00:18 verbose #171 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 verbose #172 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 verbose #173 > > │ ### length │
00:00:18 verbose #174 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #175 > >
00:00:18 verbose #176 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #177 > > inl length forall dim {int}. (input : string) : dim =
00:00:18 verbose #178 > > input |> sm.length
00:00:19 verbose #179 > >
00:00:19 verbose #180 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #181 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #182 > > │ ### is_empty │
00:00:19 verbose #183 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #184 > >
00:00:19 verbose #185 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #186 > > inl is_empty (input : string) : bool =
00:00:19 verbose #187 > > length input = 0i32
00:00:19 verbose #188 > >
00:00:19 verbose #189 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #190 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #191 > > │ ### slice │
00:00:19 verbose #192 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #193 > >
00:00:19 verbose #194 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #195 > > inl slice from to s : string =
00:00:19 verbose #196 > > sm.slice s { from to }
00:00:20 verbose #197 > >
00:00:20 verbose #198 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 verbose #199 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 verbose #200 > > │ ### concat_array_trailing │
00:00:20 verbose #201 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #202 > >
00:00:20 verbose #203 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #204 > > inl concat_array_trailing (separator : string) (input : a i32 string) =
00:00:20 verbose #205 > > ("", input)
00:00:20 verbose #206 > > ||> am.fold fun acc (x : string) =>
00:00:20 verbose #207 > > $'!acc + !x + !separator + ""'
00:00:21 verbose #208 > >
00:00:21 verbose #209 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #210 > > //// test
00:00:21 verbose #211 > > ///! rust
00:00:21 verbose #212 > >
00:00:21 verbose #213 > > ;[[
00:00:21 verbose #214 > > "1"
00:00:21 verbose #215 > > "2"
00:00:21 verbose #216 > > "3"
00:00:21 verbose #217 > > ]]
00:00:21 verbose #218 > > |> fun x =>
00:00:21 verbose #219 > > inl code = (a x : _ i32 _) |> concat_array_trailing "\n"
00:00:21 verbose #220 > > code
00:00:21 verbose #221 > > |> _assert_eq "1\n2\n3\n"
00:00:28 verbose #222 > >
00:00:28 verbose #223 > > ╭─[ 7.04s - return value ]─────────────────────────────────────────────────────╮
00:00:28 verbose #224 > > │ assert_eq / actual: "1 │
00:00:28 verbose #225 > > │ 2 │
00:00:28 verbose #226 > > │ 3 │
00:00:28 verbose #227 > > │ " / expected: "1 │
00:00:28 verbose #228 > > │ 2 │
00:00:28 verbose #229 > > │ 3 │
00:00:28 verbose #230 > > │ " │
00:00:28 verbose #231 > > │ │
00:00:28 verbose #232 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 verbose #233 > >
00:00:28 verbose #234 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:28 verbose #235 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:28 verbose #236 > > │ ### concat_list_trailing │
00:00:28 verbose #237 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 verbose #238 > >
00:00:28 verbose #239 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:28 verbose #240 > > inl concat_list_trailing separator input =
00:00:28 verbose #241 > > ("", input)
00:00:28 verbose #242 > > ||> listm.fold fun acc (x : string) =>
00:00:28 verbose #243 > > $'!acc + !x + !separator + ""'
00:00:29 verbose #244 > >
00:00:29 verbose #245 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #246 > > //// test
00:00:29 verbose #247 > > ///! rust
00:00:29 verbose #248 > >
00:00:29 verbose #249 > > [[
00:00:29 verbose #250 > > "1"
00:00:29 verbose #251 > > "2"
00:00:29 verbose #252 > > "3"
00:00:29 verbose #253 > > ]]
00:00:29 verbose #254 > > |> fun x =>
00:00:29 verbose #255 > > inl code = (x : _) |> concat_list_trailing "\n"
00:00:29 verbose #256 > > code
00:00:29 verbose #257 > > |> _assert_eq "1\n2\n3\n"
00:00:33 verbose #258 > >
00:00:33 verbose #259 > > ╭─[ 4.12s - return value ]─────────────────────────────────────────────────────╮
00:00:33 verbose #260 > > │ assert_eq / actual: "1 │
00:00:33 verbose #261 > > │ 2 │
00:00:33 verbose #262 > > │ 3 │
00:00:33 verbose #263 > > │ " / expected: "1 │
00:00:33 verbose #264 > > │ 2 │
00:00:33 verbose #265 > > │ 3 │
00:00:33 verbose #266 > > │ " │
00:00:33 verbose #267 > > │ │
00:00:33 verbose #268 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #269 > >
00:00:33 verbose #270 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 verbose #271 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 verbose #272 > > │ ### concat_list_heap_trailing │
00:00:33 verbose #273 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #274 > >
00:00:33 verbose #275 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 verbose #276 > > inl concat_list_heap_trailing separator input =
00:00:33 verbose #277 > > inl separator = join separator
00:00:33 verbose #278 > > inl separator = separator
00:00:33 verbose #279 > > ("", input)
00:00:33 verbose #280 > > ||> listm.fold fun acc (x : string) =>
00:00:33 verbose #281 > > $'$"{!acc}{!x}{!separator}"'
00:00:33 verbose #282 > >
00:00:33 verbose #283 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 verbose #284 > > //// test
00:00:33 verbose #285 > > ///! rust
00:00:33 verbose #286 > >
00:00:33 verbose #287 > > types ()
00:00:33 verbose #288 > >
00:00:33 verbose #289 > > [[
00:00:33 verbose #290 > > "1"
00:00:33 verbose #291 > > "2"
00:00:33 verbose #292 > > "3"
00:00:33 verbose #293 > > ]]
00:00:33 verbose #294 > > |> fun x =>
00:00:33 verbose #295 > > inl code = (x : _) |> concat_list_heap_trailing "\n"
00:00:33 verbose #296 > > code
00:00:33 verbose #297 > > |> _assert_eq "1\n2\n3\n"
00:00:37 verbose #298 > >
00:00:37 verbose #299 > > ╭─[ 3.54s - return value ]─────────────────────────────────────────────────────╮
00:00:37 verbose #300 > > │ assert_eq / actual: "1 │
00:00:37 verbose #301 > > │ 2 │
00:00:37 verbose #302 > > │ 3 │
00:00:37 verbose #303 > > │ " / expected: "1 │
00:00:37 verbose #304 > > │ 2 │
00:00:37 verbose #305 > > │ 3 │
00:00:37 verbose #306 > > │ " │
00:00:37 verbose #307 > > │ │
00:00:37 verbose #308 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #309 > >
00:00:37 verbose #310 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 verbose #311 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 verbose #312 > > │ ### ellipsis │
00:00:37 verbose #313 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #314 > >
00:00:37 verbose #315 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:37 verbose #316 > > inl ellipsis (max : i32) (s : string) =
00:00:37 verbose #317 > > if sm.length s <= max
00:00:37 verbose #318 > > then s
00:00:37 verbose #319 > > else s |> slice 0 (max - 1) |> fun x => $'!x + "..."'
00:00:38 verbose #320 > >
00:00:38 verbose #321 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #322 > > //// test
00:00:38 verbose #323 > >
00:00:38 verbose #324 > > "12345"
00:00:38 verbose #325 > > |> ellipsis 2
00:00:38 verbose #326 > > |> _assert_eq "12..."
00:00:38 verbose #327 > >
00:00:38 verbose #328 > > "12345"
00:00:38 verbose #329 > > |> ellipsis 4
00:00:38 verbose #330 > > |> _assert_eq "1234..."
00:00:38 verbose #331 > >
00:00:38 verbose #332 > > ╭─[ 641.62ms - stdout ]────────────────────────────────────────────────────────╮
00:00:38 verbose #333 > > │ assert_eq / actual: "12..." / expected: "12..." │
00:00:38 verbose #334 > > │ assert_eq / actual: "1234..." / expected: "1234..." │
00:00:38 verbose #335 > > │ │
00:00:38 verbose #336 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #337 > >
00:00:38 verbose #338 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #339 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #340 > > │ ## fsharp │
00:00:38 verbose #341 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #342 > >
00:00:38 verbose #343 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:38 verbose #344 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:38 verbose #345 > > │ ### ends_with │
00:00:38 verbose #346 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 verbose #347 > >
00:00:38 verbose #348 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:38 verbose #349 > > inl ends_with (value : string) (s : string) : bool =
00:00:38 verbose #350 > > $'!s.EndsWith !value '
00:00:39 verbose #351 > >
00:00:39 verbose #352 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:39 verbose #353 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:39 verbose #354 > > │ ### last_index_of │
00:00:39 verbose #355 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #356 > >
00:00:39 verbose #357 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #358 > > inl last_index_of (search : string) (s : string) : i32 =
00:00:39 verbose #359 > > $'!s.LastIndexOf !search '
00:00:40 verbose #360 > >
00:00:40 verbose #361 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 verbose #362 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 verbose #363 > > │ ### index_of │
00:00:40 verbose #364 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #365 > >
00:00:40 verbose #366 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #367 > > inl index_of (search : string) (s : string) : i32 =
00:00:40 verbose #368 > > $'!s.IndexOf !search '
00:00:40 verbose #369 > >
00:00:40 verbose #370 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:40 verbose #371 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:40 verbose #372 > > │ ### pad_left │
00:00:40 verbose #373 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #374 > >
00:00:40 verbose #375 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:40 verbose #376 > > inl pad_left (total_width : i32) (padding_char : char) (s : string) : string =
00:00:40 verbose #377 > > $'!s.PadLeft (!total_width, !padding_char)'
00:00:41 verbose #378 > >
00:00:41 verbose #379 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #380 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #381 > > │ ### pad_right │
00:00:41 verbose #382 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #383 > >
00:00:41 verbose #384 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #385 > > inl pad_right (total_width : i32) (padding_char : char) (s : string) : string =
00:00:41 verbose #386 > > $'!s.PadRight (!total_width, !padding_char)'
00:00:42 verbose #387 > >
00:00:42 verbose #388 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #389 > > //// test
00:00:42 verbose #390 > >
00:00:42 verbose #391 > > "123"
00:00:42 verbose #392 > > |> pad_right 6 ' '
00:00:42 verbose #393 > > |> _assert_eq "123 "
00:00:42 verbose #394 > >
00:00:42 verbose #395 > > ╭─[ 658.43ms - stdout ]────────────────────────────────────────────────────────╮
00:00:42 verbose #396 > > │ assert_eq / actual: "123 " / expected: "123 " │
00:00:42 verbose #397 > > │ │
00:00:42 verbose #398 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #399 > >
00:00:42 verbose #400 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:42 verbose #401 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:42 verbose #402 > > │ ### replicate │
00:00:42 verbose #403 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:42 verbose #404 > >
00:00:42 verbose #405 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:42 verbose #406 > > inl replicate (n : i32) (s : string) : string =
00:00:42 verbose #407 > > s |> $'String.replicate' n
00:00:43 verbose #408 > >
00:00:43 verbose #409 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #410 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #411 > > │ ### starts_with │
00:00:43 verbose #412 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #413 > >
00:00:43 verbose #414 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #415 > > inl starts_with (value : string) (s : string) : bool =
00:00:43 verbose #416 > > $'!s.StartsWith !value '
00:00:44 verbose #417 > >
00:00:44 verbose #418 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #419 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #420 > > │ ### is_white_space │
00:00:44 verbose #421 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #422 > >
00:00:44 verbose #423 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #424 > > inl is_white_space (c : char) : bool =
00:00:44 verbose #425 > > c |> $'System.Char.IsWhiteSpace'
00:00:44 verbose #426 > >
00:00:44 verbose #427 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #428 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #429 > > │ ### substring │
00:00:44 verbose #430 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #431 > >
00:00:44 verbose #432 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #433 > > inl substring (start : i32) (len : i32) (str : string) : string =
00:00:44 verbose #434 > > $'!str.Substring (!start, !len)'
00:00:45 verbose #435 > >
00:00:45 verbose #436 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #437 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #438 > > │ ### to_lower │
00:00:45 verbose #439 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #440 > >
00:00:45 verbose #441 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 verbose #442 > > inl to_lower (input : string) : string =
00:00:45 verbose #443 > > $'!input.ToLower' ()
00:00:45 verbose #444 > >
00:00:45 verbose #445 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #446 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #447 > > │ ### to_upper │
00:00:45 verbose #448 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #449 > >
00:00:45 verbose #450 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 verbose #451 > > inl to_upper (input : string) : string =
00:00:45 verbose #452 > > $'!input.ToUpper' ()
00:00:46 verbose #453 > >
00:00:46 verbose #454 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 verbose #455 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 verbose #456 > > │ ### char_to_upper │
00:00:46 verbose #457 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #458 > >
00:00:46 verbose #459 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 verbose #460 > > inl char_to_upper (input : char) : char =
00:00:46 verbose #461 > > $'System.Char.ToUpper !input '
00:00:47 verbose #462 > >
00:00:47 verbose #463 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:47 verbose #464 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:47 verbose #465 > > │ ### string_builder │
00:00:47 verbose #466 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #467 > >
00:00:47 verbose #468 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 verbose #469 > > nominal string_builder = $'System.Text.StringBuilder'
00:00:47 verbose #470 > >
00:00:47 verbose #471 > > inl string_builder (initial : string) : string_builder =
00:00:47 verbose #472 > > initial |> $'`string_builder '
00:00:47 verbose #473 > >
00:00:47 verbose #474 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:47 verbose #475 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:47 verbose #476 > > │ ### builder_append │
00:00:47 verbose #477 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #478 > >
00:00:47 verbose #479 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 verbose #480 > > inl builder_append (item : string) (sb : string_builder) : string_builder =
00:00:47 verbose #481 > > ($'!sb.Append' item : string_builder) |> ignore
00:00:47 verbose #482 > > sb
00:00:48 verbose #483 > >
00:00:48 verbose #484 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:48 verbose #485 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:48 verbose #486 > > │ ### builder_replace │
00:00:48 verbose #487 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 verbose #488 > >
00:00:48 verbose #489 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:48 verbose #490 > > inl builder_replace (old : string) (new : string) (sb : string_builder) :
00:00:48 verbose #491 > > string_builder =
00:00:48 verbose #492 > > ($'!sb.Replace (!old, !new)' : string_builder) |> ignore
00:00:48 verbose #493 > > sb
00:00:49 verbose #494 > >
00:00:49 verbose #495 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 verbose #496 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 verbose #497 > > │ ### builder_insert │
00:00:49 verbose #498 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 verbose #499 > >
00:00:49 verbose #500 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:49 verbose #501 > > inl builder_insert (n : i32) (s : string) (sb : string_builder) : string_builder
00:00:49 verbose #502 > > =
00:00:49 verbose #503 > > ($'!sb.Insert (!n, !s)' : string_builder) |> ignore
00:00:49 verbose #504 > > sb
00:00:49 verbose #505 > >
00:00:49 verbose #506 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 verbose #507 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 verbose #508 > > │ ### builder_clear │
00:00:49 verbose #509 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 verbose #510 > >
00:00:49 verbose #511 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:49 verbose #512 > > inl builder_clear (sb : string_builder) : string_builder =
00:00:49 verbose #513 > > ($'!sb.Clear' () : string_builder) |> ignore
00:00:49 verbose #514 > > sb
00:00:50 verbose #515 > >
00:00:50 verbose #516 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:50 verbose #517 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:50 verbose #518 > > │ ### trim │
00:00:50 verbose #519 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 verbose #520 > >
00:00:50 verbose #521 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:50 verbose #522 > > inl trim (input : string) : string =
00:00:50 verbose #523 > > $'!input.Trim' ()
00:00:51 verbose #524 > >
00:00:51 verbose #525 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:51 verbose #526 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:51 verbose #527 > > │ ### trim_end │
00:00:51 verbose #528 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 verbose #529 > >
00:00:51 verbose #530 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:51 verbose #531 > > inl trim_end (trim_chars : array_base char) (input : string) : string =
00:00:51 verbose #532 > > $'!input.TrimEnd !trim_chars '
00:00:51 verbose #533 > >
00:00:51 verbose #534 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:51 verbose #535 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:51 verbose #536 > > │ ### trim_start │
00:00:51 verbose #537 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 verbose #538 > >
00:00:51 verbose #539 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:51 verbose #540 > > inl trim_start (trim_chars : array_base char) (input : string) : string =
00:00:51 verbose #541 > > $'!input.TrimStart !trim_chars '
00:00:52 verbose #542 > >
00:00:52 verbose #543 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 verbose #544 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 verbose #545 > > │ ### length' │
00:00:52 verbose #546 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 verbose #547 > >
00:00:52 verbose #548 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 verbose #549 > > inl length' forall dim. (input : string) : dim =
00:00:52 verbose #550 > > input |> $'String.length'
00:00:53 verbose #551 > >
00:00:53 verbose #552 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 verbose #553 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 verbose #554 > > │ ### obj_to_string │
00:00:53 verbose #555 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 verbose #556 > >
00:00:53 verbose #557 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 verbose #558 > > inl obj_to_string x : string =
00:00:53 verbose #559 > > x |> $'_.ToString()'
00:00:53 verbose #560 > >
00:00:53 verbose #561 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 verbose #562 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 verbose #563 > > │ ### to_string any │
00:00:53 verbose #564 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 verbose #565 > >
00:00:53 verbose #566 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 verbose #567 > > instance to_string any =
00:00:53 verbose #568 > > obj_to_string
00:00:54 verbose #569 > >
00:00:54 verbose #570 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:54 verbose #571 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:54 verbose #572 > > │ ### replace │
00:00:54 verbose #573 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 verbose #574 > >
00:00:54 verbose #575 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 verbose #576 > > inl replace (old_value : string) (new_value : string) (s : string) : string =
00:00:54 verbose #577 > > $'!s.Replace (!old_value, !new_value)'
00:00:55 verbose #578 > >
00:00:55 verbose #579 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 verbose #580 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 verbose #581 > > │ ### concat │
00:00:55 verbose #582 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 verbose #583 > >
00:00:55 verbose #584 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 verbose #585 > > inl concat (a : string) (b : seq.seq' string) : string =
00:00:55 verbose #586 > > b |> $'String.concat' a
00:00:55 verbose #587 > >
00:00:55 verbose #588 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 verbose #589 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 verbose #590 > > │ ### split │
00:00:55 verbose #591 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 verbose #592 > >
00:00:55 verbose #593 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 verbose #594 > > inl split (separator : string) (str : string) : array_base string =
00:00:55 verbose #595 > > $'!str.Split !separator '
00:00:56 verbose #596 > >
00:00:56 verbose #597 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:56 verbose #598 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:56 verbose #599 > > │ ### split_string │
00:00:56 verbose #600 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 verbose #601 > >
00:00:56 verbose #602 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #603 > > inl split_string (separator : array_base string) (str : string) : array_base
00:00:56 verbose #604 > > string =
00:00:56 verbose #605 > > run_target function
00:00:56 verbose #606 > > | Fsharp (Native) => fun () => $'!str.Split (!separator,
00:00:56 verbose #607 > > System.StringSplitOptions.None)'
00:00:56 verbose #608 > > | _ => fun () => str |> split ((a separator : _ i32 _) |> seq.of_array
00:00:56 verbose #609 > > |> concat (join ""))
00:00:57 verbose #610 > >
00:00:57 verbose #611 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:57 verbose #612 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:57 verbose #613 > > │ ### join' │
00:00:57 verbose #614 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 verbose #615 > >
00:00:57 verbose #616 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #617 > > inl join' (concat : string) (s : a i32 string) : string =
00:00:57 verbose #618 > > $'System.String.Join (!concat, !s)'
00:00:57 verbose #619 > >
00:00:57 verbose #620 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:57 verbose #621 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:57 verbose #622 > > │ ### encoding │
00:00:57 verbose #623 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 verbose #624 > >
00:00:57 verbose #625 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #626 > > nominal encoding = $'System.Text.Encoding'
00:00:58 verbose #627 > >
00:00:58 verbose #628 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #629 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #630 > > │ ### encoding_utf8 │
00:00:58 verbose #631 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #632 > >
00:00:58 verbose #633 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #634 > > inl encoding_utf8 () : encoding =
00:00:58 verbose #635 > > $'`encoding.UTF8'
00:00:58 verbose #636 > >
00:00:58 verbose #637 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #638 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #639 > > │ ### utf8_get_bytes │
00:00:58 verbose #640 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #641 > >
00:00:58 verbose #642 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #643 > > inl utf8_get_bytes (s : string) : a i32 u8 =
00:00:58 verbose #644 > > s |> (encoding_utf8 () |> $'_.GetBytes')
00:00:59 verbose #645 > >
00:00:59 verbose #646 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #647 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #648 > > │ ### byte_to_string │
00:00:59 verbose #649 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #650 > >
00:00:59 verbose #651 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #652 > > inl byte_to_string (format : string) (x : u8) : string =
00:00:59 verbose #653 > > $'!x.ToString' format
00:01:00 verbose #654 > >
00:01:00 verbose #655 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 verbose #656 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 verbose #657 > > │ ## rust │
00:01:00 verbose #658 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 verbose #659 > >
00:01:00 verbose #660 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 verbose #661 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 verbose #662 > > │ ### display │
00:01:00 verbose #663 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 verbose #664 > >
00:01:00 verbose #665 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 verbose #666 > > nominal display t = $'std_fmt_Display<`t>'
00:01:01 verbose #667 > >
00:01:01 verbose #668 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 verbose #669 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 verbose #670 > > │ ### str │
00:01:01 verbose #671 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #672 > >
00:01:01 verbose #673 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #674 > > nominal str = $'Str'
00:01:01 verbose #675 > >
00:01:01 verbose #676 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 verbose #677 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 verbose #678 > > │ ### base64_decode_error │
00:01:01 verbose #679 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #680 > >
00:01:01 verbose #681 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #682 > > nominal base64_decode_error = $'base64_DecodeError'
00:01:02 verbose #683 > >
00:01:02 verbose #684 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:02 verbose #685 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:02 verbose #686 > > │ ### borsh_io_error │
00:01:02 verbose #687 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:02 verbose #688 > >
00:01:02 verbose #689 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:02 verbose #690 > > nominal borsh_io_error = $'borsh_io_Error'
00:01:03 verbose #691 > >
00:01:03 verbose #692 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:03 verbose #693 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:03 verbose #694 > > │ ### utf8_error │
00:01:03 verbose #695 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 verbose #696 > >
00:01:03 verbose #697 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:03 verbose #698 > > nominal utf8_error = $'std_str_Utf8Error'
00:01:04 verbose #699 > >
00:01:04 verbose #700 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:04 verbose #701 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:04 verbose #702 > > │ ### from_utf8_error │
00:01:04 verbose #703 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:04 verbose #704 > >
00:01:04 verbose #705 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:04 verbose #706 > > nominal from_utf8_error = $'std_string_FromUtf8Error'
00:01:05 verbose #707 > >
00:01:05 verbose #708 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:05 verbose #709 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:05 verbose #710 > > │ ### json_value │
00:01:05 verbose #711 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:05 verbose #712 > >
00:01:05 verbose #713 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:05 verbose #714 > > nominal json_value = $'serde_json_Value'
00:01:05 verbose #715 > >
00:01:05 verbose #716 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:05 verbose #717 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:05 verbose #718 > > │ ### json_error │
00:01:05 verbose #719 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:06 verbose #720 > >
00:01:06 verbose #721 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:06 verbose #722 > > nominal json_error = $'serde_json_Error'
00:01:06 verbose #723 > >
00:01:06 verbose #724 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:06 verbose #725 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:06 verbose #726 > > │ ### serde_wasm_bindgen_error │
00:01:06 verbose #727 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:06 verbose #728 > >
00:01:06 verbose #729 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:06 verbose #730 > > nominal serde_wasm_bindgen_error = $'serde_wasm_bindgen_Error'
00:01:07 verbose #731 > >
00:01:07 verbose #732 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:07 verbose #733 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:07 verbose #734 > > │ ### js_string │
00:01:07 verbose #735 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:07 verbose #736 > >
00:01:07 verbose #737 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:07 verbose #738 > > nominal js_string = $'js_sys_JsString'
00:01:08 verbose #739 > >
00:01:08 verbose #740 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:08 verbose #741 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:08 verbose #742 > > │ ### os_str │
00:01:08 verbose #743 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 verbose #744 > >
00:01:08 verbose #745 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:08 verbose #746 > > nominal os_str = $'std_ffi_OsStr'
00:01:08 verbose #747 > >
00:01:08 verbose #748 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:08 verbose #749 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:08 verbose #750 > > │ ### os_string │
00:01:08 verbose #751 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 verbose #752 > >
00:01:08 verbose #753 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:08 verbose #754 > > nominal os_string = $'std_ffi_OsString'
00:01:09 verbose #755 > >
00:01:09 verbose #756 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:09 verbose #757 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:09 verbose #758 > > │ ### std_string │
00:01:09 verbose #759 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:09 verbose #760 > >
00:01:09 verbose #761 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:09 verbose #762 > > nominal std_string = $'std_string_String'
00:01:10 verbose #763 > >
00:01:10 verbose #764 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:10 verbose #765 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:10 verbose #766 > > │ ### raw_string_literal │
00:01:10 verbose #767 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:10 verbose #768 > >
00:01:10 verbose #769 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:10 verbose #770 > > inl raw_string_literal (s : string) : rust.ref' str =
00:01:10 verbose #771 > > !\($'"r#\\"" + !s + "\\"#"')
00:01:11 verbose #772 > >
00:01:11 verbose #773 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:11 verbose #774 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:11 verbose #775 > > │ ### raw_string_literal_static │
00:01:11 verbose #776 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #777 > >
00:01:11 verbose #778 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 verbose #779 > > inl raw_string_literal_static (s : string) : rust.static_ref str =
00:01:11 verbose #780 > > !\($'"r#\\"" + !s + "\\"#"')
00:01:12 verbose #781 > >
00:01:12 verbose #782 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:12 verbose #783 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:12 verbose #784 > > │ ### (~#) │
00:01:12 verbose #785 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:12 verbose #786 > >
00:01:12 verbose #787 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:12 verbose #788 > > inl (~#) s =
00:01:12 verbose #789 > > s |> raw_string_literal
00:01:12 verbose #790 > >
00:01:12 verbose #791 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:12 verbose #792 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:12 verbose #793 > > │ ### (~##) │
00:01:12 verbose #794 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:12 verbose #795 > >
00:01:12 verbose #796 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:12 verbose #797 > > inl (~##) s =
00:01:12 verbose #798 > > s |> raw_string_literal_static
00:01:13 verbose #799 > >
00:01:13 verbose #800 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:13 verbose #801 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:13 verbose #802 > > │ ### include_str │
00:01:13 verbose #803 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:13 verbose #804 > >
00:01:13 verbose #805 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:13 verbose #806 > > inl include_str (path : string) : rust.ref' str =
00:01:13 verbose #807 > > !\($'"include_str\!(\\\"" + !path + "\\\")"')
00:01:14 verbose #808 > >
00:01:14 verbose #809 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:14 verbose #810 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:14 verbose #811 > > │ ### as_str │
00:01:14 verbose #812 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:14 verbose #813 > >
00:01:14 verbose #814 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:14 verbose #815 > > inl as_str (s : string) : rust.ref' str =
00:01:14 verbose #816 > > // !\\(s, $'"fable_library_rust::String_::LrcStr::as_str(&$0)"')
00:01:14 verbose #817 > > !\\(s, $'"&*$0"')
00:01:14 verbose #818 > >
00:01:14 verbose #819 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:14 verbose #820 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:14 verbose #821 > > │ ### from_std_string │
00:01:14 verbose #822 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:14 verbose #823 > >
00:01:14 verbose #824 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:14 verbose #825 > > inl from_std_string (str : std_string) : string =
00:01:14 verbose #826 > > !\\(str, $'"fable_library_rust::String_::fromString($0)"')
00:01:15 verbose #827 > >
00:01:15 verbose #828 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:15 verbose #829 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:15 verbose #830 > > │ ### ref_to_std_string │
00:01:15 verbose #831 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:15 verbose #832 > >
00:01:15 verbose #833 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:15 verbose #834 > > inl ref_to_std_string (str : rust.ref' str) : std_string =
00:01:15 verbose #835 > > !\\(str, $'"String::from($0)"')
00:01:16 verbose #836 > >
00:01:16 verbose #837 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:16 verbose #838 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:16 verbose #839 > > │ ### cow_to_std_string │
00:01:16 verbose #840 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 verbose #841 > >
00:01:16 verbose #842 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:16 verbose #843 > > inl cow_to_std_string (str : rust.cow str) : std_string =
00:01:16 verbose #844 > > !\\(str, $'"String::from($0)"')
00:01:16 verbose #845 > >
00:01:16 verbose #846 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:16 verbose #847 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:16 verbose #848 > > │ ### to_std_string │
00:01:16 verbose #849 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:16 verbose #850 > >
00:01:16 verbose #851 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:16 verbose #852 > > inl to_std_string (s : string) : std_string =
00:01:16 verbose #853 > > s |> as_str |> ref_to_std_string
00:01:17 verbose #854 > >
00:01:17 verbose #855 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:17 verbose #856 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:17 verbose #857 > > │ ### as_str_std │
00:01:17 verbose #858 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 verbose #859 > >
00:01:17 verbose #860 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:17 verbose #861 > > inl as_str_std (s : std_string) : rust.ref' str =
00:01:17 verbose #862 > > !\\(s, $'"$0.as_str()"')
00:01:18 verbose #863 > >
00:01:18 verbose #864 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:18 verbose #865 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:18 verbose #866 > > │ ### into_boxed_str │
00:01:18 verbose #867 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:18 verbose #868 > >
00:01:18 verbose #869 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:18 verbose #870 > > inl into_boxed_str (s : std_string) : rust.box str =
00:01:18 verbose #871 > > !\\(s, $'"$0.into_boxed_str()"')
00:01:18 verbose #872 > >
00:01:18 verbose #873 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:18 verbose #874 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:18 verbose #875 > > │ ### os_string_as_ref │
00:01:18 verbose #876 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:18 verbose #877 > >
00:01:18 verbose #878 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:18 verbose #879 > > inl os_string_as_ref (s : os_string) : rust.ref' os_str =
00:01:18 verbose #880 > > !\\(s, $'"$0.as_ref()"')
00:01:19 verbose #881 > >
00:01:19 verbose #882 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 verbose #883 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 verbose #884 > > │ ### to_os_string │
00:01:19 verbose #885 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 verbose #886 > >
00:01:19 verbose #887 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #888 > > inl to_os_string (s : rust.ref' os_str) : os_string =
00:01:19 verbose #889 > > !\\(s, $'"$0.to_os_string()"')
00:01:20 verbose #890 > >
00:01:20 verbose #891 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:20 verbose #892 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:20 verbose #893 > > │ ### os_to_str │
00:01:20 verbose #894 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #895 > >
00:01:20 verbose #896 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #897 > > inl os_to_str (s : os_string) : optionm'.option' (rust.ref' str) =
00:01:20 verbose #898 > > !\\(s, $'"$0.to_str()"')
00:01:20 verbose #899 > >
00:01:20 verbose #900 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:20 verbose #901 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:20 verbose #902 > > │ ### from_os_str_ref │
00:01:20 verbose #903 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #904 > >
00:01:20 verbose #905 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:20 verbose #906 > > inl from_os_str_ref s =
00:01:20 verbose #907 > > s
00:01:20 verbose #908 > > |> to_os_string
00:01:20 verbose #909 > > |> os_to_str
00:01:20 verbose #910 > > |> optionm'.unwrap
00:01:20 verbose #911 > > |> ref_to_std_string
00:01:20 verbose #912 > > |> from_std_string
00:01:21 verbose #913 > >
00:01:21 verbose #914 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #915 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #916 > > │ ### format_custom' │
00:01:21 verbose #917 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #918 > >
00:01:21 verbose #919 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #920 > > inl format_custom' (format : string) x : std_string =
00:01:21 verbose #921 > > run_target function
00:01:21 verbose #922 > > | Rust _ => fun () =>
00:01:21 verbose #923 > > !\\(x, $'"format\!(\\\"" + !format + "\\\", $0)"')
00:01:21 verbose #924 > > | _ => fun () => null ()
00:01:22 verbose #925 > >
00:01:22 verbose #926 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #927 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #928 > > │ ### format' │
00:01:22 verbose #929 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #930 > >
00:01:22 verbose #931 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #932 > > inl format' x : std_string =
00:01:22 verbose #933 > > run_target function
00:01:22 verbose #934 > > | Rust _ => fun () =>
00:01:22 verbose #935 > > !\\(x, $'"format\!(\\\"{}\\\", $0)"')
00:01:22 verbose #936 > > | _ => fun () => null ()
00:01:22 verbose #937 > >
00:01:22 verbose #938 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #939 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #940 > > │ ### format_debug' │
00:01:22 verbose #941 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #942 > >
00:01:22 verbose #943 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #944 > > inl format_debug' x : std_string =
00:01:22 verbose #945 > > run_target function
00:01:22 verbose #946 > > | Rust _ => fun () =>
00:01:22 verbose #947 > > !\\(x, $'"format\!(\\\"{:?}\\\", $0)"')
00:01:22 verbose #948 > > | _ => fun () => null ()
00:01:23 verbose #949 > >
00:01:23 verbose #950 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:23 verbose #951 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:23 verbose #952 > > │ ### format_pretty' │
00:01:23 verbose #953 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:23 verbose #954 > >
00:01:23 verbose #955 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:23 verbose #956 > > inl format_pretty' x : std_string =
00:01:23 verbose #957 > > run_target function
00:01:23 verbose #958 > > | Rust _ => fun () =>
00:01:23 verbose #959 > > !\\(x, $'"format\!(\\\"{:#?}\\\", $0)"')
00:01:23 verbose #960 > > | _ => fun () => null ()
00:01:24 verbose #961 > >
00:01:24 verbose #962 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:24 verbose #963 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:24 verbose #964 > > │ ### format_hex' │
00:01:24 verbose #965 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 verbose #966 > >
00:01:24 verbose #967 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:24 verbose #968 > > inl format_hex' x : std_string =
00:01:24 verbose #969 > > !\\(x, $'"format\!(\\\"{:02x}\\\", $0)"')
00:01:25 verbose #970 > >
00:01:25 verbose #971 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:25 verbose #972 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:25 verbose #973 > > │ ### format'' │
00:01:25 verbose #974 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:25 verbose #975 > >
00:01:25 verbose #976 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:25 verbose #977 > > inl format'' (format : string) : std_string =
00:01:25 verbose #978 > > !\($'@@$"format\!(" + !format + ")"')
00:01:25 verbose #979 > >
00:01:25 verbose #980 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:25 verbose #981 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:25 verbose #982 > > │ ### regex │
00:01:25 verbose #983 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:25 verbose #984 > >
00:01:25 verbose #985 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:25 verbose #986 > > nominal regex = $'regex_Regex'
00:01:26 verbose #987 > >
00:01:26 verbose #988 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:26 verbose #989 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:26 verbose #990 > > │ ### regex_error │
00:01:26 verbose #991 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:26 verbose #992 > >
00:01:26 verbose #993 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:26 verbose #994 > > nominal regex_error = $'regex_Error'
00:01:27 verbose #995 > >
00:01:27 verbose #996 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:27 verbose #997 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:27 verbose #998 > > │ ### new_regex │
00:01:27 verbose #999 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:27 verbose #1000 > >
00:01:27 verbose #1001 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:27 verbose #1002 > > inl new_regex (pattern : string) : resultm.result' regex regex_error =
00:01:27 verbose #1003 > > !\\(pattern, $'$"regex::Regex::new(&$0)"')
00:01:27 verbose #1004 > >
00:01:27 verbose #1005 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:27 verbose #1006 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:27 verbose #1007 > > │ ### captures │
00:01:27 verbose #1008 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:27 verbose #1009 > >
00:01:27 verbose #1010 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:27 verbose #1011 > > nominal regex_captures t = $'regex_Captures<`t>'
00:01:28 verbose #1012 > >
00:01:28 verbose #1013 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:28 verbose #1014 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:28 verbose #1015 > > │ ### regex_capture_matches │
00:01:28 verbose #1016 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:28 verbose #1017 > >
00:01:28 verbose #1018 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:28 verbose #1019 > > nominal regex_capture_matches = $'regex_CaptureMatches'
00:01:29 verbose #1020 > >
00:01:29 verbose #1021 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #1022 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #1023 > > │ ### regex_capture_names │
00:01:29 verbose #1024 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #1025 > >
00:01:29 verbose #1026 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #1027 > > nominal regex_capture_names = $'regex_CaptureNames'
00:01:29 verbose #1028 > >
00:01:29 verbose #1029 > > inl regex_capture_names (regex : regex) : regex_capture_names =
00:01:29 verbose #1030 > > !\\(regex, $'$"$0.capture_names()"')
00:01:30 verbose #1031 > >
00:01:30 verbose #1032 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:30 verbose #1033 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:30 verbose #1034 > > │ ### match' │
00:01:30 verbose #1035 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 verbose #1036 > >
00:01:30 verbose #1037 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:30 verbose #1038 > > nominal match' = $'regex_Match'
00:01:30 verbose #1039 > >
00:01:30 verbose #1040 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:30 verbose #1041 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:30 verbose #1042 > > │ ### regex_captures_iter │
00:01:30 verbose #1043 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:30 verbose #1044 > >
00:01:30 verbose #1045 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:30 verbose #1046 > > inl regex_captures_iter (s : rust.static_ref (rust.mut' std_string)) (regex :
00:01:30 verbose #1047 > > regex) : regex_capture_matches =
00:01:30 verbose #1048 > > !\($'$"!regex.captures_iter(!s)"')
00:01:31 verbose #1049 > >
00:01:31 verbose #1050 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 verbose #1051 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 verbose #1052 > > │ ### regex_captures │
00:01:31 verbose #1053 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 verbose #1054 > >
00:01:31 verbose #1055 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:31 verbose #1056 > > inl regex_captures (s : string) (regex : regex) : am'.vec (mapm.hash_map string
00:01:31 verbose #1057 > > string) =
00:01:31 verbose #1058 > > // inl s = join s
00:01:31 verbose #1059 > > // !\\(regex, $'$"$0.captures_iter(&*!s).map(|caps|
00:01:31 verbose #1060 > > $0.capture_names().map(|x| x.and_then(|n| Some((n,
00:01:31 verbose #1061 > > caps.name(n)?.as_str())))).flatten().collect()).collect()"')
00:01:31 verbose #1062 > >
00:01:31 verbose #1063 > > inl s = s |> to_std_string
00:01:31 verbose #1064 > > fun () =>
00:01:31 verbose #1065 > > inl matches =
00:01:31 verbose #1066 > > inl s = s |> rust.new_box |> rust.box_leak
00:01:31 verbose #1067 > > regex |> regex_captures_iter s
00:01:31 verbose #1068 > >
00:01:31 verbose #1069 > > (!\($'"true; let _result : Vec<_> = !matches.map(|x| { //"') : bool) |>
00:01:31 verbose #1070 > > ignore
00:01:31 verbose #1071 > >
00:01:31 verbose #1072 > > inl fn (match' : rust.static_ref (rust.mut' (regex_captures
00:01:31 verbose #1073 > > rust.static_lifetime))) : mapm.hash_map string string =
00:01:31 verbose #1074 > >
00:01:31 verbose #1075 > > inl names = regex |> regex_capture_names
00:01:31 verbose #1076 > >
00:01:31 verbose #1077 > > (!\($'"true; let _result : std::collections::HashMap<_, _> =
00:01:31 verbose #1078 > > !names.map(|x| { //"') : bool) |> ignore
00:01:31 verbose #1079 > >
00:01:31 verbose #1080 > > inl fn (n : string) : pair string string =
00:01:31 verbose #1081 > > inl n' = n |> rust.clone
00:01:31 verbose #1082 > >
00:01:31 verbose #1083 > > new_pair n' !\\(n, $'$"!match'.name(&$0).map(|x|
00:01:31 verbose #1084 > > x.as_str()).unwrap_or(\\\"\\\").to_string().into()"')
00:01:31 verbose #1085 > >
00:01:31 verbose #1086 > > (!\\(fn !\($'"x.unwrap_or(\\\"\\\").to_string().into()"'), $'"true;
00:01:31 verbose #1087 > > $0 }).map(|x| std::sync::Arc::try_unwrap(x).unwrap_or_else(|x|
00:01:31 verbose #1088 > > (*x).clone())).collect()"') : bool) |> ignore
00:01:31 verbose #1089 > >
00:01:31 verbose #1090 > > !\($'"_result"')
00:01:31 verbose #1091 > >
00:01:31 verbose #1092 > > inl x =
00:01:31 verbose #1093 > > !\($'$"x"')
00:01:31 verbose #1094 > > |> rust.new_box
00:01:31 verbose #1095 > > |> rust.box_leak
00:01:31 verbose #1096 > >
00:01:31 verbose #1097 > > (!\\(fn x, $'"true; $0 }).collect::<Vec<_>>()"') : bool) |> ignore
00:01:31 verbose #1098 > >
00:01:31 verbose #1099 > > !\($'"_result"')
00:01:31 verbose #1100 > >
00:01:31 verbose #1101 > > |> rust.capture_move
00:01:32 verbose #1102 > >
00:01:32 verbose #1103 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:32 verbose #1104 > > //// test
00:01:32 verbose #1105 > > ///! rust -d regex
00:01:32 verbose #1106 > >
00:01:32 verbose #1107 > > types ()
00:01:32 verbose #1108 > > "fable-library-ts\\.(?<a>[[\\d.]]+)$"
00:01:32 verbose #1109 > > |> new_regex
00:01:32 verbose #1110 > > |> resultm.unwrap'
00:01:32 verbose #1111 > > |> regex_captures "fable_modules/fable-library-ts.4.17.0"
00:01:32 verbose #1112 > > |> am'.vec_map (mapm.to_vec >> am'.vec_sort_by_key id)
00:01:32 verbose #1113 > > |> sm'.format_debug
00:01:32 verbose #1114 > > |> _assert_eq (
00:01:32 verbose #1115 > > ;[[
00:01:32 verbose #1116 > > ;[[ "", ""; "a", "4.17.0" ]]
00:01:32 verbose #1117 > > |> am'.to_vec
00:01:32 verbose #1118 > > ]]
00:01:32 verbose #1119 > > |> am'.to_vec
00:01:32 verbose #1120 > > |> sm'.format_debug
00:01:32 verbose #1121 > > )
00:01:37 verbose #1122 > >
00:01:37 verbose #1123 > > ╭─[ 5.67s - return value ]─────────────────────────────────────────────────────╮
00:01:37 verbose #1124 > > │ assert_eq / actual: "[[("", ""), ("a", "4.17.0")]]" / expected: "[[("", ""), │
00:01:37 verbose #1125 > > │ ("a", "4.17.0")]]" │
00:01:37 verbose #1126 > > │ │
00:01:37 verbose #1127 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:37 verbose #1128 > >
00:01:37 verbose #1129 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:37 verbose #1130 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:37 verbose #1131 > > │ ### replace_regex' │
00:01:37 verbose #1132 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:37 verbose #1133 > >
00:01:37 verbose #1134 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:37 verbose #1135 > > inl replace_regex' (pattern : string) (replacement : a i32 string) (s : string)
00:01:37 verbose #1136 > > : string =
00:01:37 verbose #1137 > > run_target function
00:01:37 verbose #1138 > > | Rust (Native) => fun () =>
00:01:37 verbose #1139 > > inl s = join s
00:01:37 verbose #1140 > > inl replacement = join replacement
00:01:37 verbose #1141 > > inl regex = pattern |> new_regex |> resultm.unwrap'
00:01:37 verbose #1142 > > !\\((regex, #s, replacement), $'$"$0.replace_all($1, &*$2)"')
00:01:37 verbose #1143 > > |> cow_to_std_string
00:01:37 verbose #1144 > > |> from_std_string
00:01:37 verbose #1145 > > | _ => fun () => null ()
00:01:38 verbose #1146 > >
00:01:38 verbose #1147 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #1148 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #1149 > > │ ### serialize │
00:01:38 verbose #1150 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #1151 > >
00:01:38 verbose #1152 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #1153 > > inl serialize forall t. (x : t) : resultm.result' std_string json_error =
00:01:38 verbose #1154 > > !\($'"serde_json::to_string(&!x)"')
00:01:40 verbose #1155 > >
00:01:40 verbose #1156 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 verbose #1157 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 verbose #1158 > > │ ### deserialize │
00:01:40 verbose #1159 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #1160 > >
00:01:40 verbose #1161 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:40 verbose #1162 > > inl deserialize forall t. (json : string) : resultm.result' t std_string =
00:01:40 verbose #1163 > > inl json = join json
00:01:40 verbose #1164 > > inl json = json |> as_str
00:01:40 verbose #1165 > > !\($'"serde_json::from_str(&!json)"')
00:01:40 verbose #1166 > > |> resultm.map_error' fun (x : json_error) => x |> format'
00:01:40 verbose #1167 > >
00:01:40 verbose #1168 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 verbose #1169 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 verbose #1170 > > │ ### borsh_deserialize │
00:01:40 verbose #1171 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #1172 > >
00:01:40 verbose #1173 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:40 verbose #1174 > > inl borsh_deserialize forall t. (data : array_base u8) : resultm.result' t
00:01:40 verbose #1175 > > std_string =
00:01:40 verbose #1176 > > inl data = data |> am'.as_slice
00:01:40 verbose #1177 > > (!\($'"true; let mut !data = !data"') : bool) |> ignore
00:01:40 verbose #1178 > > inl result = !\($'"borsh::BorshDeserialize::deserialize(&mut !data)"')
00:01:40 verbose #1179 > > result
00:01:40 verbose #1180 > > |> resultm.map_error' fun (x : borsh_io_error) => x |> format'
00:01:41 verbose #1181 > >
00:01:41 verbose #1182 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 verbose #1183 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 verbose #1184 > > │ ### deserialize_vec │
00:01:41 verbose #1185 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 verbose #1186 > >
00:01:41 verbose #1187 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 verbose #1188 > > inl deserialize_vec (value : json_value) : resultm.result' (am'.vec u8)
00:01:41 verbose #1189 > > std_string =
00:01:41 verbose #1190 > > inl value = join value
00:01:41 verbose #1191 > > !\($'"serde_json::from_value(!value)"')
00:01:41 verbose #1192 > > |> resultm.map_error' fun (x : json_error) => x |> format'
00:01:42 verbose #1193 > >
00:01:42 verbose #1194 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:42 verbose #1195 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:42 verbose #1196 > > │ ### encode_uri_component │
00:01:42 verbose #1197 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 verbose #1198 > >
00:01:42 verbose #1199 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 verbose #1200 > > inl encode_uri_component (s : std_string) : js_string =
00:01:42 verbose #1201 > > !\($'"js_sys::encode_uri_component(&!s)"')
00:01:43 verbose #1202 > >
00:01:43 verbose #1203 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:43 verbose #1204 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:43 verbose #1205 > > │ ### strip_prefix │
00:01:43 verbose #1206 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:43 verbose #1207 > >
00:01:43 verbose #1208 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:43 verbose #1209 > > inl strip_prefix (prefix : char) (s : std_string) : optionm'.option' (rust.ref'
00:01:43 verbose #1210 > > str) =
00:01:43 verbose #1211 > > inl s = join s
00:01:43 verbose #1212 > > !\($'"!s.strip_prefix(!prefix)"')
00:01:44 verbose #1213 > >
00:01:44 verbose #1214 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 verbose #1215 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 verbose #1216 > > │ ### str_from_utf8 │
00:01:44 verbose #1217 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 verbose #1218 > >
00:01:44 verbose #1219 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 verbose #1220 > > inl str_from_utf8 (bytes : rust.ref' (am'.slice u8)) : resultm.result'
00:01:44 verbose #1221 > > (rust.ref' str) utf8_error =
00:01:44 verbose #1222 > > !\\(bytes, $'"std::str::from_utf8($0)"')
00:01:44 verbose #1223 > >
00:01:44 verbose #1224 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 verbose #1225 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 verbose #1226 > > │ ### string_from_utf8 │
00:01:44 verbose #1227 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 verbose #1228 > >
00:01:44 verbose #1229 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 verbose #1230 > > inl string_from_utf8 (bytes : am'.vec u8) : resultm.result' std_string
00:01:44 verbose #1231 > > from_utf8_error =
00:01:44 verbose #1232 > > inl bytes = join bytes
00:01:44 verbose #1233 > > !\\(bytes, $'"std::string::String::from_utf8($0)"')
00:01:45 verbose #1234 > >
00:01:45 verbose #1235 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:45 verbose #1236 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:45 verbose #1237 > > │ ### base64_decode │
00:01:45 verbose #1238 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 verbose #1239 > >
00:01:45 verbose #1240 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:45 verbose #1241 > > inl base64_decode (s : std_string) : result std_string std_string =
00:01:45 verbose #1242 > > fun () =>
00:01:45 verbose #1243 > > inl s = join s
00:01:45 verbose #1244 > > inl bytes : resultm.result' (am'.vec u8) base64_decode_error =
00:01:45 verbose #1245 > >
00:01:45 verbose #1246 > > !\($'"base64::Engine::decode(&base64::engine::general_purpose::STANDARD, !s)"')
00:01:45 verbose #1247 > > bytes
00:01:45 verbose #1248 > > |> resultm.map_error' format'
00:01:45 verbose #1249 > > |> resultm.try'
00:01:45 verbose #1250 > > |> string_from_utf8
00:01:45 verbose #1251 > > |> resultm.map_error' format'
00:01:45 verbose #1252 > > |> fun x =>
00:01:45 verbose #1253 > > join x ()
00:01:45 verbose #1254 > > |> resultm.unbox
00:01:46 verbose #1255 > >
00:01:46 verbose #1256 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 verbose #1257 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 verbose #1258 > > │ ### encoding' │
00:01:46 verbose #1259 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #1260 > >
00:01:46 verbose #1261 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #1262 > > nominal encoding' = $'encoding_rs_Encoding'
00:01:47 verbose #1263 > >
00:01:47 verbose #1264 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 verbose #1265 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 verbose #1266 > > │ ### encoding_utf8' │
00:01:47 verbose #1267 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #1268 > >
00:01:47 verbose #1269 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #1270 > > inl encoding_utf8' () : rust.ref' encoding' =
00:01:47 verbose #1271 > > !\($'"encoding_rs::UTF_8"')
00:01:48 verbose #1272 > >
00:01:48 verbose #1273 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:48 verbose #1274 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:48 verbose #1275 > > │ ### encoding_1252 │
00:01:48 verbose #1276 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:48 verbose #1277 > >
00:01:48 verbose #1278 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:48 verbose #1279 > > inl encoding_1252' () : rust.ref' encoding' =
00:01:48 verbose #1280 > > !\($'"encoding_rs::WINDOWS_1252"')
00:01:49 verbose #1281 > >
00:01:49 verbose #1282 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:49 verbose #1283 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:49 verbose #1284 > > │ ### encoding_encode │
00:01:49 verbose #1285 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:49 verbose #1286 > >
00:01:49 verbose #1287 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:49 verbose #1288 > > inl encoding_encode' (encoding : rust.ref' encoding') (text : string) : rust.cow
00:01:49 verbose #1289 > > (am'.slice u8) =
00:01:49 verbose #1290 > > !\\((encoding, text), $'"$0.encode(&*$1).0"')
00:01:50 verbose #1291 > >
00:01:50 verbose #1292 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:50 verbose #1293 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:50 verbose #1294 > > │ ### utf8_decode │
00:01:50 verbose #1295 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:50 verbose #1296 > >
00:01:50 verbose #1297 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:50 verbose #1298 > > inl utf8_decode (data : am'.vec u8) : resultm.result' std_string (rust.cow str)
00:01:50 verbose #1299 > > =
00:01:50 verbose #1300 > > !\($'$"encoding::Encoding::decode(encoding::all::UTF_8, &!data,
00:01:50 verbose #1301 > > encoding::DecoderTrap::Replace)"')
00:01:50 verbose #1302 > >
00:01:50 verbose #1303 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:50 verbose #1304 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:50 verbose #1305 > > │ ### windows │
00:01:50 verbose #1306 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:50 verbose #1307 > >
00:01:50 verbose #1308 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:50 verbose #1309 > > nominal windows t = $'std_slice_Windows<`t>'
00:01:50 verbose #1310 > >
00:01:50 verbose #1311 > > inl windows (len : unativeint) (source : am'.vec u8) : windows u8 =
00:01:50 verbose #1312 > > inl source = source |> rust.new_box |> rust.box_leak
00:01:50 verbose #1313 > > // inl source' = source |> rust.clone
00:01:50 verbose #1314 > > inl result = !\\(len, $'"<[[_]]>::windows(!source, $0)"')
00:01:50 verbose #1315 > > // source |> rust.drop
00:01:50 verbose #1316 > > result
00:01:51 verbose #1317 > >
00:01:51 verbose #1318 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:51 verbose #1319 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:51 verbose #1320 > > │ ### any │
00:01:51 verbose #1321 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 verbose #1322 > >
00:01:51 verbose #1323 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:51 verbose #1324 > > inl any forall t. (fn : string -> bool) (source : windows t) : bool =
00:01:51 verbose #1325 > > (!\($'"true; let mut !source = !source"') : bool) |> ignore
00:01:51 verbose #1326 > > inl fn' x =
00:01:51 verbose #1327 > > x
00:01:51 verbose #1328 > > |> str_from_utf8
00:01:51 verbose #1329 > > |> resultm.unwrap_or' #""
00:01:51 verbose #1330 > > |> ref_to_std_string
00:01:51 verbose #1331 > > |> from_std_string
00:01:51 verbose #1332 > > |> fn
00:01:51 verbose #1333 > > !\\(fn', $'"!source.any(move |x| $0(x))"')
00:01:52 verbose #1334 > >
00:01:52 verbose #1335 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:52 verbose #1336 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 verbose #1337 > > │ ### slice_contains │
00:01:52 verbose #1338 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #1339 > >
00:01:52 verbose #1340 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:52 verbose #1341 > > inl slice_contains (text : string) (source : am'.vec u8) : bool =
00:01:52 verbose #1342 > > fun () =>
00:01:52 verbose #1343 > > inl source = join source
00:01:52 verbose #1344 > > source
00:01:52 verbose #1345 > > |> windows (text |> length |> (fun x => x : i32) |> convert)
00:01:52 verbose #1346 > > |> any ((=.) text)
00:01:52 verbose #1347 > > |> fun x => join x ()
00:01:52 verbose #1348 > >
00:01:52 verbose #1349 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:52 verbose #1350 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:52 verbose #1351 > > │ ### as_bytes │
00:01:52 verbose #1352 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:52 verbose #1353 > >
00:01:52 verbose #1354 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:52 verbose #1355 > > inl as_bytes (text : string) : rust.ref' (am'.slice u8) =
00:01:52 verbose #1356 > > inl text = join text
00:01:52 verbose #1357 > > !\($'"!text.as_bytes()"')
00:01:53 verbose #1358 > >
00:01:53 verbose #1359 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:53 verbose #1360 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 verbose #1361 > > │ ## python │
00:01:53 verbose #1362 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 verbose #1363 > >
00:01:53 verbose #1364 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:53 verbose #1365 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:53 verbose #1366 > > │ ### encode_utf8 │
00:01:53 verbose #1367 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 verbose #1368 > >
00:01:53 verbose #1369 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:53 verbose #1370 > > inl encode_utf8 (s : string) : string =
00:01:53 verbose #1371 > > open python_operators
00:01:53 verbose #1372 > > inl encoding = "utf-8"
00:01:53 verbose #1373 > > !\\((s, encoding), $'"$0.encode($1)"')
00:01:54 verbose #1374 > >
00:01:54 verbose #1375 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 verbose #1376 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 verbose #1377 > > │ ## sm' │
00:01:54 verbose #1378 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #1379 > >
00:01:54 verbose #1380 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 verbose #1381 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 verbose #1382 > > │ ### format_debug │
00:01:54 verbose #1383 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #1384 > >
00:01:54 verbose #1385 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 verbose #1386 > > inl format_debug x : string =
00:01:54 verbose #1387 > > backend_switch {
00:01:54 verbose #1388 > > Fsharp = fun () => $'$"%A{!x}"' : string
00:01:54 verbose #1389 > > Python = fun () => $'f"{!x}"' : string
00:01:54 verbose #1390 > > }
00:01:54 verbose #1391 > >
00:01:54 verbose #1392 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 verbose #1393 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 verbose #1394 > > │ ### contains │
00:01:54 verbose #1395 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #1396 > >
00:01:54 verbose #1397 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 verbose #1398 > > inl contains (value : string) (s : string) : bool =
00:01:54 verbose #1399 > > backend_switch {
00:01:54 verbose #1400 > > Fsharp = fun () => $'!s.Contains !value ' : bool
00:01:54 verbose #1401 > > Python = fun () => $'!value in !s ' : bool
00:01:54 verbose #1402 > > }
00:01:55 verbose #1403 > >
00:01:55 verbose #1404 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:55 verbose #1405 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:55 verbose #1406 > > │ ### to_string result t u │
00:01:55 verbose #1407 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 verbose #1408 > >
00:01:55 verbose #1409 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:55 verbose #1410 > > instance to_string result t u = fun x =>
00:01:55 verbose #1411 > > real
00:01:55 verbose #1412 > > open rust
00:01:55 verbose #1413 > > typecase (t * u) with
00:01:55 verbose #1414 > > | string * string =>
00:01:55 verbose #1415 > > match x with
00:01:55 verbose #1416 > > | Ok x => x
00:01:55 verbose #1417 > > | Error x => $'"sm\'.to_string result / Error: " + !x + ""' : string
00:01:55 verbose #1418 > > | std_string * std_string =>
00:01:55 verbose #1419 > > match x with
00:01:55 verbose #1420 > > | Ok x => from_std_string x
00:01:55 verbose #1421 > > | Error x => $'"sm\'.to_string result / Error: " + string !x + ""' :
00:01:55 verbose #1422 > > string
00:01:55 verbose #1423 > > | _ => obj_to_string `u x
00:01:56 verbose #1424 > >
00:01:56 verbose #1425 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:56 verbose #1426 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:56 verbose #1427 > > │ ### format_exception │
00:01:56 verbose #1428 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:56 verbose #1429 > >
00:01:56 verbose #1430 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:56 verbose #1431 > > inl format_exception (ex : exn) : string =
00:01:56 verbose #1432 > > run_target function
00:01:56 verbose #1433 > > | Fsharp (Native) => fun () => $'$"{!ex.GetType ()}: {!ex.Message}"'
00:01:56 verbose #1434 > > | _ => fun () => ex |> format_debug
00:01:57 verbose #1435 > >
00:01:57 verbose #1436 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:57 verbose #1437 > > //// test
00:01:57 verbose #1438 > > ///! fsharp
00:01:57 verbose #1439 > > ///! rust
00:01:57 verbose #1440 > > ///! typescript
00:01:57 verbose #1441 > > ///! python
00:01:57 verbose #1442 > >
00:01:57 verbose #1443 > > fun () => failwith "test"
00:01:57 verbose #1444 > > |> _throws
00:01:57 verbose #1445 > > |> optionm.value
00:01:57 verbose #1446 > > |> sm'.format_exception
00:01:57 verbose #1447 > > |> _assert_eq (run_target function
00:01:57 verbose #1448 > > | Fsharp _ => fun () => "System.Exception: test"
00:01:57 verbose #1449 > > | Rust _ => fun () => "Exception { message: \"test\" }"
00:01:57 verbose #1450 > > | TypeScript _ => fun () => "Error: test"
00:01:57 verbose #1451 > > | Python _ => fun () => "test"
00:01:57 verbose #1452 > > | _ => fun () => null ()
00:01:57 verbose #1453 > > )
00:02:01 verbose #1454 > >
00:02:01 verbose #1455 > > ╭─[ 4.96s - return value ]─────────────────────────────────────────────────────╮
00:02:01 verbose #1456 > > │ .rs output: │
00:02:01 verbose #1457 > > │ assert_eq / actual: "Exception { message: "test" }" / expected: "Exception { │
00:02:01 verbose #1458 > > │ message: "test" }" │
00:02:01 verbose #1459 > > │ │
00:02:01 verbose #1460 > > │ .ts output: │
00:02:01 verbose #1461 > > │ assert_eq / actual: Error: test / expected: Error: test │
00:02:01 verbose #1462 > > │ │
00:02:01 verbose #1463 > > │ .py output: │
00:02:01 verbose #1464 > > │ assert_eq / actual: test / expected: test │
00:02:01 verbose #1465 > > │ │
00:02:01 verbose #1466 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #1467 > >
00:02:01 verbose #1468 > > ╭─[ 4.96s - stdout ]───────────────────────────────────────────────────────────╮
00:02:01 verbose #1469 > > │ .fsx output: │
00:02:01 verbose #1470 > > │ assert_eq / actual: "System.Exception: test" / expected: "System.Exception: │
00:02:01 verbose #1471 > > │ test" │
00:02:01 verbose #1472 > > │ │
00:02:01 verbose #1473 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #1474 > >
00:02:01 verbose #1475 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:01 verbose #1476 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:01 verbose #1477 > > │ ### range │
00:02:01 verbose #1478 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 verbose #1479 > >
00:02:01 verbose #1480 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:01 verbose #1481 > > inl range forall t. (start : am'.range t) (end : am'.range t) s =
00:02:01 verbose #1482 > > inl start, end =
00:02:01 verbose #1483 > > match start, end with
00:02:01 verbose #1484 > > | Start start, End fn =>
00:02:01 verbose #1485 > > start, s |> length' |> fn
00:02:01 verbose #1486 > > | End start_fn, End end_fn =>
00:02:01 verbose #1487 > > inl len = s |> length'
00:02:01 verbose #1488 > > start_fn len, end_fn len
00:02:01 verbose #1489 > > s |> slice (start |> i32) (end |> i32)
00:02:02 verbose #1490 > >
00:02:02 verbose #1491 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:02 verbose #1492 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:02 verbose #1493 > > │ ### concat_list │
00:02:02 verbose #1494 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 verbose #1495 > >
00:02:02 verbose #1496 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 verbose #1497 > > inl concat_list s list =
00:02:02 verbose #1498 > > list
00:02:02 verbose #1499 > > |> listm'.box
00:02:02 verbose #1500 > > |> seq.of_list'
00:02:02 verbose #1501 > > |> concat s
00:02:03 verbose #1502 > >
00:02:03 verbose #1503 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:03 verbose #1504 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:03 verbose #1505 > > │ ### ellipsis_end │
00:02:03 verbose #1506 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:03 verbose #1507 > >
00:02:03 verbose #1508 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:03 verbose #1509 > > let ellipsis_end (max : i64) (s : string) =
00:02:03 verbose #1510 > > inl len = sm.length s
00:02:03 verbose #1511 > > if len <= max
00:02:03 verbose #1512 > > then s
00:02:03 verbose #1513 > > else
00:02:03 verbose #1514 > > inl half = f64 max / 2
00:02:03 verbose #1515 > > inl start_half = half |> math.ceil |> i64
00:02:03 verbose #1516 > > inl end_half = half |> math.floor |> i64
00:02:03 verbose #1517 > > inl start = s |> slice 0 (start_half - 1)
00:02:03 verbose #1518 > > inl end = s |> slice (len - end_half) (len - 1)
00:02:03 verbose #1519 > > (a ;[[start; "..."; end]] : _ i32 _)
00:02:03 verbose #1520 > > |> seq.of_array
00:02:03 verbose #1521 > > |> concat ""
00:02:04 verbose #1522 > >
00:02:04 verbose #1523 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #1524 > > //// test
00:02:04 verbose #1525 > >
00:02:04 verbose #1526 > > "12345"
00:02:04 verbose #1527 > > |> ellipsis_end 2
00:02:04 verbose #1528 > > |> _assert_eq "1...5"
00:02:04 verbose #1529 > >
00:02:04 verbose #1530 > > "12345"
00:02:04 verbose #1531 > > |> ellipsis_end 3
00:02:04 verbose #1532 > > |> _assert_eq "12...5"
00:02:04 verbose #1533 > >
00:02:04 verbose #1534 > > "1234567"
00:02:04 verbose #1535 > > |> ellipsis_end 4
00:02:04 verbose #1536 > > |> _assert_eq "12...67"
00:02:05 verbose #1537 > >
00:02:05 verbose #1538 > > ╭─[ 895.03ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 verbose #1539 > > │ assert_eq / actual: "1...5" / expected: "1...5" │
00:02:05 verbose #1540 > > │ assert_eq / actual: "12...5" / expected: "12...5" │
00:02:05 verbose #1541 > > │ assert_eq / actual: "12...67" / expected: "12...67" │
00:02:05 verbose #1542 > > │ │
00:02:05 verbose #1543 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1544 > >
00:02:05 verbose #1545 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #1546 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #1547 > > │ ### format_ellipsis │
00:02:05 verbose #1548 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1549 > >
00:02:05 verbose #1550 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #1551 > > inl format_ellipsis s =
00:02:05 verbose #1552 > > s
00:02:05 verbose #1553 > > |> format_debug
00:02:05 verbose #1554 > > |> ellipsis_end 400
00:02:05 verbose #1555 > >
00:02:05 verbose #1556 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #1557 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #1558 > > │ ### replace_regex │
00:02:05 verbose #1559 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #1560 > >
00:02:05 verbose #1561 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #1562 > > inl replace_regex (pattern : string) (replacement : string) (s : string) :
00:02:05 verbose #1563 > > string =
00:02:05 verbose #1564 > > inl replacement = join replacement
00:02:05 verbose #1565 > > run_target function
00:02:05 verbose #1566 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #1567 > > inl pattern = join pattern
00:02:05 verbose #1568 > > $'System.Text.RegularExpressions.Regex.Replace (!s, !pattern,
00:02:05 verbose #1569 > > !replacement)'
00:02:05 verbose #1570 > > | Rust (Native) => fun () =>
00:02:05 verbose #1571 > > inl s = join s
00:02:05 verbose #1572 > > inl regex = pattern |> new_regex |> resultm.unwrap'
00:02:05 verbose #1573 > > !\\((regex, s, replacement), $'$"$0.replace_all(&$1, &*$2)"')
00:02:05 verbose #1574 > > |> cow_to_std_string
00:02:05 verbose #1575 > > |> from_std_string
00:02:05 verbose #1576 > > | _ => fun () => null ()
00:02:06 verbose #1577 > >
00:02:06 verbose #1578 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #1579 > > //// test
00:02:06 verbose #1580 > >
00:02:06 verbose #1581 > > " 123"
00:02:06 verbose #1582 > > |> replace_regex "\\s\\w2" ""
00:02:06 verbose #1583 > > |> _assert_eq "3"
00:02:07 verbose #1584 > >
00:02:07 verbose #1585 > > ╭─[ 828.67ms - stdout ]────────────────────────────────────────────────────────╮
00:02:07 verbose #1586 > > │ assert_eq / actual: "3" / expected: "3" │
00:02:07 verbose #1587 > > │ │
00:02:07 verbose #1588 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:07 verbose #1589 > >
00:02:07 verbose #1590 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:07 verbose #1591 > > //// test
00:02:07 verbose #1592 > > ///! rust -d regex
00:02:07 verbose #1593 > >
00:02:07 verbose #1594 > > types ()
00:02:07 verbose #1595 > > " 123"
00:02:07 verbose #1596 > > |> replace_regex "\\s\\w2" ""
00:02:07 verbose #1597 > > |> _assert_eq "3"
00:02:12 verbose #1598 > >
00:02:12 verbose #1599 > > ╭─[ 4.82s - return value ]─────────────────────────────────────────────────────╮
00:02:12 verbose #1600 > > │ assert_eq / actual: "3" / expected: "3" │
00:02:12 verbose #1601 > > │ │
00:02:12 verbose #1602 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:12 verbose #1603 > >
00:02:12 verbose #1604 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:12 verbose #1605 > > //// test
00:02:12 verbose #1606 > > ///! rust -d regex
00:02:12 verbose #1607 > >
00:02:12 verbose #1608 > > types ()
00:02:12 verbose #1609 > > " let main args =\n ()\n"
00:02:12 verbose #1610 > > |> replace_regex $'@@"(?P<a> *)(?P<b>let\\s+main\\s+.*?\\s*=)"'
00:02:12 verbose #1611 > > "$a[[<EntryPoint>]]\n$a$b"
00:02:12 verbose #1612 > > |> _assert_eq " [[<EntryPoint>]]\n let main args =\n ()\n"
00:02:16 verbose #1613 > >
00:02:16 verbose #1614 > > ╭─[ 4.57s - return value ]─────────────────────────────────────────────────────╮
00:02:16 verbose #1615 > > │ assert_eq / actual: " [<EntryPoint>] │
00:02:16 verbose #1616 > > │ let main args = │
00:02:16 verbose #1617 > > │ () │
00:02:16 verbose #1618 > > │ " / expected: " [<EntryPoint>] │
00:02:16 verbose #1619 > > │ let main args = │
00:02:16 verbose #1620 > > │ () │
00:02:16 verbose #1621 > > │ " │
00:02:16 verbose #1622 > > │ │
00:02:16 verbose #1623 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:16 verbose #1624 > >
00:02:16 verbose #1625 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:16 verbose #1626 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:16 verbose #1627 > > │ ### write_all_text │
00:02:16 verbose #1628 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:16 verbose #1629 > >
00:02:16 verbose #1630 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:16 verbose #1631 > > inl write_all_text (path : string) (text : string) : () =
00:02:16 verbose #1632 > > run_target function
00:02:16 verbose #1633 > > | Fsharp (Native) => fun () =>
00:02:16 verbose #1634 > > inl text = join text
00:02:16 verbose #1635 > > $'System.IO.File.WriteAllText (!path, !text)'
00:02:16 verbose #1636 > > | Rust (Native) => fun () =>
00:02:16 verbose #1637 > > open rust_operators
00:02:16 verbose #1638 > > !\\((path, text), $'"std::fs::write(&*$0, &*$1).unwrap()"')
00:02:16 verbose #1639 > > | _ => fun () => null ()
00:02:17 verbose #1640 > >
00:02:17 verbose #1641 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:17 verbose #1642 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:17 verbose #1643 > > │ ## main │
00:02:17 verbose #1644 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:17 verbose #1645 > >
00:02:17 verbose #1646 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:17 verbose #1647 > > inl main () =
00:02:17 verbose #1648 > > types ()
00:02:17 verbose #1649 > > $'let contains x = !contains x' : ()
00:02:17 verbose #1650 > > $'let ends_with x = !ends_with x' : ()
00:02:17 verbose #1651 > > $'let pad_left x = !pad_left x' : ()
00:02:17 verbose #1652 > > $'let pad_right x = !pad_right x' : ()
00:02:17 verbose #1653 > > $'let replace x = !replace x' : ()
00:02:17 verbose #1654 > > $'let replace_regex x = !replace_regex x' : ()
00:02:17 verbose #1655 > > inl slice (a : i32) (b : i32) c = slice a b c
00:02:17 verbose #1656 > > $'let slice x = !slice x' : ()
00:02:17 verbose #1657 > > $'let split x = !split x' : ()
00:02:17 verbose #1658 > > $'let split_string x = !split_string x' : ()
00:02:17 verbose #1659 > > $'let starts_with x = !starts_with x' : ()
00:02:17 verbose #1660 > > $'let substring x = !substring x' : ()
00:02:17 verbose #1661 > > $'let to_lower x = !to_lower x' : ()
00:02:17 verbose #1662 > > $'let to_upper x = !to_upper x' : ()
00:02:17 verbose #1663 > > $'let trim x = !trim x' : ()
00:02:17 verbose #1664 > > $'let trim_end x = !trim_end x' : ()
00:02:17 verbose #1665 > > $'let trim_start x = !trim_start x' : ()
00:02:17 verbose #1666 > > $'let ellipsis x = !ellipsis x' : ()
00:02:17 verbose #1667 > > $'let ellipsis_end x = !ellipsis_end x' : ()
00:02:17 verbose #1668 > > $'let format_exception x = !format_exception x' : ()
00:02:17 verbose #1669 > > $'let concat_array_trailing x = !concat_array_trailing x' : ()
00:02:17 verbose #1670 > > inl concat a (b : seq.seq' string) = concat a b
00:02:17 verbose #1671 > > $'let concat x = !concat x' : ()
00:02:17 verbose #1672 > > $'let join\' x = !join' x' : ()
00:02:17 verbose #1673 > > $'let to_char_array x = !to_char_array x' : ()
00:02:18 verbose #1674 > >
00:02:18 verbose #1675 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:18 verbose #1676 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:18 verbose #1677 > > │ ## rust │
00:02:18 verbose #1678 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #1679 > >
00:02:18 verbose #1680 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:18 verbose #1681 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:18 verbose #1682 > > │ ### to_string std_string │
00:02:18 verbose #1683 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:18 verbose #1684 > >
00:02:18 verbose #1685 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:18 verbose #1686 > > open rust
00:02:18 verbose #1687 > > instance to_string std_string = from_std_string
00:02:20 verbose #1688 > 00:02:18 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 83588
00:02:20 verbose #1689 > 00:02:18 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:02:24 verbose #1690 > 00:02:22 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb to html
00:02:24 verbose #1691 > 00:02:22 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:24 verbose #1692 > 00:02:22 verbose #7 ! validate(nb)
00:02:27 verbose #1693 > 00:02:25 verbose #8 ! [NbConvertApp] Writing 521576 bytes to c:\home\git\polyglot\lib\spiral\sm'.dib.html
00:02:27 verbose #1694 > 00:02:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:02:27 verbose #1695 > 00:02:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:02:27 verbose #1696 > 00:02:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/sm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/sm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:28 verbose #1697 > 00:02:26 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:28 verbose #1698 > 00:02:26 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:28 verbose #1699 > 00:02:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 84284
00:02:28 debug #1700 runtime.execute_with_options_async / exit_code: 0 / output.Length: 89884
00:02:28 debug #1 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path sm'.dib --retries 3
00:02:29 debug #1701 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path rust.dib --retries 3",
[||], None, None, true, None)
00:02:29 verbose #1702 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "rust.dib", "--retries", "3"])
00:02:29 verbose #1703 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/rust.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/rust.dib" --output-path "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:02:31 verbose #1704 > >
00:02:31 verbose #1705 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:31 verbose #1706 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:31 verbose #1707 > > │ # rust │
00:02:31 verbose #1708 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 verbose #1709 > >
00:02:31 verbose #1710 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 verbose #1711 > > //// test
00:02:31 verbose #1712 > >
00:02:31 verbose #1713 > > open testing
00:02:31 verbose #1714 > >
00:02:31 verbose #1715 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:02:31 verbose #1716 > > #r
00:02:31 verbose #1717 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:31 verbose #1718 > > otNet.Interactive.Spiral.dll"
00:02:31 verbose #1719 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:02:31 verbose #1720 > > #r
00:02:31 verbose #1721 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:31 verbose #1722 > > otNet.Interactive.dll"
00:02:31 verbose #1723 > > open type Microsoft.DotNet.Interactive.Kernel
00:02:40 verbose #1724 > >
00:02:40 verbose #1725 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:40 verbose #1726 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:40 verbose #1727 > > │ ## types │
00:02:40 verbose #1728 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 verbose #1729 > >
00:02:40 verbose #1730 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:40 verbose #1731 > > inl types () =
00:02:40 verbose #1732 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1733 > > Fable.Core.Emit(\"core::any::Any\")>]]\n#endif\ntype core_any_Any = class end"
00:02:40 verbose #1734 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1735 > > Fable.Core.Emit(\"_\")>]]\n#endif\ntype core_ops_Try<'T> = class end"
00:02:40 verbose #1736 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1737 > > Fable.Core.Emit(\"Func0<$0>\")>]]\n#endif\ntype Func0<'T> = class end"
00:02:40 verbose #1738 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"Func1<$0,
00:02:40 verbose #1739 > > $1>\")>]]\n#endif\ntype Func0<'T, 'U> = class end"
00:02:40 verbose #1740 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1741 > > Fable.Core.Emit(\"Box<$0>\")>]]\n#endif\ntype Box<'T> = class end"
00:02:40 verbose #1742 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"dyn
00:02:40 verbose #1743 > > $0\")>]]\n#endif\ntype Dyn<'T> = class end"
00:02:40 verbose #1744 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1745 > > Fable.Core.Emit(\"Send\")>]]\n#endif\ntype Send<'T> = class end"
00:02:40 verbose #1746 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn() ->
00:02:40 verbose #1747 > > $0\")>]]\n#endif\ntype Fn<'T> = class end"
00:02:40 verbose #1748 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1749 > > Fable.Core.Emit(\"Fn()\")>]]\n#endif\ntype FnUnit = class end"
00:02:40 verbose #1750 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"FnOnce()
00:02:40 verbose #1751 > > -> $0\")>]]\n#endif\ntype FnOnce<'T> = class end"
00:02:40 verbose #1752 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1753 > > Fable.Core.Emit(\"Fn($0)\")>]]\n#endif\ntype ActionFn<'T> = class end"
00:02:40 verbose #1754 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn($0,
00:02:40 verbose #1755 > > $1)\")>]]\n#endif\ntype ActionFn2<'T, 'U> = class end"
00:02:40 verbose #1756 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"impl
00:02:40 verbose #1757 > > $0\")>]]\n#endif\ntype Impl<'T> = class end"
00:02:40 verbose #1758 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"mut
00:02:40 verbose #1759 > > $0\")>]]\n#endif\ntype Mut<'T> = class end"
00:02:40 verbose #1760 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1761 > > Fable.Core.Emit(\"&$0\")>]]\n#endif\ntype Ref<'T> = class end"
00:02:40 verbose #1762 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"$0 +
00:02:40 verbose #1763 > > $1\")>]]\n#endif\ntype LifetimeJoin<'T, 'U> = class end"
00:02:40 verbose #1764 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1765 > > Fable.Core.Emit(\"'static\")>]]\n#endif\ntype StaticLifetime = class end"
00:02:40 verbose #1766 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1767 > > Fable.Core.Emit(\"$0\")>]]\n#endif\ntype LifetimeRef<'T> = class end"
00:02:40 verbose #1768 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"$0
00:02:40 verbose #1769 > > $1\")>]]\n#endif\ntype Lifetime<'T, 'U> = class end"
00:02:40 verbose #1770 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1771 > > Fable.Core.Emit(\"MutCell<$0>\")>]]\n#endif\ntype MutCell<'T> = class end"
00:02:40 verbose #1772 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1773 > > Fable.Core.Emit(\"std::any::Any\")>]]\n#endif\ntype std_any_Any = class end"
00:02:40 verbose #1774 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1775 > > Fable.Core.Emit(\"std::borrow::Cow<$0>\")>]]\n#endif\ntype std_borrow_Cow<'T> =
00:02:40 verbose #1776 > > class end"
00:02:40 verbose #1777 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1778 > > Fable.Core.Emit(\"std::cell::RefCell<$0>\")>]]\n#endif\ntype
00:02:40 verbose #1779 > > std_cell_RefCell<'T> = class end"
00:02:40 verbose #1780 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1781 > > Fable.Core.Emit(\"std::pin::Pin<$0>\")>]]\n#endif\ntype std_pin_Pin<'T> = class
00:02:40 verbose #1782 > > end"
00:02:40 verbose #1783 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1784 > > Fable.Core.Emit(\"std::rc::Rc<$0>\")>]]\n#endif\ntype std_rc_Rc<'T> = class end"
00:02:40 verbose #1785 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:40 verbose #1786 > > Fable.Core.Emit(\"std::rc::Weak<$0>\")>]]\n#endif\ntype std_rc_Weak<'T> = class
00:02:40 verbose #1787 > > end"
00:02:41 verbose #1788 > >
00:02:41 verbose #1789 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:41 verbose #1790 > > inl types () =
00:02:41 verbose #1791 > > backend_switch {
00:02:41 verbose #1792 > > Fsharp = fun () =>
00:02:41 verbose #1793 > > types ()
00:02:41 verbose #1794 > > Python = fun () => ()
00:02:41 verbose #1795 > > }
00:02:42 verbose #1796 > >
00:02:42 verbose #1797 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:42 verbose #1798 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:42 verbose #1799 > > │ ## rust │
00:02:42 verbose #1800 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 verbose #1801 > >
00:02:42 verbose #1802 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:42 verbose #1803 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:42 verbose #1804 > > │ ### │
00:02:42 verbose #1805 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 verbose #1806 > >
00:02:42 verbose #1807 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:42 verbose #1808 > > nominal any = $'core_any_Any'
00:02:42 verbose #1809 > >
00:02:42 verbose #1810 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:42 verbose #1811 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:42 verbose #1812 > > │ ### │
00:02:42 verbose #1813 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 verbose #1814 > >
00:02:42 verbose #1815 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:42 verbose #1816 > > nominal try t = $'core_ops_Try<`t>'
00:02:43 verbose #1817 > >
00:02:43 verbose #1818 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:43 verbose #1819 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:43 verbose #1820 > > │ ### │
00:02:43 verbose #1821 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:43 verbose #1822 > >
00:02:43 verbose #1823 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:43 verbose #1824 > > nominal cow t = $'std_borrow_Cow<`t>'
00:02:44 verbose #1825 > >
00:02:44 verbose #1826 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:44 verbose #1827 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:44 verbose #1828 > > │ ### │
00:02:44 verbose #1829 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 verbose #1830 > >
00:02:44 verbose #1831 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:44 verbose #1832 > > nominal ref_cell t = $'std_cell_RefCell<`t>'
00:02:44 verbose #1833 > >
00:02:44 verbose #1834 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:44 verbose #1835 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:44 verbose #1836 > > │ ### │
00:02:44 verbose #1837 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 verbose #1838 > >
00:02:44 verbose #1839 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:44 verbose #1840 > > nominal rc t = $'std_rc_Rc<`t>'
00:02:45 verbose #1841 > >
00:02:45 verbose #1842 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:45 verbose #1843 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:45 verbose #1844 > > │ ### │
00:02:45 verbose #1845 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:45 verbose #1846 > >
00:02:45 verbose #1847 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:45 verbose #1848 > > nominal lifetime_join' (t : * -> *) u = $'LifetimeRef<`(t u)>'
00:02:46 verbose #1849 > >
00:02:46 verbose #1850 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:46 verbose #1851 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:46 verbose #1852 > > │ ### │
00:02:46 verbose #1853 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 verbose #1854 > >
00:02:46 verbose #1855 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:46 verbose #1856 > > nominal lifetime_join t u = $'LifetimeJoin<`t, `u>'
00:02:47 verbose #1857 > >
00:02:47 verbose #1858 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:47 verbose #1859 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:47 verbose #1860 > > │ ### │
00:02:47 verbose #1861 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:47 verbose #1862 > >
00:02:47 verbose #1863 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:47 verbose #1864 > > nominal lifetime t u = $'Lifetime<`t, `u>'
00:02:48 verbose #1865 > >
00:02:48 verbose #1866 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:48 verbose #1867 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:48 verbose #1868 > > │ ### │
00:02:48 verbose #1869 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:48 verbose #1870 > >
00:02:48 verbose #1871 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:48 verbose #1872 > > nominal static_lifetime = $'StaticLifetime'
00:02:49 verbose #1873 > >
00:02:49 verbose #1874 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:49 verbose #1875 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:49 verbose #1876 > > │ ### │
00:02:49 verbose #1877 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #1878 > >
00:02:49 verbose #1879 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 verbose #1880 > > nominal ref t = $'Ref<`t>'
00:02:49 verbose #1881 > >
00:02:49 verbose #1882 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:49 verbose #1883 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:49 verbose #1884 > > │ ### │
00:02:49 verbose #1885 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 verbose #1886 > >
00:02:49 verbose #1887 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:49 verbose #1888 > > nominal static_ref t = ref (lifetime static_lifetime t)
00:02:50 verbose #1889 > >
00:02:50 verbose #1890 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #1891 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #1892 > > │ ### │
00:02:50 verbose #1893 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #1894 > >
00:02:50 verbose #1895 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #1896 > > nominal weak_rc t = $'std_rc_Weak<`t>'
00:02:50 verbose #1897 > >
00:02:50 verbose #1898 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #1899 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #1900 > > │ ### │
00:02:50 verbose #1901 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #1902 > >
00:02:50 verbose #1903 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #1904 > > nominal box t = $'Box<`t>'
00:02:51 verbose #1905 > >
00:02:51 verbose #1906 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:51 verbose #1907 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:51 verbose #1908 > > │ ### │
00:02:51 verbose #1909 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:51 verbose #1910 > >
00:02:51 verbose #1911 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:51 verbose #1912 > > nominal mut_cell t = $'MutCell<`t>'
00:02:52 verbose #1913 > >
00:02:52 verbose #1914 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 verbose #1915 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 verbose #1916 > > │ ### │
00:02:52 verbose #1917 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #1918 > >
00:02:52 verbose #1919 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 verbose #1920 > > nominal pin t = $'std_pin_Pin<`t>'
00:02:52 verbose #1921 > >
00:02:52 verbose #1922 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 verbose #1923 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 verbose #1924 > > │ ### │
00:02:52 verbose #1925 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 verbose #1926 > >
00:02:52 verbose #1927 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:52 verbose #1928 > > nominal dyn' t = $'Dyn<`t>'
00:02:53 verbose #1929 > >
00:02:53 verbose #1930 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #1931 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #1932 > > │ ### │
00:02:53 verbose #1933 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #1934 > >
00:02:53 verbose #1935 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #1936 > > nominal fn' t = $'Fn<`t>'
00:02:54 verbose #1937 > >
00:02:54 verbose #1938 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #1939 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #1940 > > │ ### │
00:02:54 verbose #1941 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #1942 > >
00:02:54 verbose #1943 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #1944 > > nominal action_fn t = $'ActionFn<`t>'
00:02:54 verbose #1945 > >
00:02:54 verbose #1946 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #1947 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #1948 > > │ ### │
00:02:54 verbose #1949 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #1950 > >
00:02:54 verbose #1951 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #1952 > > nominal action_fn2 t u = $'ActionFn2<`t, `u>'
00:02:55 verbose #1953 > >
00:02:55 verbose #1954 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:55 verbose #1955 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:55 verbose #1956 > > │ ### │
00:02:55 verbose #1957 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:55 verbose #1958 > >
00:02:55 verbose #1959 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:55 verbose #1960 > > nominal fn_once t = $'FnOnce<`t>'
00:02:56 verbose #1961 > >
00:02:56 verbose #1962 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:56 verbose #1963 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:56 verbose #1964 > > │ ### │
00:02:56 verbose #1965 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:56 verbose #1966 > >
00:02:56 verbose #1967 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:56 verbose #1968 > > nominal fn_unit = $'FnUnit'
00:02:56 verbose #1969 > >
00:02:56 verbose #1970 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:56 verbose #1971 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:56 verbose #1972 > > │ ### │
00:02:56 verbose #1973 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:56 verbose #1974 > >
00:02:56 verbose #1975 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:56 verbose #1976 > > nominal func0 t = $'Func0<`t>'
00:02:57 verbose #1977 > >
00:02:57 verbose #1978 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:57 verbose #1979 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:57 verbose #1980 > > │ ### │
00:02:57 verbose #1981 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 verbose #1982 > >
00:02:57 verbose #1983 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:57 verbose #1984 > > nominal func1 t u =
00:02:57 verbose #1985 > > `(
00:02:57 verbose #1986 > > typecase t with
00:02:57 verbose #1987 > > | () => `func0 `u
00:02:57 verbose #1988 > > | _ => $'' : $'Func0<`t, `u>'
00:02:57 verbose #1989 > > )
00:02:58 verbose #1990 > >
00:02:58 verbose #1991 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:58 verbose #1992 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:58 verbose #1993 > > │ ### │
00:02:58 verbose #1994 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:58 verbose #1995 > >
00:02:58 verbose #1996 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:58 verbose #1997 > > nominal impl t = $'Impl<`t>'
00:02:58 verbose #1998 > >
00:02:58 verbose #1999 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:58 verbose #2000 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:58 verbose #2001 > > │ ### │
00:02:58 verbose #2002 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:58 verbose #2003 > >
00:02:58 verbose #2004 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:58 verbose #2005 > > nominal mut' t = $'Mut<`t>'
00:02:59 verbose #2006 > >
00:02:59 verbose #2007 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:59 verbose #2008 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:59 verbose #2009 > > │ ### │
00:02:59 verbose #2010 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 verbose #2011 > >
00:02:59 verbose #2012 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:59 verbose #2013 > > nominal ref' t = $'Ref<`t>'
00:03:00 verbose #2014 > >
00:03:00 verbose #2015 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:00 verbose #2016 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:00 verbose #2017 > > │ ### │
00:03:00 verbose #2018 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:00 verbose #2019 > >
00:03:00 verbose #2020 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:00 verbose #2021 > > nominal send t = lifetime_join t $'Send<`t>'
00:03:00 verbose #2022 > >
00:03:00 verbose #2023 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:00 verbose #2024 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:00 verbose #2025 > > │ ### emit_expr │
00:03:00 verbose #2026 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:00 verbose #2027 > >
00:03:00 verbose #2028 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:00 verbose #2029 > > inl emit_expr forall a t. (args : a) (code : string) : t =
00:03:00 verbose #2030 > > real
00:03:00 verbose #2031 > > $'Fable.Core.RustInterop.emitRustExpr !args !code ' : t
00:03:01 verbose #2032 > >
00:03:01 verbose #2033 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:01 verbose #2034 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:01 verbose #2035 > > │ ### (~!\\) │
00:03:01 verbose #2036 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:01 verbose #2037 > >
00:03:01 verbose #2038 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:01 verbose #2039 > > inl (~!\) forall t. (code : string) : t =
00:03:01 verbose #2040 > > emit_expr () code
00:03:02 verbose #2041 > >
00:03:02 verbose #2042 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:02 verbose #2043 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:02 verbose #2044 > > │ ### (~!\\\\) │
00:03:02 verbose #2045 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:02 verbose #2046 > >
00:03:02 verbose #2047 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:02 verbose #2048 > > inl (~!\\) forall t u. ((args : t), (code : string)) : u =
00:03:02 verbose #2049 > > emit_expr args code
00:03:02 verbose #2050 > >
00:03:02 verbose #2051 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:02 verbose #2052 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:02 verbose #2053 > > │ ### emit │
00:03:02 verbose #2054 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:02 verbose #2055 > >
00:03:02 verbose #2056 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:02 verbose #2057 > > inl emit forall t. (x : t) : t =
00:03:02 verbose #2058 > > !\\(x, $'"$0"')
00:03:03 verbose #2059 > >
00:03:03 verbose #2060 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:03 verbose #2061 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:03 verbose #2062 > > │ ### emit' │
00:03:03 verbose #2063 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:03 verbose #2064 > >
00:03:03 verbose #2065 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:03 verbose #2066 > > inl emit' forall t. (x : t) : t =
00:03:03 verbose #2067 > > !\\(x, $'"let !x = $0"')
00:03:03 verbose #2068 > > x
00:03:04 verbose #2069 > >
00:03:04 verbose #2070 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:04 verbose #2071 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:04 verbose #2072 > > │ ### clone │
00:03:04 verbose #2073 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:04 verbose #2074 > >
00:03:04 verbose #2075 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:04 verbose #2076 > > inl clone forall t. (x : t) : t =
00:03:04 verbose #2077 > > !\\(x, $'"$0.clone()"')
00:03:04 verbose #2078 > >
00:03:04 verbose #2079 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:04 verbose #2080 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:04 verbose #2081 > > │ ### dbg │
00:03:04 verbose #2082 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:04 verbose #2083 > >
00:03:04 verbose #2084 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:04 verbose #2085 > > inl dbg forall t. (x : t) : t =
00:03:04 verbose #2086 > > !\\(x, $'"dbg\!($0)"')
00:03:05 verbose #2087 > >
00:03:05 verbose #2088 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:05 verbose #2089 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:05 verbose #2090 > > │ ### new_box │
00:03:05 verbose #2091 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:05 verbose #2092 > >
00:03:05 verbose #2093 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:05 verbose #2094 > > inl new_box forall t. (x : t) : box t =
00:03:05 verbose #2095 > > !\\(x, $'"Box::new($0)"')
00:03:06 verbose #2096 > >
00:03:06 verbose #2097 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:06 verbose #2098 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:06 verbose #2099 > > │ ### new_rc │
00:03:06 verbose #2100 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 verbose #2101 > >
00:03:06 verbose #2102 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #2103 > > inl new_rc forall t. (x : t) : rc t =
00:03:06 verbose #2104 > > !\\(x, $'"std::rc::Rc::new($0)"')
00:03:06 verbose #2105 > >
00:03:06 verbose #2106 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:06 verbose #2107 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:06 verbose #2108 > > │ ### rc_clone │
00:03:06 verbose #2109 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 verbose #2110 > >
00:03:06 verbose #2111 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:06 verbose #2112 > > inl rc_clone forall t. (x : rc t) : rc t =
00:03:06 verbose #2113 > > !\\(x, $'"std::rc::Rc::clone(&$0)"')
00:03:07 verbose #2114 > >
00:03:07 verbose #2115 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:07 verbose #2116 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:07 verbose #2117 > > │ ### rc_unwrap_or_clone │
00:03:07 verbose #2118 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:07 verbose #2119 > >
00:03:07 verbose #2120 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:07 verbose #2121 > > inl rc_unwrap_or_clone forall t. (x : rc t) : t =
00:03:07 verbose #2122 > > !\\(x, $'"std::rc::Rc::unwrap_or_clone($0)"')
00:03:08 verbose #2123 > >
00:03:08 verbose #2124 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:08 verbose #2125 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:08 verbose #2126 > > │ ### rc_downgrade │
00:03:08 verbose #2127 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:08 verbose #2128 > >
00:03:08 verbose #2129 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:08 verbose #2130 > > inl rc_downgrade forall t. (x : rc t) : weak_rc t =
00:03:08 verbose #2131 > > inl x = join x
00:03:08 verbose #2132 > > !\($'"std::rc::Rc::downgrade(&!x)"')
00:03:08 verbose #2133 > >
00:03:08 verbose #2134 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:08 verbose #2135 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:08 verbose #2136 > > │ ### new_ref_cell │
00:03:08 verbose #2137 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:08 verbose #2138 > >
00:03:08 verbose #2139 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:08 verbose #2140 > > inl new_ref_cell forall t. (x : t) : ref_cell t =
00:03:08 verbose #2141 > > inl x = join x
00:03:08 verbose #2142 > > !\($'"std::cell::RefCell::new(!x)"')
00:03:09 verbose #2143 > >
00:03:09 verbose #2144 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:09 verbose #2145 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:09 verbose #2146 > > │ ### ref_cell_borrow │
00:03:09 verbose #2147 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:09 verbose #2148 > >
00:03:09 verbose #2149 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:09 verbose #2150 > > inl ref_cell_borrow forall t. (x : rc (ref_cell t)) : t =
00:03:09 verbose #2151 > > inl x = join x
00:03:09 verbose #2152 > > !\($'"*std::cell::RefCell::borrow(&std::rc::Rc::clone(&!x))"')
00:03:10 verbose #2153 > >
00:03:10 verbose #2154 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:10 verbose #2155 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:10 verbose #2156 > > │ ### ref_cell_borrow_mut │
00:03:10 verbose #2157 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 verbose #2158 > >
00:03:10 verbose #2159 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 verbose #2160 > > inl ref_cell_borrow_mut forall t. (x : rc (ref_cell t)) : mut' t =
00:03:10 verbose #2161 > > inl x = join x
00:03:10 verbose #2162 > > !\($'"*std::cell::RefCell::borrow_mut(&std::rc::Rc::clone(&!x))"')
00:03:10 verbose #2163 > >
00:03:10 verbose #2164 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:10 verbose #2165 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:10 verbose #2166 > > │ ### to_mut │
00:03:10 verbose #2167 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 verbose #2168 > >
00:03:10 verbose #2169 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 verbose #2170 > > inl to_mut forall t. (x : t) : t =
00:03:10 verbose #2171 > > (!\($'"true; // 1"') : bool) |> ignore
00:03:10 verbose #2172 > > (!\($'"true; let mut !x = !x"') : bool) |> ignore
00:03:10 verbose #2173 > > (!\($'"true; !x"') : bool) |> ignore
00:03:10 verbose #2174 > > !\($'"!x"')
00:03:10 verbose #2175 > > // inl result = !\($'"!x"') : mut' t
00:03:10 verbose #2176 > > // !\($'"!result"')
00:03:10 verbose #2177 > > // inl result = !\($'"*/ // a"') : mut' t
00:03:10 verbose #2178 > > // inl result = !\($'"!x"') : mut' t
00:03:10 verbose #2179 > > // result |> fun x => $'!x |> unbox // b'
00:03:11 verbose #2180 > >
00:03:11 verbose #2181 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 verbose #2182 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 verbose #2183 > > │ ### ref_map │
00:03:11 verbose #2184 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 verbose #2185 > >
00:03:11 verbose #2186 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #2187 > > inl ref_map forall t u. (fn : t -> u) (x : ref' t) : ref' u =
00:03:11 verbose #2188 > > !\($'"!fn(!x)"')
00:03:11 verbose #2189 > >
00:03:11 verbose #2190 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 verbose #2191 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 verbose #2192 > > │ ### ref_invoke │
00:03:11 verbose #2193 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 verbose #2194 > >
00:03:11 verbose #2195 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #2196 > > inl ref_invoke forall t u. (fn : t -> u) (ref : ref' t) : u =
00:03:11 verbose #2197 > > !\\(fn, $'"$0(!ref.clone())"')
00:03:12 verbose #2198 > >
00:03:12 verbose #2199 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:12 verbose #2200 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:12 verbose #2201 > > │ ### cow_as_ref │
00:03:12 verbose #2202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 verbose #2203 > >
00:03:12 verbose #2204 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:12 verbose #2205 > > inl cow_as_ref forall t. (s : cow t) : ref' t =
00:03:12 verbose #2206 > > !\\(s, $'"$0.as_ref()"')
00:03:13 verbose #2207 > >
00:03:13 verbose #2208 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:13 verbose #2209 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:13 verbose #2210 > > │ ### from_mut │
00:03:13 verbose #2211 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 verbose #2212 > >
00:03:13 verbose #2213 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 verbose #2214 > > inl from_mut forall t. (x : mut' t) : t =
00:03:13 verbose #2215 > > !\($'"!x"')
00:03:13 verbose #2216 > >
00:03:13 verbose #2217 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:13 verbose #2218 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:13 verbose #2219 > > │ ### box_fn │
00:03:13 verbose #2220 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 verbose #2221 > >
00:03:13 verbose #2222 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 verbose #2223 > > inl box_fn forall t. (x : () -> ()) : box t =
00:03:13 verbose #2224 > > inl x = join x
00:03:13 verbose #2225 > > !\($'"Box::new(move || !x())"')
00:03:14 verbose #2226 > >
00:03:14 verbose #2227 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:14 verbose #2228 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:14 verbose #2229 > > │ ### box_pin │
00:03:14 verbose #2230 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 verbose #2231 > >
00:03:14 verbose #2232 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:14 verbose #2233 > > inl box_pin forall t. (x : t) : pin (box t) =
00:03:14 verbose #2234 > > inl x = join x
00:03:14 verbose #2235 > > !\($'"Box::pin(!x)"')
00:03:15 verbose #2236 > >
00:03:15 verbose #2237 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:15 verbose #2238 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:15 verbose #2239 > > │ ### to_ref │
00:03:15 verbose #2240 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:15 verbose #2241 > >
00:03:15 verbose #2242 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:15 verbose #2243 > > inl to_ref forall t. (x : t) : ref' t =
00:03:15 verbose #2244 > > !\\(x, $'"&$0"')
00:03:15 verbose #2245 > >
00:03:15 verbose #2246 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:15 verbose #2247 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:15 verbose #2248 > > │ ### deref │
00:03:15 verbose #2249 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:15 verbose #2250 > >
00:03:15 verbose #2251 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:15 verbose #2252 > > inl deref forall t. (ref : ref' t) : t =
00:03:15 verbose #2253 > > !\\(ref, $'"*$0"')
00:03:16 verbose #2254 > >
00:03:16 verbose #2255 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:16 verbose #2256 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:16 verbose #2257 > > │ ### ops_deref │
00:03:16 verbose #2258 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:16 verbose #2259 > >
00:03:16 verbose #2260 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:16 verbose #2261 > > inl ops_deref forall t. (ref : t) : t =
00:03:16 verbose #2262 > > inl ref = join ref
00:03:16 verbose #2263 > > !\($'"core::ops::Deref::deref(&!ref)"')
00:03:17 verbose #2264 > >
00:03:17 verbose #2265 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #2266 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #2267 > > │ ### func0_invoke │
00:03:17 verbose #2268 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #2269 > >
00:03:17 verbose #2270 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #2271 > > inl func0_invoke forall t. (x : func0 t) : t =
00:03:17 verbose #2272 > > !\\(x, $'"$0()"')
00:03:17 verbose #2273 > >
00:03:17 verbose #2274 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #2275 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #2276 > > │ ### func0_move │
00:03:17 verbose #2277 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #2278 > >
00:03:17 verbose #2279 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #2280 > > inl func0_move forall t. (fn : func0 t) : t =
00:03:17 verbose #2281 > > inl fn = join fn
00:03:17 verbose #2282 > > !\($'"(move || !fn())()"')
00:03:18 verbose #2283 > >
00:03:18 verbose #2284 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:18 verbose #2285 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:18 verbose #2286 > > │ ### move │
00:03:18 verbose #2287 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 verbose #2288 > >
00:03:18 verbose #2289 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:18 verbose #2290 > > inl move forall t. (fn : () -> t) : func0 t =
00:03:18 verbose #2291 > > !\\(fn, $'"Func0::new(move || $0())"')
00:03:18 verbose #2292 > >
00:03:18 verbose #2293 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:18 verbose #2294 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:18 verbose #2295 > > │ ### to_static_ref_unbox │
00:03:18 verbose #2296 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 verbose #2297 > >
00:03:18 verbose #2298 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:18 verbose #2299 > > inl to_static_ref_unbox forall t. (x : ref' t) : static_ref t =
00:03:18 verbose #2300 > > x |> unbox
00:03:19 verbose #2301 > >
00:03:19 verbose #2302 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:19 verbose #2303 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:19 verbose #2304 > > │ ### from_static_ref_unbox │
00:03:19 verbose #2305 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:19 verbose #2306 > >
00:03:19 verbose #2307 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:19 verbose #2308 > > inl from_static_ref_unbox forall t. (x : static_ref t) : ref' t =
00:03:19 verbose #2309 > > x |> unbox
00:03:20 verbose #2310 > >
00:03:20 verbose #2311 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:20 verbose #2312 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:20 verbose #2313 > > │ ### box_leak │
00:03:20 verbose #2314 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 verbose #2315 > >
00:03:20 verbose #2316 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:20 verbose #2317 > > inl box_leak forall t. (x : box t) : static_ref (mut' t) =
00:03:20 verbose #2318 > > !\\(x, $'"Box::leak($0)"')
00:03:21 verbose #2319 > >
00:03:21 verbose #2320 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:21 verbose #2321 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:21 verbose #2322 > > │ ### drop │
00:03:21 verbose #2323 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 verbose #2324 > >
00:03:21 verbose #2325 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 verbose #2326 > > inl drop forall t. (x : t) : () =
00:03:21 verbose #2327 > > !\\(x, $'"drop($0)"')
00:03:22 verbose #2328 > >
00:03:22 verbose #2329 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 verbose #2330 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 verbose #2331 > > │ ### break │
00:03:22 verbose #2332 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 verbose #2333 > >
00:03:22 verbose #2334 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 verbose #2335 > > inl break () : () =
00:03:22 verbose #2336 > > (!\($'"true; break"') : bool) |> ignore
00:03:22 verbose #2337 > >
00:03:22 verbose #2338 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 verbose #2339 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 verbose #2340 > > │ ### fix_closure' │
00:03:22 verbose #2341 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 verbose #2342 > >
00:03:22 verbose #2343 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 verbose #2344 > > inl fix_closure' (depth : u8 * u8) x =
00:03:22 verbose #2345 > > inl rec loop text (acc : string) n : string =
00:03:22 verbose #2346 > > if n <= 0
00:03:22 verbose #2347 > > then acc
00:03:22 verbose #2348 > > else loop text (acc +. text) (n - 1)
00:03:22 verbose #2349 > > inl a = depth |> fst |> loop "}" ""
00:03:22 verbose #2350 > > inl b = depth |> snd |> loop "{" ""
00:03:22 verbose #2351 > > $'"!x " + !a + "); " + !b + " //"'
00:03:23 verbose #2352 > >
00:03:23 verbose #2353 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:23 verbose #2354 > > //// test
00:03:23 verbose #2355 > >
00:03:23 verbose #2356 > > fix_closure' (3, 2) 0i32
00:03:23 verbose #2357 > > |> _assert_eq "0 }}}); {{ //"
00:03:24 verbose #2358 > >
00:03:24 verbose #2359 > > ╭─[ 1.40s - stdout ]───────────────────────────────────────────────────────────╮
00:03:24 verbose #2360 > > │ assert_eq / actual: "0 }}}); {{ //" / expected: "0 }}}); {{ //" │
00:03:24 verbose #2361 > > │ │
00:03:24 verbose #2362 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:24 verbose #2363 > >
00:03:24 verbose #2364 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:24 verbose #2365 > > //// test
00:03:24 verbose #2366 > >
00:03:24 verbose #2367 > > fix_closure' (0, 0) ()
00:03:24 verbose #2368 > > |> _assert_eq "() ); //"
00:03:25 verbose #2369 > >
00:03:25 verbose #2370 > > ╭─[ 668.15ms - stdout ]────────────────────────────────────────────────────────╮
00:03:25 verbose #2371 > > │ assert_eq / actual: "() ); //" / expected: "() ); //" │
00:03:25 verbose #2372 > > │ │
00:03:25 verbose #2373 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 verbose #2374 > >
00:03:25 verbose #2375 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:25 verbose #2376 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:25 verbose #2377 > > │ ### fix_closure │
00:03:25 verbose #2378 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 verbose #2379 > >
00:03:25 verbose #2380 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:25 verbose #2381 > > inl fix_closure depth x =
00:03:25 verbose #2382 > > inl code = fix_closure' depth x
00:03:25 verbose #2383 > > !\code
00:03:26 verbose #2384 > >
00:03:26 verbose #2385 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 verbose #2386 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 verbose #2387 > > │ ### loop │
00:03:26 verbose #2388 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #2389 > >
00:03:26 verbose #2390 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 verbose #2391 > > inl loop (depth : i32) (fn : () -> ()) : () =
00:03:26 verbose #2392 > > (!\($'"true; loop { // rust.loop"') : bool) |> ignore
00:03:26 verbose #2393 > > fn ()
00:03:26 verbose #2394 > >
00:03:26 verbose #2395 > > listm.init depth id
00:03:26 verbose #2396 > > |> listm.iter fun n =>
00:03:26 verbose #2397 > > (!\($'"true; } // rust.loop"') : bool) |> ignore
00:03:26 verbose #2398 > >
00:03:26 verbose #2399 > > (!\($'"true; } // rust.loop"') : bool) |> ignore
00:03:26 verbose #2400 > >
00:03:26 verbose #2401 > > listm.init depth id
00:03:26 verbose #2402 > > |> listm.iter fun n =>
00:03:26 verbose #2403 > > (!\($'"true; { // rust.loop"') : bool) |> ignore
00:03:26 verbose #2404 > >
00:03:26 verbose #2405 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:26 verbose #2406 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:26 verbose #2407 > > │ ### run_tests │
00:03:26 verbose #2408 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:26 verbose #2409 > >
00:03:26 verbose #2410 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:26 verbose #2411 > > inl run_tests tests =
00:03:26 verbose #2412 > > (!\($'"true; () //"') : bool) |> ignore
00:03:26 verbose #2413 > >
00:03:26 verbose #2414 > > tests
00:03:26 verbose #2415 > > |> listm.iter fun name, fn =>
00:03:26 verbose #2416 > > !\($'"} /* /*"')
00:03:26 verbose #2417 > > (!\($'$"*/ #[[test]] fn " + !name + "() { //"') : bool) |> ignore
00:03:26 verbose #2418 > > fn name |> ignore
00:03:26 verbose #2419 > >
00:03:26 verbose #2420 > > tests
00:03:26 verbose #2421 > > |> listm.iter fun name, fn =>
00:03:26 verbose #2422 > > !\($'"{ //"') : ()
00:03:27 verbose #2423 > >
00:03:27 verbose #2424 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:27 verbose #2425 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:27 verbose #2426 > > │ ### capture │
00:03:27 verbose #2427 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 verbose #2428 > >
00:03:27 verbose #2429 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:27 verbose #2430 > > inl capture forall t. (fn : () -> t) : t =
00:03:27 verbose #2431 > > (!\($'"true; let _result = (|| { //"') : bool) |> ignore
00:03:27 verbose #2432 > > (!\\(fn (), $'"true; $0 })()"') : bool) |> ignore
00:03:27 verbose #2433 > > !\($'"_result"')
00:03:28 verbose #2434 > >
00:03:28 verbose #2435 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:28 verbose #2436 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:28 verbose #2437 > > │ ### capture_move │
00:03:28 verbose #2438 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:28 verbose #2439 > >
00:03:28 verbose #2440 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:28 verbose #2441 > > inl capture_move forall t. (fn : () -> t) : t =
00:03:28 verbose #2442 > > (!\($'"true; let _result = (move || { //"') : bool) |> ignore
00:03:28 verbose #2443 > > (!\\(fn (), $'"true; $0 })()"') : bool) |> ignore
00:03:28 verbose #2444 > > !\($'"_result"')
00:03:29 verbose #2445 > 00:00:59 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 38580
00:03:29 verbose #2446 > 00:00:59 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:03:31 verbose #2447 > 00:01:02 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/rust.dib.ipynb to html
00:03:31 verbose #2448 > 00:01:02 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:31 verbose #2449 > 00:01:02 verbose #7 ! validate(nb)
00:03:34 verbose #2450 > 00:01:05 verbose #8 ! [NbConvertApp] Writing 391333 bytes to c:\home\git\polyglot\lib\spiral\rust.dib.html
00:03:34 verbose #2451 > 00:01:05 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:03:34 verbose #2452 > 00:01:05 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:03:34 verbose #2453 > 00:01:05 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/rust.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/rust.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:03:35 verbose #2454 > 00:01:06 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:03:35 verbose #2455 > 00:01:06 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:03:36 verbose #2456 > 00:01:07 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 39278
00:03:36 debug #2457 runtime.execute_with_options_async / exit_code: 0 / output.Length: 42999
00:03:36 debug #2 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path rust.dib --retries 3
00:03:36 debug #2458 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path testing.dib --retries 3",
[||], None, None, true, None)
00:03:36 verbose #2459 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "testing.dib", "--retries", "3"])
00:03:36 verbose #2460 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/testing.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/testing.dib" --output-path "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:03:38 verbose #2461 > >
00:03:38 verbose #2462 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:38 verbose #2463 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:38 verbose #2464 > > │ # testing │
00:03:38 verbose #2465 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #2466 > >
00:03:38 verbose #2467 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:38 verbose #2468 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:38 verbose #2469 > > │ ## testing │
00:03:38 verbose #2470 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #2471 > >
00:03:38 verbose #2472 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:38 verbose #2473 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:38 verbose #2474 > > │ ### __expect │
00:03:38 verbose #2475 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #2476 > >
00:03:38 verbose #2477 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 verbose #2478 > > inl __expect fn log name b a =
00:03:38 verbose #2479 > > inl result = fn a b
00:03:38 verbose #2480 > > inl result =
00:03:38 verbose #2481 > > result || join result
00:03:38 verbose #2482 > > if log |> not
00:03:38 verbose #2483 > > then "__expect"
00:03:38 verbose #2484 > > else
00:03:38 verbose #2485 > > inl text =
00:03:38 verbose #2486 > > backend_switch {
00:03:38 verbose #2487 > > Fsharp = fun () => $'$"{!name} / actual: %A{!a} / expected:
00:03:38 verbose #2488 > > %A{!b}"' : string
00:03:38 verbose #2489 > > Python = fun () => $'f"{!name} / actual: {!a} / expected: {!b}"'
00:03:38 verbose #2490 > > : string
00:03:38 verbose #2491 > > }
00:03:38 verbose #2492 > > text |> console.write_line
00:03:38 verbose #2493 > > text
00:03:38 verbose #2494 > > |> assert result
00:03:38 verbose #2495 > >
00:03:38 verbose #2496 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:03:38 verbose #2497 > > #r
00:03:38 verbose #2498 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:38 verbose #2499 > > otNet.Interactive.Spiral.dll"
00:03:38 verbose #2500 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:03:38 verbose #2501 > > #r
00:03:38 verbose #2502 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:38 verbose #2503 > > otNet.Interactive.dll"
00:03:38 verbose #2504 > > open type Microsoft.DotNet.Interactive.Kernel
00:03:43 verbose #2505 > >
00:03:43 verbose #2506 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:43 verbose #2507 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:43 verbose #2508 > > │ ### __assert_approx_eq │
00:03:43 verbose #2509 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:43 verbose #2510 > >
00:03:43 verbose #2511 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:43 verbose #2512 > > inl __assert_approx_eq log e b a = __expect (fun a b => abs (b - a) < (e |>
00:03:43 verbose #2513 > > optionm.defaultWith 0.00000001)) log "assert_approx_eq" b a
00:03:43 verbose #2514 > > inl _assert_approx_eq e b a = __assert_approx_eq true e b a
00:03:44 verbose #2515 > >
00:03:44 verbose #2516 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:44 verbose #2517 > > //// test
00:03:44 verbose #2518 > > ///! fsharp
00:03:44 verbose #2519 > > ///! cuda
00:03:44 verbose #2520 > > ///! rust
00:03:44 verbose #2521 > > ///! typescript
00:03:44 verbose #2522 > > ///! python
00:03:44 verbose #2523 > >
00:03:44 verbose #2524 > > 12.345f64
00:03:44 verbose #2525 > > |> _assert_approx_eq (Some 0.0001f64) 12.345f64
00:03:50 verbose #2526 > >
00:03:50 verbose #2527 > > ╭─[ 6.38s - return value ]─────────────────────────────────────────────────────╮
00:03:50 verbose #2528 > > │ .py output (Cuda): │
00:03:50 verbose #2529 > > │ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\cupy\_environ │
00:03:50 verbose #2530 > > │ ment.py:216: UserWarning: CUDA path could not be detected. Set CUDA_PATH │
00:03:50 verbose #2531 > > │ environment variable if CuPy fails to load. │
00:03:50 verbose #2532 > > │ warnings.warn( │
00:03:50 verbose #2533 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:03:50 verbose #2534 > > │ │
00:03:50 verbose #2535 > > │ .rs output: │
00:03:50 verbose #2536 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:03:50 verbose #2537 > > │ │
00:03:50 verbose #2538 > > │ .ts output: │
00:03:50 verbose #2539 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:03:50 verbose #2540 > > │ │
00:03:50 verbose #2541 > > │ .py output: │
00:03:50 verbose #2542 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:03:50 verbose #2543 > > │ │
00:03:50 verbose #2544 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 verbose #2545 > >
00:03:50 verbose #2546 > > ╭─[ 6.39s - stdout ]───────────────────────────────────────────────────────────╮
00:03:50 verbose #2547 > > │ .fsx output: │
00:03:50 verbose #2548 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:03:50 verbose #2549 > > │ │
00:03:50 verbose #2550 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 verbose #2551 > >
00:03:50 verbose #2552 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:50 verbose #2553 > > //// test
00:03:50 verbose #2554 > >
00:03:50 verbose #2555 > > 1f64
00:03:50 verbose #2556 > > |> _assert_approx_eq (Some 3) 2
00:03:51 verbose #2557 > >
00:03:51 verbose #2558 > > ╭─[ 659.10ms - stdout ]────────────────────────────────────────────────────────╮
00:03:51 verbose #2559 > > │ assert_approx_eq / actual: 1.0 / expected: 2.0 │
00:03:51 verbose #2560 > > │ │
00:03:51 verbose #2561 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 verbose #2562 > >
00:03:51 verbose #2563 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 verbose #2564 > > //// test
00:03:51 verbose #2565 > >
00:03:51 verbose #2566 > > (dyn 1f64)
00:03:51 verbose #2567 > > |> _assert_approx_eq (Some 3) 2
00:03:52 verbose #2568 > >
00:03:52 verbose #2569 > > ╭─[ 781.76ms - stdout ]────────────────────────────────────────────────────────╮
00:03:52 verbose #2570 > > │ assert_approx_eq / actual: 1.0 / expected: 2.0 │
00:03:52 verbose #2571 > > │ │
00:03:52 verbose #2572 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 verbose #2573 > >
00:03:52 verbose #2574 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:52 verbose #2575 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:52 verbose #2576 > > │ ### __assert_eq │
00:03:52 verbose #2577 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:52 verbose #2578 > >
00:03:52 verbose #2579 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:52 verbose #2580 > > inl __assert_eq log b a = __expect (=) log "assert_eq" b a
00:03:52 verbose #2581 > > inl _assert_eq b a = __assert_eq true b a
00:03:53 verbose #2582 > >
00:03:53 verbose #2583 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:53 verbose #2584 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:53 verbose #2585 > > │ ### __assert_eq' │
00:03:53 verbose #2586 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 verbose #2587 > >
00:03:53 verbose #2588 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 verbose #2589 > > inl __assert_eq' log b a = __expect (=.) log "assert_eq'" b a
00:03:53 verbose #2590 > > inl _assert_eq' b a = __assert_eq' true b a
00:03:53 verbose #2591 > >
00:03:53 verbose #2592 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:53 verbose #2593 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:53 verbose #2594 > > │ ### __assert_ne │
00:03:53 verbose #2595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:53 verbose #2596 > >
00:03:53 verbose #2597 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:53 verbose #2598 > > inl __assert_ne log b a = __expect (<>.) log "assert_ne" b a
00:03:53 verbose #2599 > > inl _assert_ne b a = __assert_ne true b a
00:03:54 verbose #2600 > >
00:03:54 verbose #2601 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:54 verbose #2602 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:54 verbose #2603 > > │ ### __assert_gt │
00:03:54 verbose #2604 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 verbose #2605 > >
00:03:54 verbose #2606 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 verbose #2607 > > inl __assert_gt log b a = __expect (>) log "assert_gt" b a
00:03:54 verbose #2608 > > inl _assert_gt b a = __assert_gt true b a
00:03:55 verbose #2609 > >
00:03:55 verbose #2610 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 verbose #2611 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 verbose #2612 > > │ ### __assert_ge │
00:03:55 verbose #2613 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #2614 > >
00:03:55 verbose #2615 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 verbose #2616 > > inl __assert_ge log b a = __expect (>=) log "assert_ge" b a
00:03:55 verbose #2617 > > inl _assert_ge b a = __assert_ge true b a
00:03:55 verbose #2618 > >
00:03:55 verbose #2619 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 verbose #2620 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 verbose #2621 > > │ ### __assert_lt │
00:03:55 verbose #2622 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 verbose #2623 > >
00:03:55 verbose #2624 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 verbose #2625 > > inl __assert_lt log b a = __expect (<) log "assert_lt" b a
00:03:55 verbose #2626 > > inl _assert_lt b a = __assert_lt true b a
00:03:56 verbose #2627 > >
00:03:56 verbose #2628 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 verbose #2629 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 verbose #2630 > > │ ### __assert_le │
00:03:56 verbose #2631 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #2632 > >
00:03:56 verbose #2633 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 verbose #2634 > > inl __assert_le log b a = __expect (<=) log "assert_le" b a
00:03:56 verbose #2635 > > inl _assert_le b a = __assert_le true b a
00:03:57 verbose #2636 > >
00:03:57 verbose #2637 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:57 verbose #2638 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:57 verbose #2639 > > │ ### __assert_string_contains │
00:03:57 verbose #2640 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 verbose #2641 > >
00:03:57 verbose #2642 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 verbose #2643 > > inl __assert_string_contains log b a = __expect sm'.contains log
00:03:57 verbose #2644 > > "assert_string_contains" a b
00:03:57 verbose #2645 > > inl _assert_string_contains b a = __assert_string_contains true b a
00:03:58 verbose #2646 > >
00:03:58 verbose #2647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:58 verbose #2648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:58 verbose #2649 > > │ ### __assert_between │
00:03:58 verbose #2650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 verbose #2651 > >
00:03:58 verbose #2652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 verbose #2653 > > inl __assert_between log a b actual =
00:03:58 verbose #2654 > > inl assert_between actual (a, b) =
00:03:58 verbose #2655 > > __assert_ge false a actual
00:03:58 verbose #2656 > > __assert_le false b actual
00:03:58 verbose #2657 > > true
00:03:58 verbose #2658 > > __expect assert_between log "assert_between" (a, b) actual
00:03:58 verbose #2659 > > inl _assert_between a b actual = __assert_between true a b actual
00:03:58 verbose #2660 > >
00:03:58 verbose #2661 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:58 verbose #2662 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:58 verbose #2663 > > │ ## fsharp │
00:03:58 verbose #2664 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 verbose #2665 > >
00:03:58 verbose #2666 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:58 verbose #2667 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:58 verbose #2668 > > │ ### __assert_contains │
00:03:58 verbose #2669 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 verbose #2670 > >
00:03:58 verbose #2671 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 verbose #2672 > > inl __assert_contains forall t. log (b : t) a =
00:03:58 verbose #2673 > > __expect
00:03:58 verbose #2674 > > fun a b =>
00:03:58 verbose #2675 > > a
00:03:58 verbose #2676 > > |> $'List.ofSeq'
00:03:58 verbose #2677 > > |> fun x => x : listm'.list' t
00:03:58 verbose #2678 > > |> $'List.tryFind' ((=) b)
00:03:58 verbose #2679 > > |> optionm'.unbox
00:03:58 verbose #2680 > > |> fun (x : _ t) => x <> None
00:03:58 verbose #2681 > > log "assert_contains" b a
00:03:58 verbose #2682 > > inl _assert_contains b a = __assert_contains true b a
00:03:59 verbose #2683 > >
00:03:59 verbose #2684 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:59 verbose #2685 > > //// test
00:03:59 verbose #2686 > >
00:03:59 verbose #2687 > > "abcd"
00:03:59 verbose #2688 > > |> _assert_contains 'b'
00:04:00 verbose #2689 > >
00:04:00 verbose #2690 > > ╭─[ 1.22s - stdout ]───────────────────────────────────────────────────────────╮
00:04:00 verbose #2691 > > │ assert_contains / actual: "abcd" / expected: 'b' │
00:04:00 verbose #2692 > > │ │
00:04:00 verbose #2693 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 verbose #2694 > >
00:04:00 verbose #2695 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:00 verbose #2696 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:00 verbose #2697 > > │ ### _throws │
00:04:00 verbose #2698 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 verbose #2699 > >
00:04:00 verbose #2700 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:00 verbose #2701 > > inl _throws (fn : () -> ()) : option exn =
00:04:00 verbose #2702 > > inl none = None : option exn
00:04:00 verbose #2703 > > inl some (s : exn) = Some s
00:04:00 verbose #2704 > > $'try !fn (); !none with ex -> ex |> !some '
00:04:01 verbose #2705 > >
00:04:01 verbose #2706 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:01 verbose #2707 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:01 verbose #2708 > > │ ### print_and_return │
00:04:01 verbose #2709 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:01 verbose #2710 > >
00:04:01 verbose #2711 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:01 verbose #2712 > > inl print_and_return x =
00:04:01 verbose #2713 > > $'printfn $"print_and_return / x: {!x}"'
00:04:01 verbose #2714 > > x
00:04:02 verbose #2715 > 00:00:26 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 12961
00:04:02 verbose #2716 > 00:00:26 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:04:05 verbose #2717 > 00:00:29 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/testing.dib.ipynb to html
00:04:05 verbose #2718 > 00:00:29 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:05 verbose #2719 > 00:00:29 verbose #7 ! validate(nb)
00:04:06 verbose #2720 > 00:00:30 verbose #8 ! [NbConvertApp] Writing 304900 bytes to c:\home\git\polyglot\lib\spiral\testing.dib.html
00:04:06 verbose #2721 > 00:00:30 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:04:06 verbose #2722 > 00:00:30 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:04:06 verbose #2723 > 00:00:30 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/testing.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/testing.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:04:07 verbose #2724 > 00:00:31 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:04:07 verbose #2725 > 00:00:31 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:04:08 verbose #2726 > 00:00:32 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 13665
00:04:08 debug #2727 runtime.execute_with_options_async / exit_code: 0 / output.Length: 16439
00:04:08 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path testing.dib --retries 3
00:04:08 debug #2728 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path guid.dib --retries 3",
[||], None, None, true, None)
00:04:08 verbose #2729 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "guid.dib", "--retries", "3"])
00:04:08 verbose #2730 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/guid.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/guid.dib" --output-path "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:04:10 verbose #2731 > >
00:04:10 verbose #2732 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:10 verbose #2733 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:10 verbose #2734 > > │ # guid │
00:04:10 verbose #2735 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:10 verbose #2736 > >
00:04:10 verbose #2737 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:10 verbose #2738 > > //// test
00:04:10 verbose #2739 > >
00:04:10 verbose #2740 > > open testing
00:04:10 verbose #2741 > >
00:04:10 verbose #2742 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:04:10 verbose #2743 > > #r
00:04:10 verbose #2744 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:04:10 verbose #2745 > > otNet.Interactive.Spiral.dll"
00:04:10 verbose #2746 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:04:10 verbose #2747 > > #r
00:04:10 verbose #2748 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:04:10 verbose #2749 > > otNet.Interactive.dll"
00:04:10 verbose #2750 > > open type Microsoft.DotNet.Interactive.Kernel
00:04:16 verbose #2751 > >
00:04:16 verbose #2752 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:16 verbose #2753 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:16 verbose #2754 > > │ ## guid │
00:04:16 verbose #2755 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 verbose #2756 > >
00:04:16 verbose #2757 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:16 verbose #2758 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:16 verbose #2759 > > │ ### guid │
00:04:16 verbose #2760 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 verbose #2761 > >
00:04:16 verbose #2762 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 verbose #2763 > > nominal guid = $'System.Guid'
00:04:17 verbose #2764 > >
00:04:17 verbose #2765 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:17 verbose #2766 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:17 verbose #2767 > > │ ### new_guid │
00:04:17 verbose #2768 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 verbose #2769 > >
00:04:17 verbose #2770 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 verbose #2771 > > inl new_guid (x : string) : guid =
00:04:17 verbose #2772 > > x |> convert
00:04:18 verbose #2773 > >
00:04:18 verbose #2774 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:18 verbose #2775 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:18 verbose #2776 > > │ ### new_raw_guid │
00:04:18 verbose #2777 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 verbose #2778 > >
00:04:18 verbose #2779 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:18 verbose #2780 > > inl new_raw_guid () : guid =
00:04:18 verbose #2781 > > $'System.Guid.NewGuid' ()
00:04:18 verbose #2782 > >
00:04:18 verbose #2783 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:18 verbose #2784 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:18 verbose #2785 > > │ ### hash_guid │
00:04:18 verbose #2786 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 verbose #2787 > >
00:04:18 verbose #2788 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:18 verbose #2789 > > type hash_guid = guid
00:04:18 verbose #2790 > >
00:04:18 verbose #2791 > > let hash_guid (~hash : string) : hash_guid =
00:04:18 verbose #2792 > > run_target function
00:04:18 verbose #2793 > > | Rust (Contract) => fun () => null ()
00:04:18 verbose #2794 > > | _ => fun () =>
00:04:18 verbose #2795 > > inl hash = hash |> sm'.pad_left 32i32 '0'
00:04:18 verbose #2796 > > $'`hash_guid
00:04:18 verbose #2797 > > $"{!hash.[[0..7]]}-{!hash.[[8..11]]}-{!hash.[[12..15]]}-{!hash.[[16..19]]}-{!has
00:04:18 verbose #2798 > > h.[[20..31]]}"'
00:04:19 verbose #2799 > >
00:04:19 verbose #2800 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:19 verbose #2801 > > //// test
00:04:19 verbose #2802 > >
00:04:19 verbose #2803 > > ""
00:04:19 verbose #2804 > > |> hash_guid
00:04:19 verbose #2805 > > |> _assert_eq' (new_guid "00000000-0000-0000-0000-000000000000")
00:04:19 verbose #2806 > >
00:04:19 verbose #2807 > > "123456789012345678901234567890123"
00:04:19 verbose #2808 > > |> hash_guid
00:04:19 verbose #2809 > > |> _assert_eq' (new_guid "12345678-9012-3456-7890-123456789012")
00:04:20 verbose #2810 > >
00:04:20 verbose #2811 > > ╭─[ 1.64s - stdout ]───────────────────────────────────────────────────────────╮
00:04:20 verbose #2812 > > │ assert_eq' / actual: 00000000-0000-0000-0000-000000000000 / expected: │
00:04:20 verbose #2813 > > │ 00000000-0000-0000-0000-000000000000 │
00:04:20 verbose #2814 > > │ assert_eq' / actual: 12345678-9012-3456-7890-123456789012 / expected: │
00:04:20 verbose #2815 > > │ 12345678-9012-3456-7890-123456789012 │
00:04:20 verbose #2816 > > │ │
00:04:20 verbose #2817 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:20 verbose #2818 > >
00:04:20 verbose #2819 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:20 verbose #2820 > > //// test
00:04:20 verbose #2821 > > ///! rust
00:04:20 verbose #2822 > > ///! typescript
00:04:20 verbose #2823 > > ///! python
00:04:20 verbose #2824 > >
00:04:20 verbose #2825 > > ""
00:04:20 verbose #2826 > > |> hash_guid
00:04:20 verbose #2827 > > |> _assert_eq' (new_guid "00000000-0000-0000-0000-000000000000")
00:04:20 verbose #2828 > >
00:04:20 verbose #2829 > > "123456789012345678901234567890123"
00:04:20 verbose #2830 > > |> hash_guid
00:04:20 verbose #2831 > > |> _assert_eq' (new_guid "12345678-9012-3456-7890-123456789012")
00:04:25 verbose #2832 > >
00:04:25 verbose #2833 > > ╭─[ 4.64s - return value ]─────────────────────────────────────────────────────╮
00:04:25 verbose #2834 > > │ .rs output: │
00:04:25 verbose #2835 > > │ assert_eq' / actual: Guid(00000000-0000-0000-0000-000000000000) / expected: │
00:04:25 verbose #2836 > > │ Guid(00000000-0000-0000-0000-000000000000) │
00:04:25 verbose #2837 > > │ assert_eq' / actual: Guid(12345678-9012-3456-7890-123456789012) / expected: │
00:04:25 verbose #2838 > > │ Guid(12345678-9012-3456-7890-123456789012) │
00:04:25 verbose #2839 > > │ │
00:04:25 verbose #2840 > > │ .ts output: │
00:04:25 verbose #2841 > > │ assert_eq' / actual: 00000000-0000-0000-0000-000000000000 / expected: │
00:04:25 verbose #2842 > > │ 00000000-0000-0000-0000-000000000000 │
00:04:25 verbose #2843 > > │ assert_eq' / actual: 12345678-9012-3456-7890-123456789012 / expected: │
00:04:25 verbose #2844 > > │ 12345678-9012-3456-7890-123456789012 │
00:04:25 verbose #2845 > > │ │
00:04:25 verbose #2846 > > │ .py output: │
00:04:25 verbose #2847 > > │ assert_eq' / actual: 00000000-0000-0000-0000-000000000000 / expected: │
00:04:25 verbose #2848 > > │ 00000000-0000-0000-0000-000000000000 │
00:04:25 verbose #2849 > > │ assert_eq' / actual: 12345678-9012-3456-7890-123456789012 / expected: │
00:04:25 verbose #2850 > > │ 12345678-9012-3456-7890-123456789012 │
00:04:25 verbose #2851 > > │ │
00:04:25 verbose #2852 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 verbose #2853 > >
00:04:25 verbose #2854 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:25 verbose #2855 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:25 verbose #2856 > > │ ## main │
00:04:25 verbose #2857 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 verbose #2858 > >
00:04:25 verbose #2859 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:25 verbose #2860 > > inl main () =
00:04:25 verbose #2861 > > $'let new_guid x = !new_guid x' : ()
00:04:25 verbose #2862 > > $'let hash_guid x = !hash_guid x' : ()
00:04:25 verbose #2863 > > $'let new_raw_guid x = !new_raw_guid x' : ()
00:04:26 verbose #2864 > 00:00:18 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 6636
00:04:26 verbose #2865 > 00:00:18 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:04:28 verbose #2866 > 00:00:20 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/guid.dib.ipynb to html
00:04:28 verbose #2867 > 00:00:20 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:28 verbose #2868 > 00:00:20 verbose #7 ! validate(nb)
00:04:29 verbose #2869 > 00:00:21 verbose #8 ! [NbConvertApp] Writing 283496 bytes to c:\home\git\polyglot\lib\spiral\guid.dib.html
00:04:30 verbose #2870 > 00:00:21 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:04:30 verbose #2871 > 00:00:21 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:04:30 verbose #2872 > 00:00:21 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/guid.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/guid.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:04:31 verbose #2873 > 00:00:22 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:04:31 verbose #2874 > 00:00:22 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:04:31 verbose #2875 > 00:00:23 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 7334
00:04:31 debug #2876 runtime.execute_with_options_async / exit_code: 0 / output.Length: 9837
00:04:31 debug #4 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path guid.dib --retries 3
00:04:31 debug #2877 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path async.dib --retries 3",
[||], None, None, true, None)
00:04:31 verbose #2878 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "async.dib", "--retries", "3"])
00:04:31 verbose #2879 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/async.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/async.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/async.dib" --output-path "c:/home/git/polyglot/lib/spiral/async.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:04:34 verbose #2880 > >
00:04:34 verbose #2881 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:34 verbose #2882 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:34 verbose #2883 > > │ # async │
00:04:34 verbose #2884 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:34 verbose #2885 > >
00:04:34 verbose #2886 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:34 verbose #2887 > > //// test
00:04:34 verbose #2888 > >
00:04:34 verbose #2889 > > open testing
00:04:34 verbose #2890 > >
00:04:34 verbose #2891 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:04:34 verbose #2892 > > #r
00:04:34 verbose #2893 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:04:34 verbose #2894 > > otNet.Interactive.Spiral.dll"
00:04:34 verbose #2895 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:04:34 verbose #2896 > > #r
00:04:34 verbose #2897 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:04:34 verbose #2898 > > otNet.Interactive.dll"
00:04:34 verbose #2899 > > open type Microsoft.DotNet.Interactive.Kernel
00:04:40 verbose #2900 > >
00:04:40 verbose #2901 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 verbose #2902 > > open rust_operators
00:04:40 verbose #2903 > >
00:04:40 verbose #2904 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 verbose #2905 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 verbose #2906 > > │ ## types │
00:04:40 verbose #2907 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 verbose #2908 > >
00:04:40 verbose #2909 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 verbose #2910 > > inl types () =
00:04:40 verbose #2911 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2912 > > Fable.Core.Emit(\"futures::future::JoinAll<$0>\")>]]\n#endif\ntype
00:04:40 verbose #2913 > > futures_future_JoinAll<'T> = class end"
00:04:40 verbose #2914 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2915 > > Fable.Core.Emit(\"futures::future::TryJoinAll<$0>\")>]]\n#endif\ntype
00:04:40 verbose #2916 > > futures_future_TryJoinAll<'T> = class end"
00:04:40 verbose #2917 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2918 > > Fable.Core.Emit(\"rayon::iter::Map<$0, _>\")>]]\n#endif\ntype rayon_iter_Map<'T>
00:04:40 verbose #2919 > > = class end"
00:04:40 verbose #2920 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2921 > > Fable.Core.Emit(\"rayon::vec::IntoIter<$0>\")>]]\n#endif\ntype
00:04:40 verbose #2922 > > rayon_vec_IntoIter<'T> = class end"
00:04:40 verbose #2923 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2924 > > Fable.Core.Emit(\"std::future::Future<Output = $0>\")>]]\n#endif\ntype
00:04:40 verbose #2925 > > std_future_Future<'T> = class end"
00:04:40 verbose #2926 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2927 > > Fable.Core.Emit(\"tokio::prelude::stream::Fuse<$0>\")>]]\n#endif\ntype
00:04:40 verbose #2928 > > futures_future_Fuse<'T> = class end"
00:04:40 verbose #2929 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2930 > > Fable.Core.Emit(\"tokio::task::JoinHandle<$0>\")>]]\n#endif\ntype
00:04:40 verbose #2931 > > tokio_task_JoinHandle<'T> = class end"
00:04:40 verbose #2932 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:40 verbose #2933 > > Fable.Core.Emit(\"tokio_stream::StreamExt\")>]]\n#endif\ntype
00:04:40 verbose #2934 > > tokio_stream_StreamExt = class end"
00:04:41 verbose #2935 > >
00:04:41 verbose #2936 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 verbose #2937 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 verbose #2938 > > │ ## rust │
00:04:41 verbose #2939 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #2940 > >
00:04:41 verbose #2941 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 verbose #2942 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 verbose #2943 > > │ ### future │
00:04:41 verbose #2944 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 verbose #2945 > >
00:04:41 verbose #2946 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 verbose #2947 > > nominal future t = $'std_future_Future<`t>'
00:04:42 verbose #2948 > >
00:04:42 verbose #2949 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 verbose #2950 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 verbose #2951 > > │ ### future_pin │
00:04:42 verbose #2952 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 verbose #2953 > >
00:04:42 verbose #2954 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 verbose #2955 > > type future_pin t = rust.pin (rust.box (rust.dyn' (future t)))
00:04:42 verbose #2956 > >
00:04:42 verbose #2957 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 verbose #2958 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 verbose #2959 > > │ ### future_pin_send │
00:04:42 verbose #2960 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 verbose #2961 > >
00:04:42 verbose #2962 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 verbose #2963 > > type future_pin_send t = rust.pin (rust.box (rust.send (rust.dyn' (future t))))
00:04:43 verbose #2964 > >
00:04:43 verbose #2965 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 verbose #2966 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 verbose #2967 > > │ ### block_on │
00:04:43 verbose #2968 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #2969 > >
00:04:43 verbose #2970 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #2971 > > inl block_on forall t. (fn : future_pin t) : t =
00:04:43 verbose #2972 > > inl runtime : infer =
00:04:43 verbose #2973 > >
00:04:43 verbose #2974 > > !\($'$"tokio::runtime::Builder::new_multi_thread().enable_all().build().unwrap()
00:04:43 verbose #2975 > > "')
00:04:43 verbose #2976 > > !\\(fn, $'"!runtime.handle().block_on($0)"')
00:04:43 verbose #2977 > >
00:04:43 verbose #2978 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 verbose #2979 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 verbose #2980 > > │ ### block_on' │
00:04:43 verbose #2981 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #2982 > >
00:04:43 verbose #2983 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #2984 > > inl block_on' forall t. (fn : future_pin t) : t =
00:04:43 verbose #2985 > > !\\(fn, $'"futures_lite::future::block_on($0)"')
00:04:44 verbose #2986 > >
00:04:44 verbose #2987 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 verbose #2988 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 verbose #2989 > > │ ### block_on'' │
00:04:44 verbose #2990 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 verbose #2991 > >
00:04:44 verbose #2992 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 verbose #2993 > > inl block_on'' forall t. (fn : future_pin t) : t =
00:04:44 verbose #2994 > > !\\(fn, $'"futures::executor::block_on($0)"')
00:04:45 verbose #2995 > >
00:04:45 verbose #2996 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 verbose #2997 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 verbose #2998 > > │ ### block_on''' │
00:04:45 verbose #2999 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 verbose #3000 > >
00:04:45 verbose #3001 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 verbose #3002 > > inl block_on''' forall t. (fn : future_pin t) : t =
00:04:45 verbose #3003 > > !\\(fn, $'"async_std::task::block_on($0)"')
00:04:46 verbose #3004 > >
00:04:46 verbose #3005 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 verbose #3006 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 verbose #3007 > > │ ### block_on_send │
00:04:46 verbose #3008 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #3009 > >
00:04:46 verbose #3010 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 verbose #3011 > > inl block_on_send forall t. (fn : future_pin_send t) : t =
00:04:46 verbose #3012 > > !\($'"tokio::runtime::block_on(!fn)"')
00:04:46 verbose #3013 > >
00:04:46 verbose #3014 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 verbose #3015 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 verbose #3016 > > │ ### stream_ext │
00:04:46 verbose #3017 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 verbose #3018 > >
00:04:46 verbose #3019 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 verbose #3020 > > nominal stream_ext = $'tokio_stream_StreamExt'
00:04:47 verbose #3021 > >
00:04:47 verbose #3022 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:47 verbose #3023 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:47 verbose #3024 > > │ ### join_handle │
00:04:47 verbose #3025 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:47 verbose #3026 > >
00:04:47 verbose #3027 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:47 verbose #3028 > > nominal join_handle t = $'tokio_task_JoinHandle<`t>'
00:04:48 verbose #3029 > >
00:04:48 verbose #3030 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #3031 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #3032 > > │ ### spawn │
00:04:48 verbose #3033 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #3034 > >
00:04:48 verbose #3035 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #3036 > > inl spawn forall t. (fn : future_pin_send t) : join_handle t =
00:04:48 verbose #3037 > > !\($'"tokio::runtime::spawn(!fn)"')
00:04:49 verbose #3038 > >
00:04:49 verbose #3039 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:49 verbose #3040 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:49 verbose #3041 > > │ ### try_join_all │
00:04:49 verbose #3042 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 verbose #3043 > >
00:04:49 verbose #3044 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:49 verbose #3045 > > nominal try_join_all t = $'futures_future_TryJoinAll<`t>'
00:04:49 verbose #3046 > >
00:04:49 verbose #3047 > > inl try_join_all forall t. (x : am'.vec (future_pin (resultm.result' t
00:04:49 verbose #3048 > > sm'.std_string))) : try_join_all (future_pin (resultm.result' t sm'.std_string))
00:04:49 verbose #3049 > > =
00:04:49 verbose #3050 > > inl x = join x
00:04:49 verbose #3051 > > !\($'"futures::future::try_join_all(!x)"')
00:04:49 verbose #3052 > >
00:04:49 verbose #3053 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:49 verbose #3054 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:49 verbose #3055 > > │ ### fuse │
00:04:49 verbose #3056 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 verbose #3057 > >
00:04:49 verbose #3058 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:49 verbose #3059 > > nominal fuse t = $'futures_future_Fuse<`t>'
00:04:49 verbose #3060 > >
00:04:49 verbose #3061 > > inl future_fuse forall t. (x : future_pin t) : fuse (future_pin t) =
00:04:49 verbose #3062 > > !\($'"futures::future::FutureExt::fuse(!x)"')
00:04:50 verbose #3063 > >
00:04:50 verbose #3064 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:50 verbose #3065 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:50 verbose #3066 > > │ ### join_all │
00:04:50 verbose #3067 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 verbose #3068 > >
00:04:50 verbose #3069 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:50 verbose #3070 > > nominal join_all t = $'futures_future_JoinAll<`t>'
00:04:50 verbose #3071 > >
00:04:50 verbose #3072 > > inl join_all forall t. (x : am'.vec (future_pin t)) : join_all (future_pin t) =
00:04:50 verbose #3073 > > inl x = join x
00:04:50 verbose #3074 > > !\($'"futures::future::join_all(!x)"')
00:04:51 verbose #3075 > >
00:04:51 verbose #3076 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:51 verbose #3077 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:51 verbose #3078 > > │ ### join_all_send │
00:04:51 verbose #3079 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:51 verbose #3080 > >
00:04:51 verbose #3081 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:51 verbose #3082 > > inl join_all_send forall t. (x : am'.vec (future_pin_send t)) : join_all
00:04:51 verbose #3083 > > (future_pin_send t) =
00:04:51 verbose #3084 > > inl x = join x
00:04:51 verbose #3085 > > !\($'"futures::future::join_all(!x)"')
00:04:52 verbose #3086 > >
00:04:52 verbose #3087 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:52 verbose #3088 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:52 verbose #3089 > > │ ### await_handle │
00:04:52 verbose #3090 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:52 verbose #3091 > >
00:04:52 verbose #3092 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:52 verbose #3093 > > inl await_handle forall t. (x : join_handle t) : t =
00:04:52 verbose #3094 > > !\($'"!x.await"')
00:04:52 verbose #3095 > >
00:04:52 verbose #3096 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:52 verbose #3097 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:52 verbose #3098 > > │ ### await_all │
00:04:52 verbose #3099 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:52 verbose #3100 > >
00:04:52 verbose #3101 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:52 verbose #3102 > > inl await_all forall t. (x : join_all (future_pin t)) : am'.vec t =
00:04:52 verbose #3103 > > !\($'"!x.await"')
00:04:53 verbose #3104 > >
00:04:53 verbose #3105 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:53 verbose #3106 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:53 verbose #3107 > > │ ### await_all_send │
00:04:53 verbose #3108 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:53 verbose #3109 > >
00:04:53 verbose #3110 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:53 verbose #3111 > > inl await_all_send forall t. (x : join_all (future_pin_send t)) : am'.vec t =
00:04:53 verbose #3112 > > !\($'"!x.await"')
00:04:54 verbose #3113 > >
00:04:54 verbose #3114 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:54 verbose #3115 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:54 verbose #3116 > > │ ### try_await_all │
00:04:54 verbose #3117 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 verbose #3118 > >
00:04:54 verbose #3119 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 verbose #3120 > > inl try_await_all forall t. (x : try_join_all (future_pin (resultm.result' t
00:04:54 verbose #3121 > > sm'.std_string))) : resultm.result' (am'.vec t) sm'.std_string =
00:04:54 verbose #3122 > > !\($'"!x.await"')
00:04:55 verbose #3123 > >
00:04:55 verbose #3124 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:55 verbose #3125 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:55 verbose #3126 > > │ ### try_await_all_send │
00:04:55 verbose #3127 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:55 verbose #3128 > >
00:04:55 verbose #3129 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:55 verbose #3130 > > inl try_await_all_send forall t. (x : try_join_all (future_pin_send
00:04:55 verbose #3131 > > (resultm.result' t sm'.std_string))) : resultm.result' (am'.vec t)
00:04:55 verbose #3132 > > sm'.std_string =
00:04:55 verbose #3133 > > !\($'"!x.await"')
00:04:56 verbose #3134 > >
00:04:56 verbose #3135 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:56 verbose #3136 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:56 verbose #3137 > > │ ### await │
00:04:56 verbose #3138 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:56 verbose #3139 > >
00:04:56 verbose #3140 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:56 verbose #3141 > > inl await forall t. (x : future_pin t) : t =
00:04:56 verbose #3142 > > !\($'"!x.await"')
00:04:56 verbose #3143 > >
00:04:56 verbose #3144 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:56 verbose #3145 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:56 verbose #3146 > > │ ### await │
00:04:56 verbose #3147 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:56 verbose #3148 > >
00:04:56 verbose #3149 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:56 verbose #3150 > > inl await_send forall t. (x : future_pin_send t) : t =
00:04:56 verbose #3151 > > !\($'"!x.await"')
00:04:57 verbose #3152 > >
00:04:57 verbose #3153 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:57 verbose #3154 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:57 verbose #3155 > > │ ### into_iter │
00:04:57 verbose #3156 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 verbose #3157 > >
00:04:57 verbose #3158 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:57 verbose #3159 > > nominal into_iter t = $'rayon_vec_IntoIter<`t>'
00:04:58 verbose #3160 > >
00:04:58 verbose #3161 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:58 verbose #3162 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:58 verbose #3163 > > │ ### into_par_iter │
00:04:58 verbose #3164 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #3165 > >
00:04:58 verbose #3166 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:58 verbose #3167 > > inl into_par_iter forall t. (x : am'.vec t) : into_iter t =
00:04:58 verbose #3168 > > !\($'"rayon::iter::IntoParallelIterator::into_par_iter(!x)"')
00:04:58 verbose #3169 > >
00:04:58 verbose #3170 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:58 verbose #3171 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:58 verbose #3172 > > │ ### par_iter │
00:04:58 verbose #3173 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:58 verbose #3174 > >
00:04:58 verbose #3175 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:58 verbose #3176 > > inl par_iter forall t. (x : am'.vec t) : into_iter t =
00:04:58 verbose #3177 > > !\($'"rayon::iter::IntoParallelIterator::par_iter(!x)"')
00:04:59 verbose #3178 > >
00:04:59 verbose #3179 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:59 verbose #3180 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:59 verbose #3181 > > │ ### iter_map │
00:04:59 verbose #3182 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #3183 > >
00:04:59 verbose #3184 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:59 verbose #3185 > > nominal iter_map t u = $'rayon_iter_Map<`t>'
00:05:00 verbose #3186 > >
00:05:00 verbose #3187 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:00 verbose #3188 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:00 verbose #3189 > > │ ### par_map │
00:05:00 verbose #3190 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:00 verbose #3191 > >
00:05:00 verbose #3192 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:00 verbose #3193 > > inl par_map forall t u. (fn : t -> u) (ar : into_iter t) : iter_map (into_iter
00:05:00 verbose #3194 > > t) u =
00:05:00 verbose #3195 > > !\\((ar, fn), $'"rayon::iter::ParallelIterator::map($0, |x| $1(x))"')
00:05:01 verbose #3196 > >
00:05:01 verbose #3197 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:01 verbose #3198 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:01 verbose #3199 > > │ ### par_collect │
00:05:01 verbose #3200 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 verbose #3201 > >
00:05:01 verbose #3202 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:01 verbose #3203 > > inl par_collect forall t u. (iter : iter_map (into_iter t) u) : am'.vec u =
00:05:01 verbose #3204 > > !\\(iter, $'"rayon::iter::ParallelIterator::collect($0)"')
00:05:02 verbose #3205 > >
00:05:02 verbose #3206 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:02 verbose #3207 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:02 verbose #3208 > > │ ### try_join_all_iter │
00:05:02 verbose #3209 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 verbose #3210 > >
00:05:02 verbose #3211 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:02 verbose #3212 > > inl try_join_all_iter forall t. (x : am'.vec (future_pin_send (resultm.result' t
00:05:02 verbose #3213 > > sm'.std_string))) : try_join_all (future_pin_send (resultm.result' t
00:05:02 verbose #3214 > > sm'.std_string)) =
00:05:02 verbose #3215 > > inl x = join x
00:05:02 verbose #3216 > > !\($'"futures::future::try_join_all(!x)"')
00:05:03 verbose #3217 > >
00:05:03 verbose #3218 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:03 verbose #3219 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:03 verbose #3220 > > │ ### new_future │
00:05:03 verbose #3221 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #3222 > >
00:05:03 verbose #3223 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:03 verbose #3224 > > inl new_future forall t. (x : () -> t) : future_pin t =
00:05:03 verbose #3225 > > join
00:05:03 verbose #3226 > > !\($'"{Box::pin(async { //"')
00:05:03 verbose #3227 > > x () |> fun x => join $'!x '
00:05:03 verbose #3228 > > !\($'"}}) //"')
00:05:03 verbose #3229 > >
00:05:03 verbose #3230 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:03 verbose #3231 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:03 verbose #3232 > > │ ### new_future_move │
00:05:03 verbose #3233 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:03 verbose #3234 > >
00:05:03 verbose #3235 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:03 verbose #3236 > > inl new_future_move forall t. (x : () -> t) : future_pin t =
00:05:03 verbose #3237 > > join
00:05:03 verbose #3238 > > !\($'"{Box::pin(async move { //"')
00:05:03 verbose #3239 > > x () |> fun x => join $'!x '
00:05:03 verbose #3240 > > !\($'"}}) //"')
00:05:04 verbose #3241 > >
00:05:04 verbose #3242 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:04 verbose #3243 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:04 verbose #3244 > > │ ### future_init │
00:05:04 verbose #3245 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:04 verbose #3246 > >
00:05:04 verbose #3247 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:04 verbose #3248 > > inl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:05:04 verbose #3249 > > future_pin t =
00:05:04 verbose #3250 > > // join
00:05:04 verbose #3251 > > // if flag = 1
00:05:04 verbose #3252 > > // then new_future_move x
00:05:04 verbose #3253 > > // else new_future x
00:05:04 verbose #3254 > > if flag = 1
00:05:04 verbose #3255 > > then !\($'"let __result = Box::pin(async move { //"')
00:05:04 verbose #3256 > > else !\($'"let __result = Box::pin(async { //"')
00:05:04 verbose #3257 > >
00:05:04 verbose #3258 > > let x' = x ()
00:05:04 verbose #3259 > > inl x' = join x'
00:05:04 verbose #3260 > >
00:05:04 verbose #3261 > > x' |> rust.fix_closure depth
00:05:04 verbose #3262 > >
00:05:04 verbose #3263 > > !\($'"__result"')
00:05:05 verbose #3264 > >
00:05:05 verbose #3265 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:05 verbose #3266 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:05 verbose #3267 > > │ ### future_init_send │
00:05:05 verbose #3268 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:05 verbose #3269 > >
00:05:05 verbose #3270 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:05 verbose #3271 > > inl future_init_send forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:05:05 verbose #3272 > > future_pin_send t =
00:05:05 verbose #3273 > > // join
00:05:05 verbose #3274 > > // if flag = 1
00:05:05 verbose #3275 > > // then new_future_move x
00:05:05 verbose #3276 > > // else new_future x
00:05:05 verbose #3277 > > join
00:05:05 verbose #3278 > > if flag = 1
00:05:05 verbose #3279 > > then !\($'"let __result = Box::pin(async move { //"')
00:05:05 verbose #3280 > > else !\($'"let __result = Box::pin(async { //"')
00:05:05 verbose #3281 > >
00:05:05 verbose #3282 > > let x' = x ()
00:05:05 verbose #3283 > > inl x' = join x'
00:05:05 verbose #3284 > >
00:05:05 verbose #3285 > > x' |> rust.fix_closure depth
00:05:05 verbose #3286 > >
00:05:05 verbose #3287 > > !\($'"__result"')
00:05:06 verbose #3288 > >
00:05:06 verbose #3289 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:06 verbose #3290 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:06 verbose #3291 > > │ ### new_future_move_init │
00:05:06 verbose #3292 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 verbose #3293 > >
00:05:06 verbose #3294 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:06 verbose #3295 > > inl new_future_move_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t)
00:05:06 verbose #3296 > > : future_pin t =
00:05:06 verbose #3297 > > future_init depth flag x
00:05:06 verbose #3298 > > // join
00:05:06 verbose #3299 > > // !\($'"{Box::pin(async move { //"')
00:05:06 verbose #3300 > > // inl x' = x () |> fun x => join $'!x '
00:05:06 verbose #3301 > > // inl depth = depth |> fst
00:05:06 verbose #3302 > > // if depth = 1
00:05:06 verbose #3303 > > // then !\($'"!x' })"')
00:05:06 verbose #3304 > > // elif depth = 2
00:05:06 verbose #3305 > > // then !\($'"!x' }})"')
00:05:06 verbose #3306 > > // elif depth = 3
00:05:06 verbose #3307 > > // then !\($'"!x' }}})"')
00:05:06 verbose #3308 > > // elif depth = 4
00:05:06 verbose #3309 > > // then !\($'"!x' }}}})"')
00:05:06 verbose #3310 > >
00:05:06 verbose #3311 > > // !\($'"// 1"')
00:05:06 verbose #3312 > >
00:05:06 verbose #3313 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:06 verbose #3314 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:06 verbose #3315 > > │ ## fsharp │
00:05:06 verbose #3316 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 verbose #3317 > >
00:05:06 verbose #3318 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:06 verbose #3319 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:06 verbose #3320 > > │ ### async │
00:05:06 verbose #3321 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 verbose #3322 > >
00:05:06 verbose #3323 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:06 verbose #3324 > > nominal async t = $'Async<`t>'
00:05:07 verbose #3325 > >
00:05:07 verbose #3326 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:07 verbose #3327 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:07 verbose #3328 > > │ ### task │
00:05:07 verbose #3329 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 verbose #3330 > >
00:05:07 verbose #3331 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:07 verbose #3332 > > nominal task t =
00:05:07 verbose #3333 > > `(
00:05:07 verbose #3334 > > typecase t with
00:05:07 verbose #3335 > > | () => $'' : $'System.Threading.Tasks.Task'
00:05:07 verbose #3336 > > | _ => $'' : $'System.Threading.Tasks.Task<`t>'
00:05:07 verbose #3337 > > )
00:05:08 verbose #3338 > >
00:05:08 verbose #3339 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:08 verbose #3340 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:08 verbose #3341 > > │ ### new_async_unit │
00:05:08 verbose #3342 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #3343 > >
00:05:08 verbose #3344 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:08 verbose #3345 > > inl new_async_unit forall t. (fn : () -> ()) : async t =
00:05:08 verbose #3346 > > run_target function
00:05:08 verbose #3347 > > | Fsharp (Native) => fun () =>
00:05:08 verbose #3348 > > inl result : optionm'.option' (async t) = optionm'.none' ()
00:05:08 verbose #3349 > > $'let mutable _!result = !result '
00:05:08 verbose #3350 > > $'async {'
00:05:08 verbose #3351 > > fn ()
00:05:08 verbose #3352 > > $'}'
00:05:08 verbose #3353 > > $'|> fun x -> _!result <- Some x'
00:05:08 verbose #3354 > > $'match _!result with Some x -> x | None -> failwith
00:05:08 verbose #3355 > > "async.new_async_unit / _!result=None"'
00:05:08 verbose #3356 > > | _ => fun () => null ()
00:05:08 verbose #3357 > >
00:05:08 verbose #3358 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:08 verbose #3359 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:08 verbose #3360 > > │ ### new_async │
00:05:08 verbose #3361 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 verbose #3362 > >
00:05:08 verbose #3363 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:08 verbose #3364 > > inl new_async forall t. (fn : () -> t) : async t =
00:05:08 verbose #3365 > > new_async_unit (fn >> ignore)
00:05:09 verbose #3366 > >
00:05:09 verbose #3367 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 verbose #3368 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 verbose #3369 > > │ ### new_task │
00:05:09 verbose #3370 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 verbose #3371 > >
00:05:09 verbose #3372 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 verbose #3373 > > inl new_task forall t. (fn : () -> t) : task t =
00:05:09 verbose #3374 > > run_target function
00:05:09 verbose #3375 > > | Fsharp (Native) => fun () =>
00:05:09 verbose #3376 > > inl result : optionm'.option' (task t) = optionm'.none' ()
00:05:09 verbose #3377 > > $'let mutable _!result = !result '
00:05:09 verbose #3378 > > $'task {'
00:05:09 verbose #3379 > > fn () |> ignore
00:05:09 verbose #3380 > > $'}'
00:05:09 verbose #3381 > > $'|> fun x -> _!result <- Some x'
00:05:09 verbose #3382 > > $'match _!result with Some x -> x | None -> failwith "async.new_task
00:05:09 verbose #3383 > > / _!result=None"'
00:05:09 verbose #3384 > > | _ => fun () => null ()
00:05:10 verbose #3385 > >
00:05:10 verbose #3386 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:10 verbose #3387 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:10 verbose #3388 > > │ ### await_task │
00:05:10 verbose #3389 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 verbose #3390 > >
00:05:10 verbose #3391 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:10 verbose #3392 > > inl await_task forall t. (a : task t) : async t =
00:05:10 verbose #3393 > > run_target function
00:05:10 verbose #3394 > > | Fsharp (Native) => fun () =>
00:05:10 verbose #3395 > > a |> $'Async.AwaitTask'
00:05:10 verbose #3396 > > | _ => fun () => null ()
00:05:10 verbose #3397 > >
00:05:10 verbose #3398 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:10 verbose #3399 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:10 verbose #3400 > > │ ### ignore │
00:05:10 verbose #3401 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 verbose #3402 > >
00:05:10 verbose #3403 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:10 verbose #3404 > > inl ignore forall t. (a : async t) : async () =
00:05:10 verbose #3405 > > run_target function
00:05:10 verbose #3406 > > | Fsharp (Native) => fun () =>
00:05:10 verbose #3407 > > a |> $'Async.Ignore'
00:05:10 verbose #3408 > > | _ => fun () => null ()
00:05:11 verbose #3409 > >
00:05:11 verbose #3410 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:11 verbose #3411 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:11 verbose #3412 > > │ ### run_synchronously │
00:05:11 verbose #3413 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:11 verbose #3414 > >
00:05:11 verbose #3415 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:11 verbose #3416 > > inl run_synchronously forall t. (a : async t) : t =
00:05:11 verbose #3417 > > run_target function
00:05:11 verbose #3418 > > | Fsharp (Native) => fun () =>
00:05:11 verbose #3419 > > a |> $'Async.RunSynchronously'
00:05:11 verbose #3420 > > | _ => fun () => null ()
00:05:12 verbose #3421 > >
00:05:12 verbose #3422 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:12 verbose #3423 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:12 verbose #3424 > > │ ### start │
00:05:12 verbose #3425 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:12 verbose #3426 > >
00:05:12 verbose #3427 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:12 verbose #3428 > > inl start (a : async ()) : () =
00:05:12 verbose #3429 > > run_target function
00:05:12 verbose #3430 > > | Fsharp (Native) => fun () =>
00:05:12 verbose #3431 > > a |> $'Async.Start'
00:05:12 verbose #3432 > > | _ => fun () => null ()
00:05:12 verbose #3433 > >
00:05:12 verbose #3434 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:12 verbose #3435 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:12 verbose #3436 > > │ ### start_child │
00:05:12 verbose #3437 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:12 verbose #3438 > >
00:05:12 verbose #3439 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:12 verbose #3440 > > inl start_child forall t. (a : async t) : async (async t) =
00:05:12 verbose #3441 > > run_target function
00:05:12 verbose #3442 > > | Fsharp (Native) => fun () =>
00:05:12 verbose #3443 > > a |> $'Async.StartChild'
00:05:12 verbose #3444 > > | _ => fun () => null ()
00:05:13 verbose #3445 > >
00:05:13 verbose #3446 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:13 verbose #3447 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:13 verbose #3448 > > │ ### start_child_timeout │
00:05:13 verbose #3449 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:13 verbose #3450 > >
00:05:13 verbose #3451 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:13 verbose #3452 > > inl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async
00:05:13 verbose #3453 > > t) =
00:05:13 verbose #3454 > > run_target function
00:05:13 verbose #3455 > > | Fsharp (Native) => fun () =>
00:05:13 verbose #3456 > > $'Async.StartChild (!a, !timeout)'
00:05:13 verbose #3457 > > | _ => fun () => null ()
00:05:14 verbose #3458 > >
00:05:14 verbose #3459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:14 verbose #3460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:14 verbose #3461 > > │ ### start_immediate │
00:05:14 verbose #3462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:14 verbose #3463 > >
00:05:14 verbose #3464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:14 verbose #3465 > > inl start_immediate forall t. (a : async t) : () =
00:05:14 verbose #3466 > > run_target function
00:05:14 verbose #3467 > > | Fsharp (Native) => fun () =>
00:05:14 verbose #3468 > > a |> $'Async.StartImmediate'
00:05:14 verbose #3469 > > | _ => fun () => null ()
00:05:14 verbose #3470 > >
00:05:14 verbose #3471 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:14 verbose #3472 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:14 verbose #3473 > > │ ### task_canceled_exception │
00:05:14 verbose #3474 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:14 verbose #3475 > >
00:05:14 verbose #3476 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:14 verbose #3477 > > nominal task_canceled_exception =
00:05:14 verbose #3478 > > $'System.Threading.Tasks.TaskCanceledException'
00:05:15 verbose #3479 > >
00:05:15 verbose #3480 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:15 verbose #3481 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:15 verbose #3482 > > │ ### sleep │
00:05:15 verbose #3483 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:15 verbose #3484 > >
00:05:15 verbose #3485 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:15 verbose #3486 > > inl sleep (ms : i32) : async () =
00:05:15 verbose #3487 > > run_target function
00:05:15 verbose #3488 > > | Fsharp (Native) => fun () =>
00:05:15 verbose #3489 > > ms |> $'Async.Sleep'
00:05:15 verbose #3490 > > | _ => fun () => null ()
00:05:16 verbose #3491 > >
00:05:16 verbose #3492 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:16 verbose #3493 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:16 verbose #3494 > > │ ### do │
00:05:16 verbose #3495 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:16 verbose #3496 > >
00:05:16 verbose #3497 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:16 verbose #3498 > > inl do (a : async ()) : () =
00:05:16 verbose #3499 > > $'do\! !a '
00:05:16 verbose #3500 > >
00:05:16 verbose #3501 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:16 verbose #3502 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:16 verbose #3503 > > │ ### let' │
00:05:16 verbose #3504 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:16 verbose #3505 > >
00:05:16 verbose #3506 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:16 verbose #3507 > > inl let' forall t. (a : async t) : t =
00:05:16 verbose #3508 > > $'let\! !a = !a '
00:05:16 verbose #3509 > > $'!a '
00:05:17 verbose #3510 > >
00:05:17 verbose #3511 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 verbose #3512 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 verbose #3513 > > │ ### return_await │
00:05:17 verbose #3514 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 verbose #3515 > >
00:05:17 verbose #3516 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 verbose #3517 > > inl return_await forall t. (a : async t) : () =
00:05:17 verbose #3518 > > $'return\! !a '
00:05:18 verbose #3519 > >
00:05:18 verbose #3520 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:18 verbose #3521 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:18 verbose #3522 > > │ ### return_await' │
00:05:18 verbose #3523 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #3524 > >
00:05:18 verbose #3525 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #3526 > > inl return_await' forall t. (a : async t) : t =
00:05:18 verbose #3527 > > $'return\! !a '
00:05:18 verbose #3528 > >
00:05:18 verbose #3529 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:18 verbose #3530 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:18 verbose #3531 > > │ ### map │
00:05:18 verbose #3532 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #3533 > >
00:05:18 verbose #3534 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #3535 > > inl map forall t u. (fn : t -> u) (a : async t) : async u =
00:05:18 verbose #3536 > > fun () =>
00:05:18 verbose #3537 > > inl x = a |> let'
00:05:18 verbose #3538 > > fn x |> return
00:05:18 verbose #3539 > > |> new_async_unit
00:05:19 verbose #3540 > >
00:05:19 verbose #3541 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:19 verbose #3542 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:19 verbose #3543 > > │ ### catch' │
00:05:19 verbose #3544 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:19 verbose #3545 > >
00:05:19 verbose #3546 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:19 verbose #3547 > > inl catch' forall t e. (a : async t) : async (choice2' t e) =
00:05:19 verbose #3548 > > run_target function
00:05:19 verbose #3549 > > | Fsharp (Native) => fun () =>
00:05:19 verbose #3550 > > a |> $'Async.Catch'
00:05:19 verbose #3551 > > | _ => fun () => null ()
00:05:20 verbose #3552 > >
00:05:20 verbose #3553 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:20 verbose #3554 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:20 verbose #3555 > > │ ### catch │
00:05:20 verbose #3556 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:20 verbose #3557 > >
00:05:20 verbose #3558 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:20 verbose #3559 > > inl catch forall t e. (a : async t) : async (result t e) =
00:05:20 verbose #3560 > > a
00:05:20 verbose #3561 > > |> catch'
00:05:20 verbose #3562 > > |> map choice2_unbox
00:05:20 verbose #3563 > > |> map function
00:05:20 verbose #3564 > > | C1of2 result => Ok result
00:05:20 verbose #3565 > > | C2of2 ex => Error ex
00:05:21 verbose #3566 > >
00:05:21 verbose #3567 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:21 verbose #3568 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:21 verbose #3569 > > │ ### run_with_timeout_async │
00:05:21 verbose #3570 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 verbose #3571 > >
00:05:21 verbose #3572 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:21 verbose #3573 > > inl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async
00:05:21 verbose #3574 > > (option t) =
00:05:21 verbose #3575 > > run_target function
00:05:21 verbose #3576 > > | Fsharp (Native) => fun () =>
00:05:21 verbose #3577 > > fun () =>
00:05:21 verbose #3578 > > inl _locals () = $'$"timeout: {!timeout} / {!_locals ()}"'
00:05:21 verbose #3579 > > inl child = fn |> start_child_timeout timeout |> let'
00:05:21 verbose #3580 > > child
00:05:21 verbose #3581 > > |> catch
00:05:21 verbose #3582 > > |> map function
00:05:21 verbose #3583 > > | Ok result => Some result
00:05:21 verbose #3584 > > | Error ex when ex |> sm'.format_debug |> sm'.contains
00:05:21 verbose #3585 > > "System.TimeoutException" =>
00:05:21 verbose #3586 > > trace Debug (fun () =>
00:05:21 verbose #3587 > > $'"async.run_with_timeout_async"') _locals
00:05:21 verbose #3588 > > None
00:05:21 verbose #3589 > > | Error (ex : exn) =>
00:05:21 verbose #3590 > > inl ex = ex |> sm'.format_exception
00:05:21 verbose #3591 > > trace Critical (fun () =>
00:05:21 verbose #3592 > > $'$"async.run_with_timeout_async** / ex: {!ex}"') _locals
00:05:21 verbose #3593 > > None
00:05:21 verbose #3594 > > |> return_await
00:05:21 verbose #3595 > > |> new_async_unit
00:05:21 verbose #3596 > > | _ => fun () => null ()
00:05:21 verbose #3597 > >
00:05:21 verbose #3598 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:21 verbose #3599 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:21 verbose #3600 > > │ ### run_with_timeout │
00:05:21 verbose #3601 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:21 verbose #3602 > >
00:05:21 verbose #3603 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:21 verbose #3604 > > inl run_with_timeout timeout fn =
00:05:21 verbose #3605 > > fn
00:05:21 verbose #3606 > > |> run_with_timeout_async timeout
00:05:21 verbose #3607 > > |> run_synchronously
00:05:22 verbose #3608 > >
00:05:22 verbose #3609 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:22 verbose #3610 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:22 verbose #3611 > > │ ### cancellation_token │
00:05:22 verbose #3612 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:22 verbose #3613 > >
00:05:22 verbose #3614 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:22 verbose #3615 > > inl cancellation_token () : async threading.cancellation_token =
00:05:22 verbose #3616 > > $'Async.CancellationToken'
00:05:23 verbose #3617 > >
00:05:23 verbose #3618 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:23 verbose #3619 > > inl default_cancellation_token () : threading.cancellation_token =
00:05:23 verbose #3620 > > $'Async.DefaultCancellationToken'
00:05:24 verbose #3621 > >
00:05:24 verbose #3622 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 verbose #3623 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 verbose #3624 > > │ ### merge_cancellation_token_with_default_async │
00:05:24 verbose #3625 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #3626 > >
00:05:24 verbose #3627 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #3628 > > inl merge_cancellation_token_with_default_async
00:05:24 verbose #3629 > > (token : threading.cancellation_token)
00:05:24 verbose #3630 > > : async threading.cancellation_token
00:05:24 verbose #3631 > > =
00:05:24 verbose #3632 > > run_target function
00:05:24 verbose #3633 > > | Fsharp (Native) => fun () =>
00:05:24 verbose #3634 > > fun () =>
00:05:24 verbose #3635 > > inl ct = cancellation_token () |> let'
00:05:24 verbose #3636 > > inl dct = default_cancellation_token ()
00:05:24 verbose #3637 > > inl cts = threading.create_linked_token_source ;[[ ct; dct;
00:05:24 verbose #3638 > > token ]]
00:05:24 verbose #3639 > > cts |> threading.cancellation_source_token |> return
00:05:24 verbose #3640 > > |> new_async_unit
00:05:24 verbose #3641 > > | _ => fun () => null ()
00:05:25 verbose #3642 > >
00:05:25 verbose #3643 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:25 verbose #3644 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:25 verbose #3645 > > │ ### with_trace_level │
00:05:25 verbose #3646 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 verbose #3647 > >
00:05:25 verbose #3648 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:25 verbose #3649 > > inl with_trace_level forall t. level fn : _ t = new_async fun () =>
00:05:25 verbose #3650 > > inl trace_state = get_trace_state_or_init None
00:05:25 verbose #3651 > > inl old_trace_level = *trace_state.level
00:05:25 verbose #3652 > > inl trace_level = trace_state.level
00:05:25 verbose #3653 > > try_finally
00:05:25 verbose #3654 > > fun () =>
00:05:25 verbose #3655 > > trace_level <- level
00:05:25 verbose #3656 > > fn |> return_await
00:05:25 verbose #3657 > > fun () =>
00:05:25 verbose #3658 > > trace_level <- old_trace_level
00:05:25 verbose #3659 > >
00:05:25 verbose #3660 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:25 verbose #3661 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:25 verbose #3662 > > │ ### value_task │
00:05:25 verbose #3663 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 verbose #3664 > >
00:05:25 verbose #3665 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:25 verbose #3666 > > nominal value_task = $'System.Threading.Tasks.ValueTask'
00:05:26 verbose #3667 > >
00:05:26 verbose #3668 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:26 verbose #3669 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:26 verbose #3670 > > │ ### value_task_as_task │
00:05:26 verbose #3671 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:26 verbose #3672 > >
00:05:26 verbose #3673 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:26 verbose #3674 > > inl value_task_as_task (task : value_task) : task () =
00:05:26 verbose #3675 > > $'!task.AsTask' ()
00:05:27 verbose #3676 > >
00:05:27 verbose #3677 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:27 verbose #3678 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:27 verbose #3679 > > │ ### await_value_task_unit │
00:05:27 verbose #3680 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:27 verbose #3681 > >
00:05:27 verbose #3682 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:27 verbose #3683 > > inl await_value_task_unit (task : value_task) : async () =
00:05:27 verbose #3684 > > task |> value_task_as_task |> await_task
00:05:28 verbose #3685 > >
00:05:28 verbose #3686 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:28 verbose #3687 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:28 verbose #3688 > > │ ## main │
00:05:28 verbose #3689 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 verbose #3690 > >
00:05:28 verbose #3691 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 verbose #3692 > > inl main () =
00:05:28 verbose #3693 > > types ()
00:05:28 verbose #3694 > > $'let merge_cancellation_token_with_default_async x =
00:05:28 verbose #3695 > > !merge_cancellation_token_with_default_async x' : ()
00:05:30 verbose #3696 > 00:00:58 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 40811
00:05:30 verbose #3697 > 00:00:58 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/async.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/async.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:05:32 verbose #3698 > 00:01:00 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/async.dib.ipynb to html
00:05:32 verbose #3699 > 00:01:00 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:32 verbose #3700 > 00:01:00 verbose #7 ! validate(nb)
00:05:34 verbose #3701 > 00:01:02 verbose #8 ! [NbConvertApp] Writing 399885 bytes to c:\home\git\polyglot\lib\spiral\async.dib.html
00:05:34 verbose #3702 > 00:01:02 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641
00:05:34 verbose #3703 > 00:01:02 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641
00:05:34 verbose #3704 > 00:01:02 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/async.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/async.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:05:35 verbose #3705 > 00:01:03 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:05:35 verbose #3706 > 00:01:03 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:05:35 verbose #3707 > 00:01:04 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 41511
00:05:35 debug #3708 runtime.execute_with_options_async / exit_code: 0 / output.Length: 45391
00:05:35 debug #5 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path async.dib --retries 3
00:05:35 debug #3709 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path runtime.dib --retries 3",
[||], None, None, true, None)
00:05:35 verbose #3710 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "runtime.dib", "--retries", "3"])
00:05:36 verbose #3711 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/runtime.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/runtime.dib" --output-path "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:05:38 verbose #3712 > >
00:05:38 verbose #3713 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:38 verbose #3714 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:38 verbose #3715 > > │ # runtime │
00:05:38 verbose #3716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 verbose #3717 > >
00:05:38 verbose #3718 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:38 verbose #3719 > > open rust_operators
00:05:38 verbose #3720 > > open sm'_operators
00:05:38 verbose #3721 > >
00:05:38 verbose #3722 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:05:38 verbose #3723 > > #r
00:05:38 verbose #3724 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:05:38 verbose #3725 > > otNet.Interactive.Spiral.dll"
00:05:38 verbose #3726 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:05:38 verbose #3727 > > #r
00:05:38 verbose #3728 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:05:38 verbose #3729 > > otNet.Interactive.dll"
00:05:38 verbose #3730 > > open type Microsoft.DotNet.Interactive.Kernel
00:05:44 verbose #3731 > >
00:05:44 verbose #3732 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 verbose #3733 > > //// test
00:05:44 verbose #3734 > >
00:05:44 verbose #3735 > > open testing
00:05:44 verbose #3736 > > open file_system_operators
00:05:44 verbose #3737 > >
00:05:44 verbose #3738 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 verbose #3739 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 verbose #3740 > > │ ## types │
00:05:44 verbose #3741 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #3742 > >
00:05:44 verbose #3743 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 verbose #3744 > > inl types () =
00:05:44 verbose #3745 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3746 > > Fable.Core.Emit(\"clap::Arg\")>]]\n#endif\ntype clap_Arg = class end"
00:05:44 verbose #3747 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3748 > > Fable.Core.Emit(\"clap::ArgAction\")>]]\n#endif\ntype clap_ArgAction = class
00:05:44 verbose #3749 > > end"
00:05:44 verbose #3750 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3751 > > Fable.Core.Emit(\"clap::Command\")>]]\n#endif\ntype clap_Command = class end"
00:05:44 verbose #3752 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3753 > > Fable.Core.Emit(\"clap::ArgMatches\")>]]\n#endif\ntype clap_ArgMatches = class
00:05:44 verbose #3754 > > end"
00:05:44 verbose #3755 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3756 > > Fable.Core.Emit(\"clap::builder::ValueRange\")>]]\n#endif\ntype
00:05:44 verbose #3757 > > clap_builder_ValueRange = class end"
00:05:44 verbose #3758 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3759 > > Fable.Core.Emit(\"clap::builder::ValueParser\")>]]\n#endif\ntype
00:05:44 verbose #3760 > > clap_builder_ValueParser = class end"
00:05:44 verbose #3761 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3762 > > Fable.Core.Emit(\"clap::builder::PossibleValue\")>]]\n#endif\ntype
00:05:44 verbose #3763 > > clap_builder_PossibleValue = class end"
00:05:44 verbose #3764 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3765 > > Fable.Core.Emit(\"std::process::Child\")>]]\n#endif\ntype std_process_Child =
00:05:44 verbose #3766 > > class end"
00:05:44 verbose #3767 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3768 > > Fable.Core.Emit(\"std::process::ChildStderr\")>]]\n#endif\ntype
00:05:44 verbose #3769 > > std_process_ChildStderr = class end"
00:05:44 verbose #3770 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3771 > > Fable.Core.Emit(\"std::process::ChildStdout\")>]]\n#endif\ntype
00:05:44 verbose #3772 > > std_process_ChildStdout = class end"
00:05:44 verbose #3773 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3774 > > Fable.Core.Emit(\"std::process::ChildStdin\")>]]\n#endif\ntype
00:05:44 verbose #3775 > > std_process_ChildStdin = class end"
00:05:44 verbose #3776 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3777 > > Fable.Core.Emit(\"std::process::Command\")>]]\n#endif\ntype std_process_Command
00:05:44 verbose #3778 > > = class end"
00:05:44 verbose #3779 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3780 > > Fable.Core.Emit(\"std::process::ExitStatus\")>]]\n#endif\ntype
00:05:44 verbose #3781 > > std_process_ExitStatus = class end"
00:05:44 verbose #3782 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3783 > > Fable.Core.Emit(\"std::process::Output\")>]]\n#endif\ntype std_process_Output =
00:05:44 verbose #3784 > > class end"
00:05:44 verbose #3785 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:05:44 verbose #3786 > > Fable.Core.Emit(\"std::process::Stdio\")>]]\n#endif\ntype std_process_Stdio =
00:05:44 verbose #3787 > > class end"
00:05:45 verbose #3788 > >
00:05:45 verbose #3789 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 verbose #3790 > > inl types () =
00:05:45 verbose #3791 > > types ()
00:05:45 verbose #3792 > > am'.types ()
00:05:45 verbose #3793 > > async.types ()
00:05:45 verbose #3794 > > env.types ()
00:05:45 verbose #3795 > > rust.types ()
00:05:45 verbose #3796 > > seq.types ()
00:05:45 verbose #3797 > > sm'.types ()
00:05:45 verbose #3798 > > threading.types ()
00:05:46 verbose #3799 > >
00:05:46 verbose #3800 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 verbose #3801 > > //// test
00:05:46 verbose #3802 > >
00:05:46 verbose #3803 > > inl types () =
00:05:46 verbose #3804 > > file_system.types ()
00:05:46 verbose #3805 > > types ()
00:05:46 verbose #3806 > >
00:05:46 verbose #3807 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 verbose #3808 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 verbose #3809 > > │ ## rust │
00:05:46 verbose #3810 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 verbose #3811 > >
00:05:46 verbose #3812 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:46 verbose #3813 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:46 verbose #3814 > > │ ### process_child │
00:05:46 verbose #3815 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:46 verbose #3816 > >
00:05:46 verbose #3817 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:46 verbose #3818 > > nominal process_child = $'std_process_Child'
00:05:47 verbose #3819 > >
00:05:47 verbose #3820 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:47 verbose #3821 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:47 verbose #3822 > > │ ### process_child_stdin │
00:05:47 verbose #3823 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:47 verbose #3824 > >
00:05:47 verbose #3825 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:47 verbose #3826 > > nominal process_child_stdin = $'std_process_ChildStdin'
00:05:47 verbose #3827 > >
00:05:47 verbose #3828 > > inl process_child_stdin
00:05:47 verbose #3829 > > (child : rust.ref' (rust.mut' process_child))
00:05:47 verbose #3830 > > : rust.ref' (rust.mut' (optionm'.option' process_child_stdin))
00:05:47 verbose #3831 > > =
00:05:47 verbose #3832 > > !\\(child, $'"&mut $0.stdin"')
00:05:48 verbose #3833 > >
00:05:48 verbose #3834 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:48 verbose #3835 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:48 verbose #3836 > > │ ## runtime │
00:05:48 verbose #3837 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 verbose #3838 > >
00:05:48 verbose #3839 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:48 verbose #3840 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:48 verbose #3841 > > │ ### split_args │
00:05:48 verbose #3842 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 verbose #3843 > >
00:05:48 verbose #3844 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 verbose #3845 > > let split_args (args : string) : result (array_base string) string =
00:05:48 verbose #3846 > > open parsing
00:05:48 verbose #3847 > > inl esc = [[ '\\'; '`' ]]
00:05:48 verbose #3848 > > inl quotes = [[ '"' ]]
00:05:48 verbose #3849 > > inl special = esc ++ quotes
00:05:48 verbose #3850 > > inl p_esc_char c =
00:05:48 verbose #3851 > > p_char c >>. any_char () |>> fun c' => $'$"{!c}{!c'}"'
00:05:48 verbose #3852 > > inl p_word = special |> none_of |>> sm'.obj_to_string
00:05:48 verbose #3853 > > inl p_plain = special ++ [[ ' ' ]] |> none_of |> many1_chars
00:05:48 verbose #3854 > > inl p_text = p_word |> many1_strings
00:05:48 verbose #3855 > > inl p_esc = esc |> listm.map p_esc_char |> choice
00:05:48 verbose #3856 > > inl p_quoted = (p_word <|> p_esc) |> many |>> sm'.concat_list ""
00:05:48 verbose #3857 > > inl p_quoted_all = p_quoted |> between (p_char '"') (p_char '"')
00:05:48 verbose #3858 > > inl p_esc_root = p_esc |>> (fun _ => "") >>. (p_word |> many) |>>
00:05:48 verbose #3859 > > sm'.concat_list ""
00:05:48 verbose #3860 > > inl p_content = p_plain <|> p_quoted_all <|> p_esc_root
00:05:48 verbose #3861 > > inl p_args = spaces1 () |> sep_by p_content
00:05:48 verbose #3862 > > args
00:05:48 verbose #3863 > > |> optionm'.of_obj
00:05:48 verbose #3864 > > |> optionm'.default_value' ""
00:05:48 verbose #3865 > > |> parse p_args
00:05:48 verbose #3866 > > |> resultm.map (fst >> listm'.box >> listm'.to_array')
00:05:48 verbose #3867 > >
00:05:48 verbose #3868 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:48 verbose #3869 > > //// test
00:05:48 verbose #3870 > >
00:05:48 verbose #3871 > > [[
00:05:48 verbose #3872 > > "a b c",
00:05:48 verbose #3873 > > ;[[ "a"; "b"; "c" ]]
00:05:48 verbose #3874 > >
00:05:48 verbose #3875 > > "e f \"g h\" i",
00:05:48 verbose #3876 > > ;[[ "e"; "f"; "g h"; "i" ]]
00:05:48 verbose #3877 > >
00:05:48 verbose #3878 > > "\"j k\" \"l\" \"m\"",
00:05:48 verbose #3879 > > ;[[ "j k"; "l"; "m" ]]
00:05:48 verbose #3880 > >
00:05:48 verbose #3881 > > "s -t \"u \`\"v\`\" w\"",
00:05:48 verbose #3882 > > ;[[ "s"; "-t"; "u \`\"v\`\" w" ]]
00:05:48 verbose #3883 > >
00:05:48 verbose #3884 > > "n -o \"p \\\"q\\\" r\"",
00:05:48 verbose #3885 > > ;[[ "n"; "-o"; "p \\\"q\\\" r" ]]
00:05:48 verbose #3886 > >
00:05:48 verbose #3887 > > "r -s \"t \\\"u\\\"\"",
00:05:48 verbose #3888 > > ;[[ "r"; "-s"; "t \\\"u\\\"" ]]
00:05:48 verbose #3889 > >
00:05:48 verbose #3890 > > $'$"x -y \\\"$z -a \'(b=\\\\\\"c-id=)[[a-fA-F0-9]]{{8}}\', {{ \`$_[[1]] +
00:05:48 verbose #3891 > > \`$d++ }}\\\""',
00:05:48 verbose #3892 > > ;[[ "x"; "-y"; "$z -a '(b=\\\"c-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$d++ }"
00:05:48 verbose #3893 > > ]]
00:05:48 verbose #3894 > >
00:05:48 verbose #3895 > > "e -f \"$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }\"",
00:05:48 verbose #3896 > > ;[[ "e"; "-f"; "$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }"
00:05:48 verbose #3897 > > ]]
00:05:48 verbose #3898 > >
00:05:48 verbose #3899 > > $'$"--l \\\\\\"\'\'\' m \'\'\'\\\\\\" "',
00:05:48 verbose #3900 > > ;[[ "--l"; "''' m '''" ]]
00:05:48 verbose #3901 > >
00:05:48 verbose #3902 > > $'$"n --o --p q --r \\\"s:/t u/v.w\\\" --x \\\"y:/z.a\\\" --b c.d
00:05:48 verbose #3903 > > \\\"\\\\e{{f-g}}\\\" h.i \\\"j (k)\\\""',
00:05:48 verbose #3904 > > ;[[ "n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; "y:/z.a"; "--b";
00:05:48 verbose #3905 > > "c.d"; "\\e{f-g}"; "h.i"; "j (k)" ]]
00:05:48 verbose #3906 > >
00:05:48 verbose #3907 > > $'\@$"l ""m n:\\o.p"""',
00:05:48 verbose #3908 > > ;[[ "l"; "m n:\\o.p" ]]
00:05:48 verbose #3909 > > ]]
00:05:48 verbose #3910 > > |> listm.rev
00:05:48 verbose #3911 > > |> listm.map fun input, expected =>
00:05:48 verbose #3912 > > input
00:05:48 verbose #3913 > > |> split_args
00:05:48 verbose #3914 > > |> fun x =>
00:05:48 verbose #3915 > > try
00:05:48 verbose #3916 > > fun () =>
00:05:48 verbose #3917 > > ($'$"\ninput: {!input}"' : string)
00:05:48 verbose #3918 > > |> console.write_line
00:05:48 verbose #3919 > > x
00:05:48 verbose #3920 > > |> resultm.get
00:05:48 verbose #3921 > > |> _assert_eq' expected
00:05:48 verbose #3922 > > false
00:05:48 verbose #3923 > > fun ex =>
00:05:48 verbose #3924 > > ($'$"error / expected: %A{!expected} / ex: %A{!ex}"' : string)
00:05:48 verbose #3925 > > |> console.write_line
00:05:48 verbose #3926 > > Some true
00:05:48 verbose #3927 > > |> optionm.value
00:05:48 verbose #3928 > > |> listm'.filter id
00:05:48 verbose #3929 > > |> function
00:05:48 verbose #3930 > > | [[]] => ()
00:05:48 verbose #3931 > > | x => failwith $'$"{!x}"'
00:05:51 verbose #3932 > >
00:05:51 verbose #3933 > > ╭─[ 3.13s - stdout ]───────────────────────────────────────────────────────────╮
00:05:51 verbose #3934 > > │ │
00:05:51 verbose #3935 > > │ input: a b c │
00:05:51 verbose #3936 > > │ assert_eq' / actual: [|"a"; "b"; "c"|] / expected: [|"a"; "b"; "c"|] │
00:05:51 verbose #3937 > > │ │
00:05:51 verbose #3938 > > │ input: e f "g h" i │
00:05:51 verbose #3939 > > │ assert_eq' / actual: [|"e"; "f"; "g h"; "i"|] / expected: [|"e"; "f"; "g h"; │
00:05:51 verbose #3940 > > │ "i"|] │
00:05:51 verbose #3941 > > │ │
00:05:51 verbose #3942 > > │ input: "j k" "l" "m" │
00:05:51 verbose #3943 > > │ assert_eq' / actual: [|"j k"; "l"; "m"|] / expected: [|"j k"; "l"; "m"|] │
00:05:51 verbose #3944 > > │ │
00:05:51 verbose #3945 > > │ input: s -t "u `"v`" w" │
00:05:51 verbose #3946 > > │ assert_eq' / actual: [|"s"; "-t"; "u `"v`" w"|] / expected: [|"s"; "-t"; "u │
00:05:51 verbose #3947 > > │ `"v`" w"|] │
00:05:51 verbose #3948 > > │ │
00:05:51 verbose #3949 > > │ input: n -o "p \"q\" r" │
00:05:51 verbose #3950 > > │ assert_eq' / actual: [|"n"; "-o"; "p \"q\" r"|] / expected: [|"n"; "-o"; "p │
00:05:51 verbose #3951 > > │ \"q\" r"|] │
00:05:51 verbose #3952 > > │ │
00:05:51 verbose #3953 > > │ input: r -s "t \"u\"" │
00:05:51 verbose #3954 > > │ assert_eq' / actual: [|"r"; "-s"; "t \"u\""|] / expected: [|"r"; "-s"; "t │
00:05:51 verbose #3955 > > │ \"u\""|] │
00:05:51 verbose #3956 > > │ │
00:05:51 verbose #3957 > > │ input: x -y "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[1] + `$d++ }" │
00:05:51 verbose #3958 > > │ assert_eq' / actual: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[ │
00:05:51 verbose #3959 > > │ 1] + `$d++ }"|] / expected: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', │
00:05:51 verbose #3960 > > │ { `$_[1] + `$d++ }"|] │
00:05:51 verbose #3961 > > │ │
00:05:51 verbose #3962 > > │ input: e -f "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[1] + `$k++ }" │
00:05:51 verbose #3963 > > │ assert_eq' / actual: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[ │
00:05:51 verbose #3964 > > │ 1] + `$k++ }"|] / expected: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', │
00:05:51 verbose #3965 > > │ { `$_[1] + `$k++ }"|] │
00:05:51 verbose #3966 > > │ │
00:05:51 verbose #3967 > > │ input: --l \"''' m '''\" │
00:05:51 verbose #3968 > > │ assert_eq' / actual: [|"--l"; "''' m '''"|] / expected: [|"--l"; "''' m │
00:05:51 verbose #3969 > > │ '''"|] │
00:05:51 verbose #3970 > > │ │
00:05:51 verbose #3971 > > │ input: n --o --p q --r "s:/t u/v.w" --x "y:/z.a" --b c.d "\e{f-g}" h.i "j │
00:05:51 verbose #3972 > > │ (k)" │
00:05:51 verbose #3973 > > │ assert_eq' / actual: [|"n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; │
00:05:51 verbose #3974 > > │ "y:/z.a"; "--b"; "c.d"; │
00:05:51 verbose #3975 > > │ "\e{f-g}"; "h.i"; "j (k)"|] / expected: [|"n"; "--o"; "--p"; "q"; "--r"; │
00:05:51 verbose #3976 > > │ "s:/t u/v.w"; "--x"; "y:/z.a"; "--b"; "c.d"; │
00:05:51 verbose #3977 > > │ "\e{f-g}"; "h.i"; "j (k)"|] │
00:05:51 verbose #3978 > > │ │
00:05:51 verbose #3979 > > │ input: l "m n:\o.p" │
00:05:51 verbose #3980 > > │ assert_eq' / actual: [|"l"; "m n:\o.p"|] / expected: [|"l"; "m n:\o.p"|] │
00:05:51 verbose #3981 > > │ │
00:05:51 verbose #3982 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #3983 > >
00:05:51 verbose #3984 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #3985 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #3986 > > │ ### quoted │
00:05:51 verbose #3987 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #3988 > >
00:05:51 verbose #3989 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #3990 > > union quoted =
00:05:51 verbose #3991 > > | Quoted
00:05:51 verbose #3992 > > | NotQuoted
00:05:52 verbose #3993 > >
00:05:52 verbose #3994 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:52 verbose #3995 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:52 verbose #3996 > > │ ### split_command │
00:05:52 verbose #3997 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 verbose #3998 > >
00:05:52 verbose #3999 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 verbose #4000 > > union command_parse_step =
00:05:52 verbose #4001 > > | Start
00:05:52 verbose #4002 > > | Path : quoted
00:05:52 verbose #4003 > > | Arguments
00:05:52 verbose #4004 > >
00:05:52 verbose #4005 > > let split_command (command : string) =
00:05:52 verbose #4006 > > let rec loop (path, args) (chars : list char) step =
00:05:52 verbose #4007 > > match step, chars with
00:05:52 verbose #4008 > > | _, (('"' | '\'') :: tail) when path = "" => loop (path, args) tail
00:05:52 verbose #4009 > > (Path Quoted)
00:05:52 verbose #4010 > > | Path (Quoted), (('"' | '\'') :: tail) => loop (path, args) tail (Path
00:05:52 verbose #4011 > > NotQuoted)
00:05:52 verbose #4012 > > | Path (Quoted), (' ' :: tail) => loop ($'$"{!path} "', args) tail (Path
00:05:52 verbose #4013 > > Quoted)
00:05:52 verbose #4014 > > | (Start | Path _), (' ' :: tail) => loop (path, args) tail Arguments
00:05:52 verbose #4015 > > | Arguments, (char :: tail) => loop (path, $'$"{!args}{!char}"') tail
00:05:52 verbose #4016 > > Arguments
00:05:52 verbose #4017 > > | _, (char :: tail) => loop ($'$"{!path}{!char}"', args) tail step
00:05:52 verbose #4018 > > | _ => path |> sm'.replace @"\" "/", args
00:05:52 verbose #4019 > > loop (join "", "") (command |> sm'.to_char_array |> am'.to_list' |>
00:05:52 verbose #4020 > > listm'.unbox) Start
00:05:53 verbose #4021 > >
00:05:53 verbose #4022 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:53 verbose #4023 > > //// test
00:05:53 verbose #4024 > >
00:05:53 verbose #4025 > > split_command ""
00:05:53 verbose #4026 > > |> _assert_eq ("", "")
00:05:53 verbose #4027 > >
00:05:53 verbose #4028 > > split_command "/a/b/c"
00:05:53 verbose #4029 > > |> _assert_eq ("/a/b/c", "")
00:05:53 verbose #4030 > >
00:05:53 verbose #4031 > > split_command "cat file.txt"
00:05:53 verbose #4032 > > |> _assert_eq ("cat", "file.txt")
00:05:53 verbose #4033 > >
00:05:53 verbose #4034 > > split_command $'"""..\\..\\file.exe file1.txt file2.txt"""'
00:05:53 verbose #4035 > > |> _assert_eq ("../../file.exe", "file1.txt file2.txt")
00:05:53 verbose #4036 > >
00:05:53 verbose #4037 > > split_command $'\@"c:\\dir\\file.exe ""file1.txt file2.txt"""'
00:05:53 verbose #4038 > > |> _assert_eq ("c:/dir/file.exe", $'\@"""file1.txt file2.txt"""')
00:05:53 verbose #4039 > >
00:05:53 verbose #4040 > > split_command $'\@"""..\\..\\dir name\\file.exe"" ""file 1.txt"" file2.txt"'
00:05:53 verbose #4041 > > |> _assert_eq ("../../dir name/file.exe", $'\@"""file 1.txt"" file2.txt"')
00:05:53 verbose #4042 > >
00:05:53 verbose #4043 > > split_command $'\@"""..\\..\\file 1.exe"" -c \\\\""echo 1\\\\"""'
00:05:53 verbose #4044 > > |> _assert_eq ("../../file 1.exe", $'\@"-c \\\\""echo 1\\\\"""')
00:05:53 verbose #4045 > >
00:05:53 verbose #4046 > > split_command $'\@"..\\..\\file 1.exe -c \\\\""echo 1\\\\"""'
00:05:53 verbose #4047 > > |> _assert_eq ("../../file", $'\@"1.exe -c \\\\""echo 1\\\\"""')
00:05:54 verbose #4048 > >
00:05:54 verbose #4049 > > ╭─[ 883.40ms - stdout ]────────────────────────────────────────────────────────╮
00:05:54 verbose #4050 > > │ assert_eq / actual: struct ("", "") / expected: struct ("", "") │
00:05:54 verbose #4051 > > │ assert_eq / actual: struct ("/a/b/c", "") / expected: struct ("/a/b/c", "") │
00:05:54 verbose #4052 > > │ assert_eq / actual: struct ("cat", "file.txt") / expected: struct ("cat", │
00:05:54 verbose #4053 > > │ "file.txt") │
00:05:54 verbose #4054 > > │ assert_eq / actual: struct ("../../file.exe", "file1.txt file2.txt") / │
00:05:54 verbose #4055 > > │ expected: struct ("../../file.exe", "file1.txt file2.txt") │
00:05:54 verbose #4056 > > │ assert_eq / actual: struct ("c:/dir/file.exe", ""file1.txt file2.txt"") / │
00:05:54 verbose #4057 > > │ expected: struct ("c:/dir/file.exe", ""file1.txt file2.txt"") │
00:05:54 verbose #4058 > > │ assert_eq / actual: struct ("../../dir name/file.exe", ""file 1.txt" │
00:05:54 verbose #4059 > > │ file2.txt") / expected: struct ("../../dir name/file.exe", ""file 1.txt" │
00:05:54 verbose #4060 > > │ file2.txt") │
00:05:54 verbose #4061 > > │ assert_eq / actual: struct ("../../file 1.exe", "-c \\"echo 1\\"") / │
00:05:54 verbose #4062 > > │ expected: struct ("../../file 1.exe", "-c \\"echo 1\\"") │
00:05:54 verbose #4063 > > │ assert_eq / actual: struct ("../../file", "1.exe -c \\"echo 1\\"") / │
00:05:54 verbose #4064 > > │ expected: struct ("../../file", "1.exe -c \\"echo 1\\"") │
00:05:54 verbose #4065 > > │ │
00:05:54 verbose #4066 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 verbose #4067 > >
00:05:54 verbose #4068 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:54 verbose #4069 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:54 verbose #4070 > > │ ### execution_line │
00:05:54 verbose #4071 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 verbose #4072 > >
00:05:54 verbose #4073 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 verbose #4074 > > type execution_line =
00:05:54 verbose #4075 > > {
00:05:54 verbose #4076 > > process_id : int
00:05:54 verbose #4077 > > line : string
00:05:54 verbose #4078 > > error : bool
00:05:54 verbose #4079 > > }
00:05:54 verbose #4080 > >
00:05:54 verbose #4081 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:54 verbose #4082 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:54 verbose #4083 > > │ ### execution_options │
00:05:54 verbose #4084 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:54 verbose #4085 > >
00:05:54 verbose #4086 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:54 verbose #4087 > > type execution_options =
00:05:54 verbose #4088 > > {
00:05:54 verbose #4089 > > command : string
00:05:54 verbose #4090 > > cancellation_token : optionm'.option' threading.cancellation_token
00:05:54 verbose #4091 > > environment_variables : array_base (string * string)
00:05:54 verbose #4092 > > on_line : optionm'.option' (execution_line -> async.async ())
00:05:54 verbose #4093 > > stdin : optionm'.option' (threading.arc (threading.mutex
00:05:54 verbose #4094 > > process_child_stdin) -> ())
00:05:54 verbose #4095 > > trace : bool
00:05:54 verbose #4096 > > working_directory : optionm'.option' string
00:05:54 verbose #4097 > > }
00:05:54 verbose #4098 > >
00:05:54 verbose #4099 > > inl execution_options (fn : execution_options -> execution_options) :
00:05:54 verbose #4100 > > execution_options =
00:05:54 verbose #4101 > > {
00:05:54 verbose #4102 > > command = ""
00:05:54 verbose #4103 > > cancellation_token = None |> optionm'.box
00:05:54 verbose #4104 > > environment_variables = ;[[]]
00:05:54 verbose #4105 > > on_line = None |> optionm'.box
00:05:54 verbose #4106 > > stdin = None |> optionm'.box
00:05:54 verbose #4107 > > trace = true
00:05:54 verbose #4108 > > working_directory = None |> optionm'.box
00:05:54 verbose #4109 > > }
00:05:54 verbose #4110 > > |> fn
00:05:55 verbose #4111 > >
00:05:55 verbose #4112 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:55 verbose #4113 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:55 verbose #4114 > > │ ## rust │
00:05:55 verbose #4115 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #4116 > >
00:05:55 verbose #4117 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:55 verbose #4118 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:55 verbose #4119 > > │ ### process_child_stderr │
00:05:55 verbose #4120 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:55 verbose #4121 > >
00:05:55 verbose #4122 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:55 verbose #4123 > > nominal process_child_stderr = $'std_process_ChildStderr'
00:05:55 verbose #4124 > >
00:05:55 verbose #4125 > > inl process_child_stderr
00:05:55 verbose #4126 > > (child : rust.ref' (rust.mut' process_child))
00:05:55 verbose #4127 > > : rust.ref' (rust.mut' (optionm'.option' process_child_stderr))
00:05:55 verbose #4128 > > =
00:05:55 verbose #4129 > > !\($'"&mut !child.stderr"')
00:05:56 verbose #4130 > >
00:05:56 verbose #4131 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:56 verbose #4132 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:56 verbose #4133 > > │ ### process_child_stdout │
00:05:56 verbose #4134 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 verbose #4135 > >
00:05:56 verbose #4136 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:56 verbose #4137 > > nominal process_child_stdout = $'std_process_ChildStdout'
00:05:56 verbose #4138 > >
00:05:56 verbose #4139 > > inl process_child_stdout
00:05:56 verbose #4140 > > (child : rust.ref' (rust.mut' process_child))
00:05:56 verbose #4141 > > : rust.ref' (rust.mut' (optionm'.option' process_child_stdout))
00:05:56 verbose #4142 > > =
00:05:56 verbose #4143 > > !\($'"&mut !child.stdout"')
00:05:57 verbose #4144 > >
00:05:57 verbose #4145 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:57 verbose #4146 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:57 verbose #4147 > > │ ### process_command │
00:05:57 verbose #4148 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 verbose #4149 > >
00:05:57 verbose #4150 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 verbose #4151 > > nominal process_command = $'std_process_Command'
00:05:57 verbose #4152 > >
00:05:57 verbose #4153 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:57 verbose #4154 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:57 verbose #4155 > > │ ### process_stdio │
00:05:57 verbose #4156 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 verbose #4157 > >
00:05:57 verbose #4158 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 verbose #4159 > > nominal process_stdio = $'std_process_Stdio'
00:05:58 verbose #4160 > >
00:05:58 verbose #4161 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:58 verbose #4162 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:58 verbose #4163 > > │ ### process_output │
00:05:58 verbose #4164 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 verbose #4165 > >
00:05:58 verbose #4166 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:58 verbose #4167 > > nominal process_output = $'std_process_Output'
00:05:59 verbose #4168 > >
00:05:59 verbose #4169 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:59 verbose #4170 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:59 verbose #4171 > > │ ### process_exit_status │
00:05:59 verbose #4172 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:59 verbose #4173 > >
00:05:59 verbose #4174 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:59 verbose #4175 > > nominal process_exit_status = $'std_process_ExitStatus'
00:05:59 verbose #4176 > >
00:05:59 verbose #4177 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:59 verbose #4178 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:59 verbose #4179 > > │ ### process_output_status │
00:05:59 verbose #4180 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:59 verbose #4181 > >
00:05:59 verbose #4182 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:59 verbose #4183 > > inl process_output_status (output : process_output) : process_exit_status =
00:05:59 verbose #4184 > > !\\(output, $'"$0.status"')
00:06:00 verbose #4185 > >
00:06:00 verbose #4186 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:00 verbose #4187 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:00 verbose #4188 > > │ ### process_exit_status_code │
00:06:00 verbose #4189 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:00 verbose #4190 > >
00:06:00 verbose #4191 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:00 verbose #4192 > > inl process_exit_status_code (status : process_exit_status) : optionm'.option'
00:06:00 verbose #4193 > > i32 =
00:06:00 verbose #4194 > > !\\(status, $'"$0.code()"')
00:06:01 verbose #4195 > >
00:06:01 verbose #4196 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:01 verbose #4197 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:01 verbose #4198 > > │ ### stdin_write_all │
00:06:01 verbose #4199 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:01 verbose #4200 > >
00:06:01 verbose #4201 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:01 verbose #4202 > > inl stdin_write_all (stdin : threading.mutex_guard process_child_stdin) (text :
00:06:01 verbose #4203 > > string) : () =
00:06:01 verbose #4204 > > inl stream = text |> sm'.as_bytes
00:06:01 verbose #4205 > > inl stdin = join stdin
00:06:01 verbose #4206 > > (!\($'"true; let mut !stdin = !stdin"') : bool) |> ignore
00:06:01 verbose #4207 > > (!\\(stdin, $'"true; std::io::Write::write_all(&mut *$0,
00:06:01 verbose #4208 > > !stream).unwrap()"') : bool) |> ignore
00:06:02 verbose #4209 > >
00:06:02 verbose #4210 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:02 verbose #4211 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:02 verbose #4212 > > │ ### stdin_flush │
00:06:02 verbose #4213 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:02 verbose #4214 > >
00:06:02 verbose #4215 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:02 verbose #4216 > > inl stdin_flush (stdin : threading.mutex_guard process_child_stdin) : () =
00:06:02 verbose #4217 > > inl stdin = join stdin
00:06:02 verbose #4218 > > (!\($'"true; let mut !stdin = !stdin"') : bool) |> ignore
00:06:02 verbose #4219 > > (!\\(stdin, $'"true; std::io::Write::flush(&mut *$0).unwrap()"') : bool) |>
00:06:02 verbose #4220 > > ignore
00:06:02 verbose #4221 > >
00:06:02 verbose #4222 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:02 verbose #4223 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:02 verbose #4224 > > │ ### new_process_command │
00:06:02 verbose #4225 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:02 verbose #4226 > >
00:06:02 verbose #4227 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:02 verbose #4228 > > inl new_process_command (file_name : string) : process_command =
00:06:02 verbose #4229 > > !\\(file_name, $'"std::process::Command::new(&*$0)"')
00:06:03 verbose #4230 > >
00:06:03 verbose #4231 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:03 verbose #4232 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:03 verbose #4233 > > │ ### process_stdio_piped │
00:06:03 verbose #4234 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:03 verbose #4235 > >
00:06:03 verbose #4236 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:03 verbose #4237 > > inl process_stdio_piped () : process_stdio =
00:06:03 verbose #4238 > > !\($'"std::process::Stdio::piped()"')
00:06:04 verbose #4239 > >
00:06:04 verbose #4240 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:04 verbose #4241 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:04 verbose #4242 > > │ ### process_command_args │
00:06:04 verbose #4243 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:04 verbose #4244 > >
00:06:04 verbose #4245 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:04 verbose #4246 > > inl process_command_args (args : am'.vec sm'.std_string) (c : process_command) :
00:06:04 verbose #4247 > > rust.ref' (rust.mut' process_command) =
00:06:04 verbose #4248 > > (!\($'"true; let mut !c = !c"') : bool) |> ignore
00:06:04 verbose #4249 > > !\\((c, args), $'"std::process::Command::args(&mut $0, &*$1)"')
00:06:04 verbose #4250 > >
00:06:04 verbose #4251 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:04 verbose #4252 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:04 verbose #4253 > > │ ### process_command_stdout │
00:06:04 verbose #4254 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:04 verbose #4255 > >
00:06:04 verbose #4256 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:04 verbose #4257 > > inl process_command_stdout (stdio : process_stdio) (c : rust.ref' (rust.mut'
00:06:04 verbose #4258 > > process_command)) : rust.ref' (rust.mut' process_command) =
00:06:04 verbose #4259 > > !\\(c, $'"std::process::Command::stdout($0, std::process::Stdio::piped())"')
00:06:05 verbose #4260 > >
00:06:05 verbose #4261 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:05 verbose #4262 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:05 verbose #4263 > > │ ### process_command_stderr │
00:06:05 verbose #4264 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:05 verbose #4265 > >
00:06:05 verbose #4266 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:05 verbose #4267 > > inl process_command_stderr (stdio : process_stdio) (c : rust.ref' (rust.mut'
00:06:05 verbose #4268 > > process_command)) : rust.ref' (rust.mut' process_command) =
00:06:05 verbose #4269 > > !\\(c, $'"std::process::Command::stderr($0, std::process::Stdio::piped())"')
00:06:06 verbose #4270 > >
00:06:06 verbose #4271 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:06 verbose #4272 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:06 verbose #4273 > > │ ### process_command_stdin │
00:06:06 verbose #4274 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:06 verbose #4275 > >
00:06:06 verbose #4276 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:06 verbose #4277 > > inl process_command_stdin (stdio : process_stdio) (c : rust.ref' (rust.mut'
00:06:06 verbose #4278 > > process_command)) : rust.ref' (rust.mut' process_command) =
00:06:06 verbose #4279 > > !\\(c, $'"std::process::Command::stdin($0, std::process::Stdio::piped())"')
00:06:06 verbose #4280 > >
00:06:06 verbose #4281 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:06 verbose #4282 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:06 verbose #4283 > > │ ### process_command_current_dir │
00:06:06 verbose #4284 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:06 verbose #4285 > >
00:06:06 verbose #4286 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:06 verbose #4287 > > inl process_command_current_dir
00:06:06 verbose #4288 > > (dir : string)
00:06:06 verbose #4289 > > (c : rust.ref' (rust.mut' process_command))
00:06:06 verbose #4290 > > : rust.ref' (rust.mut' process_command)
00:06:06 verbose #4291 > > =
00:06:06 verbose #4292 > > !\\(dir, $'"std::process::Command::current_dir(!c, &*$0)"')
00:06:07 verbose #4293 > >
00:06:07 verbose #4294 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:07 verbose #4295 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:07 verbose #4296 > > │ ### process_command_env │
00:06:07 verbose #4297 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:07 verbose #4298 > >
00:06:07 verbose #4299 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:07 verbose #4300 > > inl process_command_env
00:06:07 verbose #4301 > > (key : string)
00:06:07 verbose #4302 > > (value : string)
00:06:07 verbose #4303 > > (c : rust.ref' (rust.mut' process_command))
00:06:07 verbose #4304 > > : rust.ref' (rust.mut' process_command)
00:06:07 verbose #4305 > > =
00:06:07 verbose #4306 > > !\\((key, value), $'"std::process::Command::env(!c, &*$0, &*$1)"')
00:06:08 verbose #4307 > >
00:06:08 verbose #4308 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:08 verbose #4309 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:08 verbose #4310 > > │ ### process_command_spawn │
00:06:08 verbose #4311 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:08 verbose #4312 > >
00:06:08 verbose #4313 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:08 verbose #4314 > > inl process_command_spawn
00:06:08 verbose #4315 > > (c : rust.ref' (rust.mut' process_command))
00:06:08 verbose #4316 > > : resultm.result' process_child stream.io_error
00:06:08 verbose #4317 > > =
00:06:08 verbose #4318 > > !\\(c, $'"std::process::Command::spawn($0)"')
00:06:08 verbose #4319 > >
00:06:08 verbose #4320 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:08 verbose #4321 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:08 verbose #4322 > > │ ### child_wait_with_output │
00:06:08 verbose #4323 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:08 verbose #4324 > >
00:06:08 verbose #4325 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:08 verbose #4326 > > inl child_wait_with_output
00:06:08 verbose #4327 > > (child : process_child)
00:06:08 verbose #4328 > > : resultm.result' process_output stream.io_error
00:06:08 verbose #4329 > > =
00:06:08 verbose #4330 > > !\\(child, $'"$0.wait_with_output()"')
00:06:09 verbose #4331 > >
00:06:09 verbose #4332 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:09 verbose #4333 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:09 verbose #4334 > > │ ### stdio_line │
00:06:09 verbose #4335 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:09 verbose #4336 > >
00:06:09 verbose #4337 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:09 verbose #4338 > > inl stdio_line
00:06:09 verbose #4339 > > (stdio : result () ())
00:06:09 verbose #4340 > > (trace' : bool)
00:06:09 verbose #4341 > > (channel_sender : threading.arc (threading.mutex (threading.channel_sender
00:06:09 verbose #4342 > > sm'.std_string)))
00:06:09 verbose #4343 > > (line : resultm.result' sm'.std_string stream.io_error)
00:06:09 verbose #4344 > > : resultm.result' () sm'.std_string
00:06:09 verbose #4345 > > =
00:06:09 verbose #4346 > > inl highlight text =
00:06:09 verbose #4347 > > $'$"\\u001b[[4;7m{!text}\\u001b[[0m"'
00:06:09 verbose #4348 > > inl line =
00:06:09 verbose #4349 > > match
00:06:09 verbose #4350 > > line
00:06:09 verbose #4351 > > |> resultm.map_error' sm'.format'
00:06:09 verbose #4352 > > |> resultm.unbox'
00:06:09 verbose #4353 > > with
00:06:09 verbose #4354 > > | Ok line =>
00:06:09 verbose #4355 > > inl line =
00:06:09 verbose #4356 > > line
00:06:09 verbose #4357 > > |> sm'.from_std_string
00:06:09 verbose #4358 > > // |> sm'.as_bytes
00:06:09 verbose #4359 > > // |> am'.slice_to_vec
00:06:09 verbose #4360 > > |> sm'.encoding_encode' (sm'.encoding_utf8' ())
00:06:09 verbose #4361 > > |> rust.cow_as_ref
00:06:09 verbose #4362 > > |> sm'.str_from_utf8
00:06:09 verbose #4363 > > // |> sm'.utf8_decode
00:06:09 verbose #4364 > > |> resultm.unwrap'
00:06:09 verbose #4365 > > |> sm'.ref_to_std_string
00:06:09 verbose #4366 > > // String::from_utf8_lossy(line.as_bytes()).into()
00:06:09 verbose #4367 > > inl line_log = line |> sm'.from_std_string
00:06:09 verbose #4368 > > inl text =
00:06:09 verbose #4369 > > match stdio with
00:06:09 verbose #4370 > > | Ok () => $'$"> {!line_log}"'
00:06:09 verbose #4371 > > | Error () => $'$"\! {!line_log}"'
00:06:09 verbose #4372 > > if trace'
00:06:09 verbose #4373 > > then trace Verbose (fun () => text) _locals
00:06:09 verbose #4374 > > else text |> console.write_line
00:06:09 verbose #4375 > > match stdio with
00:06:09 verbose #4376 > > | Ok () => line
00:06:09 verbose #4377 > > | Error () => line |> highlight |> sm'.to_std_string
00:06:09 verbose #4378 > > | Error e =>
00:06:09 verbose #4379 > > trace Critical
00:06:09 verbose #4380 > > fun () => $'$"runtime.stdio_line"'
00:06:09 verbose #4381 > > fun () => $'$"e: {!e} / {!_locals ()}"'
00:06:09 verbose #4382 > > e |> highlight |> sm'.to_std_string
00:06:09 verbose #4383 > > channel_sender
00:06:09 verbose #4384 > > |> threading.arc_mutex_lock
00:06:09 verbose #4385 > > |> resultm.unwrap'
00:06:09 verbose #4386 > > |> threading.mutex_guard_ref
00:06:09 verbose #4387 > > |> threading.channel_send line
00:06:09 verbose #4388 > > |> resultm.map_error' sm'.format'
00:06:10 verbose #4389 > >
00:06:10 verbose #4390 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:10 verbose #4391 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:10 verbose #4392 > > │ ### command │
00:06:10 verbose #4393 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:10 verbose #4394 > >
00:06:10 verbose #4395 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:10 verbose #4396 > > nominal command = $'clap_Command'
00:06:11 verbose #4397 > >
00:06:11 verbose #4398 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:11 verbose #4399 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:11 verbose #4400 > > │ ### new_command │
00:06:11 verbose #4401 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:11 verbose #4402 > >
00:06:11 verbose #4403 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:11 verbose #4404 > > inl new_command (s : rust.static_ref sm'.str) : command =
00:06:11 verbose #4405 > > !\\(s, $'"clap::Command::new($0)"')
00:06:11 verbose #4406 > >
00:06:11 verbose #4407 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:11 verbose #4408 > > //// test
00:06:11 verbose #4409 > > ///! rust -d clap
00:06:11 verbose #4410 > >
00:06:11 verbose #4411 > > types ()
00:06:11 verbose #4412 > > ##"command"
00:06:11 verbose #4413 > > |> new_command
00:06:11 verbose #4414 > > |> sm'.format_pretty'
00:06:11 verbose #4415 > > |> sm'.from_std_string
00:06:11 verbose #4416 > > |> _assert_string_contains "\"command\""
00:06:15 verbose #4417 > >
00:06:15 verbose #4418 > > ╭─[ 3.92s - return value ]─────────────────────────────────────────────────────╮
00:06:15 verbose #4419 > > │ assert_string_contains / actual: ""command"" / expected: "Command { │
00:06:15 verbose #4420 > > │ name: "command", │
00:06:15 verbose #4421 > > │ long_flag: None, │
00:06:15 verbose #4422 > > │ short_flag: None, │
00:06:15 verbose #4423 > > │ display_name: None, │
00:06:15 verbose #4424 > > │ bin_name: None, │
00:06:15 verbose #4425 > > │ author: None, │
00:06:15 verbose #4426 > > │ version: None, │
00:06:15 verbose #4427 > > │ long_version: None, │
00:06:15 verbose #4428 > > │ about: None, │
00:06:15 verbose #4429 > > │ long_about: None, │
00:06:15 verbose #4430 > > │ before_help: None, │
00:06:15 verbose #4431 > > │ before_long_help: None, │
00:06:15 verbose #4432 > > │ after_help: None, │
00:06:15 verbose #4433 > > │ after_long_help: None, │
00:06:15 verbose #4434 > > │ aliases: [], │
00:06:15 verbose #4435 > > │ short_flag_aliases: [], │
00:06:15 verbose #4436 > > │ long_flag_aliases: [], │
00:06:15 verbose #4437 > > │ usage_str: None, │
00:06:15 verbose #4438 > > │ usage_name: None, │
00:06:15 verbose #4439 > > │ help_str: None, │
00:06:15 verbose #4440 > > │ disp_ord: None, │
00:06:15 verbose #4441 > > │ template: None, │
00:06:15 verbose #4442 > > │ settings: AppFlags( │
00:06:15 verbose #4443 > > │ 0, │
00:06:15 verbose #4444 > > │ ), │
00:06:15 verbose #4445 > > │ g_settings: AppFlags( │
00:06:15 verbose #4446 > > │ 0, │
00:06:15 verbose #4447 > > │ ), │
00:06:15 verbose #4448 > > │ args: MKeyMap { │
00:06:15 verbose #4449 > > │ args: [], │
00:06:15 verbose #4450 > > │ keys: [], │
00:06:15 verbose #4451 > > │ }, │
00:06:15 verbose #4452 > > │ subcommands: [], │
00:06:15 verbose #4453 > > │ groups: [], │
00:06:15 verbose #4454 > > │ current_help_heading: None, │
00:06:15 verbose #4455 > > │ current_disp_ord: Some( │
00:06:15 verbose #4456 > > │ 0, │
00:06:15 verbose #4457 > > │ ), │
00:06:15 verbose #4458 > > │ subcommand_value_name: None, │
00:06:15 verbose #4459 > > │ subcommand_heading: None, │
00:06:15 verbose #4460 > > │ external_value_parser: None, │
00:06:15 verbose #4461 > > │ long_help_exists: false, │
00:06:15 verbose #4462 > > │ deferred: None, │
00:06:15 verbose #4463 > > │ app_ext: Extensions { │
00:06:15 verbose #4464 > > │ extensions: FlatMap { │
00:06:15 verbose #4465 > > │ keys: [], │
00:06:15 verbose #4466 > > │ values: [], │
00:06:15 verbose #4467 > > │ }, │
00:06:15 verbose #4468 > > │ }, │
00:06:15 verbose #4469 > > │ }" │
00:06:15 verbose #4470 > > │ │
00:06:15 verbose #4471 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:15 verbose #4472 > >
00:06:15 verbose #4473 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:15 verbose #4474 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:15 verbose #4475 > > │ ### arg │
00:06:15 verbose #4476 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:15 verbose #4477 > >
00:06:15 verbose #4478 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:15 verbose #4479 > > nominal arg = $'clap_Arg'
00:06:16 verbose #4480 > >
00:06:16 verbose #4481 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:16 verbose #4482 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:16 verbose #4483 > > │ ### new_arg │
00:06:16 verbose #4484 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:16 verbose #4485 > >
00:06:16 verbose #4486 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:16 verbose #4487 > > inl new_arg (s : rust.static_ref sm'.str) : arg =
00:06:16 verbose #4488 > > !\\(s, $'"clap::Arg::new($0)"')
00:06:17 verbose #4489 > >
00:06:17 verbose #4490 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:17 verbose #4491 > > //// test
00:06:17 verbose #4492 > > ///! rust -d clap
00:06:17 verbose #4493 > >
00:06:17 verbose #4494 > > types ()
00:06:17 verbose #4495 > > ##"arg"
00:06:17 verbose #4496 > > |> new_arg
00:06:17 verbose #4497 > > |> sm'.format_pretty'
00:06:17 verbose #4498 > > |> sm'.from_std_string
00:06:17 verbose #4499 > > |> _assert_string_contains "\"arg\""
00:06:23 verbose #4500 > >
00:06:23 verbose #4501 > > ╭─[ 6.05s - return value ]─────────────────────────────────────────────────────╮
00:06:23 verbose #4502 > > │ assert_string_contains / actual: ""arg"" / expected: "Arg { │
00:06:23 verbose #4503 > > │ id: "arg", │
00:06:23 verbose #4504 > > │ help: None, │
00:06:23 verbose #4505 > > │ long_help: None, │
00:06:23 verbose #4506 > > │ action: None, │
00:06:23 verbose #4507 > > │ value_parser: None, │
00:06:23 verbose #4508 > > │ blacklist: [], │
00:06:23 verbose #4509 > > │ settings: ArgFlags( │
00:06:23 verbose #4510 > > │ 0, │
00:06:23 verbose #4511 > > │ ), │
00:06:23 verbose #4512 > > │ overrides: [], │
00:06:23 verbose #4513 > > │ groups: [], │
00:06:23 verbose #4514 > > │ requires: [], │
00:06:23 verbose #4515 > > │ r_ifs: [], │
00:06:23 verbose #4516 > > │ r_unless: [], │
00:06:23 verbose #4517 > > │ short: None, │
00:06:23 verbose #4518 > > │ long: None, │
00:06:23 verbose #4519 > > │ aliases: [], │
00:06:23 verbose #4520 > > │ short_aliases: [], │
00:06:23 verbose #4521 > > │ disp_ord: None, │
00:06:23 verbose #4522 > > │ val_names: [], │
00:06:23 verbose #4523 > > │ num_vals: None, │
00:06:23 verbose #4524 > > │ val_delim: None, │
00:06:23 verbose #4525 > > │ default_vals: [], │
00:06:23 verbose #4526 > > │ default_vals_ifs: [], │
00:06:23 verbose #4527 > > │ terminator: None, │
00:06:23 verbose #4528 > > │ index: None, │
00:06:23 verbose #4529 > > │ help_heading: None, │
00:06:23 verbose #4530 > > │ value_hint: None, │
00:06:23 verbose #4531 > > │ default_missing_vals: [], │
00:06:23 verbose #4532 > > │ }" │
00:06:23 verbose #4533 > > │ │
00:06:23 verbose #4534 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 verbose #4535 > >
00:06:23 verbose #4536 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:23 verbose #4537 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:23 verbose #4538 > > │ ### command_arg │
00:06:23 verbose #4539 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 verbose #4540 > >
00:06:23 verbose #4541 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:23 verbose #4542 > > inl command_arg (arg : arg) (command : command) : command =
00:06:23 verbose #4543 > > !\\((command, arg), $'"clap::Command::arg($0, $1)"')
00:06:24 verbose #4544 > >
00:06:24 verbose #4545 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:24 verbose #4546 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:24 verbose #4547 > > │ ### arg_required │
00:06:24 verbose #4548 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:24 verbose #4549 > >
00:06:24 verbose #4550 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:24 verbose #4551 > > inl arg_required (value : bool) (arg : arg) : arg =
00:06:24 verbose #4552 > > !\\((arg, value), $'"$0.required($1)"')
00:06:25 verbose #4553 > >
00:06:25 verbose #4554 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:25 verbose #4555 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:25 verbose #4556 > > │ ### arg_short │
00:06:25 verbose #4557 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #4558 > >
00:06:25 verbose #4559 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 verbose #4560 > > inl arg_short (value : char) (arg : arg) : arg =
00:06:25 verbose #4561 > > !\\((arg, value), $'"$0.short($1)"')
00:06:25 verbose #4562 > >
00:06:25 verbose #4563 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:25 verbose #4564 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:25 verbose #4565 > > │ ### arg_long │
00:06:25 verbose #4566 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:25 verbose #4567 > >
00:06:25 verbose #4568 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:25 verbose #4569 > > inl arg_long (value : rust.static_ref sm'.str) (arg : arg) : arg =
00:06:25 verbose #4570 > > !\\((arg, value), $'"$0.long($1)"')
00:06:26 verbose #4571 > >
00:06:26 verbose #4572 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:26 verbose #4573 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:26 verbose #4574 > > │ ### arg_value_names │
00:06:26 verbose #4575 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:26 verbose #4576 > >
00:06:26 verbose #4577 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:26 verbose #4578 > > inl arg_value_names (values : array_base (rust.static_ref sm'.str)) (arg : arg)
00:06:26 verbose #4579 > > : arg =
00:06:26 verbose #4580 > > inl values = values |> am'.to_vec
00:06:26 verbose #4581 > > !\\((arg, values), $'"$0.value_names($1)"')
00:06:27 verbose #4582 > >
00:06:27 verbose #4583 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 verbose #4584 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 verbose #4585 > > │ ### arg_num_args │
00:06:27 verbose #4586 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #4587 > >
00:06:27 verbose #4588 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 verbose #4589 > > inl arg_num_args (value : i32) (arg : arg) : arg =
00:06:27 verbose #4590 > > !\\((arg, value), $'"$0.num_args($1)"')
00:06:27 verbose #4591 > >
00:06:27 verbose #4592 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 verbose #4593 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 verbose #4594 > > │ ### value_range │
00:06:27 verbose #4595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 verbose #4596 > >
00:06:27 verbose #4597 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 verbose #4598 > > nominal value_range = $'clap_builder_ValueRange'
00:06:28 verbose #4599 > >
00:06:28 verbose #4600 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:28 verbose #4601 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:28 verbose #4602 > > │ ### new_value_range │
00:06:28 verbose #4603 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 verbose #4604 > >
00:06:28 verbose #4605 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 verbose #4606 > > inl new_value_range start end : value_range =
00:06:28 verbose #4607 > > inl len = 0i32 |> convert
00:06:28 verbose #4608 > > inl start, end =
00:06:28 verbose #4609 > > open am'
00:06:28 verbose #4610 > > match start, end with
00:06:28 verbose #4611 > > | Start start, End fn =>
00:06:28 verbose #4612 > > start, len |> fn
00:06:28 verbose #4613 > > | End start_fn, End end_fn =>
00:06:28 verbose #4614 > > start_fn len, end_fn len
00:06:28 verbose #4615 > > match start, end with
00:06:28 verbose #4616 > > | start, end when end =. len =>
00:06:28 verbose #4617 > > !\($'"clap::builder::ValueRange::new(!start..)"')
00:06:28 verbose #4618 > > | start, end => !\($'"clap::builder::ValueRange::new(!start..!end)"')
00:06:29 verbose #4619 > >
00:06:29 verbose #4620 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:29 verbose #4621 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:29 verbose #4622 > > │ ### arg_num_args_range │
00:06:29 verbose #4623 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #4624 > >
00:06:29 verbose #4625 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 verbose #4626 > > inl arg_num_args_range (value : value_range) (arg : arg) : arg =
00:06:29 verbose #4627 > > !\\((arg, value), $'"$0.num_args($1)"')
00:06:29 verbose #4628 > >
00:06:29 verbose #4629 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:29 verbose #4630 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:29 verbose #4631 > > │ ### arg_value_name │
00:06:29 verbose #4632 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:29 verbose #4633 > >
00:06:29 verbose #4634 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:29 verbose #4635 > > inl arg_value_name (value : string) (arg : arg) : arg =
00:06:29 verbose #4636 > > inl value = value |> sm'.as_str
00:06:29 verbose #4637 > > !\\((arg, value), $'"$0.value_name($1)"')
00:06:30 verbose #4638 > >
00:06:30 verbose #4639 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 verbose #4640 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 verbose #4641 > > │ ### value_parser │
00:06:30 verbose #4642 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 verbose #4643 > >
00:06:30 verbose #4644 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 verbose #4645 > > nominal value_parser = $'clap_builder_ValueParser'
00:06:31 verbose #4646 > >
00:06:31 verbose #4647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 verbose #4648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 verbose #4649 > > │ ### possible_value │
00:06:31 verbose #4650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 verbose #4651 > >
00:06:31 verbose #4652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 verbose #4653 > > nominal possible_value = $'clap_builder_PossibleValue'
00:06:31 verbose #4654 > >
00:06:31 verbose #4655 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 verbose #4656 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 verbose #4657 > > │ ### new_possible_value │
00:06:31 verbose #4658 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 verbose #4659 > >
00:06:31 verbose #4660 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 verbose #4661 > > inl new_possible_value forall t. (x : t) : possible_value =
00:06:31 verbose #4662 > > !\\(x, $'"clap::builder::PossibleValue::new(&**$0)"')
00:06:32 verbose #4663 > >
00:06:32 verbose #4664 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:32 verbose #4665 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:32 verbose #4666 > > │ ### value_parser_path_buf │
00:06:32 verbose #4667 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 verbose #4668 > >
00:06:32 verbose #4669 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:32 verbose #4670 > > inl value_parser_path_buf () : value_parser =
00:06:32 verbose #4671 > > !\($'"clap::value_parser\!(std::path::PathBuf)"')
00:06:33 verbose #4672 > >
00:06:33 verbose #4673 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:33 verbose #4674 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:33 verbose #4675 > > │ ### value_parser_expr │
00:06:33 verbose #4676 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:33 verbose #4677 > >
00:06:33 verbose #4678 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:33 verbose #4679 > > inl value_parser_expr (expr : string) : value_parser =
00:06:33 verbose #4680 > > !\($'"clap::value_parser\!(" + !expr + ").into()"')
00:06:34 verbose #4681 > >
00:06:34 verbose #4682 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:34 verbose #4683 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:34 verbose #4684 > > │ ### arg_value_parser │
00:06:34 verbose #4685 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 verbose #4686 > >
00:06:34 verbose #4687 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:34 verbose #4688 > > inl arg_value_parser (values : value_parser) (arg : arg) : arg =
00:06:34 verbose #4689 > > !\\((arg, values), $'"$0.value_parser($1)"')
00:06:34 verbose #4690 > >
00:06:34 verbose #4691 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:34 verbose #4692 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:34 verbose #4693 > > │ ### arg_action │
00:06:34 verbose #4694 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 verbose #4695 > >
00:06:34 verbose #4696 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:34 verbose #4697 > > nominal arg_action' = $'clap_ArgAction'
00:06:34 verbose #4698 > >
00:06:34 verbose #4699 > > union arg_action =
00:06:34 verbose #4700 > > | Set
00:06:34 verbose #4701 > > | Append
00:06:34 verbose #4702 > > | SetTrue
00:06:34 verbose #4703 > > | SetFalse
00:06:34 verbose #4704 > > | Count
00:06:34 verbose #4705 > > | Help
00:06:34 verbose #4706 > > | HelpShort
00:06:34 verbose #4707 > > | HelpLong
00:06:34 verbose #4708 > > | Version
00:06:34 verbose #4709 > >
00:06:34 verbose #4710 > > inl arg_action = function
00:06:34 verbose #4711 > > | Set => !\($'"clap::ArgAction::Set"') : arg_action'
00:06:34 verbose #4712 > > | Append => !\($'"clap::ArgAction::Append"') : arg_action'
00:06:34 verbose #4713 > > | SetTrue => !\($'"clap::ArgAction::SetTrue"') : arg_action'
00:06:34 verbose #4714 > > | SetFalse => !\($'"clap::ArgAction::SetFalse"') : arg_action'
00:06:34 verbose #4715 > > | Count => !\($'"clap::ArgAction::Count"') : arg_action'
00:06:34 verbose #4716 > > | Help => !\($'"clap::ArgAction::Help"') : arg_action'
00:06:34 verbose #4717 > > | HelpShort => !\($'"clap::ArgAction::HelpShort"') : arg_action'
00:06:34 verbose #4718 > > | HelpLong => !\($'"clap::ArgAction::HelpLong"') : arg_action'
00:06:34 verbose #4719 > > | Version => !\($'"clap::ArgAction::Version"') : arg_action'
00:06:34 verbose #4720 > >
00:06:34 verbose #4721 > > inl arg_action (value : arg_action) (arg : arg) : arg =
00:06:34 verbose #4722 > > inl value = value |> arg_action
00:06:34 verbose #4723 > > !\\((arg, value), $'"$0.action($1)"')
00:06:35 verbose #4724 > >
00:06:35 verbose #4725 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:35 verbose #4726 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:35 verbose #4727 > > │ ### arg_index │
00:06:35 verbose #4728 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:35 verbose #4729 > >
00:06:35 verbose #4730 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:35 verbose #4731 > > inl arg_index (value : i32) (arg : arg) : arg =
00:06:35 verbose #4732 > > !\\((arg, value), $'"$0.index($1)"')
00:06:36 verbose #4733 > >
00:06:36 verbose #4734 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:36 verbose #4735 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:36 verbose #4736 > > │ ### arg_matches │
00:06:36 verbose #4737 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 verbose #4738 > >
00:06:36 verbose #4739 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:36 verbose #4740 > > nominal arg_matches = $'clap_ArgMatches'
00:06:36 verbose #4741 > >
00:06:36 verbose #4742 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:36 verbose #4743 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:36 verbose #4744 > > │ ### command_get_matches │
00:06:36 verbose #4745 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 verbose #4746 > >
00:06:36 verbose #4747 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:36 verbose #4748 > > inl command_get_matches (command : command) : arg_matches =
00:06:36 verbose #4749 > > !\\(command, $'"clap::Command::get_matches($0)"')
00:06:37 verbose #4750 > >
00:06:37 verbose #4751 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:37 verbose #4752 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:37 verbose #4753 > > │ ### command_get_matches_from │
00:06:37 verbose #4754 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 verbose #4755 > >
00:06:37 verbose #4756 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:37 verbose #4757 > > inl command_get_matches_from (args : array_base string) (command : command) :
00:06:37 verbose #4758 > > arg_matches =
00:06:37 verbose #4759 > > inl args = args |> am'.to_vec |> am'.vec_map sm'.to_std_string
00:06:37 verbose #4760 > > !\\(command, $'"clap::Command::get_matches_from($0, !args)"')
00:06:38 verbose #4761 > >
00:06:38 verbose #4762 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:38 verbose #4763 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:38 verbose #4764 > > │ ### command_init_arg │
00:06:38 verbose #4765 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:38 verbose #4766 > >
00:06:38 verbose #4767 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:38 verbose #4768 > > inl command_init_arg (long, short) fn command =
00:06:38 verbose #4769 > > command
00:06:38 verbose #4770 > > |> command_arg (
00:06:38 verbose #4771 > > new_arg ##long
00:06:38 verbose #4772 > > |> arg_short short
00:06:38 verbose #4773 > > |> arg_long ##long
00:06:38 verbose #4774 > > |> fn
00:06:38 verbose #4775 > > )
00:06:38 verbose #4776 > >
00:06:38 verbose #4777 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:38 verbose #4778 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:38 verbose #4779 > > │ ### matches_get_one │
00:06:38 verbose #4780 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:38 verbose #4781 > >
00:06:38 verbose #4782 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:38 verbose #4783 > > inl matches_get_one forall t. (x : string) (matches : arg_matches) :
00:06:38 verbose #4784 > > optionm'.option' t =
00:06:38 verbose #4785 > > inl x = join x
00:06:38 verbose #4786 > > inl x = x |> sm'.as_str
00:06:38 verbose #4787 > > !\\(matches, $'"clap::ArgMatches::get_one(&$0, !x).cloned()"')
00:06:39 verbose #4788 > >
00:06:39 verbose #4789 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:39 verbose #4790 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:39 verbose #4791 > > │ ### matches_get_flag │
00:06:39 verbose #4792 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:39 verbose #4793 > >
00:06:39 verbose #4794 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:39 verbose #4795 > > inl matches_get_flag (x : string) (matches : arg_matches) : bool =
00:06:39 verbose #4796 > > inl x = join x
00:06:39 verbose #4797 > > inl x = x |> sm'.as_str
00:06:39 verbose #4798 > > !\($'"clap::ArgMatches::get_flag(&!matches, !x)"')
00:06:40 verbose #4799 > >
00:06:40 verbose #4800 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:40 verbose #4801 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:40 verbose #4802 > > │ ### matches_get_many │
00:06:40 verbose #4803 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:40 verbose #4804 > >
00:06:40 verbose #4805 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:40 verbose #4806 > > inl matches_get_many forall t. (x : string) (matches : arg_matches) :
00:06:40 verbose #4807 > > optionm'.option' (am'.vec t) =
00:06:40 verbose #4808 > > inl x = join x
00:06:40 verbose #4809 > > inl x = x |> sm'.as_str
00:06:40 verbose #4810 > > !\\(matches, $'"clap::ArgMatches::get_many(&$0, !x).map(|x|
00:06:40 verbose #4811 > > x.cloned().into_iter().collect())"')
00:06:40 verbose #4812 > >
00:06:40 verbose #4813 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:40 verbose #4814 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:40 verbose #4815 > > │ ### matches_get_occurrences │
00:06:40 verbose #4816 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:40 verbose #4817 > >
00:06:40 verbose #4818 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:40 verbose #4819 > > inl matches_get_occurrences (x : string) (matches : arg_matches) :
00:06:40 verbose #4820 > > optionm'.option' (array_base sm'.std_string) =
00:06:40 verbose #4821 > > inl x = join x
00:06:40 verbose #4822 > > inl x = x |> sm'.as_str
00:06:40 verbose #4823 > > !\($'"clap::ArgMatches::get_occurrences(&!matches, !x).cloned()"')
00:06:41 verbose #4824 > >
00:06:41 verbose #4825 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:41 verbose #4826 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:41 verbose #4827 > > │ ### matches_subcommand │
00:06:41 verbose #4828 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:41 verbose #4829 > >
00:06:41 verbose #4830 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:41 verbose #4831 > > inl matches_subcommand (matches : arg_matches) : optionm'.option'
00:06:41 verbose #4832 > > (sm'.std_string * arg_matches) =
00:06:41 verbose #4833 > > !\\((matches, sm'.ref_to_std_string),
00:06:41 verbose #4834 > > $'"clap::ArgMatches::subcommand(Box::leak(Box::new($0))).map(|(a, b)| ($1(a),
00:06:41 verbose #4835 > > b.clone()))"')
00:06:41 verbose #4836 > >
00:06:41 verbose #4837 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:41 verbose #4838 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:41 verbose #4839 > > │ ### matches_values_of │
00:06:41 verbose #4840 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:41 verbose #4841 > >
00:06:41 verbose #4842 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:41 verbose #4843 > > inl matches_values_of (x : string) (matches : arg_matches) : array_base
00:06:41 verbose #4844 > > sm'.std_string =
00:06:41 verbose #4845 > > !\\((matches, x), $'"clap::ArgMatches::values_of($0, &*$1)"')
00:06:42 verbose #4846 > >
00:06:42 verbose #4847 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:42 verbose #4848 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:42 verbose #4849 > > │ ### command_subcommand_required │
00:06:42 verbose #4850 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:42 verbose #4851 > >
00:06:42 verbose #4852 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:42 verbose #4853 > > inl command_subcommand_required (value : bool) (command : command) : command =
00:06:42 verbose #4854 > > !\\(command, $'"clap::Command::subcommand_required($0, !value)"')
00:06:43 verbose #4855 > >
00:06:43 verbose #4856 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:43 verbose #4857 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:43 verbose #4858 > > │ ### command_subcommand │
00:06:43 verbose #4859 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:43 verbose #4860 > >
00:06:43 verbose #4861 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:43 verbose #4862 > > inl command_subcommand (subcommand : command) (command : command) : command =
00:06:43 verbose #4863 > > !\\(command, $'"clap::Command::subcommand($0, !subcommand)"')
00:06:44 verbose #4864 > >
00:06:44 verbose #4865 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:44 verbose #4866 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:44 verbose #4867 > > │ ### value_parser_possible_values │
00:06:44 verbose #4868 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 verbose #4869 > >
00:06:44 verbose #4870 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:44 verbose #4871 > > inl value_parser_possible_values (values : array_base string) : value_parser =
00:06:44 verbose #4872 > > inl values =
00:06:44 verbose #4873 > > values
00:06:44 verbose #4874 > > |> am'.to_vec
00:06:44 verbose #4875 > > |> am'.vec_map (sm'.to_std_string >> rust.new_box >> rust.box_leak >>
00:06:44 verbose #4876 > > new_possible_value)
00:06:44 verbose #4877 > > !\\(values,
00:06:44 verbose #4878 > > $'"Into::<clap::builder::ValueParser>::into(clap::builder::PossibleValuesParser:
00:06:44 verbose #4879 > > :new($0))"')
00:06:44 verbose #4880 > >
00:06:44 verbose #4881 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:44 verbose #4882 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:44 verbose #4883 > > │ ### arg_union │
00:06:44 verbose #4884 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 verbose #4885 > >
00:06:44 verbose #4886 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:44 verbose #4887 > > inl arg_union forall union_type. (fn : union_type -> ()) (arg : arg) : arg =
00:06:44 verbose #4888 > > arg
00:06:44 verbose #4889 > > |> arg_value_parser (
00:06:44 verbose #4890 > > real reflection.get_union_fields_untag `union_type ()
00:06:44 verbose #4891 > > |> fun x => x : _ (string * union_type)
00:06:44 verbose #4892 > > |> listm.map fst
00:06:44 verbose #4893 > > |> listm'.box
00:06:44 verbose #4894 > > |> listm'.to_array'
00:06:44 verbose #4895 > > |> value_parser_possible_values
00:06:44 verbose #4896 > > )
00:06:45 verbose #4897 > >
00:06:45 verbose #4898 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #4899 > > //// test
00:06:45 verbose #4900 > > ///! rust -d clap
00:06:45 verbose #4901 > >
00:06:45 verbose #4902 > > ##"command"
00:06:45 verbose #4903 > > |> new_command
00:06:45 verbose #4904 > > |> command_init_arg ("trace-level", 't') (
00:06:45 verbose #4905 > > real arg_union `trace_level ignore
00:06:45 verbose #4906 > > )
00:06:45 verbose #4907 > > |> command_get_matches_from ;[[ "_"; "--trace-level"; "Critical" ]]
00:06:45 verbose #4908 > > |> matches_get_one "trace-level"
00:06:45 verbose #4909 > > |> optionm'.unwrap
00:06:45 verbose #4910 > > |> sm'.from_std_string
00:06:45 verbose #4911 > > |> reflection.union_try_pick
00:06:45 verbose #4912 > > |> optionm.value
00:06:45 verbose #4913 > > |> _assert_eq Critical
00:06:49 verbose #4914 > >
00:06:49 verbose #4915 > > ╭─[ 3.97s - return value ]─────────────────────────────────────────────────────╮
00:06:49 verbose #4916 > > │ assert_eq / actual: US1_4 / expected: US1_4 │
00:06:49 verbose #4917 > > │ │
00:06:49 verbose #4918 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #4919 > >
00:06:49 verbose #4920 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:49 verbose #4921 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:49 verbose #4922 > > │ ### command_debug_assert │
00:06:49 verbose #4923 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #4924 > >
00:06:49 verbose #4925 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 verbose #4926 > > inl command_debug_assert (command : command) : () =
00:06:49 verbose #4927 > > !\\(command, $'"clap::Command::debug_assert($0)"')
00:06:50 verbose #4928 > >
00:06:50 verbose #4929 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:50 verbose #4930 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:50 verbose #4931 > > │ ## fsharp │
00:06:50 verbose #4932 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 verbose #4933 > >
00:06:50 verbose #4934 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:50 verbose #4935 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:50 verbose #4936 > > │ ### process │
00:06:50 verbose #4937 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 verbose #4938 > >
00:06:50 verbose #4939 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:50 verbose #4940 > > nominal process = $'System.Diagnostics.Process'
00:06:50 verbose #4941 > >
00:06:50 verbose #4942 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:50 verbose #4943 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:50 verbose #4944 > > │ ### process_start_info │
00:06:50 verbose #4945 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 verbose #4946 > >
00:06:50 verbose #4947 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:50 verbose #4948 > > nominal process_start_info = $'System.Diagnostics.ProcessStartInfo'
00:06:51 verbose #4949 > >
00:06:51 verbose #4950 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:51 verbose #4951 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:51 verbose #4952 > > │ ### data_received_event_args │
00:06:51 verbose #4953 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 verbose #4954 > >
00:06:51 verbose #4955 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 verbose #4956 > > nominal data_received_event_args = $'System.Diagnostics.DataReceivedEventArgs'
00:06:52 verbose #4957 > >
00:06:52 verbose #4958 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:52 verbose #4959 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:52 verbose #4960 > > │ ### new_process │
00:06:52 verbose #4961 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 verbose #4962 > >
00:06:52 verbose #4963 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 verbose #4964 > > inl new_process (process_start_info : process_start_info) : process =
00:06:52 verbose #4965 > > $'new `process (StartInfo = !process_start_info)'
00:06:52 verbose #4966 > >
00:06:52 verbose #4967 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:52 verbose #4968 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:52 verbose #4969 > > │ ### process_start │
00:06:52 verbose #4970 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 verbose #4971 > >
00:06:52 verbose #4972 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 verbose #4973 > > inl process_start (process : process) : bool =
00:06:52 verbose #4974 > > $'!process.Start' ()
00:06:53 verbose #4975 > >
00:06:53 verbose #4976 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:53 verbose #4977 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:53 verbose #4978 > > │ ### process_exit_code │
00:06:53 verbose #4979 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 verbose #4980 > >
00:06:53 verbose #4981 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 verbose #4982 > > inl process_exit_code (process : process) : i32 =
00:06:53 verbose #4983 > > $'!process.ExitCode'
00:06:54 verbose #4984 > >
00:06:54 verbose #4985 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:54 verbose #4986 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:54 verbose #4987 > > │ ### process_id │
00:06:54 verbose #4988 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 verbose #4989 > >
00:06:54 verbose #4990 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 verbose #4991 > > inl process_id (process : process) : i32 =
00:06:54 verbose #4992 > > $'!process.Id'
00:06:54 verbose #4993 > >
00:06:54 verbose #4994 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:54 verbose #4995 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:54 verbose #4996 > > │ ### process_has_exited │
00:06:54 verbose #4997 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 verbose #4998 > >
00:06:54 verbose #4999 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 verbose #5000 > > inl process_has_exited (process : process) : bool =
00:06:54 verbose #5001 > > run_target function
00:06:54 verbose #5002 > > | Fsharp (Native) => fun () =>
00:06:54 verbose #5003 > > $'!process.HasExited'
00:06:54 verbose #5004 > > | _ => fun () => null ()
00:06:55 verbose #5005 > >
00:06:55 verbose #5006 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:55 verbose #5007 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:55 verbose #5008 > > │ ### process_kill │
00:06:55 verbose #5009 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 verbose #5010 > >
00:06:55 verbose #5011 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 verbose #5012 > > inl process_kill (process : process) : () =
00:06:55 verbose #5013 > > run_target function
00:06:55 verbose #5014 > > | Fsharp (Native) => fun () =>
00:06:55 verbose #5015 > > $'!process.Kill' ()
00:06:55 verbose #5016 > > | _ => fun () => null ()
00:06:56 verbose #5017 > >
00:06:56 verbose #5018 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:56 verbose #5019 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:56 verbose #5020 > > │ ### process_begin_error_read_line │
00:06:56 verbose #5021 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 verbose #5022 > >
00:06:56 verbose #5023 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:56 verbose #5024 > > inl process_begin_error_read_line (process : process) : () =
00:06:56 verbose #5025 > > $'!process.BeginErrorReadLine' ()
00:06:57 verbose #5026 > >
00:06:57 verbose #5027 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:57 verbose #5028 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:57 verbose #5029 > > │ ### process_begin_output_read_line │
00:06:57 verbose #5030 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 verbose #5031 > >
00:06:57 verbose #5032 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 verbose #5033 > > inl process_begin_output_read_line (process : process) : () =
00:06:57 verbose #5034 > > $'!process.BeginOutputReadLine' ()
00:06:57 verbose #5035 > >
00:06:57 verbose #5036 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:57 verbose #5037 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:57 verbose #5038 > > │ ### process_add_output_data_received │
00:06:57 verbose #5039 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 verbose #5040 > >
00:06:57 verbose #5041 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 verbose #5042 > > inl process_add_output_data_received fn (process : process) : () =
00:06:57 verbose #5043 > > $'!process.OutputDataReceived.Add !fn '
00:06:58 verbose #5044 > >
00:06:58 verbose #5045 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:58 verbose #5046 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:58 verbose #5047 > > │ ### process_add_error_data_received │
00:06:58 verbose #5048 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 verbose #5049 > >
00:06:58 verbose #5050 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 verbose #5051 > > inl process_add_error_data_received fn (process : process) : () =
00:06:58 verbose #5052 > > $'!process.ErrorDataReceived.Add !fn '
00:06:59 verbose #5053 > >
00:06:59 verbose #5054 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:59 verbose #5055 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:59 verbose #5056 > > │ ### process_wait_for_exit_async │
00:06:59 verbose #5057 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 verbose #5058 > >
00:06:59 verbose #5059 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:59 verbose #5060 > > inl process_wait_for_exit_async (ct : threading.cancellation_token) (process :
00:06:59 verbose #5061 > > process) : async.task () =
00:06:59 verbose #5062 > > $'!process.WaitForExitAsync !ct '
00:06:59 verbose #5063 > >
00:06:59 verbose #5064 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:59 verbose #5065 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:59 verbose #5066 > > │ ### event_data │
00:06:59 verbose #5067 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 verbose #5068 > >
00:06:59 verbose #5069 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:59 verbose #5070 > > inl event_data (e : data_received_event_args) : string =
00:06:59 verbose #5071 > > $'!e.Data'
00:07:00 verbose #5072 > >
00:07:00 verbose #5073 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:00 verbose #5074 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:00 verbose #5075 > > │ ### execute_with_options_async │
00:07:00 verbose #5076 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:00 verbose #5077 > >
00:07:00 verbose #5078 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:00 verbose #5079 > > let execute_with_options_async (options : execution_options) : _ (i32 * string)
00:07:00 verbose #5080 > > =
00:07:00 verbose #5081 > > run_target function
00:07:00 verbose #5082 > > | Fsharp (Native) => fun () =>
00:07:00 verbose #5083 > > fun () =>
00:07:00 verbose #5084 > > inl file_name, arguments = options.command |> split_command
00:07:00 verbose #5085 > > inl working_directory = options.working_directory |>
00:07:00 verbose #5086 > > optionm'.unbox |> optionm'.default_value ""
00:07:00 verbose #5087 > >
00:07:00 verbose #5088 > > trace Debug (fun () => $'$"runtime.execute_with_options_async
00:07:00 verbose #5089 > > options: %A{!options}"') (join _locals)
00:07:00 verbose #5090 > >
00:07:00 verbose #5091 > > inl utf8 = sm'.encoding_utf8 ()
00:07:00 verbose #5092 > > inl start_info : process_start_info =
00:07:00 verbose #5093 > > $'System.Diagnostics.ProcessStartInfo (Arguments = !arguments,
00:07:00 verbose #5094 > > StandardOutputEncoding = !utf8, WorkingDirectory = !working_directory, FileName
00:07:00 verbose #5095 > > = !file_name, CreateNoWindow = true, RedirectStandardError = true,
00:07:00 verbose #5096 > > RedirectStandardOutput = true, UseShellExecute = false)'
00:07:00 verbose #5097 > >
00:07:00 verbose #5098 > > (a options.environment_variables : _ i32 _)
00:07:00 verbose #5099 > > |> am.iter fun key, value =>
00:07:00 verbose #5100 > > $'!start_info.EnvironmentVariables.[[!key]] <- !value '
00:07:00 verbose #5101 > >
00:07:00 verbose #5102 > > inl proc = start_info |> new_process |> use
00:07:00 verbose #5103 > > inl output : _ string = threading.new_concurrent_stack ()
00:07:00 verbose #5104 > >
00:07:00 verbose #5105 > > inl event error (e : data_received_event_args) = async.new_async
00:07:00 verbose #5106 > > fun () =>
00:07:00 verbose #5107 > > inl data = e |> event_data
00:07:00 verbose #5108 > > if data <> null () then
00:07:00 verbose #5109 > > match options.on_line |> optionm'.unbox with
00:07:00 verbose #5110 > > | Some on_line =>
00:07:00 verbose #5111 > > on_line
00:07:00 verbose #5112 > > {
00:07:00 verbose #5113 > > process_id = proc |> process_id
00:07:00 verbose #5114 > > line = data
00:07:00 verbose #5115 > > error = error
00:07:00 verbose #5116 > > }
00:07:00 verbose #5117 > > |> async.do
00:07:00 verbose #5118 > > | None => ()
00:07:00 verbose #5119 > >
00:07:00 verbose #5120 > > inl text =
00:07:00 verbose #5121 > > if error
00:07:00 verbose #5122 > > then $'$"\! {!data}"'
00:07:00 verbose #5123 > > else $'$"> {!data}"'
00:07:00 verbose #5124 > > if options.trace
00:07:00 verbose #5125 > > then trace Verbose (fun () => text) _locals
00:07:00 verbose #5126 > > else text |> console.write_line
00:07:00 verbose #5127 > >
00:07:00 verbose #5128 > > inl l = if error then $'"\\u001b[[7;4m"' else ""
00:07:00 verbose #5129 > > inl r = if error then $'"\\u001b[[0m"' else ""
00:07:00 verbose #5130 > > output |> threading.concurrent_stack_push
00:07:00 verbose #5131 > > $'$"{!l}{!data}{!r}"'
00:07:00 verbose #5132 > >
00:07:00 verbose #5133 > > proc |> process_add_output_data_received (event false >>
00:07:00 verbose #5134 > > async.start_immediate)
00:07:00 verbose #5135 > > proc |> process_add_error_data_received (event true >>
00:07:00 verbose #5136 > > async.start_immediate)
00:07:00 verbose #5137 > >
00:07:00 verbose #5138 > > if proc |> process_start |> not
00:07:00 verbose #5139 > > then failwith $'$"runtime.execute_with_options_async
00:07:00 verbose #5140 > > process_start error"'
00:07:00 verbose #5141 > >
00:07:00 verbose #5142 > > proc |> process_begin_error_read_line
00:07:00 verbose #5143 > > proc |> process_begin_output_read_line
00:07:00 verbose #5144 > >
00:07:00 verbose #5145 > > inl ct =
00:07:00 verbose #5146 > > options.cancellation_token
00:07:00 verbose #5147 > > |> optionm'.unbox
00:07:00 verbose #5148 > > |> optionm'.default_with threading.token_none
00:07:00 verbose #5149 > > |> async.merge_cancellation_token_with_default_async
00:07:00 verbose #5150 > > |> async.let'
00:07:00 verbose #5151 > >
00:07:00 verbose #5152 > > ct |> threading.token_register fun () =>
00:07:00 verbose #5153 > > if proc |> process_has_exited |> not
00:07:00 verbose #5154 > > then proc |> process_kill
00:07:00 verbose #5155 > > |> use
00:07:00 verbose #5156 > > |> ignore
00:07:00 verbose #5157 > >
00:07:00 verbose #5158 > > inl exit_code : i32 =
00:07:00 verbose #5159 > > fun () =>
00:07:00 verbose #5160 > > try_unit
00:07:00 verbose #5161 > > fun () =>
00:07:00 verbose #5162 > > proc
00:07:00 verbose #5163 > > |> process_wait_for_exit_async ct
00:07:00 verbose #5164 > > |> async.await_task
00:07:00 verbose #5165 > > |> async.do
00:07:00 verbose #5166 > > proc |> process_exit_code |> return
00:07:00 verbose #5167 > > fun ex =>
00:07:00 verbose #5168 > > // with :?
00:07:00 verbose #5169 > > System.Threading.Tasks.TaskCanceledException as ex =>
00:07:00 verbose #5170 > > inl ex' = ex |> sm'.format_exception
00:07:00 verbose #5171 > > output |> threading.concurrent_stack_push ex'
00:07:00 verbose #5172 > > inl ex : async.task_canceled_exception = ex |>
00:07:00 verbose #5173 > > unbox
00:07:00 verbose #5174 > > trace Warning (fun () =>
00:07:00 verbose #5175 > > $'$"runtime.execute_with_options_async / WaitForExitAsync / ex: %A{!ex}"') (join
00:07:00 verbose #5176 > > _locals)
00:07:00 verbose #5177 > > (limit.min : i32) |> return
00:07:00 verbose #5178 > > |> async.new_async_unit
00:07:00 verbose #5179 > > |> async.let'
00:07:00 verbose #5180 > >
00:07:00 verbose #5181 > > inl output =
00:07:00 verbose #5182 > > output
00:07:00 verbose #5183 > > |> seq.rev''
00:07:00 verbose #5184 > > |> fun x => x : seq.seq' string
00:07:00 verbose #5185 > > |> sm'.concat "\n"
00:07:00 verbose #5186 > >
00:07:00 verbose #5187 > > trace Debug (fun () =>
00:07:00 verbose #5188 > > $'$"runtime.execute_with_options_async / exit_code:
00:07:00 verbose #5189 > > {!exit_code} / output.Length: {!output.Length}"'
00:07:00 verbose #5190 > > ) (join _locals)
00:07:00 verbose #5191 > >
00:07:00 verbose #5192 > > (exit_code, output) |> return
00:07:00 verbose #5193 > > |> async.new_async_unit
00:07:00 verbose #5194 > > | _ => fun () =>
00:07:00 verbose #5195 > > global "#if FABLE_COMPILER\n[[<CompilationRepresentation
00:07:00 verbose #5196 > > (CompilationRepresentationFlags.ModuleSuffix)>]]\nmodule System =\n module
00:07:00 verbose #5197 > > Diagnostics =\n type Process = unit\n type DataReceivedEventArgs =
00:07:00 verbose #5198 > > unit\n#endif"
00:07:00 verbose #5199 > > null ()
00:07:01 verbose #5200 > >
00:07:01 verbose #5201 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:01 verbose #5202 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:01 verbose #5203 > > │ ### execute_async │
00:07:01 verbose #5204 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:01 verbose #5205 > >
00:07:01 verbose #5206 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:01 verbose #5207 > > inl execute_async command =
00:07:01 verbose #5208 > > execution_options fun x => { x with
00:07:01 verbose #5209 > > command = command
00:07:01 verbose #5210 > > }
00:07:01 verbose #5211 > > |> execute_with_options_async
00:07:01 verbose #5212 > >
00:07:01 verbose #5213 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:01 verbose #5214 > > //// test
00:07:01 verbose #5215 > >
00:07:01 verbose #5216 > > types ()
00:07:01 verbose #5217 > >
00:07:01 verbose #5218 > > inl content = "╭─[[ 你好，世界！こんにちは世界！ ]]─╮"
00:07:01 verbose #5219 > > fun () =>
00:07:01 verbose #5220 > > inl file_name = "test.txt"
00:07:01 verbose #5221 > > inl temp_dir, disposable =
00:07:01 verbose #5222 > > (file_name, content)
00:07:01 verbose #5223 > > |> sm'.format_debug
00:07:01 verbose #5224 > > |> crypto.hash_text
00:07:01 verbose #5225 > > |> file_system.create_temp_dir'
00:07:01 verbose #5226 > > disposable |> use |> ignore
00:07:01 verbose #5227 > >
00:07:01 verbose #5228 > > inl path = temp_dir </> file_name
00:07:01 verbose #5229 > >
00:07:01 verbose #5230 > > inl exit_code, result = execute_async $'\@$"pwsh -c ""Get-Content
00:07:01 verbose #5231 > > {!path}"""' |> async.let'
00:07:01 verbose #5232 > > exit_code |> join _assert_eq 1
00:07:01 verbose #5233 > > result |> _assert_string_contains "not exist"
00:07:01 verbose #5234 > >
00:07:01 verbose #5235 > > content |> file_system.write_all_text_async path |> async.do
00:07:01 verbose #5236 > >
00:07:01 verbose #5237 > > execution_options fun x => { x with
00:07:01 verbose #5238 > > command = $'\@$"cat ""{!file_name}"""'
00:07:01 verbose #5239 > > working_directory = Some temp_dir |> optionm'.box
00:07:01 verbose #5240 > > }
00:07:01 verbose #5241 > > |> execute_with_options_async
00:07:01 verbose #5242 > > |> async.let'
00:07:01 verbose #5243 > > |> ignore
00:07:01 verbose #5244 > >
00:07:01 verbose #5245 > > execution_options fun x => { x with
00:07:01 verbose #5246 > > command = $'\@$"pwsh -c ""[[System.Console]]::OutputEncoding =
00:07:01 verbose #5247 > > [[System.Text.Encoding]]::UTF8; Get-Content {!file_name}"""'
00:07:01 verbose #5248 > > working_directory = Some temp_dir |> optionm'.box
00:07:01 verbose #5249 > > }
00:07:01 verbose #5250 > > |> execute_with_options_async
00:07:01 verbose #5251 > > |> async.return_await
00:07:01 verbose #5252 > > |> async.new_async_unit
00:07:01 verbose #5253 > > |> async.run_with_timeout 10000
00:07:01 verbose #5254 > > |> function
00:07:01 verbose #5255 > > | Some (exit_code, output) =>
00:07:01 verbose #5256 > > exit_code |> join _assert_eq 0i32
00:07:01 verbose #5257 > > output |> join _assert_eq content
00:07:01 verbose #5258 > > true
00:07:01 verbose #5259 > > | _ => false
00:07:01 verbose #5260 > > |> _assert_eq true
00:07:05 verbose #5261 > >
00:07:05 verbose #5262 > > ╭─[ 3.91s - stdout ]───────────────────────────────────────────────────────────╮
00:07:05 verbose #5263 > > │ 00:00:00 debug #1 runtime.execute_with_options_async / options: struct │
00:07:05 verbose #5264 > > │ (None, │
00:07:05 verbose #5265 > > │ "pwsh -c "Get-Content │
00:07:05 verbose #5266 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-81 │
00:07:05 verbose #5267 > > │ 3b-88ad-7791-7ce2871edce9\test.txt"", │
00:07:05 verbose #5268 > > │ [||], None, None, true, None) │
00:07:05 verbose #5269 > > │ 00:00:00 verbose #2 ! Get-Content: Cannot find path │
00:07:05 verbose #5270 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:07:05 verbose #5271 > > │ 13b-88ad-7791-7ce2871edce9\test.txt' because it does not exist. │
00:07:05 verbose #5272 > > │ 00:00:00 debug #3 runtime.execute_with_options_async / exit_code: 1 / │
00:07:05 verbose #5273 > > │ output.Length: 197 │
00:07:05 verbose #5274 > > │ assert_eq / actual: 1 / expected: 1 │
00:07:05 verbose #5275 > > │ assert_string_contains / actual: "not exist" / expected: "[ │
00:07:05 verbose #5276 > > │ 31;1mGet-Content: Cannot find path │
00:07:05 verbose #5277 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:07:05 verbose #5278 > > │ 13b-88ad-7791-7ce2871edce9\test.txt' because it does not exist." │
00:07:05 verbose #5279 > > │ 00:00:00 debug #4 runtime.execute_with_options_async / options: struct │
00:07:05 verbose #5280 > > │ (None, "cat "test.txt"", [||], None, None, true, │
00:07:05 verbose #5281 > > │ Some │
00:07:05 verbose #5282 > > │ │
00:07:05 verbose #5283 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:07:05 verbose #5284 > > │ 13b-88ad-7791-7ce2871edce9") │
00:07:05 verbose #5285 > > │ 00:00:00 verbose #5 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:07:05 verbose #5286 > > │ 00:00:00 debug #6 runtime.execute_with_options_async / exit_code: 0 / │
00:07:05 verbose #5287 > > │ output.Length: 22 │
00:07:05 verbose #5288 > > │ 00:00:00 debug #7 runtime.execute_with_options_async / options: struct │
00:07:05 verbose #5289 > > │ (None, │
00:07:05 verbose #5290 > > │ "pwsh -c "[System.Console]::OutputEncoding = [ │
00:07:05 verbose #5291 > > │ System.Text.Encoding]::UTF8; Get-Content test.txt"", │
00:07:05 verbose #5292 > > │ [||], None, None, true, │
00:07:05 verbose #5293 > > │ Some │
00:07:05 verbose #5294 > > │ │
00:07:05 verbose #5295 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:07:05 verbose #5296 > > │ 13b-88ad-7791-7ce2871edce9") │
00:07:05 verbose #5297 > > │ 00:00:01 verbose #8 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:07:05 verbose #5298 > > │ 00:00:01 debug #9 runtime.execute_with_options_async / exit_code: 0 / │
00:07:05 verbose #5299 > > │ output.Length: 22 │
00:07:05 verbose #5300 > > │ assert_eq / actual: 0 / expected: 0 │
00:07:05 verbose #5301 > > │ assert_eq / actual: "╭─[ 你好，世界！こんにちは世界！ ]─╮" / expected: "╭─[ │
00:07:05 verbose #5302 > > │ 你好，世界！こんにちは世界！ ]─╮" │
00:07:05 verbose #5303 > > │ assert_eq / actual: true / expected: true │
00:07:05 verbose #5304 > > │ │
00:07:05 verbose #5305 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:05 verbose #5306 > >
00:07:05 verbose #5307 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:05 verbose #5308 > > //// test
00:07:05 verbose #5309 > >
00:07:05 verbose #5310 > > file_system.types ()
00:07:05 verbose #5311 > > fun () =>
00:07:05 verbose #5312 > > inl file_name = "test.txt"
00:07:05 verbose #5313 > > inl text = "0"
00:07:05 verbose #5314 > >
00:07:05 verbose #5315 > > inl temp_dir, disposable =
00:07:05 verbose #5316 > > (file_name, text)
00:07:05 verbose #5317 > > |> sm'.format_debug
00:07:05 verbose #5318 > > |> crypto.hash_text
00:07:05 verbose #5319 > > |> file_system.create_temp_dir'
00:07:05 verbose #5320 > > disposable |> use |> ignore
00:07:05 verbose #5321 > > inl path = temp_dir </> file_name
00:07:05 verbose #5322 > > text |> file_system.write_all_text_async path |> async.do
00:07:05 verbose #5323 > >
00:07:05 verbose #5324 > > inl cts = threading.new_cancellation_token_source ()
00:07:05 verbose #5325 > > trace Debug (fun () => "1") _locals
00:07:05 verbose #5326 > > inl result =
00:07:05 verbose #5327 > > execution_options fun x => { x with
00:07:05 verbose #5328 > > command = $'\@$"pwsh -c ""Get-Content {!path}"""'
00:07:05 verbose #5329 > > cancellation_token = cts |> threading.cancellation_source_token |>
00:07:05 verbose #5330 > > Some |> optionm'.box
00:07:05 verbose #5331 > > }
00:07:05 verbose #5332 > > |> execute_with_options_async
00:07:05 verbose #5333 > > |> async.start_child
00:07:05 verbose #5334 > > |> async.let'
00:07:05 verbose #5335 > > trace Debug (fun () => "2") _locals
00:07:05 verbose #5336 > > async.sleep 100 |> async.do
00:07:05 verbose #5337 > > trace Debug (fun () => "3") _locals
00:07:05 verbose #5338 > > cts |> threading.cancellation_source_cancel
00:07:05 verbose #5339 > > trace Debug (fun () => "4") _locals
00:07:05 verbose #5340 > > inl exit_code, output = result |> async.let'
00:07:05 verbose #5341 > > trace Debug (fun () => "5") _locals
00:07:05 verbose #5342 > > (exit_code, output) |> return
00:07:05 verbose #5343 > > |> async.new_async_unit
00:07:05 verbose #5344 > > |> async.run_with_timeout 10000
00:07:05 verbose #5345 > > |> function
00:07:05 verbose #5346 > > | Some (exit_code, output) =>
00:07:05 verbose #5347 > > exit_code |> _assert_eq -2147483648i32
00:07:05 verbose #5348 > > output |> _assert_eq (join
00:07:05 verbose #5349 > > "System.Threading.Tasks.TaskCanceledException: A task was canceled.")
00:07:05 verbose #5350 > > true
00:07:05 verbose #5351 > > | _ => false
00:07:05 verbose #5352 > > |> _assert_eq true
00:07:08 verbose #5353 > >
00:07:08 verbose #5354 > > ╭─[ 2.36s - stdout ]───────────────────────────────────────────────────────────╮
00:07:08 verbose #5355 > > │ 00:00:00 debug #1 1 │
00:07:08 verbose #5356 > > │ 00:00:00 debug #2 2 │
00:07:08 verbose #5357 > > │ 00:00:00 debug #3 runtime.execute_with_options_async / options: struct │
00:07:08 verbose #5358 > > │ (Some System.Threading.CancellationToken, │
00:07:08 verbose #5359 > > │ "pwsh -c "Get-Content │
00:07:08 verbose #5360 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-01 │
00:07:08 verbose #5361 > > │ 6e-d959-8d21-02dc1c63c252\test.txt"", │
00:07:08 verbose #5362 > > │ [||], None, None, true, None) │
00:07:08 verbose #5363 > > │ 00:00:00 debug #4 3 │
00:07:08 verbose #5364 > > │ 00:00:00 debug #5 4 │
00:07:08 verbose #5365 > > │ 00:00:00 warning #6 runtime.execute_with_options_async / WaitForExitAsync / │
00:07:08 verbose #5366 > > │ ex: System.Threading.Tasks.TaskCanceledException: A task was canceled. │
00:07:08 verbose #5367 > > │ 00:00:00 debug #7 runtime.execute_with_options_async / exit_code: │
00:07:08 verbose #5368 > > │ -2147483648 / output.Length: 66 │
00:07:08 verbose #5369 > > │ 00:00:00 debug #8 5 │
00:07:08 verbose #5370 > > │ assert_eq / actual: -2147483648 / expected: -2147483648 │
00:07:08 verbose #5371 > > │ assert_eq / actual: "System.Threading.Tasks.TaskCanceledException: A task │
00:07:08 verbose #5372 > > │ was canceled." / expected: "System.Threading.Tasks.TaskCanceledException: A │
00:07:08 verbose #5373 > > │ task was canceled." │
00:07:08 verbose #5374 > > │ assert_eq / actual: true / expected: true │
00:07:08 verbose #5375 > > │ │
00:07:08 verbose #5376 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:08 verbose #5377 > >
00:07:08 verbose #5378 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:08 verbose #5379 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:08 verbose #5380 > > │ ### current_process_kill │
00:07:08 verbose #5381 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:08 verbose #5382 > >
00:07:08 verbose #5383 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:08 verbose #5384 > > inl current_process_kill () =
00:07:08 verbose #5385 > > run_target function
00:07:08 verbose #5386 > > | Fsharp (Native) => fun () =>
00:07:08 verbose #5387 > > inl fn () =
00:07:08 verbose #5388 > > run_target function
00:07:08 verbose #5389 > > | Fsharp (Native) => fun () =>
00:07:08 verbose #5390 > > trace Warning (fun () => "runtime.current_process_kill
00:07:08 verbose #5391 > > exiting... 3") _locals
00:07:08 verbose #5392 > > $'System.Threading.Thread.Sleep 300'
00:07:08 verbose #5393 > > trace Warning (fun () => "runtime.current_process_kill
00:07:08 verbose #5394 > > exiting... 2") _locals
00:07:08 verbose #5395 > > $'System.Console.Out.Flush ()'
00:07:08 verbose #5396 > > $'System.Threading.Thread.Sleep 60'
00:07:08 verbose #5397 > > trace Warning (fun () => "runtime.current_process_kill
00:07:08 verbose #5398 > > exiting... 1") _locals
00:07:08 verbose #5399 > > $'System.Diagnostics.Process.GetCurrentProcess().Kill
00:07:08 verbose #5400 > > ()' : ()
00:07:08 verbose #5401 > > | _ => fun () => null ()
00:07:08 verbose #5402 > > inl thread : threading.thread = $'new System.Threading.Thread (!fn)'
00:07:08 verbose #5403 > > thread |> $'_.Start()' : ()
00:07:08 verbose #5404 > > | _ => fun () => null ()
00:07:08 verbose #5405 > >
00:07:08 verbose #5406 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:08 verbose #5407 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:08 verbose #5408 > > │ ## runtime │
00:07:08 verbose #5409 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:08 verbose #5410 > >
00:07:08 verbose #5411 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:08 verbose #5412 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:08 verbose #5413 > > │ ### execute_with_options │
00:07:08 verbose #5414 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:08 verbose #5415 > >
00:07:08 verbose #5416 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:08 verbose #5417 > > let execute_with_options (options : execution_options) : i32 * string =
00:07:08 verbose #5418 > > run_target function
00:07:08 verbose #5419 > > | Fsharp (Native) => fun () =>
00:07:08 verbose #5420 > > options |> execute_with_options_async |> async.run_synchronously
00:07:08 verbose #5421 > > | Rust (Native) => fun () =>
00:07:08 verbose #5422 > > inl command = join options.command
00:07:08 verbose #5423 > > inl file_name, arguments = command |> split_command
00:07:08 verbose #5424 > > inl arguments =
00:07:08 verbose #5425 > > arguments
00:07:08 verbose #5426 > > |> split_args
00:07:08 verbose #5427 > > |> resultm.get
00:07:08 verbose #5428 > > |> am'.to_vec
00:07:08 verbose #5429 > > |> am'.vec_map sm'.to_std_string
00:07:08 verbose #5430 > >
00:07:08 verbose #5431 > > trace Debug
00:07:08 verbose #5432 > > fun () => $'$"runtime.execute_with_options"'
00:07:08 verbose #5433 > > fun () =>
00:07:08 verbose #5434 > > $'$"file_name: {!file_name} / arguments: %A{!arguments}"'
00:07:08 verbose #5435 > > +. $'$" / options: %A{!options} / {!_locals ()}"'
00:07:08 verbose #5436 > >
00:07:08 verbose #5437 > > fun () =>
00:07:08 verbose #5438 > > fun () =>
00:07:08 verbose #5439 > > file_name
00:07:08 verbose #5440 > > |> new_process_command
00:07:08 verbose #5441 > > |> process_command_args arguments
00:07:08 verbose #5442 > > |> process_command_stdout (process_stdio_piped ())
00:07:08 verbose #5443 > > |> process_command_stderr (process_stdio_piped ())
00:07:08 verbose #5444 > > |> process_command_stdin (process_stdio_piped ())
00:07:08 verbose #5445 > > |> fun command =>
00:07:08 verbose #5446 > > match options.working_directory |> optionm'.unbox with
00:07:08 verbose #5447 > > | Some working_directory =>
00:07:08 verbose #5448 > > command
00:07:08 verbose #5449 > > |> process_command_current_dir working_directory
00:07:08 verbose #5450 > > | None => command
00:07:08 verbose #5451 > > |> fun command =>
00:07:08 verbose #5452 > > match options.environment_variables with
00:07:08 verbose #5453 > > | ;[[]] => command
00:07:08 verbose #5454 > > | vars =>
00:07:08 verbose #5455 > > (command, vars |> am'.to_vec)
00:07:08 verbose #5456 > > ||> am'.vec_fold' fun command (key, value) =>
00:07:08 verbose #5457 > > command |> process_command_env key value
00:07:08 verbose #5458 > > |> process_command_spawn
00:07:08 verbose #5459 > > |> resultm.map_error' sm'.format'
00:07:08 verbose #5460 > > |> resultm.map' (optionm'.some' >> threading.new_arc_mutex)
00:07:08 verbose #5461 > > |> resultm.unbox'
00:07:08 verbose #5462 > > |> function
00:07:08 verbose #5463 > > | Ok child =>
00:07:08 verbose #5464 > > inl stdout =
00:07:08 verbose #5465 > > fun () =>
00:07:08 verbose #5466 > > child
00:07:08 verbose #5467 > > |> threading.arc_mutex_lock
00:07:08 verbose #5468 > > |> resultm.unwrap'
00:07:08 verbose #5469 > > |> threading.mutex_guard_ref_mut
00:07:08 verbose #5470 > > |> optionm'.as_mut
00:07:08 verbose #5471 > > |> optionm'.unwrap
00:07:08 verbose #5472 > > |> process_child_stdout
00:07:08 verbose #5473 > > |> optionm'.take_ref_mut
00:07:08 verbose #5474 > > |> optionm'.unwrap
00:07:08 verbose #5475 > > |> rust.capture
00:07:08 verbose #5476 > >
00:07:08 verbose #5477 > > inl stderr =
00:07:08 verbose #5478 > > fun () =>
00:07:08 verbose #5479 > > child
00:07:08 verbose #5480 > > |> threading.arc_mutex_lock
00:07:08 verbose #5481 > > |> resultm.unwrap'
00:07:08 verbose #5482 > > |> threading.mutex_guard_ref_mut
00:07:08 verbose #5483 > > |> optionm'.as_mut
00:07:08 verbose #5484 > > |> optionm'.unwrap
00:07:08 verbose #5485 > > |> process_child_stderr
00:07:08 verbose #5486 > > |> optionm'.take_ref_mut
00:07:08 verbose #5487 > > |> optionm'.unwrap
00:07:08 verbose #5488 > > |> rust.capture
00:07:08 verbose #5489 > >
00:07:08 verbose #5490 > > inl stdin =
00:07:08 verbose #5491 > > fun () =>
00:07:08 verbose #5492 > > child
00:07:08 verbose #5493 > > |> threading.arc_mutex_lock
00:07:08 verbose #5494 > > |> resultm.unwrap'
00:07:08 verbose #5495 > > |> threading.mutex_guard_ref_mut
00:07:08 verbose #5496 > > |> optionm'.as_mut
00:07:08 verbose #5497 > > |> optionm'.unwrap
00:07:08 verbose #5498 > > |> process_child_stdin
00:07:08 verbose #5499 > > |> optionm'.take_ref_mut
00:07:08 verbose #5500 > > |> optionm'.unwrap
00:07:08 verbose #5501 > > |> optionm'.some'
00:07:08 verbose #5502 > > |> threading.new_arc_mutex
00:07:08 verbose #5503 > > |> rust.capture
00:07:08 verbose #5504 > >
00:07:08 verbose #5505 > > inl channel_sender, channel_receiver =
00:07:08 verbose #5506 > > threading.new_channel ()
00:07:08 verbose #5507 > > inl channel_sender'' = channel_sender |>
00:07:08 verbose #5508 > > threading.new_arc_mutex
00:07:08 verbose #5509 > > inl channel_sender' = channel_sender |>
00:07:08 verbose #5510 > > threading.new_arc_mutex
00:07:08 verbose #5511 > > inl channel_receiver' = channel_receiver |>
00:07:08 verbose #5512 > > threading.new_arc_mutex
00:07:08 verbose #5513 > >
00:07:08 verbose #5514 > > inl stdout_handle =
00:07:08 verbose #5515 > > fun () =>
00:07:08 verbose #5516 > > stdout
00:07:08 verbose #5517 > > |> stream.decode_reader_bytes_build
00:07:08 verbose #5518 > > |> stream.new_buf_reader
00:07:08 verbose #5519 > > |> stream.buf_read_lines
00:07:08 verbose #5520 > > |> iter.try_for_each fun lines =>
00:07:08 verbose #5521 > > inl channel_sender'' = channel_sender''
00:07:08 verbose #5522 > > |> rust.clone
00:07:08 verbose #5523 > > lines
00:07:08 verbose #5524 > > |> stdio_line (Ok ()) options.trace
00:07:08 verbose #5525 > > channel_sender''
00:07:08 verbose #5526 > > |> resultm.to_try
00:07:08 verbose #5527 > > |> threading.spawn (1, 0) 1
00:07:08 verbose #5528 > >
00:07:08 verbose #5529 > > inl stderr_handle =
00:07:08 verbose #5530 > > fun () =>
00:07:08 verbose #5531 > > stderr
00:07:08 verbose #5532 > > |> stream.decode_reader_bytes_build
00:07:08 verbose #5533 > > |> stream.new_buf_reader
00:07:08 verbose #5534 > > |> stream.buf_read_lines
00:07:08 verbose #5535 > > |> iter.try_for_each fun lines =>
00:07:08 verbose #5536 > > inl channel_sender' = channel_sender' |>
00:07:08 verbose #5537 > > rust.clone
00:07:08 verbose #5538 > > lines
00:07:08 verbose #5539 > > |> stdio_line (Error ()) options.trace
00:07:08 verbose #5540 > > channel_sender'
00:07:08 verbose #5541 > > |> resultm.to_try
00:07:08 verbose #5542 > > |> threading.spawn (1, 0) 1
00:07:08 verbose #5543 > >
00:07:08 verbose #5544 > > match options.stdin |> optionm'.unbox with
00:07:08 verbose #5545 > > | Some stdin' =>
00:07:08 verbose #5546 > > stdin
00:07:08 verbose #5547 > > |> threading.arc_mutex_lock
00:07:08 verbose #5548 > > |> resultm.unwrap'
00:07:08 verbose #5549 > > |> threading.mutex_guard_ref_mut
00:07:08 verbose #5550 > > |> optionm'.take_ref_mut
00:07:08 verbose #5551 > > |> optionm'.map' threading.new_arc_mutex
00:07:08 verbose #5552 > > |> optionm'.unbox
00:07:08 verbose #5553 > > |> function
00:07:08 verbose #5554 > > | Some stdin =>
00:07:08 verbose #5555 > > stdin |> stdin'
00:07:08 verbose #5556 > > stdin
00:07:08 verbose #5557 > > |> threading.arc_mutex_lock
00:07:08 verbose #5558 > > |> resultm.unwrap'
00:07:08 verbose #5559 > > |> stdin_flush
00:07:08 verbose #5560 > > | None => ()
00:07:08 verbose #5561 > > | None => ()
00:07:08 verbose #5562 > >
00:07:08 verbose #5563 > > inl output =
00:07:08 verbose #5564 > > child
00:07:08 verbose #5565 > > |> threading.arc_mutex_lock
00:07:08 verbose #5566 > > |> resultm.unwrap'
00:07:08 verbose #5567 > > |> threading.mutex_guard_ref_mut
00:07:08 verbose #5568 > > |> optionm'.take_ref_mut
00:07:08 verbose #5569 > > |> optionm'.unwrap
00:07:08 verbose #5570 > > |> child_wait_with_output
00:07:08 verbose #5571 > > |> resultm.map_error' sm'.format'
00:07:08 verbose #5572 > >
00:07:08 verbose #5573 > > [[ stdout_handle; stderr_handle ]]
00:07:08 verbose #5574 > > |> am'.new_vec
00:07:08 verbose #5575 > > |> am'.vec_for_each' (threading.join' >>
00:07:08 verbose #5576 > > resultm.unwrap' >> resultm.unwrap')
00:07:08 verbose #5577 > >
00:07:08 verbose #5578 > > match output |> resultm.unbox with
00:07:08 verbose #5579 > > | Ok output =>
00:07:08 verbose #5580 > > inl exit_code =
00:07:08 verbose #5581 > > output
00:07:08 verbose #5582 > > |> process_output_status
00:07:08 verbose #5583 > > |> process_exit_status_code
00:07:08 verbose #5584 > > |> optionm'.unbox
00:07:08 verbose #5585 > > match exit_code with
00:07:08 verbose #5586 > > | Some exit_code => exit_code, None, Some
00:07:08 verbose #5587 > > channel_receiver'
00:07:08 verbose #5588 > > | None =>
00:07:08 verbose #5589 > > -1,
00:07:08 verbose #5590 > > ("runtime.execute_with_options
00:07:08 verbose #5591 > > exit_code=None" |> sm'.to_std_string |> Some),
00:07:08 verbose #5592 > > Some channel_receiver'
00:07:08 verbose #5593 > > | Error error =>
00:07:08 verbose #5594 > > trace Critical
00:07:08 verbose #5595 > > fun () => $'$"runtime.execute_with_options
00:07:08 verbose #5596 > > output error"'
00:07:08 verbose #5597 > > fun () => $'$"error: {!error} / {!_locals
00:07:08 verbose #5598 > > ()}"'
00:07:08 verbose #5599 > > -2i32, error |> Some, None
00:07:08 verbose #5600 > > | Error error =>
00:07:08 verbose #5601 > > trace Critical
00:07:08 verbose #5602 > > fun () => $'$"runtime.execute_with_options
00:07:08 verbose #5603 > > child error"'
00:07:08 verbose #5604 > > fun () => $'$"error: {!error} / {!_locals ()}"'
00:07:08 verbose #5605 > > -1i32, error |> Some, None
00:07:08 verbose #5606 > > |> function
00:07:08 verbose #5607 > > | exit_code, std_trace, channel_receiver =>
00:07:08 verbose #5608 > > inl std_trace =
00:07:08 verbose #5609 > > channel_receiver
00:07:08 verbose #5610 > > |> optionm'.box
00:07:08 verbose #5611 > > |> optionm'.map' fun channel_receiver =>
00:07:08 verbose #5612 > > channel_receiver
00:07:08 verbose #5613 > > |> threading.arc_mutex_lock
00:07:08 verbose #5614 > > |> resultm.unwrap'
00:07:08 verbose #5615 > > |> iter.iter
00:07:08 verbose #5616 > > |> iter_collect''
00:07:08 verbose #5617 > > |> am'.vec_map sm'.from_std_string
00:07:08 verbose #5618 > > |> am'.from_vec
00:07:08 verbose #5619 > > |> fun x => x : _ i32 _
00:07:08 verbose #5620 > > |> seq.of_array
00:07:08 verbose #5621 > > |> sm'.concat "\n"
00:07:08 verbose #5622 > > |> optionm'.default_value' (
00:07:08 verbose #5623 > > std_trace
00:07:08 verbose #5624 > > |> optionm.map sm'.from_std_string
00:07:08 verbose #5625 > > |> optionm'.default_value ""
00:07:08 verbose #5626 > > )
00:07:08 verbose #5627 > > trace Verbose
00:07:08 verbose #5628 > > fun () => $'$"runtime.execute_with_options
00:07:08 verbose #5629 > > result"'
00:07:08 verbose #5630 > > fun () =>
00:07:08 verbose #5631 > > $'$"exit_code: {!exit_code}"'
00:07:08 verbose #5632 > > +. $'$" / std_trace.Length:
00:07:08 verbose #5633 > > {!std_trace.Length} / {!_locals ()}"'
00:07:08 verbose #5634 > > new_pair exit_code std_trace
00:07:08 verbose #5635 > > |> capture
00:07:08 verbose #5636 > > // |> async.future_init (3, 2) 1
00:07:08 verbose #5637 > > // |> async.block_on
00:07:08 verbose #5638 > > |> fun x => x ()
00:07:08 verbose #5639 > > |> from_pair
00:07:08 verbose #5640 > > | _ => fun () => null ()
00:07:09 verbose #5641 > >
00:07:09 verbose #5642 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:09 verbose #5643 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:09 verbose #5644 > > │ #### execute │
00:07:09 verbose #5645 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:09 verbose #5646 > >
00:07:09 verbose #5647 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:09 verbose #5648 > > inl execute command =
00:07:09 verbose #5649 > > execution_options fun x => { x with
00:07:09 verbose #5650 > > command = command
00:07:09 verbose #5651 > > }
00:07:09 verbose #5652 > > |> execute_with_options
00:07:10 verbose #5653 > >
00:07:10 verbose #5654 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:10 verbose #5655 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:10 verbose #5656 > > │ #### tests │
00:07:10 verbose #5657 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:10 verbose #5658 > >
00:07:10 verbose #5659 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:10 verbose #5660 > > //// test
00:07:10 verbose #5661 > > ///! rust -d chrono encoding_rs encoding_rs_io regex sha2
00:07:10 verbose #5662 > >
00:07:10 verbose #5663 > > types ()
00:07:10 verbose #5664 > >
00:07:10 verbose #5665 > > inl content = "╭─[[ 你好，世界！こんにちは世界！ ]]─╮"
00:07:10 verbose #5666 > >
00:07:10 verbose #5667 > > inl file_name = join "test.txt"
00:07:10 verbose #5668 > > inl temp_dir, disposable =
00:07:10 verbose #5669 > > (file_name, content)
00:07:10 verbose #5670 > > |> sm'.format_debug
00:07:10 verbose #5671 > > |> crypto.hash_text
00:07:10 verbose #5672 > > |> file_system.create_temp_dir'
00:07:10 verbose #5673 > > inl path = temp_dir </> file_name |> file_system.normalize_path
00:07:10 verbose #5674 > > inl exit_code, result =
00:07:10 verbose #5675 > > execute $'\@$"pwsh -c ""[[IO.File]]::ReadAllText(\'{!path}\')"""'
00:07:10 verbose #5676 > > exit_code |> _assert_eq 1
00:07:10 verbose #5677 > > result |> _assert_string_contains "not find file"
00:07:10 verbose #5678 > >
00:07:10 verbose #5679 > > content |> file_system.write_all_text path
00:07:10 verbose #5680 > >
00:07:10 verbose #5681 > > execution_options fun x => { x with
00:07:10 verbose #5682 > > command = $'\@$"cat ""{!file_name}"""'
00:07:10 verbose #5683 > > working_directory = Some temp_dir |> optionm'.box
00:07:10 verbose #5684 > > }
00:07:10 verbose #5685 > > |> execute_with_options
00:07:10 verbose #5686 > > |> ignore
00:07:10 verbose #5687 > >
00:07:10 verbose #5688 > > inl exit_code, output =
00:07:10 verbose #5689 > > execution_options fun x => { x with
00:07:10 verbose #5690 > > command = $'\@$"pwsh -c ""[[System.Console]]::OutputEncoding =
00:07:10 verbose #5691 > > [[System.Text.Encoding]]::UTF8; [[IO.File]]::ReadAllText(\'{!file_name}\')"""'
00:07:10 verbose #5692 > > working_directory = Some temp_dir |> optionm'.box
00:07:10 verbose #5693 > > }
00:07:10 verbose #5694 > > |> execute_with_options
00:07:10 verbose #5695 > >
00:07:10 verbose #5696 > > exit_code |> _assert_eq 0i32
00:07:10 verbose #5697 > > output |> _assert_eq content
00:07:10 verbose #5698 > >
00:07:10 verbose #5699 > > disposable |> use |> ignore
00:07:18 verbose #5700 > >
00:07:18 verbose #5701 > > ╭─[ 8.17s - return value ]─────────────────────────────────────────────────────╮
00:07:18 verbose #5702 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:07:18 verbose #5703 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_f1a2cca2 │
00:07:18 verbose #5704 > > │ b1aa9cd34fcec483acbc3dcf3b8a8e0d148c94905e7eed849324379e\9242780b-ce0e-9155- │
00:07:18 verbose #5705 > > │ 5e07-f6ee5667aa16 │
00:07:18 verbose #5706 > > │ 00:00:00 debug #2 runtime.execute_with_options / file_name: pwsh / │
00:07:18 verbose #5707 > > │ arguments: ["-c", "[ │
00:07:18 verbose #5708 > > │ IO.File]::ReadAllText('c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/ │
00:07:18 verbose #5709 > > │ spiral_builder_f1a2cca2b1aa9cd34fcec483acbc3dcf3b8a8e0d148c94905e7eed8493243 │
00:07:18 verbose #5710 > > │ 79e/9242780b-ce0e-9155-5e07-f6ee5667aa16/test.txt')"] / options: (None, │
00:07:18 verbose #5711 > > │ "pwsh -c "[ │
00:07:18 verbose #5712 > > │ IO.File]::ReadAllText('c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/ │
00:07:18 verbose #5713 > > │ spiral_builder_f1a2cca2b1aa9cd34fcec483acbc3dcf3b8a8e0d148c94905e7eed8493243 │
00:07:18 verbose #5714 > > │ 79e/9242780b-ce0e-9155-5e07-f6ee5667aa16/test.txt')"", Array(MutCell([])), │
00:07:18 verbose #5715 > > │ None, None, true, None) │
00:07:18 verbose #5716 > > │ 00:00:00 verbose #3 ! MethodInvocationException: Exception │
00:07:18 verbose #5717 > > │ calling "ReadAllText" with "1" argument(s): "Could not find file │
00:07:18 verbose #5718 > > │ 'c:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_f1a2cca │
00:07:18 verbose #5719 > > │ 2b1aa9cd34fcec483acbc3dcf3b8a8e0d148c94905e7eed849324379e\9242780b-ce0e-9155 │
00:07:18 verbose #5720 > > │ -5e07-f6ee5667aa16\test.txt'." │
00:07:18 verbose #5721 > > │ 00:00:00 verbose #4 runtime.execute_with_options / result / exit_code: │
00:07:18 verbose #5722 > > │ 1 / std_trace.Length: 312 │
00:07:18 verbose #5723 > > │ assert_eq / actual: 1 / expected: 1 │
00:07:18 verbose #5724 > > │ assert_string_contains / actual: "not find file" / expected: "[ │
00:07:18 verbose #5725 > > │ 31;1mMethodInvocationException: Exception calling "ReadAllText" with │
00:07:18 verbose #5726 > > │ "1" argument(s): "Could not find file │
00:07:18 verbose #5727 > > │ 'c:\Users\i574n\AppDat...create_temp_path_\spiral_builder_f1a2cca2b1aa9cd34f │
00:07:18 verbose #5728 > > │ cec483acbc3dcf3b8a8e0d148c94905e7eed849324379e\9242780b-ce0e-9155-5e07-f6ee5 │
00:07:18 verbose #5729 > > │ 667aa16\test.txt'."" │
00:07:18 verbose #5730 > > │ 00:00:00 debug #5 runtime.execute_with_options / file_name: cat / │
00:07:18 verbose #5731 > > │ arguments: ["test.txt"] / options: (None, "cat "test.txt"", Array(MutCell([ │
00:07:18 verbose #5732 > > │ ])), None, None, true, │
00:07:18 verbose #5733 > > │ Some("C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_f1 │
00:07:18 verbose #5734 > > │ a2cca2b1aa9cd34fcec483acbc3dcf3b8a8e0d148c94905e7eed849324379e\9242780b-ce0e │
00:07:18 verbose #5735 > > │ -9155-5e07-f6ee5667aa16")) │
00:07:18 verbose #5736 > > │ 00:00:00 verbose #6 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:07:18 verbose #5737 > > │ 00:00:00 verbose #7 runtime.execute_with_options / result / exit_code: │
00:07:18 verbose #5738 > > │ 0 / std_trace.Length: 22 │
00:07:18 verbose #5739 > > │ 00:00:00 debug #8 runtime.execute_with_options / file_name: pwsh / │
00:07:18 verbose #5740 > > │ arguments: ["-c", "[System.Console]::OutputEncoding = [ │
00:07:18 verbose #5741 > > │ System.Text.Encoding]::UTF8; [IO.File]::ReadAllText('test.txt')"] / options: │
00:07:18 verbose #5742 > > │ (None, "pwsh -c "[System.Console]::OutputEncoding = [ │
00:07:18 verbose #5743 > > │ System.Text.Encoding]::UTF8; [IO.File]::ReadAllText('test.txt')"", │
00:07:18 verbose #5744 > > │ Array(MutCell([])), None, None, true, │
00:07:18 verbose #5745 > > │ Some("C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_f1 │
00:07:18 verbose #5746 > > │ a2cca2b1aa9cd34fcec483acbc3dcf3b8a8e0d148c94905e7eed849324379e\9242780b-ce0e │
00:07:18 verbose #5747 > > │ -9155-5e07-f6ee5667aa16")) │
00:07:18 verbose #5748 > > │ 00:00:01 verbose #9 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:07:18 verbose #5749 > > │ 00:00:01 verbose #10 runtime.execute_with_options / result / │
00:07:18 verbose #5750 > > │ exit_code: 0 / std_trace.Length: 22 │
00:07:18 verbose #5751 > > │ assert_eq / actual: 0 / expected: 0 │
00:07:18 verbose #5752 > > │ assert_eq / actual: "╭─[ 你好，世界！こんにちは世界！ ]─╮" / expected: "╭─[ │
00:07:18 verbose #5753 > > │ 你好，世界！こんにちは世界！ ]─╮" │
00:07:18 verbose #5754 > > │ │
00:07:18 verbose #5755 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:18 verbose #5756 > >
00:07:18 verbose #5757 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:18 verbose #5758 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:18 verbose #5759 > > │ ### execute_retry │
00:07:18 verbose #5760 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:18 verbose #5761 > >
00:07:18 verbose #5762 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:18 verbose #5763 > > let execute_retry retries options =
00:07:18 verbose #5764 > > fun () =>
00:07:18 verbose #5765 > > inl exit_code, result = options |> execute_with_options
00:07:18 verbose #5766 > > if exit_code = 0
00:07:18 verbose #5767 > > then Ok (exit_code, result)
00:07:18 verbose #5768 > > else Error (exit_code, result)
00:07:18 verbose #5769 > > |> retry_fn' retries
00:07:19 verbose #5770 > >
00:07:19 verbose #5771 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:19 verbose #5772 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:19 verbose #5773 > > │ ## main │
00:07:19 verbose #5774 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:19 verbose #5775 > >
00:07:19 verbose #5776 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:19 verbose #5777 > > inl main () =
00:07:19 verbose #5778 > > types ()
00:07:19 verbose #5779 > > init_trace_state None
00:07:19 verbose #5780 > > $'let current_process_kill () = !current_process_kill ()' : ()
00:07:19 verbose #5781 > > $'let execute_async x = !execute_async x' : ()
00:07:19 verbose #5782 > > $'let execute_with_options_async x = !execute_with_options_async x' : ()
00:07:19 verbose #5783 > > inl execution_options fn =
00:07:19 verbose #5784 > > execution_options fun x =>
00:07:19 verbose #5785 > > x
00:07:19 verbose #5786 > > |> heap
00:07:19 verbose #5787 > > |> fn
00:07:19 verbose #5788 > > |> fun x => !x
00:07:19 verbose #5789 > > $'let execution_options x = !execution_options x' : ()
00:07:19 verbose #5790 > > inl split_args x = x |> split_args |> resultm.box
00:07:19 verbose #5791 > > $'let split_args x = !split_args x' : ()
00:07:21 verbose #5792 > 00:01:45 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 105874
00:07:21 verbose #5793 > 00:01:45 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:07:23 verbose #5794 > 00:01:47 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb to html
00:07:23 verbose #5795 > 00:01:47 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:23 verbose #5796 > 00:01:47 verbose #7 ! validate(nb)
00:07:26 verbose #5797 > 00:01:50 verbose #8 ! [NbConvertApp] Writing 556887 bytes to c:\home\git\polyglot\lib\spiral\runtime.dib.html
00:07:26 verbose #5798 > 00:01:50 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:07:26 verbose #5799 > 00:01:50 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:07:26 verbose #5800 > 00:01:50 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:07:28 verbose #5801 > 00:01:52 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:07:28 verbose #5802 > 00:01:52 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:07:28 verbose #5803 > 00:01:52 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 106578
00:07:28 debug #5804 runtime.execute_with_options_async / exit_code: 0 / output.Length: 113006
00:07:28 debug #6 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path runtime.dib --retries 3
00:07:28 debug #5805 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path trace.dib --retries 3",
[||], None, None, true, None)
00:07:28 verbose #5806 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "trace.dib", "--retries", "3"])
00:07:28 verbose #5807 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/trace.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/trace.dib" --output-path "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:07:30 verbose #5808 > >
00:07:30 verbose #5809 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:31 verbose #5810 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:31 verbose #5811 > > │ # trace │
00:07:31 verbose #5812 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 verbose #5813 > >
00:07:31 verbose #5814 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 verbose #5815 > > //// test
00:07:31 verbose #5816 > >
00:07:31 verbose #5817 > > open testing
00:07:31 verbose #5818 > >
00:07:31 verbose #5819 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:07:31 verbose #5820 > > #r
00:07:31 verbose #5821 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:31 verbose #5822 > > otNet.Interactive.Spiral.dll"
00:07:31 verbose #5823 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:07:31 verbose #5824 > > #r
00:07:31 verbose #5825 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:31 verbose #5826 > > otNet.Interactive.dll"
00:07:31 verbose #5827 > > open type Microsoft.DotNet.Interactive.Kernel
00:07:38 verbose #5828 > >
00:07:38 verbose #5829 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 verbose #5830 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 verbose #5831 > > │ ## types │
00:07:38 verbose #5832 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #5833 > >
00:07:38 verbose #5834 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 verbose #5835 > > inl types () =
00:07:38 verbose #5836 > > rust.types ()
00:07:38 verbose #5837 > > sm'.types ()
00:07:38 verbose #5838 > > env.types ()
00:07:38 verbose #5839 > >
00:07:38 verbose #5840 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 verbose #5841 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 verbose #5842 > > │ ## trace │
00:07:38 verbose #5843 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #5844 > >
00:07:38 verbose #5845 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 verbose #5846 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 verbose #5847 > > │ ### trace_level │
00:07:38 verbose #5848 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 verbose #5849 > >
00:07:38 verbose #5850 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 verbose #5851 > > union trace_level =
00:07:38 verbose #5852 > > | Verbose
00:07:38 verbose #5853 > > | Debug
00:07:38 verbose #5854 > > | Info
00:07:38 verbose #5855 > > | Warning
00:07:38 verbose #5856 > > | Critical
00:07:39 verbose #5857 > >
00:07:39 verbose #5858 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 verbose #5859 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 verbose #5860 > > │ ### read_state │
00:07:39 verbose #5861 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 verbose #5862 > >
00:07:39 verbose #5863 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 verbose #5864 > > inl read_state () =
00:07:39 verbose #5865 > > run_target function
00:07:39 verbose #5866 > > | Rust (Contract | Wasm) => fun () =>
00:07:39 verbose #5867 > > {
00:07:39 verbose #5868 > > trace_level = None
00:07:39 verbose #5869 > > repl_start = None
00:07:39 verbose #5870 > > }
00:07:39 verbose #5871 > > | _ => fun () =>
00:07:39 verbose #5872 > > {
00:07:39 verbose #5873 > > trace_level =
00:07:39 verbose #5874 > > (join "TRACE_LEVEL")
00:07:39 verbose #5875 > > |> env.get_environment_variable
00:07:39 verbose #5876 > > |> reflection.union_try_pick
00:07:39 verbose #5877 > > repl_start =
00:07:39 verbose #5878 > > inl automation = env.get_environment_variable (join
00:07:39 verbose #5879 > > "AUTOMATION")
00:07:39 verbose #5880 > > if automation = "True"
00:07:39 verbose #5881 > > then date_time.now () |> date_time.ticks |> fun
00:07:39 verbose #5882 > > (date_time.timestamp x) => x |> Some
00:07:39 verbose #5883 > > else None
00:07:39 verbose #5884 > > }
00:07:40 verbose #5885 > >
00:07:40 verbose #5886 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 verbose #5887 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 verbose #5888 > > │ ### trace_state │
00:07:40 verbose #5889 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #5890 > >
00:07:40 verbose #5891 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 verbose #5892 > > type trace_state =
00:07:40 verbose #5893 > > {
00:07:40 verbose #5894 > > count : mut i64
00:07:40 verbose #5895 > > trace_file : mut (string -> ())
00:07:40 verbose #5896 > > enabled : mut bool
00:07:40 verbose #5897 > > level : mut trace_level
00:07:40 verbose #5898 > > repl_start : optionm'.option' i64
00:07:40 verbose #5899 > > }
00:07:40 verbose #5900 > >
00:07:40 verbose #5901 > > inl new_trace_state trace_level' =
00:07:40 verbose #5902 > > inl { repl_start trace_level } = read_state ()
00:07:40 verbose #5903 > > {
00:07:40 verbose #5904 > > enabled = mut true
00:07:40 verbose #5905 > > count = mut 0i64
00:07:40 verbose #5906 > > level = trace_level |> optionm'.default_value trace_level' |> mut
00:07:40 verbose #5907 > > trace_file = mut ignore
00:07:40 verbose #5908 > > repl_start = repl_start |> optionm'.box
00:07:40 verbose #5909 > > } : trace_state
00:07:40 verbose #5910 > >
00:07:40 verbose #5911 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 verbose #5912 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 verbose #5913 > > │ ### init_trace_state │
00:07:40 verbose #5914 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 verbose #5915 > >
00:07:40 verbose #5916 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 verbose #5917 > > inl init_trace_state trace_level : () =
00:07:40 verbose #5918 > > inl trace_level =
00:07:40 verbose #5919 > > trace_level
00:07:40 verbose #5920 > > |> optionm'.default_value Verbose
00:07:40 verbose #5921 > > global "module State = let mutable trace_state = None"
00:07:40 verbose #5922 > > $'if State.trace_state.IsNone then State.trace_state <- !new_trace_state
00:07:40 verbose #5923 > > !trace_level |> Some' : ()
00:07:41 verbose #5924 > >
00:07:41 verbose #5925 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:41 verbose #5926 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:41 verbose #5927 > > │ ### get_trace_state_or_init │
00:07:41 verbose #5928 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 verbose #5929 > >
00:07:41 verbose #5930 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 verbose #5931 > > inl get_trace_state_or_init trace_level : trace_state =
00:07:41 verbose #5932 > > init_trace_state trace_level
00:07:41 verbose #5933 > > // $'match State.trace_state with Some x -> x | None -> failwith
00:07:41 verbose #5934 > > "trace.get_trace_state_or_init / State.trace_state=None"'
00:07:41 verbose #5935 > > $'State.trace_state.Value'
00:07:42 verbose #5936 > >
00:07:42 verbose #5937 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:42 verbose #5938 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:42 verbose #5939 > > │ ### _locals │
00:07:42 verbose #5940 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #5941 > >
00:07:42 verbose #5942 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 verbose #5943 > > inl _locals () = ""
00:07:42 verbose #5944 > >
00:07:42 verbose #5945 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:42 verbose #5946 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:42 verbose #5947 > > │ ### test_trace_level │
00:07:42 verbose #5948 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:42 verbose #5949 > >
00:07:42 verbose #5950 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:42 verbose #5951 > > inl test_trace_level level : bool =
00:07:42 verbose #5952 > > inl state = get_trace_state_or_init None
00:07:42 verbose #5953 > > inl level' = *state.level
00:07:42 verbose #5954 > > if *state.enabled |> not
00:07:42 verbose #5955 > > then false
00:07:42 verbose #5956 > > else
00:07:42 verbose #5957 > > inl level : i32 = real real_core.union_tag level
00:07:42 verbose #5958 > > inl level' : i32 = real real_core.union_tag level'
00:07:42 verbose #5959 > > level >= level'
00:07:43 verbose #5960 > >
00:07:43 verbose #5961 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:43 verbose #5962 > > //// test
00:07:43 verbose #5963 > >
00:07:43 verbose #5964 > > test_trace_level Critical |> _assert_eq true
00:07:43 verbose #5965 > > test_trace_level Verbose |> _assert_eq true
00:07:43 verbose #5966 > >
00:07:43 verbose #5967 > > inl level = get_trace_state_or_init None .level
00:07:43 verbose #5968 > > level <- Debug
00:07:43 verbose #5969 > > test_trace_level Verbose |> _assert_eq false
00:07:43 verbose #5970 > > level <- Verbose
00:07:43 verbose #5971 > > test_trace_level Verbose |> _assert_eq true
00:07:46 verbose #5972 > >
00:07:46 verbose #5973 > > ╭─[ 2.94s - stdout ]───────────────────────────────────────────────────────────╮
00:07:46 verbose #5974 > > │ assert_eq / actual: true / expected: true │
00:07:46 verbose #5975 > > │ assert_eq / actual: true / expected: true │
00:07:46 verbose #5976 > > │ assert_eq / actual: false / expected: false │
00:07:46 verbose #5977 > > │ assert_eq / actual: true / expected: true │
00:07:46 verbose #5978 > > │ │
00:07:46 verbose #5979 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #5980 > >
00:07:46 verbose #5981 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:46 verbose #5982 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:46 verbose #5983 > > │ ### trace_raw │
00:07:46 verbose #5984 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 verbose #5985 > >
00:07:46 verbose #5986 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 verbose #5987 > > let rec trace_raw level fn =
00:07:46 verbose #5988 > > inl trace_state = get_trace_state_or_init None
00:07:46 verbose #5989 > > if level |> test_trace_level then
00:07:46 verbose #5990 > > inl count = trace_state.count
00:07:46 verbose #5991 > > count <- *count + 1
00:07:46 verbose #5992 > >
00:07:46 verbose #5993 > > inl text = $'$"%s{!fn ()}"' : string
00:07:46 verbose #5994 > > run_target function
00:07:46 verbose #5995 > > | Rust _ => fun () =>
00:07:46 verbose #5996 > > open rust_operators
00:07:46 verbose #5997 > > !\\(text, $'\@"println\!(""{}"", $0)"')
00:07:46 verbose #5998 > > | _ => fun () =>
00:07:46 verbose #5999 > > $'System.Console.WriteLine !text '
00:07:46 verbose #6000 > >
00:07:46 verbose #6001 > > *trace_state.trace_file text
00:07:47 verbose #6002 > >
00:07:47 verbose #6003 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:47 verbose #6004 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:47 verbose #6005 > > │ ### trace │
00:07:47 verbose #6006 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:47 verbose #6007 > >
00:07:47 verbose #6008 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 verbose #6009 > > let trace (level : trace_level) (text_fn : () -> string) (locals : () -> string)
00:07:47 verbose #6010 > > =
00:07:47 verbose #6011 > > fun () =>
00:07:47 verbose #6012 > > inl trace_state = get_trace_state_or_init None
00:07:47 verbose #6013 > > inl time =
00:07:47 verbose #6014 > > run_target fun target =>
00:07:47 verbose #6015 > > match target with
00:07:47 verbose #6016 > > | Rust (Contract) => fun () => join ""
00:07:47 verbose #6017 > > | _ => fun () =>
00:07:47 verbose #6018 > > match trace_state.repl_start |> optionm'.unbox with
00:07:47 verbose #6019 > > | Some repl_start =>
00:07:47 verbose #6020 > > inl t =
00:07:47 verbose #6021 > > (date_time.now () |> date_time.ticks |> fun
00:07:47 verbose #6022 > > (date_time.timestamp x) => x)
00:07:47 verbose #6023 > > - repl_start |> date_time.time_span
00:07:47 verbose #6024 > > date_time.date_time_milliseconds
00:07:47 verbose #6025 > > 1i32 1i32 1i32
00:07:47 verbose #6026 > > (t |> date_time.hours)
00:07:47 verbose #6027 > > (t |> date_time.minutes)
00:07:47 verbose #6028 > > (t |> date_time.seconds)
00:07:47 verbose #6029 > > (t |> date_time.milliseconds)
00:07:47 verbose #6030 > > | None => date_time.now ()
00:07:47 verbose #6031 > > |> fun date_time =>
00:07:47 verbose #6032 > > inl format =
00:07:47 verbose #6033 > > match target with
00:07:47 verbose #6034 > > | Rust _ => join "hh:mm:ss"
00:07:47 verbose #6035 > > | _ => join "HH:mm:ss"
00:07:47 verbose #6036 > > $'!date_time.ToString !format '
00:07:47 verbose #6037 > > inl level_str = level |> reflection.union_to_string |> sm'.to_lower |>
00:07:47 verbose #6038 > > sm'.pad_left 7 ' '
00:07:47 verbose #6039 > > inl level_str =
00:07:47 verbose #6040 > > run_target function
00:07:47 verbose #6041 > > | Rust _ => fun () =>
00:07:47 verbose #6042 > > open rust_operators
00:07:47 verbose #6043 > > inl color : rust.ref' sm'.str =
00:07:47 verbose #6044 > > match level with
00:07:47 verbose #6045 > > | Verbose =>
00:07:47 verbose #6046 > > !\($'"inline_colorization::color_bright_black"')
00:07:47 verbose #6047 > > | Debug => !\($'"inline_colorization::color_bright_blue"')
00:07:47 verbose #6048 > > | Info => !\($'"inline_colorization::color_bright_green"')
00:07:47 verbose #6049 > > | Warning => !\($'"inline_colorization::color_yellow"')
00:07:47 verbose #6050 > > | Critical => !\($'"inline_colorization::color_bright_red"')
00:07:47 verbose #6051 > > inl level_str = level_str |> sm'.as_str
00:07:47 verbose #6052 > > inl color_reset : rust.ref' sm'.str =
00:07:47 verbose #6053 > > !\($'"inline_colorization::color_reset"')
00:07:47 verbose #6054 > > $'"\\\"{!color}{!level_str}{!color_reset}\\\""'
00:07:47 verbose #6055 > > |> sm'.format''
00:07:47 verbose #6056 > > |> sm'.from_std_string
00:07:47 verbose #6057 > > | _ => fun () => level_str
00:07:47 verbose #6058 > > inl count = *trace_state.count
00:07:47 verbose #6059 > > $'$"{!time} {!level_str} #{!count} %s{!text_fn ()} / %s{!locals ()}"'
00:07:47 verbose #6060 > > |> sm'.trim_start ;[[]]
00:07:47 verbose #6061 > > |> sm'.trim_end ;[[ ' '; '/' ]]
00:07:47 verbose #6062 > > |> trace_raw level
00:07:47 verbose #6063 > >
00:07:47 verbose #6064 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:47 verbose #6065 > > //// test
00:07:47 verbose #6066 > > ///! fsharp
00:07:47 verbose #6067 > > ///! rust
00:07:47 verbose #6068 > > ///! typescript
00:07:47 verbose #6069 > > ///! python
00:07:47 verbose #6070 > >
00:07:47 verbose #6071 > > types ()
00:07:47 verbose #6072 > > trace Debug (fun () => "test1") _locals
00:07:47 verbose #6073 > > trace Debug (fun () => "test2") _locals
00:07:47 verbose #6074 > > get_trace_state_or_init None .count
00:07:47 verbose #6075 > > |> fun x => *x
00:07:47 verbose #6076 > > |> _assert_eq 2
00:07:54 verbose #6077 > >
00:07:54 verbose #6078 > > ╭─[ 6.63s - return value ]─────────────────────────────────────────────────────╮
00:07:54 verbose #6079 > > │ .rs output: │
00:07:54 verbose #6080 > > │ 00:00:00 debug #1 test1 │
00:07:54 verbose #6081 > > │ 00:00:00 debug #2 test2 │
00:07:54 verbose #6082 > > │ assert_eq / actual: 2 / expected: 2 │
00:07:54 verbose #6083 > > │ │
00:07:54 verbose #6084 > > │ .ts output: │
00:07:54 verbose #6085 > > │ 00:00:00 debug #1 test1 │
00:07:54 verbose #6086 > > │ 00:00:00 debug #2 test2 │
00:07:54 verbose #6087 > > │ assert_eq / actual: 2 / expected: 2 │
00:07:54 verbose #6088 > > │ │
00:07:54 verbose #6089 > > │ .py output: │
00:07:54 verbose #6090 > > │ 00:00:00 debug #1 test1 │
00:07:54 verbose #6091 > > │ 00:00:00 debug #2 test2 │
00:07:54 verbose #6092 > > │ assert_eq / actual: 2 / expected: 2 │
00:07:54 verbose #6093 > > │ │
00:07:54 verbose #6094 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 verbose #6095 > >
00:07:54 verbose #6096 > > ╭─[ 6.63s - stdout ]───────────────────────────────────────────────────────────╮
00:07:54 verbose #6097 > > │ .fsx output: │
00:07:54 verbose #6098 > > │ 00:00:00 debug #1 test1 │
00:07:54 verbose #6099 > > │ 00:00:00 debug #2 test2 │
00:07:54 verbose #6100 > > │ assert_eq / actual: 2L / expected: 2L │
00:07:54 verbose #6101 > > │ │
00:07:54 verbose #6102 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 verbose #6103 > >
00:07:54 verbose #6104 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:54 verbose #6105 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:54 verbose #6106 > > │ ## main │
00:07:54 verbose #6107 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 verbose #6108 > >
00:07:54 verbose #6109 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:54 verbose #6110 > > inl main () =
00:07:54 verbose #6111 > > types ()
00:07:54 verbose #6112 > > init_trace_state None
00:07:54 verbose #6113 > > $'let trace x = !trace x' : ()
00:07:55 verbose #6114 > 00:00:26 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 14179
00:07:55 verbose #6115 > 00:00:26 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:07:59 verbose #6116 > 00:00:30 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/trace.dib.ipynb to html
00:07:59 verbose #6117 > 00:00:30 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:59 verbose #6118 > 00:00:30 verbose #7 ! validate(nb)
00:08:00 verbose #6119 > 00:00:32 verbose #8 ! [NbConvertApp] Writing 308780 bytes to c:\home\git\polyglot\lib\spiral\trace.dib.html
00:08:01 verbose #6120 > 00:00:32 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641
00:08:01 verbose #6121 > 00:00:32 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641
00:08:01 verbose #6122 > 00:00:32 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/trace.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/trace.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:08:02 verbose #6123 > 00:00:33 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:08:02 verbose #6124 > 00:00:33 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:08:02 verbose #6125 > 00:00:33 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 14879
00:08:02 debug #6126 runtime.execute_with_options_async / exit_code: 0 / output.Length: 17739
00:08:02 debug #7 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path trace.dib --retries 3
00:08:02 debug #6127 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path am'.dib --retries 3",
[||], None, None, true, None)
00:08:02 verbose #6128 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "am'.dib", "--retries", "3"])
00:08:02 verbose #6129 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/am'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/am'.dib" --output-path "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:08:04 verbose #6130 > >
00:08:04 verbose #6131 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:04 verbose #6132 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:04 verbose #6133 > > │ # am' │
00:08:04 verbose #6134 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:04 verbose #6135 > >
00:08:04 verbose #6136 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:04 verbose #6137 > > //// test
00:08:04 verbose #6138 > >
00:08:04 verbose #6139 > > open testing
00:08:04 verbose #6140 > >
00:08:04 verbose #6141 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:08:04 verbose #6142 > > #r
00:08:04 verbose #6143 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:04 verbose #6144 > > otNet.Interactive.Spiral.dll"
00:08:04 verbose #6145 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:08:04 verbose #6146 > > #r
00:08:04 verbose #6147 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:04 verbose #6148 > > otNet.Interactive.dll"
00:08:04 verbose #6149 > > open type Microsoft.DotNet.Interactive.Kernel
00:08:10 verbose #6150 > >
00:08:10 verbose #6151 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:10 verbose #6152 > > open rust_operators
00:08:10 verbose #6153 > >
00:08:10 verbose #6154 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:10 verbose #6155 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:10 verbose #6156 > > │ ## types │
00:08:10 verbose #6157 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:10 verbose #6158 > >
00:08:10 verbose #6159 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:10 verbose #6160 > > inl types () =
00:08:10 verbose #6161 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:08:10 verbose #6162 > > Fable.Core.Emit(\"[[$0]]\")>]]\n#endif\ntype Slice<'T> = class end"
00:08:10 verbose #6163 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:08:10 verbose #6164 > > Fable.Core.Emit(\"_\")>]]\n#endif\ntype Slice'<'T> = class end"
00:08:10 verbose #6165 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:08:10 verbose #6166 > > Fable.Core.Emit(\"Vec<$0>\")>]]\n#endif\ntype Vec<'T> = class end"
00:08:11 verbose #6167 > >
00:08:11 verbose #6168 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:11 verbose #6169 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:11 verbose #6170 > > │ ## am' │
00:08:11 verbose #6171 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:11 verbose #6172 > >
00:08:11 verbose #6173 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:11 verbose #6174 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:11 verbose #6175 > > │ ### length │
00:08:11 verbose #6176 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:11 verbose #6177 > >
00:08:11 verbose #6178 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:11 verbose #6179 > > inl length forall dim {int} el. (a : a dim el) : dim =
00:08:11 verbose #6180 > > a |> length
00:08:12 verbose #6181 > >
00:08:12 verbose #6182 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:12 verbose #6183 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:12 verbose #6184 > > │ ### index │
00:08:12 verbose #6185 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:12 verbose #6186 > >
00:08:12 verbose #6187 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:12 verbose #6188 > > inl index forall dim {int} el. (i : dim) (a : a dim el) : el =
00:08:12 verbose #6189 > > index a i
00:08:12 verbose #6190 > >
00:08:12 verbose #6191 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:12 verbose #6192 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:12 verbose #6193 > > │ ### base │
00:08:12 verbose #6194 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:12 verbose #6195 > >
00:08:12 verbose #6196 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:12 verbose #6197 > > inl base forall dim {int} el. ((a a) : a dim el) : array_base el =
00:08:12 verbose #6198 > > a
00:08:13 verbose #6199 > >
00:08:13 verbose #6200 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:13 verbose #6201 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:13 verbose #6202 > > │ ### base' │
00:08:13 verbose #6203 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:13 verbose #6204 > >
00:08:13 verbose #6205 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:13 verbose #6206 > > inl base' forall el. ((a a) : a int el) : array_base el =
00:08:13 verbose #6207 > > a
00:08:13 verbose #6208 > >
00:08:13 verbose #6209 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:13 verbose #6210 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:13 verbose #6211 > > │ ### generic_equable │
00:08:13 verbose #6212 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:13 verbose #6213 > >
00:08:13 verbose #6214 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:13 verbose #6215 > > inl generic_equable x1 x2 =
00:08:13 verbose #6216 > > if length x1 <>.. length x2
00:08:13 verbose #6217 > > then false
00:08:13 verbose #6218 > > else
00:08:13 verbose #6219 > > let rec loop i =
00:08:13 verbose #6220 > > if i < length x1
00:08:13 verbose #6221 > > then index i x1 = index i x2 && loop (i + 1)
00:08:13 verbose #6222 > > else true
00:08:13 verbose #6223 > > loop 0
00:08:14 verbose #6224 > >
00:08:14 verbose #6225 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:14 verbose #6226 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:14 verbose #6227 > > │ ### equable │
00:08:14 verbose #6228 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:14 verbose #6229 > >
00:08:14 verbose #6230 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:14 verbose #6231 > > instance equable a dim {number; int} t = generic_equable
00:08:15 verbose #6232 > >
00:08:15 verbose #6233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:15 verbose #6234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:15 verbose #6235 > > │ ### append │
00:08:15 verbose #6236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:15 verbose #6237 > >
00:08:15 verbose #6238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:15 verbose #6239 > > instance append a dim {int; number} t = am.append
00:08:15 verbose #6240 > >
00:08:15 verbose #6241 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:15 verbose #6242 > > //// test
00:08:15 verbose #6243 > > ///! fsharp
00:08:15 verbose #6244 > > ///! cuda
00:08:15 verbose #6245 > > ///! rust
00:08:15 verbose #6246 > > ///! typescript
00:08:15 verbose #6247 > > ///! python
00:08:15 verbose #6248 > >
00:08:15 verbose #6249 > > a' ;[[ -1i64; 0 ]] ++ a' ;[[ 1; 2 ]]
00:08:15 verbose #6250 > > |> _assert_eq (a' ;[[ -1; 0; 1; 2 ]])
00:08:22 verbose #6251 > >
00:08:22 verbose #6252 > > ╭─[ 7.20s - return value ]─────────────────────────────────────────────────────╮
00:08:22 verbose #6253 > > │ .py output (Cuda): │
00:08:22 verbose #6254 > > │ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\cupy\_environ │
00:08:22 verbose #6255 > > │ ment.py:216: UserWarning: CUDA path could not be detected. Set CUDA_PATH │
00:08:22 verbose #6256 > > │ environment variable if CuPy fails to load. │
00:08:22 verbose #6257 > > │ warnings.warn( │
00:08:22 verbose #6258 > > │ Traceback (most recent call last): │
00:08:22 verbose #6259 > > │ File │
00:08:22 verbose #6260 > > │ "C:\home\git\polyglot\target\spiral_Eval\packages\56f8b74320bf1f96c0a3196261 │
00:08:22 verbose #6261 > > │ ce3d742031550ec75d9632203f54b86df31271\main.py", line 123, in <module> │
00:08:22 verbose #6262 > > │ if __name__ == '__main__': result = main(); None if result is None │
00:08:22 verbose #6263 > > │ else print(result) │
00:08:22 verbose #6264 > > │ ^^^^^^ │
00:08:22 verbose #6265 > > │ File │
00:08:22 verbose #6266 > > │ "C:\home\git\polyglot\target\spiral_Eval\packages\56f8b74320bf1f96c0a3196261 │
00:08:22 verbose #6267 > > │ ce3d742031550ec75d9632203f54b86df31271\main.py", line 121, in main │
00:08:22 verbose #6268 > > │ return method0() │
00:08:22 verbose #6269 > > │ ^^^^^^^^^ │
00:08:22 verbose #6270 > > │ File │
00:08:22 verbose #6271 > > │ "C:\home\git\polyglot\target\spiral_Eval\packages\56f8b74320bf1f96c0a3196261 │
00:08:22 verbose #6272 > > │ ce3d742031550ec75d9632203f54b86df31271\main.py", line 60, in method0 │
00:08:22 verbose #6273 > > │ v0 = cp.array([-1, 0],dtype=cp.int64) │
00:08:22 verbose #6274 > > │ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ │
00:08:22 verbose #6275 > > │ File │
00:08:22 verbose #6276 > > │ "C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\cupy\_creation\f │
00:08:22 verbose #6277 > > │ rom_data.py", line 53, in array │
00:08:22 verbose #6278 > > │ return _core.array(obj, dtype, copy, order, subok, ndmin, blocking)[ │
00:08:22 verbose #6279 > > │ 0m │
00:08:22 verbose #6280 > > │ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^[ │
00:08:22 verbose #6281 > > │ 0m │
00:08:22 verbose #6282 > > │ File "cupy\_core\core.pyx", line 2379, in cupy._core.core.array │
00:08:22 verbose #6283 > > │ File "cupy\_core\core.pyx", line 2406, in cupy._core.core.array │
00:08:22 verbose #6284 > > │ File "cupy\_core\core.pyx", line 2548, in │
00:08:22 verbose #6285 > > │ cupy._core.core._array_default │
00:08:22 verbose #6286 > > │ File "cupy\_core\core.pyx", line 132, in │
00:08:22 verbose #6287 > > │ cupy._core.core.ndarray.__new__ │
00:08:22 verbose #6288 > > │ File "cupy\_core\core.pyx", line 220, in │
00:08:22 verbose #6289 > > │ cupy._core.core._ndarray_base._init │
00:08:22 verbose #6290 > > │ File "cupy\cuda\memory.pyx", line 738, in cupy.cuda.memory.alloc │
00:08:22 verbose #6291 > > │ File "cupy\cuda\memory.pyx", line 1424, in │
00:08:22 verbose #6292 > > │ cupy.cuda.memory.MemoryPool.malloc │
00:08:22 verbose #6293 > > │ File "cupy\cuda\memory.pyx", line 1444, in │
00:08:22 verbose #6294 > > │ cupy.cuda.memory.MemoryPool.malloc │
00:08:22 verbose #6295 > > │ File "cupy\cuda\device.pyx", line 40, in cupy.cuda.device.get_device_id │
00:08:22 verbose #6296 > > │ [0m │
00:08:22 verbose #6297 > > │ File "cupy_backends\cuda\api\runtime.pyx", line 202, in │
00:08:22 verbose #6298 > > │ cupy_backends.cuda.api.runtime.getDevice │
00:08:22 verbose #6299 > > │ File "cupy_backends\cuda\api\runtime.pyx", line 146, in │
00:08:22 verbose #6300 > > │ cupy_backends.cuda.api.runtime.check_status │
00:08:22 verbose #6301 > > │ cupy_backends.cuda.api.runtime.CUDARuntimeError: │
00:08:22 verbose #6302 > > │ cudaErrorInsufficientDriver: CUDA driver version is insufficient for CUDA │
00:08:22 verbose #6303 > > │ runtime version │
00:08:22 verbose #6304 > > │ │
00:08:22 verbose #6305 > > │ .rs output: │
00:08:22 verbose #6306 > > │ assert_eq / actual: Array(MutCell([-1, 0, 1, 2])) / expected: Array(MutCell( │
00:08:22 verbose #6307 > > │ [-1, 0, 1, 2])) │
00:08:22 verbose #6308 > > │ │
00:08:22 verbose #6309 > > │ .ts output: │
00:08:22 verbose #6310 > > │ assert_eq / actual: -1,0,1,2 / expected: -1,0,1,2 │
00:08:22 verbose #6311 > > │ │
00:08:22 verbose #6312 > > │ .py output: │
00:08:22 verbose #6313 > > │ assert_eq / actual: [-1, 0, 1, 2] / expected: array('q', [-1, 0, 1, 2]) │
00:08:22 verbose #6314 > > │ │
00:08:22 verbose #6315 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:22 verbose #6316 > >
00:08:22 verbose #6317 > > ╭─[ 7.21s - stdout ]───────────────────────────────────────────────────────────╮
00:08:22 verbose #6318 > > │ .fsx output: │
00:08:22 verbose #6319 > > │ assert_eq / actual: [|-1L; 0L; 1L; 2L|] / expected: [|-1L; 0L; 1L; 2L|] │
00:08:22 verbose #6320 > > │ │
00:08:22 verbose #6321 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:22 verbose #6322 > >
00:08:22 verbose #6323 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:22 verbose #6324 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:22 verbose #6325 > > │ ### map_base │
00:08:22 verbose #6326 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:22 verbose #6327 > >
00:08:22 verbose #6328 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:22 verbose #6329 > > inl map_base forall t u. (fn : t -> u) (x : array_base t) : array_base u =
00:08:22 verbose #6330 > > a x
00:08:22 verbose #6331 > > |> am.map fn
00:08:22 verbose #6332 > > |> fun (a x : _ int _) => x
00:08:23 verbose #6333 > >
00:08:23 verbose #6334 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:23 verbose #6335 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:23 verbose #6336 > > │ ### collect │
00:08:23 verbose #6337 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:23 verbose #6338 > >
00:08:23 verbose #6339 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:23 verbose #6340 > > inl collect forall t r. (fn : t -> a int r) (items : a int t) : a int r =
00:08:23 verbose #6341 > > items
00:08:23 verbose #6342 > > |> am.map fn
00:08:23 verbose #6343 > > |> am.fold (++) (a ;[[]])
00:08:24 verbose #6344 > >
00:08:24 verbose #6345 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:24 verbose #6346 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:24 verbose #6347 > > │ ### init │
00:08:24 verbose #6348 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:24 verbose #6349 > >
00:08:24 verbose #6350 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:24 verbose #6351 > > inl init n : a int _ =
00:08:24 verbose #6352 > > am.init n id
00:08:24 verbose #6353 > >
00:08:24 verbose #6354 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:24 verbose #6355 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:24 verbose #6356 > > │ ### choose │
00:08:24 verbose #6357 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:24 verbose #6358 > >
00:08:24 verbose #6359 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:24 verbose #6360 > > inl choose f l =
00:08:24 verbose #6361 > > (l, [[]])
00:08:24 verbose #6362 > > ||> am.foldBack fun x acc =>
00:08:24 verbose #6363 > > match f x with
00:08:24 verbose #6364 > > | Some y => y :: acc
00:08:24 verbose #6365 > > | None => acc
00:08:24 verbose #6366 > > |> listm.toArray
00:08:25 verbose #6367 > >
00:08:25 verbose #6368 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:25 verbose #6369 > > //// test
00:08:25 verbose #6370 > > ///! fsharp
00:08:25 verbose #6371 > > ///! typescript
00:08:25 verbose #6372 > > ///! python
00:08:25 verbose #6373 > >
00:08:25 verbose #6374 > > 10
00:08:25 verbose #6375 > > |> init
00:08:25 verbose #6376 > > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:08:25 verbose #6377 > > |> _assert_eq (a' ;[[ 0; 2; 4; 6; 8 ]])
00:08:27 verbose #6378 > >
00:08:27 verbose #6379 > > ╭─[ 2.08s - return value ]─────────────────────────────────────────────────────╮
00:08:27 verbose #6380 > > │ .ts output: │
00:08:27 verbose #6381 > > │ assert_eq / actual: 0,2,4,6,8 / expected: 0,2,4,6,8 │
00:08:27 verbose #6382 > > │ │
00:08:27 verbose #6383 > > │ .py output: │
00:08:27 verbose #6384 > > │ assert_eq / actual: [0, 2, 4, 6, 8] / expected: array('l', [0, 2, 4, 6, 8]) │
00:08:27 verbose #6385 > > │ │
00:08:27 verbose #6386 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #6387 > >
00:08:27 verbose #6388 > > ╭─[ 2.08s - stdout ]───────────────────────────────────────────────────────────╮
00:08:27 verbose #6389 > > │ .fsx output: │
00:08:27 verbose #6390 > > │ assert_eq / actual: [|0; 2; 4; 6; 8|] / expected: [|0; 2; 4; 6; 8|] │
00:08:27 verbose #6391 > > │ │
00:08:27 verbose #6392 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #6393 > >
00:08:27 verbose #6394 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:27 verbose #6395 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:27 verbose #6396 > > │ ### sum │
00:08:27 verbose #6397 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:27 verbose #6398 > >
00:08:27 verbose #6399 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:27 verbose #6400 > > inl sum a =
00:08:27 verbose #6401 > > a |> am.fold (+) 0
00:08:28 verbose #6402 > >
00:08:28 verbose #6403 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:28 verbose #6404 > > //// test
00:08:28 verbose #6405 > > ///! fsharp
00:08:28 verbose #6406 > > ///! rust
00:08:28 verbose #6407 > > ///! typescript
00:08:28 verbose #6408 > > ///! python
00:08:28 verbose #6409 > >
00:08:28 verbose #6410 > > 10
00:08:28 verbose #6411 > > |> init
00:08:28 verbose #6412 > > |> sum
00:08:28 verbose #6413 > > |> _assert_eq 45
00:08:32 verbose #6414 > >
00:08:32 verbose #6415 > > ╭─[ 4.63s - return value ]─────────────────────────────────────────────────────╮
00:08:32 verbose #6416 > > │ .rs output: │
00:08:32 verbose #6417 > > │ assert_eq / actual: 45 / expected: 45 │
00:08:32 verbose #6418 > > │ │
00:08:32 verbose #6419 > > │ .ts output: │
00:08:32 verbose #6420 > > │ assert_eq / actual: 45 / expected: 45 │
00:08:32 verbose #6421 > > │ │
00:08:32 verbose #6422 > > │ .py output: │
00:08:32 verbose #6423 > > │ assert_eq / actual: 45 / expected: 45 │
00:08:32 verbose #6424 > > │ │
00:08:32 verbose #6425 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:32 verbose #6426 > >
00:08:32 verbose #6427 > > ╭─[ 4.64s - stdout ]───────────────────────────────────────────────────────────╮
00:08:32 verbose #6428 > > │ .fsx output: │
00:08:32 verbose #6429 > > │ assert_eq / actual: 45 / expected: 45 │
00:08:32 verbose #6430 > > │ │
00:08:32 verbose #6431 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:32 verbose #6432 > >
00:08:32 verbose #6433 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:32 verbose #6434 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:32 verbose #6435 > > │ ### init_series │
00:08:32 verbose #6436 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:32 verbose #6437 > >
00:08:32 verbose #6438 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:32 verbose #6439 > > inl init_series start end inc : a int _ =
00:08:32 verbose #6440 > > inl total = conv ((end - start) / inc) + 1
00:08:32 verbose #6441 > > am.init total (conv >> (*) inc >> (+) start)
00:08:33 verbose #6442 > >
00:08:33 verbose #6443 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #6444 > > //// test
00:08:33 verbose #6445 > > ///! fsharp
00:08:33 verbose #6446 > > ///! rust
00:08:33 verbose #6447 > > ///! typescript
00:08:33 verbose #6448 > > ///! python
00:08:33 verbose #6449 > >
00:08:33 verbose #6450 > > init_series 0 1 0.5
00:08:33 verbose #6451 > > |> _assert_eq (a ;[[ 0f64; 0.5; 1 ]])
00:08:38 verbose #6452 > >
00:08:38 verbose #6453 > > ╭─[ 4.43s - return value ]─────────────────────────────────────────────────────╮
00:08:38 verbose #6454 > > │ .rs output: │
00:08:38 verbose #6455 > > │ assert_eq / actual: Array(MutCell([0.0, 0.5, 1.0])) / expected: │
00:08:38 verbose #6456 > > │ Array(MutCell([0.0, 0.5, 1.0])) │
00:08:38 verbose #6457 > > │ │
00:08:38 verbose #6458 > > │ .ts output: │
00:08:38 verbose #6459 > > │ assert_eq / actual: 0,0.5,1 / expected: 0,0.5,1 │
00:08:38 verbose #6460 > > │ │
00:08:38 verbose #6461 > > │ .py output: │
00:08:38 verbose #6462 > > │ assert_eq / actual: [0.0, 0.5, 1.0] / expected: array('d', [0.0, 0.5, 1.0]) │
00:08:38 verbose #6463 > > │ │
00:08:38 verbose #6464 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:38 verbose #6465 > >
00:08:38 verbose #6466 > > ╭─[ 4.43s - stdout ]───────────────────────────────────────────────────────────╮
00:08:38 verbose #6467 > > │ .fsx output: │
00:08:38 verbose #6468 > > │ assert_eq / actual: [|0.0; 0.5; 1.0|] / expected: [|0.0; 0.5; 1.0|] │
00:08:38 verbose #6469 > > │ │
00:08:38 verbose #6470 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:38 verbose #6471 > >
00:08:38 verbose #6472 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:38 verbose #6473 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:38 verbose #6474 > > │ ### head │
00:08:38 verbose #6475 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:38 verbose #6476 > >
00:08:38 verbose #6477 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:38 verbose #6478 > > inl head (ar : a _ _) =
00:08:38 verbose #6479 > > if var_is ar || length ar > 0
00:08:38 verbose #6480 > > then ar |> index 0
00:08:38 verbose #6481 > > else error_type "The length of the array should be greater than 0."
00:08:38 verbose #6482 > >
00:08:38 verbose #6483 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:38 verbose #6484 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:38 verbose #6485 > > │ ### last │
00:08:38 verbose #6486 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:38 verbose #6487 > >
00:08:38 verbose #6488 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:38 verbose #6489 > > inl last (ar : a _ _) =
00:08:38 verbose #6490 > > inl len = length ar
00:08:38 verbose #6491 > > if var_is ar || len > 0
00:08:38 verbose #6492 > > then ar |> index (len - 1)
00:08:38 verbose #6493 > > else error_type "The length of the array should be greater than 0."
00:08:39 verbose #6494 > >
00:08:39 verbose #6495 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:39 verbose #6496 > > //// test
00:08:39 verbose #6497 > > ///! fsharp
00:08:39 verbose #6498 > > ///! rust
00:08:39 verbose #6499 > > ///! typescript
00:08:39 verbose #6500 > > ///! python
00:08:39 verbose #6501 > >
00:08:39 verbose #6502 > > 10
00:08:39 verbose #6503 > > |> init
00:08:39 verbose #6504 > > |> last
00:08:39 verbose #6505 > > |> _assert_eq 9
00:08:43 verbose #6506 > >
00:08:43 verbose #6507 > > ╭─[ 3.95s - return value ]─────────────────────────────────────────────────────╮
00:08:43 verbose #6508 > > │ .rs output: │
00:08:43 verbose #6509 > > │ assert_eq / actual: 9 / expected: 9 │
00:08:43 verbose #6510 > > │ │
00:08:43 verbose #6511 > > │ .ts output: │
00:08:43 verbose #6512 > > │ assert_eq / actual: 9 / expected: 9 │
00:08:43 verbose #6513 > > │ │
00:08:43 verbose #6514 > > │ .py output: │
00:08:43 verbose #6515 > > │ assert_eq / actual: 9 / expected: 9 │
00:08:43 verbose #6516 > > │ │
00:08:43 verbose #6517 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:43 verbose #6518 > >
00:08:43 verbose #6519 > > ╭─[ 3.95s - stdout ]───────────────────────────────────────────────────────────╮
00:08:43 verbose #6520 > > │ .fsx output: │
00:08:43 verbose #6521 > > │ assert_eq / actual: 9 / expected: 9 │
00:08:43 verbose #6522 > > │ │
00:08:43 verbose #6523 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:43 verbose #6524 > >
00:08:43 verbose #6525 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:43 verbose #6526 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:43 verbose #6527 > > │ ### try_pick │
00:08:43 verbose #6528 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:43 verbose #6529 > >
00:08:43 verbose #6530 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:43 verbose #6531 > > inl try_pick forall t u. (fn : t -> option u) (array : a _ t) : option u =
00:08:43 verbose #6532 > > (array, None)
00:08:43 verbose #6533 > > ||> am.foldBack fun x acc =>
00:08:43 verbose #6534 > > match acc with
00:08:43 verbose #6535 > > | Some _ => acc
00:08:43 verbose #6536 > > | None => x |> fn
00:08:43 verbose #6537 > >
00:08:43 verbose #6538 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:43 verbose #6539 > > //// test
00:08:43 verbose #6540 > > ///! fsharp
00:08:43 verbose #6541 > > ///! typescript
00:08:43 verbose #6542 > > ///! python
00:08:43 verbose #6543 > >
00:08:43 verbose #6544 > > 10
00:08:43 verbose #6545 > > |> init
00:08:43 verbose #6546 > > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:08:43 verbose #6547 > > |> _assert_eq (Some 5i32)
00:08:47 verbose #6548 > >
00:08:47 verbose #6549 > > ╭─[ 3.25s - return value ]─────────────────────────────────────────────────────╮
00:08:47 verbose #6550 > > │ .ts output: │
00:08:47 verbose #6551 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:08:47 verbose #6552 > > │ │
00:08:47 verbose #6553 > > │ .py output: │
00:08:47 verbose #6554 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:08:47 verbose #6555 > > │ │
00:08:47 verbose #6556 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #6557 > >
00:08:47 verbose #6558 > > ╭─[ 3.26s - stdout ]───────────────────────────────────────────────────────────╮
00:08:47 verbose #6559 > > │ .fsx output: │
00:08:47 verbose #6560 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:08:47 verbose #6561 > > │ │
00:08:47 verbose #6562 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #6563 > >
00:08:47 verbose #6564 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:47 verbose #6565 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:47 verbose #6566 > > │ ### indexed' │
00:08:47 verbose #6567 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 verbose #6568 > >
00:08:47 verbose #6569 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 verbose #6570 > > inl indexed' forall t dim {int; number} dim' {int; number} u {number}. (ar : a
00:08:47 verbose #6571 > > dim t) : a dim' (u * t) =
00:08:47 verbose #6572 > > ((0, a ;[[]]), ar)
00:08:47 verbose #6573 > > ||> am.fold fun (i, acc) x =>
00:08:47 verbose #6574 > > i + 1, acc ++ a ;[[i, x]]
00:08:47 verbose #6575 > > |> snd
00:08:47 verbose #6576 > >
00:08:47 verbose #6577 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 verbose #6578 > > //// test
00:08:47 verbose #6579 > >
00:08:47 verbose #6580 > > am.init 3i32 ((*) 2)
00:08:47 verbose #6581 > > |> indexed'
00:08:47 verbose #6582 > > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:08:48 verbose #6583 > >
00:08:48 verbose #6584 > > ╭─[ 856.33ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 verbose #6585 > > │ assert_eq / actual: [|struct (0, 0); struct (1, 2); struct (2, 4)|] / │
00:08:48 verbose #6586 > > │ expected: [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:08:48 verbose #6587 > > │ │
00:08:48 verbose #6588 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #6589 > >
00:08:48 verbose #6590 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:48 verbose #6591 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:48 verbose #6592 > > │ ### indexed │
00:08:48 verbose #6593 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 verbose #6594 > >
00:08:48 verbose #6595 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 verbose #6596 > > inl indexed (array : a _ _) =
00:08:48 verbose #6597 > > (([[]], 0), array)
00:08:48 verbose #6598 > > ||> am.fold fun (acc, i) x =>
00:08:48 verbose #6599 > > (i, x) :: acc, i + 1
00:08:48 verbose #6600 > > |> fst
00:08:48 verbose #6601 > > |> listm.rev
00:08:48 verbose #6602 > > |> listm.toArray
00:08:49 verbose #6603 > >
00:08:49 verbose #6604 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 verbose #6605 > > //// test
00:08:49 verbose #6606 > >
00:08:49 verbose #6607 > > am.init 3i32 ((*) 2)
00:08:49 verbose #6608 > > |> indexed
00:08:49 verbose #6609 > > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:08:50 verbose #6610 > >
00:08:50 verbose #6611 > > ╭─[ 730.17ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 verbose #6612 > > │ assert_eq / actual: [|struct (0, 0); struct (1, 2); struct (2, 4)|] / │
00:08:50 verbose #6613 > > │ expected: [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:08:50 verbose #6614 > > │ │
00:08:50 verbose #6615 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #6616 > >
00:08:50 verbose #6617 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:50 verbose #6618 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:50 verbose #6619 > > │ ### slice │
00:08:50 verbose #6620 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #6621 > >
00:08:50 verbose #6622 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 verbose #6623 > > inl slice forall dim {int; number} el. from nearTo s : a dim el =
00:08:50 verbose #6624 > > am.slice { from nearTo } s
00:08:50 verbose #6625 > >
00:08:50 verbose #6626 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 verbose #6627 > > //// test
00:08:50 verbose #6628 > >
00:08:50 verbose #6629 > > inl x : _ i32 _ = a ;[[ 1i32; 2; 3 ]]
00:08:50 verbose #6630 > > x |> slice 0 0 |> _assert_eq (a ;[[]])
00:08:50 verbose #6631 > > x |> slice 0 1 |> _assert_eq (a ;[[ 1 ]])
00:08:50 verbose #6632 > > x |> slice 1 1 |> _assert_eq (a ;[[]])
00:08:50 verbose #6633 > > x |> slice 1 2 |> _assert_eq (a ;[[ 2 ]])
00:08:50 verbose #6634 > > x |> slice 2 2 |> _assert_eq (a ;[[]])
00:08:50 verbose #6635 > > x |> slice 0 2 |> _assert_eq (a ;[[ 1; 2 ]])
00:08:51 verbose #6636 > >
00:08:51 verbose #6637 > > ╭─[ 748.20ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 verbose #6638 > > │ assert_eq / actual: [||] / expected: [||] │
00:08:51 verbose #6639 > > │ assert_eq / actual: [|1|] / expected: [|1|] │
00:08:51 verbose #6640 > > │ assert_eq / actual: [||] / expected: [||] │
00:08:51 verbose #6641 > > │ assert_eq / actual: [|2|] / expected: [|2|] │
00:08:51 verbose #6642 > > │ assert_eq / actual: [||] / expected: [||] │
00:08:51 verbose #6643 > > │ assert_eq / actual: [|1; 2|] / expected: [|1; 2|] │
00:08:51 verbose #6644 > > │ │
00:08:51 verbose #6645 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 verbose #6646 > >
00:08:51 verbose #6647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:51 verbose #6648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:51 verbose #6649 > > │ ### range │
00:08:51 verbose #6650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 verbose #6651 > >
00:08:51 verbose #6652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:51 verbose #6653 > > union range dim =
00:08:51 verbose #6654 > > | Start : dim
00:08:51 verbose #6655 > > | End : dim -> dim
00:08:51 verbose #6656 > >
00:08:51 verbose #6657 > > inl range start end s =
00:08:51 verbose #6658 > > inl start, end =
00:08:51 verbose #6659 > > match start, end with
00:08:51 verbose #6660 > > | Start start, End fn =>
00:08:51 verbose #6661 > > start, s |> length |> conv |> fn
00:08:51 verbose #6662 > > | End start_fn, End end_fn =>
00:08:51 verbose #6663 > > inl len = s |> length |> conv
00:08:51 verbose #6664 > > start_fn len, end_fn len
00:08:51 verbose #6665 > > s |> slice (start |> unbox) (end |> unbox)
00:08:52 verbose #6666 > >
00:08:52 verbose #6667 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:52 verbose #6668 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:52 verbose #6669 > > │ ## rust │
00:08:52 verbose #6670 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:52 verbose #6671 > >
00:08:52 verbose #6672 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:52 verbose #6673 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:52 verbose #6674 > > │ ### vec │
00:08:52 verbose #6675 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:52 verbose #6676 > >
00:08:52 verbose #6677 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:52 verbose #6678 > > nominal vec t = $'Vec<`t>'
00:08:52 verbose #6679 > >
00:08:52 verbose #6680 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:52 verbose #6681 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:52 verbose #6682 > > │ ### from_vec │
00:08:52 verbose #6683 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:52 verbose #6684 > >
00:08:52 verbose #6685 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:52 verbose #6686 > > inl from_vec forall dim el. (vec : vec el) : a dim el =
00:08:52 verbose #6687 > > !\\(vec, $'"fable_library_rust::NativeArray_::array_from($0)"')
00:08:53 verbose #6688 > >
00:08:53 verbose #6689 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:53 verbose #6690 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:53 verbose #6691 > > │ ### to_vec │
00:08:53 verbose #6692 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:53 verbose #6693 > >
00:08:53 verbose #6694 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:53 verbose #6695 > > inl to_vec forall t. (ab : array_base t) : vec t =
00:08:53 verbose #6696 > > !\\(ab, $'"$0.to_vec()"')
00:08:54 verbose #6697 > >
00:08:54 verbose #6698 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:54 verbose #6699 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:54 verbose #6700 > > │ ### vec_push │
00:08:54 verbose #6701 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:54 verbose #6702 > >
00:08:54 verbose #6703 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:54 verbose #6704 > > inl vec_push forall el. (el : el) (vec : vec el) : vec el =
00:08:54 verbose #6705 > > inl el = join el
00:08:54 verbose #6706 > > inl vec = join vec
00:08:54 verbose #6707 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:08:54 verbose #6708 > > // inl vec = vec |> rust.to_mut
00:08:54 verbose #6709 > > (!\($'"true; !vec.push(!el)"') : bool) |> ignore
00:08:54 verbose #6710 > > !\($'"!vec"')
00:08:54 verbose #6711 > >
00:08:54 verbose #6712 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:54 verbose #6713 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:54 verbose #6714 > > │ ### vec_reverse │
00:08:54 verbose #6715 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:54 verbose #6716 > >
00:08:54 verbose #6717 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:54 verbose #6718 > > inl vec_reverse forall el. (vec : vec el) : vec el =
00:08:54 verbose #6719 > > inl vec = join vec
00:08:54 verbose #6720 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:08:54 verbose #6721 > > (!\($'"true; !vec.reverse()"') : bool) |> ignore
00:08:54 verbose #6722 > > !\($'"!vec"')
00:08:55 verbose #6723 > >
00:08:55 verbose #6724 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:55 verbose #6725 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:55 verbose #6726 > > │ ### vec_retain │
00:08:55 verbose #6727 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:55 verbose #6728 > >
00:08:55 verbose #6729 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:55 verbose #6730 > > inl vec_retain forall el. (fn : el -> bool) (vec : vec el) : vec el =
00:08:55 verbose #6731 > > inl vec = join vec
00:08:55 verbose #6732 > > inl fn = join fn
00:08:55 verbose #6733 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:08:55 verbose #6734 > > // inl vec = vec |> rust.to_mut
00:08:55 verbose #6735 > > (!\($'"true; !vec.retain(|x| !fn(x.clone()))"') : bool) |> ignore
00:08:55 verbose #6736 > > !\($'"!vec"')
00:08:56 verbose #6737 > >
00:08:56 verbose #6738 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:56 verbose #6739 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:56 verbose #6740 > > │ ### vec_sort_by_key │
00:08:56 verbose #6741 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:56 verbose #6742 > >
00:08:56 verbose #6743 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:56 verbose #6744 > > inl vec_sort_by_key forall el t. (fn : el -> t) (vec : vec el) : vec el =
00:08:56 verbose #6745 > > inl vec = join vec
00:08:56 verbose #6746 > > inl fn = join fn
00:08:56 verbose #6747 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:08:56 verbose #6748 > > // inl vec = vec |> rust.to_mut
00:08:56 verbose #6749 > > (!\($'"true; !vec.sort_by_key(|x| !fn(x.clone()))"') : bool) |> ignore
00:08:56 verbose #6750 > > !\($'"!vec"')
00:08:57 verbose #6751 > >
00:08:57 verbose #6752 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:57 verbose #6753 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:57 verbose #6754 > > │ ### vec_extend │
00:08:57 verbose #6755 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 verbose #6756 > >
00:08:57 verbose #6757 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:57 verbose #6758 > > inl vec_extend forall el. (el : vec el) (vec : vec el) : vec el =
00:08:57 verbose #6759 > > inl el = join el
00:08:57 verbose #6760 > > inl vec = join vec
00:08:57 verbose #6761 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:08:57 verbose #6762 > > // inl vec = vec |> rust.to_mut
00:08:57 verbose #6763 > > (!\($'"true; !vec.extend(!el)"') : bool) |> ignore
00:08:57 verbose #6764 > > !\($'"!vec"')
00:08:57 verbose #6765 > >
00:08:57 verbose #6766 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:57 verbose #6767 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:57 verbose #6768 > > │ ### vec_collect │
00:08:57 verbose #6769 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 verbose #6770 > >
00:08:57 verbose #6771 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:57 verbose #6772 > > inl vec_collect fn vec =
00:08:57 verbose #6773 > > ((;[[]] |> to_vec), (vec |> from_vec : _ i32 _))
00:08:57 verbose #6774 > > ||> am.fold fun acc x =>
00:08:57 verbose #6775 > > acc |> vec_extend (fn x)
00:08:58 verbose #6776 > >
00:08:58 verbose #6777 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:58 verbose #6778 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:58 verbose #6779 > > │ ### vec_collect_option │
00:08:58 verbose #6780 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:58 verbose #6781 > >
00:08:58 verbose #6782 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:58 verbose #6783 > > inl vec_collect_option vec =
00:08:58 verbose #6784 > > ((;[[]] |> to_vec |> Ok), (vec |> from_vec : _ i32 _))
00:08:58 verbose #6785 > > ||> am.fold fun acc x =>
00:08:58 verbose #6786 > > x
00:08:58 verbose #6787 > > |> resultm.unbox
00:08:58 verbose #6788 > > |> fun x =>
00:08:58 verbose #6789 > > match acc, x |> resultm.map optionm'.unbox with
00:08:58 verbose #6790 > > | Ok acc, Ok (Some x) => acc |> vec_extend x |> Ok
00:08:58 verbose #6791 > > | _, Error error => error |> Error
00:08:58 verbose #6792 > > | _ => acc
00:08:59 verbose #6793 > >
00:08:59 verbose #6794 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:59 verbose #6795 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:59 verbose #6796 > > │ ### vec_collect_into │
00:08:59 verbose #6797 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:59 verbose #6798 > >
00:08:59 verbose #6799 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:59 verbose #6800 > > inl vec_collect_into forall (c : * -> * -> *) t e.
00:08:59 verbose #6801 > > (x : vec (c t e))
00:08:59 verbose #6802 > > : c (vec t) e
00:08:59 verbose #6803 > > =
00:08:59 verbose #6804 > > !\($'"!x.into_iter().collect()"')
00:08:59 verbose #6805 > >
00:08:59 verbose #6806 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:59 verbose #6807 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:59 verbose #6808 > > │ ### vec_mapi │
00:08:59 verbose #6809 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:59 verbose #6810 > >
00:08:59 verbose #6811 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:59 verbose #6812 > > inl vec_mapi forall dim t u. (fn : dim -> t -> u) (ar : vec t) : vec u =
00:08:59 verbose #6813 > > inl fn = join fn
00:08:59 verbose #6814 > > inl ar = join ar
00:08:59 verbose #6815 > > !\($'"!ar.iter().enumerate().map(|(i, x)|
00:08:59 verbose #6816 > > !fn(i.try_into().unwrap())(x.clone())).collect::<Vec<_>>()"')
00:09:00 verbose #6817 > >
00:09:00 verbose #6818 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:00 verbose #6819 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:00 verbose #6820 > > │ ### vec_map │
00:09:00 verbose #6821 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 verbose #6822 > >
00:09:00 verbose #6823 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:00 verbose #6824 > > inl vec_map forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:09:00 verbose #6825 > > (!\($'"true; let _result : Vec<_> = !ar.into_iter().map(|x| { //"') : bool)
00:09:00 verbose #6826 > > |> ignore
00:09:00 verbose #6827 > > (!\\(fn !\($'"x"'), $'"true; $0 }).collect::<Vec<_>>()"') : bool) |> ignore
00:09:00 verbose #6828 > > !\($'"_result"')
00:09:01 verbose #6829 > >
00:09:01 verbose #6830 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:01 verbose #6831 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:01 verbose #6832 > > │ ### vec_map''' │
00:09:01 verbose #6833 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 verbose #6834 > >
00:09:01 verbose #6835 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:01 verbose #6836 > > inl vec_map''' forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:09:01 verbose #6837 > > (!\($'"true; let _result : Vec<_> = !ar.into_iter().map(|x| { //"') : bool)
00:09:01 verbose #6838 > > |> ignore
00:09:01 verbose #6839 > > (!\\(fn !\($'"x"'), $'"true; $0 }}).collect::<Vec<_>>(); {{ //"') : bool) |>
00:09:01 verbose #6840 > > ignore
00:09:01 verbose #6841 > > !\($'"_result"')
00:09:01 verbose #6842 > >
00:09:01 verbose #6843 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:01 verbose #6844 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:01 verbose #6845 > > │ ### vec_map' │
00:09:01 verbose #6846 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 verbose #6847 > >
00:09:01 verbose #6848 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:01 verbose #6849 > > inl vec_map' forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:09:01 verbose #6850 > > !\\((ar, fn), $'"$0.into_iter().map(|x|
00:09:01 verbose #6851 > > $1(x.clone())).collect::<Vec<_>>()"')
00:09:02 verbose #6852 > >
00:09:02 verbose #6853 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:02 verbose #6854 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:02 verbose #6855 > > │ ### vec_fold' │
00:09:02 verbose #6856 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 verbose #6857 > >
00:09:02 verbose #6858 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 verbose #6859 > > inl vec_fold' forall t u. (fn : u -> t -> u) (init : u) (ar : vec t) : u =
00:09:02 verbose #6860 > > (!\\(ar, $'"true; let _result = $0.into_iter().fold(!init, |acc, x| { //"')
00:09:02 verbose #6861 > > : bool) |> ignore
00:09:02 verbose #6862 > > (!\\(fn !\($'"acc"') !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:09:02 verbose #6863 > > !\($'"_result"')
00:09:03 verbose #6864 > >
00:09:03 verbose #6865 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:03 verbose #6866 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:03 verbose #6867 > > │ ### vec_for_each │
00:09:03 verbose #6868 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #6869 > >
00:09:03 verbose #6870 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 verbose #6871 > > inl vec_for_each forall t. (fn : t -> ()) (ar : vec t) : () =
00:09:03 verbose #6872 > > !\\((ar, fn), $'"$0.iter().for_each(|x| { $1(x.clone()); })"')
00:09:03 verbose #6873 > >
00:09:03 verbose #6874 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:03 verbose #6875 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:03 verbose #6876 > > │ ### vec_for_each' │
00:09:03 verbose #6877 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 verbose #6878 > >
00:09:03 verbose #6879 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 verbose #6880 > > inl vec_for_each' forall t. (fn : t -> ()) (ar : vec t) : () =
00:09:03 verbose #6881 > > (!\($'"true; !ar.into_iter().for_each(|x| { //"') : bool) |> ignore
00:09:03 verbose #6882 > > inl x = fn !\($'"x"')
00:09:03 verbose #6883 > > (!\($'"true; !x }}); { //"') : bool) |> ignore
00:09:04 verbose #6884 > >
00:09:04 verbose #6885 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 verbose #6886 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 verbose #6887 > > │ ### vec_filter │
00:09:04 verbose #6888 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #6889 > >
00:09:04 verbose #6890 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 verbose #6891 > > inl vec_filter forall t. (fn : t -> bool) (ar : vec t) : vec t =
00:09:04 verbose #6892 > > inl fn = join fn
00:09:04 verbose #6893 > > inl ar = join ar
00:09:04 verbose #6894 > > !\($'"!ar.into_iter().filter(|x|
00:09:04 verbose #6895 > > !fn(x.clone().clone())).collect::<Vec<_>>()"')
00:09:04 verbose #6896 > >
00:09:04 verbose #6897 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 verbose #6898 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 verbose #6899 > > │ ### vec_len │
00:09:04 verbose #6900 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 verbose #6901 > >
00:09:04 verbose #6902 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 verbose #6903 > > inl vec_len forall t. (vec : vec t) : unativeint =
00:09:04 verbose #6904 > > !\\(vec, $'"$0.len()"')
00:09:05 verbose #6905 > >
00:09:05 verbose #6906 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:05 verbose #6907 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:05 verbose #6908 > > │ ### vec_chunks │
00:09:05 verbose #6909 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #6910 > >
00:09:05 verbose #6911 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 verbose #6912 > > inl vec_chunks forall t. (n : i32) (vec : vec t) : vec (vec t) =
00:09:05 verbose #6913 > > !\\(vec, $'"$0.chunks(!n).map(|x| x.into_iter().map(|x|
00:09:05 verbose #6914 > > x.clone()).collect::<Vec<_>>()).collect::<Vec<_>>()"')
00:09:06 verbose #6915 > >
00:09:06 verbose #6916 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:06 verbose #6917 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:06 verbose #6918 > > │ ### slice │
00:09:06 verbose #6919 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:06 verbose #6920 > >
00:09:06 verbose #6921 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:06 verbose #6922 > > nominal slice t = $'Slice<`t>'
00:09:06 verbose #6923 > >
00:09:06 verbose #6924 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:06 verbose #6925 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:06 verbose #6926 > > │ ### slice' │
00:09:06 verbose #6927 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:06 verbose #6928 > >
00:09:06 verbose #6929 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:06 verbose #6930 > > nominal slice' el dim = $'Slice\'<`el>'
00:09:07 verbose #6931 > >
00:09:07 verbose #6932 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:07 verbose #6933 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:07 verbose #6934 > > │ ### slice_singleton │
00:09:07 verbose #6935 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:07 verbose #6936 > >
00:09:07 verbose #6937 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:07 verbose #6938 > > inl slice_singleton forall dim el. (x : option el) : slice' el dim =
00:09:07 verbose #6939 > > match x with
00:09:07 verbose #6940 > > | Some x => !\($'"[[!x]]"')
00:09:07 verbose #6941 > > | None =>
00:09:07 verbose #6942 > > !\($'"[[\\\"\\\".to_string()]]"') : slice' el dim
00:09:07 verbose #6943 > > // emit_expr `(()) `(slice' el dim) () ($'"[[@dim]]"' : string) :
00:09:07 verbose #6944 > > slice' el 10
00:09:07 verbose #6945 > > // !\( : string) : slice' el i32 // !\($'"[[]]"')
00:09:08 verbose #6946 > >
00:09:08 verbose #6947 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:08 verbose #6948 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:08 verbose #6949 > > │ ### slice_length │
00:09:08 verbose #6950 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:08 verbose #6951 > >
00:09:08 verbose #6952 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:08 verbose #6953 > > inl slice_length forall t dim. (x : slice' t dim) : unativeint =
00:09:08 verbose #6954 > > !\($'"!x.len()"')
00:09:08 verbose #6955 > >
00:09:08 verbose #6956 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:08 verbose #6957 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:08 verbose #6958 > > │ ### slice_range │
00:09:08 verbose #6959 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:08 verbose #6960 > >
00:09:08 verbose #6961 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:08 verbose #6962 > > inl slice_range forall t dim. (start : range t) (end : range t) (s : slice' t
00:09:08 verbose #6963 > > dim) : rust.ref' (slice' t dim) =
00:09:08 verbose #6964 > > inl len = s |> slice_length
00:09:08 verbose #6965 > > inl start, (end : unativeint) =
00:09:08 verbose #6966 > > match start, end with
00:09:08 verbose #6967 > > | Start start, End fn => start, len |> convert |> fn |> convert
00:09:08 verbose #6968 > > | End start_fn, End end_fn => len |> convert |> start_fn, len |> convert
00:09:08 verbose #6969 > > |> end_fn |> convert
00:09:08 verbose #6970 > > match start, end with
00:09:08 verbose #6971 > > | start, end when unbox end =. len => !\($'"&!s[[!start..]]"')
00:09:08 verbose #6972 > > | start, end => !\\((start, end), $'"&!s[[$0..$1]]"')
00:09:09 verbose #6973 > >
00:09:09 verbose #6974 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:09 verbose #6975 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:09 verbose #6976 > > │ ### new_slice │
00:09:09 verbose #6977 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:09 verbose #6978 > >
00:09:09 verbose #6979 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:09 verbose #6980 > > inl new_slice forall el dim. (el : el) : slice' el dim =
00:09:09 verbose #6981 > > !\\(el, $'"[[$0; @dim]]"')
00:09:10 verbose #6982 > >
00:09:10 verbose #6983 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:10 verbose #6984 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:10 verbose #6985 > > │ ### as_slice │
00:09:10 verbose #6986 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:10 verbose #6987 > >
00:09:10 verbose #6988 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:10 verbose #6989 > > inl as_slice forall t. (x : array_base t) : rust.ref' (slice t) =
00:09:10 verbose #6990 > > inl x = x |> to_vec
00:09:10 verbose #6991 > > !\($'"!x.as_slice()"')
00:09:10 verbose #6992 > >
00:09:10 verbose #6993 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:10 verbose #6994 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:10 verbose #6995 > > │ ### slice_to_vec │
00:09:10 verbose #6996 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:10 verbose #6997 > >
00:09:10 verbose #6998 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:10 verbose #6999 > > inl slice_to_vec forall t. (slice : rust.ref' (slice t)) : vec t =
00:09:10 verbose #7000 > > !\\(slice, $'"$0.iter().map(|x| *x).collect::<Vec<_>>()"')
00:09:11 verbose #7001 > >
00:09:11 verbose #7002 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:11 verbose #7003 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:11 verbose #7004 > > │ ### any │
00:09:11 verbose #7005 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:11 verbose #7006 > >
00:09:11 verbose #7007 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:11 verbose #7008 > > inl any forall t. (fn : t -> bool) (source : array_base t) : bool =
00:09:11 verbose #7009 > > !\($'"!source.any(|x| !fn(x))"')
00:09:12 verbose #7010 > >
00:09:12 verbose #7011 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:12 verbose #7012 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:12 verbose #7013 > > │ ### iter_collect vec │
00:09:12 verbose #7014 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:12 verbose #7015 > >
00:09:12 verbose #7016 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:12 verbose #7017 > > instance iter_collect vec = fun (iter : into_iterator u) =>
00:09:12 verbose #7018 > > !\($'"!iter.collect::<Vec<_>>()"')
00:09:12 verbose #7019 > >
00:09:12 verbose #7020 > > instance iter_collect'' vec = fun (iter : into_iterator (t (u v))) =>
00:09:12 verbose #7021 > > !\($'"!iter.collect::<Vec<_>>()"')
00:09:12 verbose #7022 > >
00:09:12 verbose #7023 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:12 verbose #7024 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:12 verbose #7025 > > │ ### new_vec │
00:09:12 verbose #7026 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:12 verbose #7027 > >
00:09:12 verbose #7028 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:12 verbose #7029 > > inl new_vec forall t. (items : list t) : vec t =
00:09:12 verbose #7030 > > inl items =
00:09:12 verbose #7031 > > (items, ("", 0i32))
00:09:12 verbose #7032 > > ||> listm.foldBack fun (x : t) (acc, i) =>
00:09:12 verbose #7033 > > inl x = join x
00:09:12 verbose #7034 > > $'"!x"' +. (if i = 0 then "" else ", ") +. acc, i + 1
00:09:12 verbose #7035 > > |> fst
00:09:12 verbose #7036 > > !\($'"vec\![[" + !items + "]]"')
00:09:13 verbose #7037 > >
00:09:13 verbose #7038 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:13 verbose #7039 > > //// test
00:09:13 verbose #7040 > > ///! rust
00:09:13 verbose #7041 > >
00:09:13 verbose #7042 > > types ()
00:09:13 verbose #7043 > > sm'.types ()
00:09:13 verbose #7044 > > [[ 0i32; 1 ]]
00:09:13 verbose #7045 > > |> new_vec
00:09:13 verbose #7046 > > |> sm'.format_debug'
00:09:13 verbose #7047 > > |> sm'.from_std_string
00:09:13 verbose #7048 > > |> _assert_eq "[[0, 1]]"
00:09:17 verbose #7049 > >
00:09:17 verbose #7050 > > ╭─[ 3.49s - return value ]─────────────────────────────────────────────────────╮
00:09:17 verbose #7051 > > │ assert_eq / actual: "[0, 1]" / expected: "[0, 1]" │
00:09:17 verbose #7052 > > │ │
00:09:17 verbose #7053 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:17 verbose #7054 > >
00:09:17 verbose #7055 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:17 verbose #7056 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:17 verbose #7057 > > │ ## fsharp │
00:09:17 verbose #7058 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:17 verbose #7059 > >
00:09:17 verbose #7060 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:17 verbose #7061 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:17 verbose #7062 > > │ ### average │
00:09:17 verbose #7063 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:17 verbose #7064 > >
00:09:17 verbose #7065 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:17 verbose #7066 > > inl average forall el {number}. (a : a _ el) : el =
00:09:17 verbose #7067 > > a |> $'Array.average'
00:09:17 verbose #7068 > >
00:09:17 verbose #7069 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:17 verbose #7070 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:17 verbose #7071 > > │ ### distinct │
00:09:17 verbose #7072 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:17 verbose #7073 > >
00:09:17 verbose #7074 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:17 verbose #7075 > > inl distinct forall dim el. (a : a dim el) : a dim el =
00:09:17 verbose #7076 > > a |> $'Array.distinct'
00:09:18 verbose #7077 > >
00:09:18 verbose #7078 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:18 verbose #7079 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:18 verbose #7080 > > │ ### skip │
00:09:18 verbose #7081 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:18 verbose #7082 > >
00:09:18 verbose #7083 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:18 verbose #7084 > > inl skip forall dim el. (n : dim) (a : a dim el) : a dim el =
00:09:18 verbose #7085 > > a |> $'Array.skip' n
00:09:19 verbose #7086 > >
00:09:19 verbose #7087 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:19 verbose #7088 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:19 verbose #7089 > > │ ### skip_while │
00:09:19 verbose #7090 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #7091 > >
00:09:19 verbose #7092 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:19 verbose #7093 > > inl skip_while forall dim el. (fn : el -> bool) (a : a dim el) : a dim el =
00:09:19 verbose #7094 > > a |> $'Array.skipWhile' fn
00:09:19 verbose #7095 > >
00:09:19 verbose #7096 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:19 verbose #7097 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:19 verbose #7098 > > │ ### to_list' │
00:09:19 verbose #7099 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:19 verbose #7100 > >
00:09:19 verbose #7101 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:19 verbose #7102 > > inl to_list' forall dim t. (items : a dim t) : listm'.list' t =
00:09:19 verbose #7103 > > items |> $'Array.toList'
00:09:20 verbose #7104 > >
00:09:20 verbose #7105 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:20 verbose #7106 > > //// test
00:09:20 verbose #7107 > >
00:09:20 verbose #7108 > > a' ;[[ "a"; "b" ]]
00:09:20 verbose #7109 > > |> to_list'
00:09:20 verbose #7110 > > |> listm'.unbox
00:09:20 verbose #7111 > > |> _assert_eq [[ "a"; "b" ]]
00:09:21 verbose #7112 > >
00:09:21 verbose #7113 > > ╭─[ 770.83ms - stdout ]────────────────────────────────────────────────────────╮
00:09:21 verbose #7114 > > │ assert_eq / actual: UH0_1 ("a", UH0_1 ("b", UH0_0)) / expected: UH0_1 ("a", │
00:09:21 verbose #7115 > > │ UH0_1 ("b", UH0_0)) │
00:09:21 verbose #7116 > > │ │
00:09:21 verbose #7117 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #7118 > >
00:09:21 verbose #7119 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:21 verbose #7120 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:21 verbose #7121 > > │ ### parallel_map │
00:09:21 verbose #7122 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 verbose #7123 > >
00:09:21 verbose #7124 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:21 verbose #7125 > > inl parallel_map forall dim el el'. (fn : el -> el') (a : a dim el) : a dim el'
00:09:21 verbose #7126 > > =
00:09:21 verbose #7127 > > a |> $'Array.Parallel.map' fn
00:09:22 verbose #7128 > >
00:09:22 verbose #7129 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:22 verbose #7130 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:22 verbose #7131 > > │ ### map' │
00:09:22 verbose #7132 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #7133 > >
00:09:22 verbose #7134 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:22 verbose #7135 > > inl map' forall dim el el'. (fn : el -> el') (a : a dim el) : a dim el' =
00:09:22 verbose #7136 > > $'!a |> Array.map !fn '
00:09:22 verbose #7137 > >
00:09:22 verbose #7138 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:22 verbose #7139 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:22 verbose #7140 > > │ ### sort_by │
00:09:22 verbose #7141 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:22 verbose #7142 > >
00:09:22 verbose #7143 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:22 verbose #7144 > > inl sort_by forall dim el. (fn : el -> _) (a : a dim el) : a dim el =
00:09:22 verbose #7145 > > a |> $'Array.sortBy' fn
00:09:23 verbose #7146 > >
00:09:23 verbose #7147 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:23 verbose #7148 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:23 verbose #7149 > > │ ### sort │
00:09:23 verbose #7150 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 verbose #7151 > >
00:09:23 verbose #7152 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:23 verbose #7153 > > inl sort forall dim el. (a : a dim el) : a dim el =
00:09:23 verbose #7154 > > a |> $'Array.sort'
00:09:24 verbose #7155 > >
00:09:24 verbose #7156 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:24 verbose #7157 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:24 verbose #7158 > > │ ### sort_descending │
00:09:24 verbose #7159 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:24 verbose #7160 > >
00:09:24 verbose #7161 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:24 verbose #7162 > > inl sort_descending forall dim el. (a : a dim el) : a dim el =
00:09:24 verbose #7163 > > a |> $'Array.sortDescending'
00:09:25 verbose #7164 > >
00:09:25 verbose #7165 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:25 verbose #7166 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:25 verbose #7167 > > │ ### transpose │
00:09:25 verbose #7168 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:25 verbose #7169 > >
00:09:25 verbose #7170 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:25 verbose #7171 > > inl transpose forall dim el. (a : a dim (a dim el)) : a dim (a dim el) =
00:09:25 verbose #7172 > > a |> $'Array.transpose'
00:09:26 verbose #7173 > >
00:09:26 verbose #7174 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:26 verbose #7175 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:26 verbose #7176 > > │ ### try_item │
00:09:26 verbose #7177 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:26 verbose #7178 > >
00:09:26 verbose #7179 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:26 verbose #7180 > > inl try_item forall dim el. (i : i32) (a : a dim el) : option el =
00:09:26 verbose #7181 > > a |> $'Array.tryItem' i |> optionm'.unbox
00:09:27 verbose #7182 > 00:01:24 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 55115
00:09:27 verbose #7183 > 00:01:24 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:09:29 verbose #7184 > 00:01:26 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/am'.dib.ipynb to html
00:09:29 verbose #7185 > 00:01:26 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:09:29 verbose #7186 > 00:01:26 verbose #7 ! validate(nb)
00:09:31 verbose #7187 > 00:01:29 verbose #8 ! [NbConvertApp] Writing 430731 bytes to c:\home\git\polyglot\lib\spiral\am'.dib.html
00:09:31 verbose #7188 > 00:01:29 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:09:31 verbose #7189 > 00:01:29 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:09:31 verbose #7190 > 00:01:29 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/am''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/am''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:09:32 verbose #7191 > 00:01:30 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:09:32 verbose #7192 > 00:01:30 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:09:33 verbose #7193 > 00:01:30 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 55811
00:09:33 debug #7194 runtime.execute_with_options_async / exit_code: 0 / output.Length: 60147
00:09:33 debug #8 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path am'.dib --retries 3
00:09:33 debug #7195 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path crypto.dib --retries 3",
[||], None, None, true, None)
00:09:33 verbose #7196 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "crypto.dib", "--retries", "3"])
00:09:33 verbose #7197 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/crypto.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/crypto.dib" --output-path "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:09:35 verbose #7198 > >
00:09:35 verbose #7199 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:35 verbose #7200 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:35 verbose #7201 > > │ # crypto │
00:09:35 verbose #7202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:35 verbose #7203 > >
00:09:35 verbose #7204 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:35 verbose #7205 > > open rust_operators
00:09:35 verbose #7206 > >
00:09:35 verbose #7207 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:09:35 verbose #7208 > > #r
00:09:35 verbose #7209 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:35 verbose #7210 > > otNet.Interactive.Spiral.dll"
00:09:35 verbose #7211 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:09:35 verbose #7212 > > #r
00:09:35 verbose #7213 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:35 verbose #7214 > > otNet.Interactive.dll"
00:09:35 verbose #7215 > > open type Microsoft.DotNet.Interactive.Kernel
00:09:41 verbose #7216 > >
00:09:41 verbose #7217 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:41 verbose #7218 > > //// test
00:09:41 verbose #7219 > >
00:09:41 verbose #7220 > > open testing
00:09:41 verbose #7221 > > open file_system_operators
00:09:42 verbose #7222 > >
00:09:42 verbose #7223 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:42 verbose #7224 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:42 verbose #7225 > > │ ## types │
00:09:42 verbose #7226 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:42 verbose #7227 > >
00:09:42 verbose #7228 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:42 verbose #7229 > > inl types () =
00:09:42 verbose #7230 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:09:42 verbose #7231 > > Fable.Core.Emit(\"sha2::Sha256\")>]]\n#endif\ntype sha2_Sha256 = class end"
00:09:43 verbose #7232 > >
00:09:43 verbose #7233 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #7234 > > inl types () =
00:09:43 verbose #7235 > > sm'.types ()
00:09:43 verbose #7236 > > am'.types ()
00:09:43 verbose #7237 > > threading.types ()
00:09:43 verbose #7238 > > rust.types ()
00:09:43 verbose #7239 > > date_time.types ()
00:09:43 verbose #7240 > > file_system.types ()
00:09:43 verbose #7241 > > stream.types ()
00:09:43 verbose #7242 > > runtime.types ()
00:09:43 verbose #7243 > > types ()
00:09:43 verbose #7244 > >
00:09:43 verbose #7245 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:43 verbose #7246 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:43 verbose #7247 > > │ ## fsharp │
00:09:43 verbose #7248 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:43 verbose #7249 > >
00:09:43 verbose #7250 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:43 verbose #7251 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:43 verbose #7252 > > │ ### sha256 │
00:09:43 verbose #7253 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:43 verbose #7254 > >
00:09:43 verbose #7255 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #7256 > > nominal sha256 = $'System.Security.Cryptography.SHA256'
00:09:43 verbose #7257 > >
00:09:43 verbose #7258 > > inl sha256 () : sha256 =
00:09:43 verbose #7259 > > $'`sha256.Create' ()
00:09:44 verbose #7260 > >
00:09:44 verbose #7261 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:44 verbose #7262 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:44 verbose #7263 > > │ ### sha256_compute_hash │
00:09:44 verbose #7264 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:44 verbose #7265 > >
00:09:44 verbose #7266 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:44 verbose #7267 > > inl sha256_compute_hash (x : sha256) (data : a i32 u8) : a i32 u8 =
00:09:44 verbose #7268 > > data |> $'!x.ComputeHash'
00:09:45 verbose #7269 > >
00:09:45 verbose #7270 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:45 verbose #7271 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:45 verbose #7272 > > │ ## rust │
00:09:45 verbose #7273 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:45 verbose #7274 > >
00:09:45 verbose #7275 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:45 verbose #7276 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:45 verbose #7277 > > │ ### get_file_hash' │
00:09:45 verbose #7278 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:45 verbose #7279 > >
00:09:45 verbose #7280 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:45 verbose #7281 > > inl get_file_hash' (path : string) : result string string =
00:09:45 verbose #7282 > > inl path = path |> file_system.normalize_path
00:09:45 verbose #7283 > > inl exit_code, result =
00:09:45 verbose #7284 > > runtime.execution_options fun x => { x with
00:09:45 verbose #7285 > > command = $'$"pwsh -c \\\"(Get-FileHash \'{!path}\' -Algorithm
00:09:45 verbose #7286 > > SHA256).Hash\\\""'
00:09:45 verbose #7287 > > }
00:09:45 verbose #7288 > > |> runtime.execute_with_options
00:09:45 verbose #7289 > > if exit_code = 0
00:09:45 verbose #7290 > > then result |> sm'.to_lower |> Ok
00:09:45 verbose #7291 > > else result |> Error
00:09:45 verbose #7292 > >
00:09:45 verbose #7293 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:45 verbose #7294 > > //// test
00:09:45 verbose #7295 > >
00:09:45 verbose #7296 > > types ()
00:09:45 verbose #7297 > >
00:09:45 verbose #7298 > > inl file_name = "test.txt"
00:09:45 verbose #7299 > > inl text = "\n"
00:09:45 verbose #7300 > >
00:09:45 verbose #7301 > > inl temp_dir, disposable =
00:09:45 verbose #7302 > > (file_name, text)
00:09:45 verbose #7303 > > |> sm'.format_debug
00:09:45 verbose #7304 > > |> crypto.hash_text
00:09:45 verbose #7305 > > |> file_system.create_temp_dir'
00:09:45 verbose #7306 > > disposable |> use |> ignore
00:09:45 verbose #7307 > > inl path = temp_dir </> file_name
00:09:45 verbose #7308 > > text |> file_system.write_all_text_async path |> async.run_synchronously
00:09:45 verbose #7309 > > path
00:09:45 verbose #7310 > > |> get_file_hash'
00:09:45 verbose #7311 > > |> resultm.get
00:09:45 verbose #7312 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:09:50 verbose #7313 > >
00:09:50 verbose #7314 > > ╭─[ 5.12s - stdout ]───────────────────────────────────────────────────────────╮
00:09:50 verbose #7315 > > │ 00:00:00 debug #1 runtime.execute_with_options_async / options: struct │
00:09:50 verbose #7316 > > │ (None, │
00:09:50 verbose #7317 > > │ "pwsh -c "(Get-FileHash │
00:09:50 verbose #7318 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/dotnet-repl/9ca8b18d-e │
00:09:50 verbose #7319 > > │ e77-4684-ad12-21e1354945fc/test.txt' -Algorithm SHA256).Hash"", │
00:09:50 verbose #7320 > > │ [||], None, None, true, None) │
00:09:50 verbose #7321 > > │ 00:00:00 verbose #2 > │
00:09:50 verbose #7322 > > │ 01BA4719C80B6FE911B091A7C05124B64EEECE964E09C058EF8F9805DACA546B │
00:09:50 verbose #7323 > > │ 00:00:00 debug #3 runtime.execute_with_options_async / exit_code: 0 / │
00:09:50 verbose #7324 > > │ output.Length: 64 │
00:09:50 verbose #7325 > > │ assert_eq / actual: │
00:09:50 verbose #7326 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:09:50 verbose #7327 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:09:50 verbose #7328 > > │ │
00:09:50 verbose #7329 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:50 verbose #7330 > >
00:09:50 verbose #7331 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:50 verbose #7332 > > //// test
00:09:50 verbose #7333 > > ///! rust -d chrono encoding_rs encoding_rs_io regex sha2
00:09:50 verbose #7334 > >
00:09:50 verbose #7335 > > types ()
00:09:50 verbose #7336 > >
00:09:50 verbose #7337 > > inl file_name = "test.txt"
00:09:50 verbose #7338 > > inl text = "\n"
00:09:50 verbose #7339 > >
00:09:50 verbose #7340 > > inl temp_dir, disposable =
00:09:50 verbose #7341 > > (file_name, text)
00:09:50 verbose #7342 > > |> sm'.format_debug
00:09:50 verbose #7343 > > |> crypto.hash_text
00:09:50 verbose #7344 > > |> file_system.create_temp_dir'
00:09:50 verbose #7345 > > inl path = temp_dir </> file_name
00:09:50 verbose #7346 > > text |> file_system.write_all_text path
00:09:50 verbose #7347 > > path
00:09:50 verbose #7348 > > |> get_file_hash'
00:09:50 verbose #7349 > > |> resultm.get
00:09:50 verbose #7350 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:09:50 verbose #7351 > > disposable |> use |> ignore
00:09:58 verbose #7352 > >
00:09:58 verbose #7353 > > ╭─[ 7.65s - return value ]─────────────────────────────────────────────────────╮
00:09:58 verbose #7354 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:09:58 verbose #7355 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_2b0c4bc8 │
00:09:58 verbose #7356 > > │ bc7a56a32c5e9d7e0b81dc88a1beb982078acc4160892dc6a4f16785\ba0aa16a-6c5a-be3f- │
00:09:58 verbose #7357 > > │ b526-70110c680e36 │
00:09:58 verbose #7358 > > │ 00:00:00 debug #2 runtime.execute_with_options / file_name: pwsh / │
00:09:58 verbose #7359 > > │ arguments: ["-c", "(Get-FileHash │
00:09:58 verbose #7360 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_2b0c4bc │
00:09:58 verbose #7361 > > │ 8bc7a56a32c5e9d7e0b81dc88a1beb982078acc4160892dc6a4f16785/ba0aa16a-6c5a-be3f │
00:09:58 verbose #7362 > > │ -b526-70110c680e36/test.txt' -Algorithm SHA256).Hash"] / options: (None, │
00:09:58 verbose #7363 > > │ "pwsh -c "(Get-FileHash │
00:09:58 verbose #7364 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_2b0c4bc │
00:09:58 verbose #7365 > > │ 8bc7a56a32c5e9d7e0b81dc88a1beb982078acc4160892dc6a4f16785/ba0aa16a-6c5a-be3f │
00:09:58 verbose #7366 > > │ -b526-70110c680e36/test.txt' -Algorithm SHA256).Hash"", Array(MutCell([])), │
00:09:58 verbose #7367 > > │ None, None, true, None) │
00:09:58 verbose #7368 > > │ 00:00:00 verbose #3 > │
00:09:58 verbose #7369 > > │ 01BA4719C80B6FE911B091A7C05124B64EEECE964E09C058EF8F9805DACA546B │
00:09:58 verbose #7370 > > │ 00:00:00 verbose #4 runtime.execute_with_options / result / exit_code: │
00:09:58 verbose #7371 > > │ 0 / std_trace.Length: 64 │
00:09:58 verbose #7372 > > │ assert_eq / actual: │
00:09:58 verbose #7373 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:09:58 verbose #7374 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:09:58 verbose #7375 > > │ │
00:09:58 verbose #7376 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:58 verbose #7377 > >
00:09:58 verbose #7378 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:58 verbose #7379 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:58 verbose #7380 > > │ ### sha256' │
00:09:58 verbose #7381 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:58 verbose #7382 > >
00:09:58 verbose #7383 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:58 verbose #7384 > > nominal sha256' = $'sha2_Sha256'
00:09:59 verbose #7385 > >
00:09:59 verbose #7386 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:59 verbose #7387 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:59 verbose #7388 > > │ ### new_sha256 │
00:09:59 verbose #7389 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #7390 > >
00:09:59 verbose #7391 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #7392 > > inl new_sha256 () : sha256' =
00:09:59 verbose #7393 > > !\($'"let result : sha2::Sha256 = sha2::Digest::new()"')
00:09:59 verbose #7394 > > !\($'"result"')
00:09:59 verbose #7395 > >
00:09:59 verbose #7396 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:59 verbose #7397 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:59 verbose #7398 > > │ ### hasher_update │
00:09:59 verbose #7399 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #7400 > >
00:09:59 verbose #7401 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #7402 > > inl hasher_update forall el dim. (slice : rust.ref' (am'.slice' el dim)) (hasher
00:09:59 verbose #7403 > > : sha256') : () =
00:09:59 verbose #7404 > > !\($'"sha2::Digest::update(&mut !hasher, !slice)"')
00:10:00 verbose #7405 > >
00:10:00 verbose #7406 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:00 verbose #7407 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:00 verbose #7408 > > │ ### hasher_finalize │
00:10:00 verbose #7409 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #7410 > >
00:10:00 verbose #7411 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #7412 > > inl hasher_finalize (hasher : sha256') : rust.ref' (am'.slice u8) =
00:10:00 verbose #7413 > > !\($'"&sha2::Digest::finalize(!hasher)"')
00:10:01 verbose #7414 > >
00:10:01 verbose #7415 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:01 verbose #7416 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:01 verbose #7417 > > │ ### hash_read │
00:10:01 verbose #7418 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #7419 > >
00:10:01 verbose #7420 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #7421 > > inl hash_read data : resultm.result' string stream.io_error =
00:10:01 verbose #7422 > > inl reader = data |> stream.new_buf_reader
00:10:01 verbose #7423 > > (!\($'"true; let mut !reader = !reader"') : bool) |> ignore
00:10:01 verbose #7424 > > inl hasher = new_sha256 ()
00:10:01 verbose #7425 > > (!\($'"true; let mut !hasher = !hasher"') : bool) |> ignore
00:10:01 verbose #7426 > >
00:10:01 verbose #7427 > > real
00:10:01 verbose #7428 > > inl size = 1024
00:10:01 verbose #7429 > > inl zero = convert `i32 `unativeint 0
00:10:01 verbose #7430 > > inl buffer = am'.new_slice `u8 `@size 0u8
00:10:01 verbose #7431 > >
00:10:01 verbose #7432 > > rust.loop 2 fun () =>
00:10:01 verbose #7433 > > inl count = stream.buf_reader_read `u8 `@size buffer reader
00:10:01 verbose #7434 > > inl count = resultm.unwrap' `unativeint `(stream.io_error) count
00:10:01 verbose #7435 > >
00:10:01 verbose #7436 > > if (=.) `unativeint count zero then rust.break ()
00:10:01 verbose #7437 > >
00:10:01 verbose #7438 > > hasher_update `u8 `@size
00:10:01 verbose #7439 > > (
00:10:01 verbose #7440 > > am'.slice_range `u8 `@size
00:10:01 verbose #7441 > > (am'.Start `unativeint zero)
00:10:01 verbose #7442 > > (am'.End `unativeint ((fun _ => count) : unativeint ->
00:10:01 verbose #7443 > > unativeint))
00:10:01 verbose #7444 > > buffer
00:10:01 verbose #7445 > > )
00:10:01 verbose #7446 > > hasher
00:10:01 verbose #7447 > >
00:10:01 verbose #7448 > > hasher
00:10:01 verbose #7449 > > |> hasher_finalize
00:10:01 verbose #7450 > > |> am'.slice_to_vec
00:10:01 verbose #7451 > > |> am'.vec_map (sm'.format_hex' >> sm'.from_std_string)
00:10:01 verbose #7452 > > |> am'.from_vec
00:10:01 verbose #7453 > > |> fun x => x : _ i32 _
00:10:01 verbose #7454 > > |> seq.of_array'
00:10:01 verbose #7455 > > |> sm'.concat ""
00:10:01 verbose #7456 > > |> Ok
00:10:01 verbose #7457 > > |> resultm.box
00:10:01 verbose #7458 > >
00:10:01 verbose #7459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:01 verbose #7460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:01 verbose #7461 > > │ ### get_file_hash │
00:10:01 verbose #7462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #7463 > >
00:10:01 verbose #7464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #7465 > > inl get_file_hash (path : string) =
00:10:01 verbose #7466 > > inl path = path |> file_system.normalize_path
00:10:01 verbose #7467 > > inl file = path |> file_system.file_open |> resultm.unwrap'
00:10:01 verbose #7468 > > inl reader = file |> stream.new_buf_reader
00:10:01 verbose #7469 > > reader
00:10:01 verbose #7470 > > |> hash_read
00:10:02 verbose #7471 > >
00:10:02 verbose #7472 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:02 verbose #7473 > > //// test
00:10:02 verbose #7474 > > ///! rust -d chrono regex sha2
00:10:02 verbose #7475 > >
00:10:02 verbose #7476 > > types ()
00:10:02 verbose #7477 > >
00:10:02 verbose #7478 > > inl file_name = join "test.txt"
00:10:02 verbose #7479 > > inl text = "\n"
00:10:02 verbose #7480 > >
00:10:02 verbose #7481 > > inl temp_dir, disposable =
00:10:02 verbose #7482 > > (file_name, text)
00:10:02 verbose #7483 > > |> sm'.format_debug
00:10:02 verbose #7484 > > |> crypto.hash_text
00:10:02 verbose #7485 > > |> file_system.create_temp_dir'
00:10:02 verbose #7486 > >
00:10:02 verbose #7487 > > inl path = temp_dir </> file_name
00:10:02 verbose #7488 > > text |> file_system.write_all_text path
00:10:02 verbose #7489 > >
00:10:02 verbose #7490 > > path
00:10:02 verbose #7491 > > |> get_file_hash
00:10:02 verbose #7492 > > |> resultm.unwrap'
00:10:02 verbose #7493 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:10:02 verbose #7494 > > disposable |> use |> ignore
00:10:09 verbose #7495 > >
00:10:09 verbose #7496 > > ╭─[ 7.26s - return value ]─────────────────────────────────────────────────────╮
00:10:09 verbose #7497 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:10:09 verbose #7498 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_3e0db7b4 │
00:10:09 verbose #7499 > > │ d435f386e2796ff23e5f90bf06de067ead57c77f9c0729f70e3132f3\ba0aa16a-6c5a-be3f- │
00:10:09 verbose #7500 > > │ b526-70110c680e36 │
00:10:09 verbose #7501 > > │ assert_eq / actual: │
00:10:09 verbose #7502 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:10:09 verbose #7503 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:10:09 verbose #7504 > > │ │
00:10:09 verbose #7505 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:09 verbose #7506 > >
00:10:09 verbose #7507 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:09 verbose #7508 > > //// test
00:10:09 verbose #7509 > > ///! rust -d chrono regex sha2
00:10:09 verbose #7510 > >
00:10:09 verbose #7511 > > types ()
00:10:09 verbose #7512 > >
00:10:09 verbose #7513 > > inl file_name = join "test.txt"
00:10:09 verbose #7514 > > inl text = ""
00:10:09 verbose #7515 > >
00:10:09 verbose #7516 > > inl temp_dir, disposable =
00:10:09 verbose #7517 > > (file_name, text)
00:10:09 verbose #7518 > > |> sm'.format_debug
00:10:09 verbose #7519 > > |> crypto.hash_text
00:10:09 verbose #7520 > > |> file_system.create_temp_dir'
00:10:09 verbose #7521 > >
00:10:09 verbose #7522 > > inl path = temp_dir </> file_name
00:10:09 verbose #7523 > > text |> file_system.write_all_text path
00:10:09 verbose #7524 > > path
00:10:09 verbose #7525 > > |> get_file_hash
00:10:09 verbose #7526 > > |> resultm.unwrap'
00:10:09 verbose #7527 > > |> _assert_eq "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
00:10:09 verbose #7528 > > disposable |> use |> ignore
00:10:20 verbose #7529 > >
00:10:20 verbose #7530 > > ╭─[ 10.85s - return value ]────────────────────────────────────────────────────╮
00:10:20 verbose #7531 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:10:20 verbose #7532 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_1a7c8503 │
00:10:20 verbose #7533 > > │ c315052be95c0eb5ad8b03acb038e7d271d0083a74af852227756c12\c0e26dac-4cb1-4b09- │
00:10:20 verbose #7534 > > │ be07-ff616700f056 │
00:10:20 verbose #7535 > > │ assert_eq / actual: │
00:10:20 verbose #7536 > > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" / │
00:10:20 verbose #7537 > > │ expected: "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:10:20 verbose #7538 > > │ │
00:10:20 verbose #7539 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #7540 > >
00:10:20 verbose #7541 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:20 verbose #7542 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:20 verbose #7543 > > │ ## typescript │
00:10:20 verbose #7544 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #7545 > >
00:10:20 verbose #7546 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:20 verbose #7547 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:20 verbose #7548 > > │ ### create_hash │
00:10:20 verbose #7549 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:20 verbose #7550 > >
00:10:20 verbose #7551 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:20 verbose #7552 > > inl create_hash (x : string) : any =
00:10:20 verbose #7553 > > open typescript_operators
00:10:20 verbose #7554 > > global "type ICryptoCreateHash = abstract createHash: x: string -> obj"
00:10:20 verbose #7555 > > inl crypto : $'ICryptoCreateHash' = typescript.import_all "crypto"
00:10:20 verbose #7556 > > !\\(x, $'"!crypto.createHash($0)"')
00:10:21 verbose #7557 > >
00:10:21 verbose #7558 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:21 verbose #7559 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:21 verbose #7560 > > │ ### hash_update │
00:10:21 verbose #7561 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:21 verbose #7562 > >
00:10:21 verbose #7563 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:21 verbose #7564 > > inl hash_update (s : string) (x : any) : any =
00:10:21 verbose #7565 > > open typescript_operators
00:10:21 verbose #7566 > > !\\((x, s), $'"$0.update($1, \'utf8\')"')
00:10:21 verbose #7567 > >
00:10:21 verbose #7568 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:21 verbose #7569 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:21 verbose #7570 > > │ ### hash_digest │
00:10:21 verbose #7571 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:21 verbose #7572 > >
00:10:21 verbose #7573 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:21 verbose #7574 > > inl hash_digest (s : string) (x : any) : string =
00:10:21 verbose #7575 > > open typescript_operators
00:10:21 verbose #7576 > > !\\((x, s), $'"$0.digest($1)"')
00:10:22 verbose #7577 > >
00:10:22 verbose #7578 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:22 verbose #7579 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:22 verbose #7580 > > │ ## python │
00:10:22 verbose #7581 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:22 verbose #7582 > >
00:10:22 verbose #7583 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:22 verbose #7584 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:22 verbose #7585 > > │ ### py_sha256 │
00:10:22 verbose #7586 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:22 verbose #7587 > >
00:10:22 verbose #7588 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:22 verbose #7589 > > nominal py_sha256 = any
00:10:23 verbose #7590 > >
00:10:23 verbose #7591 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:23 verbose #7592 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:23 verbose #7593 > > │ ### hashlib_sha256 │
00:10:23 verbose #7594 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:23 verbose #7595 > >
00:10:23 verbose #7596 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:23 verbose #7597 > > inl hashlib_sha256 () : py_sha256 =
00:10:23 verbose #7598 > > open python_operators
00:10:23 verbose #7599 > > global "type IHashlibSha256 = abstract sha256: x: unit -> obj"
00:10:23 verbose #7600 > > inl hashlib : $'IHashlibSha256' = python.import_all "hashlib"
00:10:23 verbose #7601 > > !\($'"!hashlib.sha256()"')
00:10:23 verbose #7602 > >
00:10:23 verbose #7603 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:23 verbose #7604 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:23 verbose #7605 > > │ ### sha256_update │
00:10:23 verbose #7606 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:23 verbose #7607 > >
00:10:23 verbose #7608 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:23 verbose #7609 > > inl sha256_update (x : string) (sha256 : py_sha256) : py_sha256 =
00:10:23 verbose #7610 > > open python_operators
00:10:23 verbose #7611 > > !\\(x, $'"!sha256.update($0)"')
00:10:23 verbose #7612 > > sha256
00:10:24 verbose #7613 > >
00:10:24 verbose #7614 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:24 verbose #7615 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:24 verbose #7616 > > │ ### sha256_hexdigest │
00:10:24 verbose #7617 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:24 verbose #7618 > >
00:10:24 verbose #7619 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:24 verbose #7620 > > inl sha256_hexdigest (sha256 : py_sha256) : string =
00:10:24 verbose #7621 > > open python_operators
00:10:24 verbose #7622 > > !\($'"!sha256.hexdigest()"')
00:10:25 verbose #7623 > >
00:10:25 verbose #7624 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:25 verbose #7625 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:25 verbose #7626 > > │ ## crypto │
00:10:25 verbose #7627 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #7628 > >
00:10:25 verbose #7629 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:25 verbose #7630 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:25 verbose #7631 > > │ ### hash_text │
00:10:25 verbose #7632 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:25 verbose #7633 > >
00:10:25 verbose #7634 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:25 verbose #7635 > > let hash_text (~input : string) =
00:10:25 verbose #7636 > > run_target function
00:10:25 verbose #7637 > > | Fsharp (Native) => fun () =>
00:10:25 verbose #7638 > > inl sha256 = sha256 () |> use
00:10:25 verbose #7639 > > input
00:10:25 verbose #7640 > > |> sm'.utf8_get_bytes
00:10:25 verbose #7641 > > |> sha256_compute_hash sha256
00:10:25 verbose #7642 > > |> am.map (sm'.byte_to_string "x2")
00:10:25 verbose #7643 > > |> seq.of_array'
00:10:25 verbose #7644 > > |> sm'.concat (join "")
00:10:25 verbose #7645 > > | TypeScript (Native) => fun () =>
00:10:25 verbose #7646 > > create_hash "sha256"
00:10:25 verbose #7647 > > |> hash_update input
00:10:25 verbose #7648 > > |> hash_digest "hex"
00:10:25 verbose #7649 > > | Rust (Native) => fun () =>
00:10:25 verbose #7650 > > input
00:10:25 verbose #7651 > > |> sm'.utf8_get_bytes
00:10:25 verbose #7652 > > |> fun (a x) => x
00:10:25 verbose #7653 > > |> am'.to_vec
00:10:25 verbose #7654 > > |> stream.new_cursor
00:10:25 verbose #7655 > > |> hash_read
00:10:25 verbose #7656 > > |> resultm.unwrap'
00:10:25 verbose #7657 > > | Python (Native) => fun () =>
00:10:25 verbose #7658 > > hashlib_sha256 ()
00:10:25 verbose #7659 > > |> sha256_update (input |> sm'.encode_utf8)
00:10:25 verbose #7660 > > |> sha256_hexdigest
00:10:25 verbose #7661 > > | _ => fun () => null ()
00:10:26 verbose #7662 > >
00:10:26 verbose #7663 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:26 verbose #7664 > > //// test
00:10:26 verbose #7665 > > ///! fsharp
00:10:26 verbose #7666 > > ///! rust -d sha2
00:10:26 verbose #7667 > > ///! typescript
00:10:26 verbose #7668 > > ///! python
00:10:26 verbose #7669 > >
00:10:26 verbose #7670 > > types ()
00:10:26 verbose #7671 > >
00:10:26 verbose #7672 > > "\n"
00:10:26 verbose #7673 > > |> hash_text
00:10:26 verbose #7674 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:10:26 verbose #7675 > >
00:10:26 verbose #7676 > > ""
00:10:26 verbose #7677 > > |> hash_text
00:10:26 verbose #7678 > > |> _assert_eq "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
00:10:32 verbose #7679 > >
00:10:32 verbose #7680 > > ╭─[ 6.91s - return value ]─────────────────────────────────────────────────────╮
00:10:32 verbose #7681 > > │ .rs output: │
00:10:32 verbose #7682 > > │ assert_eq / actual: │
00:10:32 verbose #7683 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:10:32 verbose #7684 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:10:32 verbose #7685 > > │ assert_eq / actual: │
00:10:32 verbose #7686 > > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" / │
00:10:32 verbose #7687 > > │ expected: "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:10:32 verbose #7688 > > │ │
00:10:32 verbose #7689 > > │ .ts output: │
00:10:32 verbose #7690 > > │ assert_eq / actual: │
00:10:32 verbose #7691 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b / expected: │
00:10:32 verbose #7692 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b │
00:10:32 verbose #7693 > > │ assert_eq / actual: │
00:10:32 verbose #7694 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 / expected: │
00:10:32 verbose #7695 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 │
00:10:32 verbose #7696 > > │ │
00:10:32 verbose #7697 > > │ .py output: │
00:10:32 verbose #7698 > > │ assert_eq / actual: │
00:10:32 verbose #7699 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b / expected: │
00:10:32 verbose #7700 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b │
00:10:32 verbose #7701 > > │ assert_eq / actual: │
00:10:32 verbose #7702 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 / expected: │
00:10:32 verbose #7703 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 │
00:10:32 verbose #7704 > > │ │
00:10:32 verbose #7705 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #7706 > >
00:10:32 verbose #7707 > > ╭─[ 6.91s - stdout ]───────────────────────────────────────────────────────────╮
00:10:32 verbose #7708 > > │ .fsx output: │
00:10:32 verbose #7709 > > │ assert_eq / actual: │
00:10:32 verbose #7710 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:10:32 verbose #7711 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:10:32 verbose #7712 > > │ assert_eq / actual: │
00:10:32 verbose #7713 > > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" / │
00:10:32 verbose #7714 > > │ expected: "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:10:32 verbose #7715 > > │ │
00:10:32 verbose #7716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #7717 > >
00:10:32 verbose #7718 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:32 verbose #7719 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:32 verbose #7720 > > │ ### hash_to_port │
00:10:32 verbose #7721 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #7722 > >
00:10:32 verbose #7723 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:32 verbose #7724 > > inl hash_to_port (text : string) : u16 =
00:10:32 verbose #7725 > > inl first_letter_code = text |> sm'.index 0i32 |> i32
00:10:32 verbose #7726 > > inl hash_part = text |> sm'.slice 0i32 7
00:10:32 verbose #7727 > > inl combined_value = convert_i32_base 16 hash_part + first_letter_code |>
00:10:32 verbose #7728 > > u16
00:10:32 verbose #7729 > > trace Verbose
00:10:32 verbose #7730 > > fun () => "crypto.hash_to_port"
00:10:32 verbose #7731 > > fun () => $'$"first_letter_code: {!first_letter_code} / hash_part:
00:10:32 verbose #7732 > > {!hash_part} / combined_value: {!combined_value} / {!_locals ()}"'
00:10:32 verbose #7733 > > combined_value % 48128 + 1024
00:10:33 verbose #7734 > >
00:10:33 verbose #7735 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:33 verbose #7736 > > //// test
00:10:33 verbose #7737 > > ///! fsharp
00:10:33 verbose #7738 > > ///! rust -d sha2
00:10:33 verbose #7739 > > ///! typescript
00:10:33 verbose #7740 > > ///! python
00:10:33 verbose #7741 > >
00:10:33 verbose #7742 > > types ()
00:10:33 verbose #7743 > > "\n"
00:10:33 verbose #7744 > > |> hash_text
00:10:33 verbose #7745 > > |> hash_to_port
00:10:33 verbose #7746 > > |> _assert_eq 19273
00:10:42 verbose #7747 > >
00:10:42 verbose #7748 > > ╭─[ 8.53s - return value ]─────────────────────────────────────────────────────╮
00:10:42 verbose #7749 > > │ .rs output: │
00:10:42 verbose #7750 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / │
00:10:42 verbose #7751 > > │ hash_part: 01ba4719 / combined_value: 18249 │
00:10:42 verbose #7752 > > │ assert_eq / actual: 19273 / expected: 19273 │
00:10:42 verbose #7753 > > │ │
00:10:42 verbose #7754 > > │ .ts output: │
00:10:42 verbose #7755 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / hash_part: │
00:10:42 verbose #7756 > > │ 01ba4719 / combined_value: 18249 │
00:10:42 verbose #7757 > > │ assert_eq / actual: 19273 / expected: 19273 │
00:10:42 verbose #7758 > > │ │
00:10:42 verbose #7759 > > │ .py output: │
00:10:42 verbose #7760 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / hash_part: │
00:10:42 verbose #7761 > > │ 01ba4719 / combined_value: 18249 │
00:10:42 verbose #7762 > > │ assert_eq / actual: 19273 / expected: 19273 │
00:10:42 verbose #7763 > > │ │
00:10:42 verbose #7764 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:42 verbose #7765 > >
00:10:42 verbose #7766 > > ╭─[ 8.53s - stdout ]───────────────────────────────────────────────────────────╮
00:10:42 verbose #7767 > > │ .fsx output: │
00:10:42 verbose #7768 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / hash_part: │
00:10:42 verbose #7769 > > │ 01ba4719 / combined_value: 18249 │
00:10:42 verbose #7770 > > │ assert_eq / actual: 19273us / expected: 19273us │
00:10:42 verbose #7771 > > │ │
00:10:42 verbose #7772 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:42 verbose #7773 > >
00:10:42 verbose #7774 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:42 verbose #7775 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:42 verbose #7776 > > │ ## main │
00:10:42 verbose #7777 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:42 verbose #7778 > >
00:10:42 verbose #7779 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:42 verbose #7780 > > inl main () =
00:10:42 verbose #7781 > > types ()
00:10:42 verbose #7782 > > $'let hash_text x = !hash_text x' : ()
00:10:42 verbose #7783 > > $'let hash_to_port x = !hash_to_port x' : ()
00:10:44 verbose #7784 > 00:01:10 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 28606
00:10:44 verbose #7785 > 00:01:10 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:10:48 verbose #7786 > 00:01:14 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb to html
00:10:48 verbose #7787 > 00:01:14 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:10:48 verbose #7788 > 00:01:14 verbose #7 ! validate(nb)
00:10:50 verbose #7789 > 00:01:17 verbose #8 ! [NbConvertApp] Writing 339500 bytes to c:\home\git\polyglot\lib\spiral\crypto.dib.html
00:10:51 verbose #7790 > 00:01:17 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:10:51 verbose #7791 > 00:01:17 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:10:51 verbose #7792 > 00:01:17 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/crypto.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/crypto.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:10:52 verbose #7793 > 00:01:19 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:10:52 verbose #7794 > 00:01:19 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:10:53 verbose #7795 > 00:01:20 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 29308
00:10:53 debug #7796 runtime.execute_with_options_async / exit_code: 0 / output.Length: 32737
00:10:53 debug #9 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path crypto.dib --retries 3
00:10:53 debug #7797 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path common.dib --retries 3",
[||], None, None, true, None)
00:10:53 verbose #7798 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "common.dib", "--retries", "3"])
00:10:53 verbose #7799 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/common.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/common.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/common.dib" --output-path "c:/home/git/polyglot/lib/spiral/common.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:10:57 verbose #7800 > >
00:10:57 verbose #7801 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:57 verbose #7802 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:57 verbose #7803 > > │ # common │
00:10:57 verbose #7804 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:57 verbose #7805 > >
00:10:57 verbose #7806 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:57 verbose #7807 > > //// test
00:10:57 verbose #7808 > >
00:10:57 verbose #7809 > > open testing
00:10:57 verbose #7810 > >
00:10:57 verbose #7811 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:10:57 verbose #7812 > > #r
00:10:57 verbose #7813 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:57 verbose #7814 > > otNet.Interactive.Spiral.dll"
00:10:57 verbose #7815 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:10:57 verbose #7816 > > #r
00:10:57 verbose #7817 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:57 verbose #7818 > > otNet.Interactive.dll"
00:10:57 verbose #7819 > > open type Microsoft.DotNet.Interactive.Kernel
00:11:04 verbose #7820 > >
00:11:04 verbose #7821 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:04 verbose #7822 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:04 verbose #7823 > > │ ## types │
00:11:04 verbose #7824 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:04 verbose #7825 > >
00:11:04 verbose #7826 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:04 verbose #7827 > > inl types () =
00:11:04 verbose #7828 > > env.types ()
00:11:04 verbose #7829 > > rust.types ()
00:11:04 verbose #7830 > > sm'.types ()
00:11:05 verbose #7831 > >
00:11:05 verbose #7832 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:05 verbose #7833 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:05 verbose #7834 > > │ ## common │
00:11:05 verbose #7835 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:05 verbose #7836 > >
00:11:05 verbose #7837 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:05 verbose #7838 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:05 verbose #7839 > > │ ### (:>) │
00:11:05 verbose #7840 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:05 verbose #7841 > >
00:11:05 verbose #7842 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:05 verbose #7843 > > prototype (~:>) r : forall t. t -> r
00:11:06 verbose #7844 > >
00:11:06 verbose #7845 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:06 verbose #7846 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:06 verbose #7847 > > │ ### to_any │
00:11:06 verbose #7848 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:06 verbose #7849 > >
00:11:06 verbose #7850 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:06 verbose #7851 > > inl to_any forall t. (obj : t) : any =
00:11:06 verbose #7852 > > $'!obj '
00:11:06 verbose #7853 > >
00:11:06 verbose #7854 > > instance (~:>) any = to_any
00:11:07 verbose #7855 > >
00:11:07 verbose #7856 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:07 verbose #7857 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:07 verbose #7858 > > │ ### (||>) │
00:11:07 verbose #7859 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:07 verbose #7860 > >
00:11:07 verbose #7861 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:07 verbose #7862 > > //// test
00:11:07 verbose #7863 > >
00:11:07 verbose #7864 > > (3i32, 2i32)
00:11:07 verbose #7865 > > ||> fun a b => a - b
00:11:07 verbose #7866 > > |> _assert_eq 1
00:11:08 verbose #7867 > >
00:11:08 verbose #7868 > > ╭─[ 1.76s - stdout ]───────────────────────────────────────────────────────────╮
00:11:08 verbose #7869 > > │ assert_eq / actual: 1 / expected: 1 │
00:11:08 verbose #7870 > > │ │
00:11:08 verbose #7871 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:08 verbose #7872 > >
00:11:08 verbose #7873 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:08 verbose #7874 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:08 verbose #7875 > > │ ### flip │
00:11:08 verbose #7876 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:08 verbose #7877 > >
00:11:08 verbose #7878 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:08 verbose #7879 > > inl flip fn a b =
00:11:08 verbose #7880 > > fn b a
00:11:09 verbose #7881 > >
00:11:09 verbose #7882 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:09 verbose #7883 > > //// test
00:11:09 verbose #7884 > >
00:11:09 verbose #7885 > > (1i32, 2i32)
00:11:09 verbose #7886 > > ||> flip pair
00:11:09 verbose #7887 > > |> _assert_eq (2, 1)
00:11:10 verbose #7888 > >
00:11:10 verbose #7889 > > ╭─[ 670.63ms - stdout ]────────────────────────────────────────────────────────╮
00:11:10 verbose #7890 > > │ assert_eq / actual: struct (2, 1) / expected: struct (2, 1) │
00:11:10 verbose #7891 > > │ │
00:11:10 verbose #7892 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:10 verbose #7893 > >
00:11:10 verbose #7894 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:10 verbose #7895 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:10 verbose #7896 > > │ ### join_body │
00:11:10 verbose #7897 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:10 verbose #7898 > >
00:11:10 verbose #7899 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:10 verbose #7900 > > inl join_body body acc x =
00:11:10 verbose #7901 > > if var_is x |> not
00:11:10 verbose #7902 > > then body acc x
00:11:10 verbose #7903 > > else
00:11:10 verbose #7904 > > inl acc = dyn acc
00:11:10 verbose #7905 > > join body acc x
00:11:10 verbose #7906 > >
00:11:10 verbose #7907 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:10 verbose #7908 > > //// test
00:11:10 verbose #7909 > >
00:11:10 verbose #7910 > > inl rec fold_list f s = function
00:11:10 verbose #7911 > > | Cons (x, x') => fold_list f (f s x) x'
00:11:10 verbose #7912 > > | Nil => s
00:11:11 verbose #7913 > >
00:11:11 verbose #7914 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:11 verbose #7915 > > //// test
00:11:11 verbose #7916 > >
00:11:11 verbose #7917 > > [[ 5i32; 4; join 3; 2; 1 ]]
00:11:11 verbose #7918 > > |> fold_list (+) 0
00:11:11 verbose #7919 > > |> _assert_eq 15
00:11:12 verbose #7920 > >
00:11:12 verbose #7921 > > ╭─[ 740.43ms - stdout ]────────────────────────────────────────────────────────╮
00:11:12 verbose #7922 > > │ assert_eq / actual: 15 / expected: 15 │
00:11:12 verbose #7923 > > │ │
00:11:12 verbose #7924 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:12 verbose #7925 > >
00:11:12 verbose #7926 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:12 verbose #7927 > > //// test
00:11:12 verbose #7928 > >
00:11:12 verbose #7929 > > [[ 5i32; 4; join 3; 2; 1 ]]
00:11:12 verbose #7930 > > |> fold_list (join_body (+)) 0
00:11:12 verbose #7931 > > |> _assert_eq 15
00:11:13 verbose #7932 > >
00:11:13 verbose #7933 > > ╭─[ 670.20ms - stdout ]────────────────────────────────────────────────────────╮
00:11:13 verbose #7934 > > │ assert_eq / actual: 15 / expected: 15 │
00:11:13 verbose #7935 > > │ │
00:11:13 verbose #7936 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:13 verbose #7937 > >
00:11:13 verbose #7938 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:13 verbose #7939 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:13 verbose #7940 > > │ ### join_body_unit │
00:11:13 verbose #7941 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:13 verbose #7942 > >
00:11:13 verbose #7943 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:13 verbose #7944 > > inl join_body_unit body d x =
00:11:13 verbose #7945 > > if var_is d |> not
00:11:13 verbose #7946 > > then body x
00:11:13 verbose #7947 > > else
00:11:13 verbose #7948 > > inl x = dyn x
00:11:13 verbose #7949 > > join body x
00:11:13 verbose #7950 > >
00:11:13 verbose #7951 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:13 verbose #7952 > > //// test
00:11:13 verbose #7953 > >
00:11:13 verbose #7954 > > [[ 5i32; 4; join 3; 2; 1 ]]
00:11:13 verbose #7955 > > |> fold_list (fun acc n => join_body_unit ((+) acc) n n) 0
00:11:13 verbose #7956 > > |> _assert_eq 15
00:11:14 verbose #7957 > >
00:11:14 verbose #7958 > > ╭─[ 826.29ms - stdout ]────────────────────────────────────────────────────────╮
00:11:14 verbose #7959 > > │ assert_eq / actual: 15 / expected: 15 │
00:11:14 verbose #7960 > > │ │
00:11:14 verbose #7961 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:14 verbose #7962 > >
00:11:14 verbose #7963 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:14 verbose #7964 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:14 verbose #7965 > > │ ### retry_fn' │
00:11:14 verbose #7966 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:14 verbose #7967 > >
00:11:14 verbose #7968 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:14 verbose #7969 > > inl retry_fn' retries fn =
00:11:14 verbose #7970 > > let rec loop retry =
00:11:14 verbose #7971 > > inl is_error, result =
00:11:14 verbose #7972 > > match fn () with
00:11:14 verbose #7973 > > | Ok x => false, x
00:11:14 verbose #7974 > > | Error x => true, x
00:11:14 verbose #7975 > > if not is_error || retry >= retries
00:11:14 verbose #7976 > > then result
00:11:14 verbose #7977 > > else
00:11:14 verbose #7978 > > trace Debug
00:11:14 verbose #7979 > > fun () => $'"common.retry_fn\' / loop"'
00:11:14 verbose #7980 > > fun () => $'$"is_error: {!is_error} / retry: {!retry}/{!retries}
00:11:14 verbose #7981 > > / result: %A{!result} / {!_locals ()}"'
00:11:14 verbose #7982 > > loop (retry + 1)
00:11:14 verbose #7983 > > loop 1
00:11:15 verbose #7984 > >
00:11:15 verbose #7985 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:15 verbose #7986 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:15 verbose #7987 > > │ ## fsharp │
00:11:15 verbose #7988 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:15 verbose #7989 > >
00:11:15 verbose #7990 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:15 verbose #7991 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:15 verbose #7992 > > │ ### nameof │
00:11:15 verbose #7993 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:15 verbose #7994 > >
00:11:15 verbose #7995 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:15 verbose #7996 > > inl nameof x : string =
00:11:15 verbose #7997 > > $'nameof !x '
00:11:15 verbose #7998 > >
00:11:15 verbose #7999 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:15 verbose #8000 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:15 verbose #8001 > > │ ### upcast │
00:11:15 verbose #8002 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:15 verbose #8003 > >
00:11:15 verbose #8004 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:15 verbose #8005 > > inl upcast forall t u. (x : t) : u =
00:11:15 verbose #8006 > > $'!x :> `u '
00:11:16 verbose #8007 > >
00:11:16 verbose #8008 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #8009 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #8010 > > │ ### downcast │
00:11:16 verbose #8011 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #8012 > >
00:11:16 verbose #8013 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #8014 > > inl downcast forall t u. (x : t) : u =
00:11:16 verbose #8015 > > $'!x :?> `u '
00:11:17 verbose #8016 > >
00:11:17 verbose #8017 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:17 verbose #8018 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:17 verbose #8019 > > │ ### random │
00:11:17 verbose #8020 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:17 verbose #8021 > >
00:11:17 verbose #8022 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:17 verbose #8023 > > nominal random = $'System.Random'
00:11:17 verbose #8024 > >
00:11:17 verbose #8025 > > inl random () : random =
00:11:17 verbose #8026 > > $'`random ' ()
00:11:18 verbose #8027 > >
00:11:18 verbose #8028 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #8029 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #8030 > > │ ### random_next │
00:11:18 verbose #8031 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #8032 > >
00:11:18 verbose #8033 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #8034 > > inl random_next (min : i32) (max : i32) (random : random) : i32 =
00:11:18 verbose #8035 > > $'!random.Next (!min, !max)'
00:11:18 verbose #8036 > >
00:11:18 verbose #8037 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #8038 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #8039 > > │ ### disposable │
00:11:18 verbose #8040 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #8041 > >
00:11:18 verbose #8042 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #8043 > > nominal disposable t = $'System.IDisposable'
00:11:19 verbose #8044 > >
00:11:19 verbose #8045 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:19 verbose #8046 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:19 verbose #8047 > > │ ### dispose │
00:11:19 verbose #8048 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:19 verbose #8049 > >
00:11:19 verbose #8050 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:19 verbose #8051 > > inl dispose (disposable : disposable _) : () =
00:11:19 verbose #8052 > > disposable |> $'_.Dispose()'
00:11:20 verbose #8053 > >
00:11:20 verbose #8054 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:20 verbose #8055 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:20 verbose #8056 > > │ ### return │
00:11:20 verbose #8057 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:20 verbose #8058 > >
00:11:20 verbose #8059 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:20 verbose #8060 > > inl return forall t. (x : t) : () =
00:11:20 verbose #8061 > > $'return !x '
00:11:20 verbose #8062 > >
00:11:20 verbose #8063 > > inl return' forall t. (x : t) : t =
00:11:20 verbose #8064 > > $'return !x '
00:11:21 verbose #8065 > >
00:11:21 verbose #8066 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:21 verbose #8067 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:21 verbose #8068 > > │ ### retry_fn │
00:11:21 verbose #8069 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:21 verbose #8070 > >
00:11:21 verbose #8071 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:21 verbose #8072 > > inl retry_fn forall t. retries (fn : () -> t) : option t =
00:11:21 verbose #8073 > > let rec loop retry =
00:11:21 verbose #8074 > > try
00:11:21 verbose #8075 > > fun () =>
00:11:21 verbose #8076 > > if retry < retries
00:11:21 verbose #8077 > > then fn () |> Some
00:11:21 verbose #8078 > > else None
00:11:21 verbose #8079 > > fun ex =>
00:11:21 verbose #8080 > > trace Warning
00:11:21 verbose #8081 > > fun () => "common.retry_fn"
00:11:21 verbose #8082 > > fun () => $'$"retry: {!retry} / ex: %A{!ex} / {!_locals
00:11:21 verbose #8083 > > ()}"'
00:11:21 verbose #8084 > > None
00:11:21 verbose #8085 > > |> function
00:11:21 verbose #8086 > > | Some x => x
00:11:21 verbose #8087 > > | None => loop (retry + 1)
00:11:21 verbose #8088 > > loop 0
00:11:21 verbose #8089 > >
00:11:21 verbose #8090 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:21 verbose #8091 > > //// test
00:11:21 verbose #8092 > >
00:11:21 verbose #8093 > > inl retry_fn_test = mut 0i32
00:11:21 verbose #8094 > > fun () =>
00:11:21 verbose #8095 > > retry_fn_test <- *retry_fn_test + 1
00:11:21 verbose #8096 > > *retry_fn_test
00:11:21 verbose #8097 > > |> retry_fn 3i32
00:11:21 verbose #8098 > > |> _assert_eq (Some 1i32)
00:11:23 verbose #8099 > >
00:11:23 verbose #8100 > > ╭─[ 1.95s - stdout ]───────────────────────────────────────────────────────────╮
00:11:23 verbose #8101 > > │ assert_eq / actual: US0_0 1 / expected: US0_0 1 │
00:11:23 verbose #8102 > > │ │
00:11:23 verbose #8103 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:23 verbose #8104 > >
00:11:23 verbose #8105 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:23 verbose #8106 > > //// test
00:11:23 verbose #8107 > > ///! rust
00:11:23 verbose #8108 > >
00:11:23 verbose #8109 > > types ()
00:11:23 verbose #8110 > > inl retry_fn_test = mut 0i32
00:11:23 verbose #8111 > > fun () =>
00:11:23 verbose #8112 > > retry_fn_test <- *retry_fn_test + 1
00:11:23 verbose #8113 > > *retry_fn_test
00:11:23 verbose #8114 > > |> retry_fn 3i32
00:11:23 verbose #8115 > > |> _assert_eq' (Some 1i32)
00:11:29 verbose #8116 > >
00:11:29 verbose #8117 > > ╭─[ 5.58s - return value ]─────────────────────────────────────────────────────╮
00:11:29 verbose #8118 > > │ assert_eq' / actual: US0_0(1) / expected: US0_0(1) │
00:11:29 verbose #8119 > > │ │
00:11:29 verbose #8120 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:29 verbose #8121 > >
00:11:29 verbose #8122 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:29 verbose #8123 > > //// test
00:11:29 verbose #8124 > >
00:11:29 verbose #8125 > > inl retry_fn_test = mut 0i32
00:11:29 verbose #8126 > > fun () =>
00:11:29 verbose #8127 > > if *retry_fn_test >= 2
00:11:29 verbose #8128 > > then *retry_fn_test
00:11:29 verbose #8129 > > else
00:11:29 verbose #8130 > > retry_fn_test <- *retry_fn_test + 1
00:11:29 verbose #8131 > > failwith "test"
00:11:29 verbose #8132 > > |> retry_fn 3i32
00:11:29 verbose #8133 > > |> _assert_eq (Some 2i32)
00:11:30 verbose #8134 > >
00:11:30 verbose #8135 > > ╭─[ 1.05s - stdout ]───────────────────────────────────────────────────────────╮
00:11:30 verbose #8136 > > │ 00:00:00 warning #1 common.retry_fn / retry: 0 / ex: System.Exception: test │
00:11:30 verbose #8137 > > │ at FSI_0028.closure0(Mut0 v0, Int32 v1, Unit unitVar2) │
00:11:30 verbose #8138 > > │ at FSI_0028.method1(Mut0 v0, Int32 v1) │
00:11:30 verbose #8139 > > │ 00:00:00 warning #2 common.retry_fn / retry: 1 / ex: System.Exception: test │
00:11:30 verbose #8140 > > │ at FSI_0028.closure0(Mut0 v0, Int32 v1, Unit unitVar2) │
00:11:30 verbose #8141 > > │ at FSI_0028.method1(Mut0 v0, Int32 v1) │
00:11:30 verbose #8142 > > │ assert_eq / actual: US0_0 2 / expected: US0_0 2 │
00:11:30 verbose #8143 > > │ │
00:11:30 verbose #8144 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:30 verbose #8145 > >
00:11:30 verbose #8146 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:30 verbose #8147 > > //// test
00:11:30 verbose #8148 > > ///! rust
00:11:30 verbose #8149 > >
00:11:30 verbose #8150 > > types ()
00:11:30 verbose #8151 > > inl retry_fn_test = mut 0i32
00:11:30 verbose #8152 > > fun () =>
00:11:30 verbose #8153 > > if *retry_fn_test >= 2
00:11:30 verbose #8154 > > then *retry_fn_test
00:11:30 verbose #8155 > > else
00:11:30 verbose #8156 > > retry_fn_test <- *retry_fn_test + 1
00:11:30 verbose #8157 > > failwith "test"
00:11:30 verbose #8158 > > |> retry_fn 3i32
00:11:30 verbose #8159 > > |> _assert_eq' (Some 2i32)
00:11:35 verbose #8160 > >
00:11:35 verbose #8161 > > ╭─[ 4.97s - return value ]─────────────────────────────────────────────────────╮
00:11:35 verbose #8162 > > │ 00:00:00 warning #1 common.retry_fn / retry: 0 / ex: Exception { │
00:11:35 verbose #8163 > > │ message: "test" } │
00:11:35 verbose #8164 > > │ 00:00:00 warning #2 common.retry_fn / retry: 1 / ex: Exception { │
00:11:35 verbose #8165 > > │ message: "test" } │
00:11:35 verbose #8166 > > │ assert_eq' / actual: US0_0(2) / expected: US0_0(2) │
00:11:35 verbose #8167 > > │ │
00:11:35 verbose #8168 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:35 verbose #8169 > >
00:11:35 verbose #8170 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:35 verbose #8171 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:35 verbose #8172 > > │ ## common │
00:11:35 verbose #8173 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:35 verbose #8174 > >
00:11:35 verbose #8175 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:35 verbose #8176 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:35 verbose #8177 > > │ ### random' │
00:11:35 verbose #8178 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:35 verbose #8179 > >
00:11:35 verbose #8180 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:35 verbose #8181 > > inl random' forall t. (min : t) (max : t) : t =
00:11:35 verbose #8182 > > run_target function
00:11:35 verbose #8183 > > | Rust (Contract) => fun () =>
00:11:35 verbose #8184 > > failwith "common.random' / target=Rust(Contract)"
00:11:35 verbose #8185 > > | Rust _ => fun () =>
00:11:35 verbose #8186 > > open rust_operators
00:11:35 verbose #8187 > > !\\((min, max), $'"rand::Rng::gen_range(&mut rand::thread_rng(),
00:11:35 verbose #8188 > > $0..$1)"')
00:11:35 verbose #8189 > > | _ => fun () =>
00:11:35 verbose #8190 > > random () |> random_next (i32 min) (i32 max) |> convert
00:11:35 verbose #8191 > >
00:11:35 verbose #8192 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:35 verbose #8193 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:35 verbose #8194 > > │ ### new_disposable │
00:11:35 verbose #8195 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:35 verbose #8196 > >
00:11:35 verbose #8197 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:35 verbose #8198 > > inl new_disposable (fn : () -> ()) : disposable _ =
00:11:35 verbose #8199 > > run_target function
00:11:35 verbose #8200 > > | Rust _ => fun () =>
00:11:35 verbose #8201 > > global "type Disposable (f : unit -> unit) = interface
00:11:35 verbose #8202 > > System.IDisposable with member _.Dispose () = f ()"
00:11:35 verbose #8203 > > inl fn = join fn
00:11:35 verbose #8204 > > $'new Disposable (fun () -> Fable.Core.RustInterop.emitRustExpr !fn
00:11:35 verbose #8205 > > "$0()" )'
00:11:35 verbose #8206 > > | Fsharp _ => fun () =>
00:11:35 verbose #8207 > > inl fn = join fn
00:11:35 verbose #8208 > > $'{ new System.IDisposable with member _.Dispose () = !fn () }'
00:11:35 verbose #8209 > > | _ => fun () => null ()
00:11:36 verbose #8210 > >
00:11:36 verbose #8211 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:36 verbose #8212 > > //// test
00:11:36 verbose #8213 > >
00:11:36 verbose #8214 > > inl new_disposable_test = mut 0i32
00:11:36 verbose #8215 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:11:36 verbose #8216 > > |> fun x => x : disposable ()
00:11:36 verbose #8217 > > |> dispose
00:11:36 verbose #8218 > > *new_disposable_test |> _assert_eq 1
00:11:37 verbose #8219 > >
00:11:37 verbose #8220 > > ╭─[ 782.04ms - stdout ]────────────────────────────────────────────────────────╮
00:11:37 verbose #8221 > > │ assert_eq / actual: 1 / expected: 1 │
00:11:37 verbose #8222 > > │ │
00:11:37 verbose #8223 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:37 verbose #8224 > >
00:11:37 verbose #8225 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:37 verbose #8226 > > //// test
00:11:37 verbose #8227 > > ///! rust
00:11:37 verbose #8228 > >
00:11:37 verbose #8229 > > inl new_disposable_test = mut 0i32
00:11:37 verbose #8230 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:11:37 verbose #8231 > > |> fun x => x : disposable ()
00:11:37 verbose #8232 > > |> dispose
00:11:37 verbose #8233 > > *new_disposable_test |> _assert_eq 1
00:11:41 verbose #8234 > >
00:11:41 verbose #8235 > > ╭─[ 3.81s - return value ]─────────────────────────────────────────────────────╮
00:11:41 verbose #8236 > > │ assert_eq / actual: 1 / expected: 1 │
00:11:41 verbose #8237 > > │ │
00:11:41 verbose #8238 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:41 verbose #8239 > >
00:11:41 verbose #8240 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:41 verbose #8241 > > //// test
00:11:41 verbose #8242 > >
00:11:41 verbose #8243 > > inl new_disposable_test = mut 0i32
00:11:41 verbose #8244 > > fun () =>
00:11:41 verbose #8245 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:11:41 verbose #8246 > > |> fun x => x : disposable ()
00:11:41 verbose #8247 > > |> use
00:11:41 verbose #8248 > > |> ignore
00:11:41 verbose #8249 > > |> return
00:11:41 verbose #8250 > > |> async.new_task
00:11:41 verbose #8251 > > |> async.await_task
00:11:41 verbose #8252 > > |> async.run_synchronously
00:11:41 verbose #8253 > > *new_disposable_test |> _assert_eq 1
00:11:42 verbose #8254 > >
00:11:42 verbose #8255 > > ╭─[ 905.06ms - stdout ]────────────────────────────────────────────────────────╮
00:11:42 verbose #8256 > > │ assert_eq / actual: 1 / expected: 1 │
00:11:42 verbose #8257 > > │ │
00:11:42 verbose #8258 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:42 verbose #8259 > >
00:11:42 verbose #8260 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:42 verbose #8261 > > //// test
00:11:42 verbose #8262 > >
00:11:42 verbose #8263 > > inl new_disposable_test = mut 0i32
00:11:42 verbose #8264 > > fun () =>
00:11:42 verbose #8265 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:11:42 verbose #8266 > > |> fun x => x : disposable ()
00:11:42 verbose #8267 > > |> use
00:11:42 verbose #8268 > > |> ignore
00:11:42 verbose #8269 > > |> return
00:11:42 verbose #8270 > > |> async.new_async
00:11:42 verbose #8271 > > |> async.run_synchronously
00:11:42 verbose #8272 > > *new_disposable_test |> _assert_eq 1
00:11:42 verbose #8273 > >
00:11:42 verbose #8274 > > ╭─[ 745.00ms - stdout ]────────────────────────────────────────────────────────╮
00:11:42 verbose #8275 > > │ assert_eq / actual: 1 / expected: 1 │
00:11:42 verbose #8276 > > │ │
00:11:42 verbose #8277 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:42 verbose #8278 > >
00:11:42 verbose #8279 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:42 verbose #8280 > > //// test
00:11:42 verbose #8281 > >
00:11:42 verbose #8282 > > inl new_disposable_test = mut 0i32
00:11:42 verbose #8283 > > fun () =>
00:11:42 verbose #8284 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:11:42 verbose #8285 > > |> fun x => x : disposable ()
00:11:42 verbose #8286 > > |> ignore
00:11:42 verbose #8287 > > |> return
00:11:42 verbose #8288 > > |> async.new_async
00:11:42 verbose #8289 > > |> async.run_synchronously
00:11:42 verbose #8290 > > *new_disposable_test |> _assert_eq 0
00:11:43 verbose #8291 > >
00:11:43 verbose #8292 > > ╭─[ 729.23ms - stdout ]────────────────────────────────────────────────────────╮
00:11:43 verbose #8293 > > │ assert_eq / actual: 0 / expected: 0 │
00:11:43 verbose #8294 > > │ │
00:11:43 verbose #8295 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:43 verbose #8296 > >
00:11:43 verbose #8297 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:43 verbose #8298 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:43 verbose #8299 > > │ ## main │
00:11:43 verbose #8300 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:43 verbose #8301 > >
00:11:43 verbose #8302 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:43 verbose #8303 > > inl main () =
00:11:43 verbose #8304 > > types ()
00:11:43 verbose #8305 > > init_trace_state None
00:11:43 verbose #8306 > > inl new_disposable x : _ () = new_disposable x
00:11:43 verbose #8307 > > $'let new_disposable x = !new_disposable x' : ()
00:11:43 verbose #8308 > >
00:11:43 verbose #8309 > > inl retry_fn (r : i32) (x : () -> _) : optionm'.option' () = retry_fn r x |>
00:11:43 verbose #8310 > > optionm'.box
00:11:43 verbose #8311 > > $'let retry_fn x = !retry_fn x' : ()
00:11:43 verbose #8312 > > inl memoize (fn : () -> ()) : () -> () = memoize fn
00:11:43 verbose #8313 > > $'let memoize x = !memoize x' : ()
00:11:44 verbose #8314 > 00:00:51 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 22396
00:11:44 verbose #8315 > 00:00:51 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/common.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/common.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:11:47 verbose #8316 > 00:00:53 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/common.dib.ipynb to html
00:11:47 verbose #8317 > 00:00:53 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:11:47 verbose #8318 > 00:00:53 verbose #7 ! validate(nb)
00:11:49 verbose #8319 > 00:00:55 verbose #8 ! [NbConvertApp] Writing 337546 bytes to c:\home\git\polyglot\lib\spiral\common.dib.html
00:11:49 verbose #8320 > 00:00:55 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:11:49 verbose #8321 > 00:00:55 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:11:49 verbose #8322 > 00:00:55 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/common.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/common.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:11:50 verbose #8323 > 00:00:56 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:11:50 verbose #8324 > 00:00:56 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:11:50 verbose #8325 > 00:00:57 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 23098
00:11:50 debug #8326 runtime.execute_with_options_async / exit_code: 0 / output.Length: 26383
00:11:50 debug #10 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path common.dib --retries 3
00:11:50 debug #8327 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path resultm.dib --retries 3",
[||], None, None, true, None)
00:11:50 verbose #8328 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "resultm.dib", "--retries", "3"])
00:11:50 verbose #8329 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/resultm.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/resultm.dib" --output-path "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:11:53 verbose #8330 > >
00:11:53 verbose #8331 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:53 verbose #8332 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:53 verbose #8333 > > │ # resultm │
00:11:53 verbose #8334 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:53 verbose #8335 > >
00:11:53 verbose #8336 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:53 verbose #8337 > > open rust_operators
00:11:53 verbose #8338 > >
00:11:53 verbose #8339 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:11:53 verbose #8340 > > #r
00:11:53 verbose #8341 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:53 verbose #8342 > > otNet.Interactive.Spiral.dll"
00:11:53 verbose #8343 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:11:53 verbose #8344 > > #r
00:11:53 verbose #8345 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:53 verbose #8346 > > otNet.Interactive.dll"
00:11:53 verbose #8347 > > open type Microsoft.DotNet.Interactive.Kernel
00:12:00 verbose #8348 > >
00:12:00 verbose #8349 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:00 verbose #8350 > > //// test
00:12:00 verbose #8351 > >
00:12:00 verbose #8352 > > open testing
00:12:00 verbose #8353 > >
00:12:00 verbose #8354 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:00 verbose #8355 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:00 verbose #8356 > > │ ## resultm │
00:12:00 verbose #8357 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:00 verbose #8358 > >
00:12:00 verbose #8359 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:00 verbose #8360 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:00 verbose #8361 > > │ ### from_option_error │
00:12:00 verbose #8362 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:00 verbose #8363 > >
00:12:00 verbose #8364 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:00 verbose #8365 > > inl from_option_error error opt =
00:12:00 verbose #8366 > > match opt with
00:12:00 verbose #8367 > > | Some x => Ok x
00:12:00 verbose #8368 > > | None => Error error
00:12:01 verbose #8369 > >
00:12:01 verbose #8370 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:01 verbose #8371 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:01 verbose #8372 > > │ ### from_option │
00:12:01 verbose #8373 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:01 verbose #8374 > >
00:12:01 verbose #8375 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:01 verbose #8376 > > inl from_option opt =
00:12:01 verbose #8377 > > opt |> from_option_error "resultm.from_option / Option does not have a
00:12:01 verbose #8378 > > value."
00:12:02 verbose #8379 > >
00:12:02 verbose #8380 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:02 verbose #8381 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:02 verbose #8382 > > │ ### flatten_option │
00:12:02 verbose #8383 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:02 verbose #8384 > >
00:12:02 verbose #8385 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:02 verbose #8386 > > inl flatten_option forall t u. (x : option (result (option t) u)) : result
00:12:02 verbose #8387 > > (option t) u =
00:12:02 verbose #8388 > > match x with
00:12:02 verbose #8389 > > | Some (Error x) => Error x
00:12:02 verbose #8390 > > | Some (Ok (Some x)) => Ok (Some x)
00:12:02 verbose #8391 > > | _ => Ok None
00:12:03 verbose #8392 > >
00:12:03 verbose #8393 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:03 verbose #8394 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:03 verbose #8395 > > │ ### flatten │
00:12:03 verbose #8396 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:03 verbose #8397 > >
00:12:03 verbose #8398 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:03 verbose #8399 > > inl flatten forall t u. (x : result (result t u) u) : result t u =
00:12:03 verbose #8400 > > match x with
00:12:03 verbose #8401 > > | Ok x => x
00:12:03 verbose #8402 > > | Error x => Error x
00:12:03 verbose #8403 > >
00:12:03 verbose #8404 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:03 verbose #8405 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:03 verbose #8406 > > │ ### get │
00:12:03 verbose #8407 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:03 verbose #8408 > >
00:12:03 verbose #8409 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:03 verbose #8410 > > inl get forall t e. (source : result t e) : t =
00:12:03 verbose #8411 > > match source with
00:12:03 verbose #8412 > > | Ok x => x
00:12:03 verbose #8413 > > | Error x => failwith $'$"resultm.get / Result value was Error: {!x}"'
00:12:04 verbose #8414 > >
00:12:04 verbose #8415 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:04 verbose #8416 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:04 verbose #8417 > > │ ### map │
00:12:04 verbose #8418 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:04 verbose #8419 > >
00:12:04 verbose #8420 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:04 verbose #8421 > > inl map forall t e u. (fn : t -> u) (source : result t e) : result u e =
00:12:04 verbose #8422 > > match source with
00:12:04 verbose #8423 > > | Ok x => x |> fn |> Ok
00:12:04 verbose #8424 > > | Error x => Error x
00:12:05 verbose #8425 > >
00:12:05 verbose #8426 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:05 verbose #8427 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:05 verbose #8428 > > │ ### map_error │
00:12:05 verbose #8429 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:05 verbose #8430 > >
00:12:05 verbose #8431 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:05 verbose #8432 > > inl map_error forall t e u. (fn : e -> u) (source : result t e) : result t u =
00:12:05 verbose #8433 > > match source with
00:12:05 verbose #8434 > > | Ok x => Ok x
00:12:05 verbose #8435 > > | Error x => x |> fn |> Error
00:12:06 verbose #8436 > >
00:12:06 verbose #8437 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:06 verbose #8438 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:06 verbose #8439 > > │ ### unwrap_err │
00:12:06 verbose #8440 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:06 verbose #8441 > >
00:12:06 verbose #8442 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:06 verbose #8443 > > inl unwrap_err forall t u. (x : result t u) : u =
00:12:06 verbose #8444 > > match x with
00:12:06 verbose #8445 > > | Ok x => failwith $'$"resultm.unwrap_err / x: {!x}"'
00:12:06 verbose #8446 > > | Error x => x
00:12:06 verbose #8447 > >
00:12:06 verbose #8448 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:06 verbose #8449 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:06 verbose #8450 > > │ ### ok │
00:12:06 verbose #8451 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:06 verbose #8452 > >
00:12:06 verbose #8453 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:06 verbose #8454 > > inl ok forall t. (x : result t _) : option t =
00:12:06 verbose #8455 > > match x with
00:12:06 verbose #8456 > > | Ok x => Some x
00:12:06 verbose #8457 > > | Error _ => None
00:12:07 verbose #8458 > >
00:12:07 verbose #8459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:07 verbose #8460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:07 verbose #8461 > > │ ## fsharp │
00:12:07 verbose #8462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:07 verbose #8463 > >
00:12:07 verbose #8464 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:07 verbose #8465 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:07 verbose #8466 > > │ ### result' │
00:12:07 verbose #8467 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:07 verbose #8468 > >
00:12:07 verbose #8469 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:07 verbose #8470 > > nominal result' t u = $'Result<`t, `u>'
00:12:08 verbose #8471 > >
00:12:08 verbose #8472 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:08 verbose #8473 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:08 verbose #8474 > > │ ### unbox │
00:12:08 verbose #8475 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:08 verbose #8476 > >
00:12:08 verbose #8477 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:08 verbose #8478 > > inl unbox forall t u. (x : result' t u) : result t u =
00:12:08 verbose #8479 > > inl ok x : result t u = Ok x
00:12:08 verbose #8480 > > inl error x : result t u = Error x
00:12:08 verbose #8481 > > real
00:12:08 verbose #8482 > > typecase t with
00:12:08 verbose #8483 > > | () => $'match !x with Ok () -> !ok () | Error x -> !error x' : result
00:12:08 verbose #8484 > > t u
00:12:08 verbose #8485 > > | _ => $'match !x with Ok x -> !ok x | Error x -> !error x' : result t u
00:12:08 verbose #8486 > >
00:12:08 verbose #8487 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:08 verbose #8488 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:08 verbose #8489 > > │ ### box │
00:12:08 verbose #8490 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:08 verbose #8491 > >
00:12:08 verbose #8492 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:08 verbose #8493 > > inl box forall t u. (x : result t u) : result' t u =
00:12:08 verbose #8494 > > match x with
00:12:08 verbose #8495 > > | Ok x => $'Ok !x '
00:12:08 verbose #8496 > > | Error err => $'Error !err '
00:12:09 verbose #8497 > >
00:12:09 verbose #8498 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:09 verbose #8499 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:09 verbose #8500 > > │ ## rust │
00:12:09 verbose #8501 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:09 verbose #8502 > >
00:12:09 verbose #8503 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:09 verbose #8504 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:09 verbose #8505 > > │ ### try' │
00:12:09 verbose #8506 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:09 verbose #8507 > >
00:12:09 verbose #8508 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:09 verbose #8509 > > inl try' forall t u. (x : result' t u) : t =
00:12:09 verbose #8510 > > !\\(x, $'"$0?"')
00:12:10 verbose #8511 > >
00:12:10 verbose #8512 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:10 verbose #8513 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:10 verbose #8514 > > │ ### to_try │
00:12:10 verbose #8515 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:10 verbose #8516 > >
00:12:10 verbose #8517 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:10 verbose #8518 > > inl to_try forall t u. (x : result' t u) : rust.try t =
00:12:10 verbose #8519 > > !\\(x, $'"$0"')
00:12:10 verbose #8520 > >
00:12:10 verbose #8521 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:10 verbose #8522 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:10 verbose #8523 > > │ ### unwrap' │
00:12:10 verbose #8524 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:10 verbose #8525 > >
00:12:10 verbose #8526 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:10 verbose #8527 > > inl unwrap' forall t u. (x : result' t u) : t =
00:12:10 verbose #8528 > > !\\(x, $'"$0.unwrap()"')
00:12:11 verbose #8529 > >
00:12:11 verbose #8530 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:11 verbose #8531 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:11 verbose #8532 > > │ ### unbox' │
00:12:11 verbose #8533 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:11 verbose #8534 > >
00:12:11 verbose #8535 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:11 verbose #8536 > > inl unbox' forall t u. (x : result' t u) : result t u =
00:12:11 verbose #8537 > > inl ok x : result t u = Ok x
00:12:11 verbose #8538 > > inl ok = join ok
00:12:11 verbose #8539 > > inl error x : result t u = Error x
00:12:11 verbose #8540 > > inl error = join error
00:12:11 verbose #8541 > > real
00:12:11 verbose #8542 > > typecase t with
00:12:11 verbose #8543 > > | () =>
00:12:11 verbose #8544 > > (~!\\)
00:12:11 verbose #8545 > > `((result' t u -> result t u) * (result' t u -> result t u))
00:12:11 verbose #8546 > > `(result t u)
00:12:11 verbose #8547 > > ((ok, error), ($'"match !x { Ok(()) => $0(()), Err(e) => $1(e)
00:12:11 verbose #8548 > > }"' : string))
00:12:11 verbose #8549 > > | _ =>
00:12:11 verbose #8550 > > (~!\\)
00:12:11 verbose #8551 > > `((result' t u -> result t u) * (result' t u -> result t u))
00:12:11 verbose #8552 > > `(result t u)
00:12:11 verbose #8553 > > ((ok, error), ($'"match !x { Ok(x) => $0(x), Err(e) => $1(e) }"'
00:12:11 verbose #8554 > > : string))
00:12:12 verbose #8555 > >
00:12:12 verbose #8556 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:12 verbose #8557 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:12 verbose #8558 > > │ ### map' │
00:12:12 verbose #8559 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:12 verbose #8560 > >
00:12:12 verbose #8561 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:12 verbose #8562 > > inl map' forall t e u. (fn : t -> u) (source : result' t e) : result' u e =
00:12:12 verbose #8563 > > (!\\(source, $'"true; let _result = $0.map(|x| { //"') : bool) |> ignore
00:12:12 verbose #8564 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:12:12 verbose #8565 > > !\($'"_result"')
00:12:12 verbose #8566 > >
00:12:12 verbose #8567 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:12 verbose #8568 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:12 verbose #8569 > > │ ### map'' │
00:12:12 verbose #8570 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:12 verbose #8571 > >
00:12:12 verbose #8572 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:12 verbose #8573 > > inl map'' forall t e u. (fn : t -> u) (source : result' t e) : result' u e =
00:12:12 verbose #8574 > > inl fn = join fn
00:12:12 verbose #8575 > > inl source = join source
00:12:12 verbose #8576 > > !\($'"!source.map(|x| !fn(x))"')
00:12:13 verbose #8577 > >
00:12:13 verbose #8578 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:13 verbose #8579 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:13 verbose #8580 > > │ ### map_error' │
00:12:13 verbose #8581 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:13 verbose #8582 > >
00:12:13 verbose #8583 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:13 verbose #8584 > > inl map_error' forall t e u. (fn : e -> u) (source : result' t e) : result' t u
00:12:13 verbose #8585 > > =
00:12:13 verbose #8586 > > inl fn = join fn
00:12:13 verbose #8587 > > !\\((source, fn), $'"$0.map_err(|x| $1(x))"')
00:12:14 verbose #8588 > >
00:12:14 verbose #8589 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:14 verbose #8590 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:14 verbose #8591 > > │ ### map_error'' │
00:12:14 verbose #8592 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:14 verbose #8593 > >
00:12:14 verbose #8594 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:14 verbose #8595 > > inl map_error'' forall t e u. (fn : e -> u) (source : result' t e) : result' t u
00:12:14 verbose #8596 > > =
00:12:14 verbose #8597 > > (!\\(source, $'"true; let _result = $0.map_err(|x| { //"') : bool) |> ignore
00:12:14 verbose #8598 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:12:14 verbose #8599 > > !\($'"_result"')
00:12:14 verbose #8600 > >
00:12:14 verbose #8601 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:14 verbose #8602 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:14 verbose #8603 > > │ ### option_ok_or │
00:12:14 verbose #8604 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:14 verbose #8605 > >
00:12:14 verbose #8606 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:14 verbose #8607 > > inl option_ok_or forall t e. (e : e) (source : optionm'.option' t) : result' t e
00:12:14 verbose #8608 > > =
00:12:14 verbose #8609 > > !\\(source, $'"$0.ok_or(!e)"')
00:12:15 verbose #8610 > >
00:12:15 verbose #8611 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:15 verbose #8612 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:15 verbose #8613 > > │ ### unwrap_or_else │
00:12:15 verbose #8614 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:15 verbose #8615 > >
00:12:15 verbose #8616 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:15 verbose #8617 > > inl unwrap_or_else forall t e u. (fn : e -> u) (source : result' t e) : u =
00:12:15 verbose #8618 > > (!\\(source, $'"true; let _result = $0.unwrap_or_else(|x| { //"') : bool) |>
00:12:15 verbose #8619 > > ignore
00:12:15 verbose #8620 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:12:15 verbose #8621 > > !\($'"_result"')
00:12:16 verbose #8622 > >
00:12:16 verbose #8623 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:16 verbose #8624 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:16 verbose #8625 > > │ ### map_or_else │
00:12:16 verbose #8626 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:16 verbose #8627 > >
00:12:16 verbose #8628 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:16 verbose #8629 > > inl map_or_else forall t e u v. (fn : e -> v) (fn2 : u -> v) (source : result' t
00:12:16 verbose #8630 > > e) : v =
00:12:16 verbose #8631 > > (!\\(source, $'"true; let _result = $0.map_or_else(|x| { //"') : bool) |>
00:12:16 verbose #8632 > > ignore
00:12:16 verbose #8633 > > (!\\(fn !\($'"x"'), $'"true; $0 }, |x| { //"') : bool) |> ignore
00:12:16 verbose #8634 > > (!\\(fn2 !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:12:16 verbose #8635 > > !\($'"_result"')
00:12:16 verbose #8636 > >
00:12:16 verbose #8637 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:16 verbose #8638 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:16 verbose #8639 > > │ ### as_ref │
00:12:16 verbose #8640 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:16 verbose #8641 > >
00:12:16 verbose #8642 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:16 verbose #8643 > > inl as_ref forall t e. (source : result' t e) : result' (rust.ref' t) (rust.ref'
00:12:16 verbose #8644 > > e) =
00:12:16 verbose #8645 > > !\($'"!source.as_ref()"')
00:12:17 verbose #8646 > >
00:12:17 verbose #8647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:17 verbose #8648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:17 verbose #8649 > > │ ### as_ref' │
00:12:17 verbose #8650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:17 verbose #8651 > >
00:12:17 verbose #8652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:17 verbose #8653 > > inl as_ref' forall t e. (source : rust.ref' (result' t e)) : result' (rust.ref'
00:12:17 verbose #8654 > > t) (rust.ref' e) =
00:12:17 verbose #8655 > > !\($'"!source.as_ref()"')
00:12:18 verbose #8656 > >
00:12:18 verbose #8657 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:18 verbose #8658 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:18 verbose #8659 > > │ ### unwrap_or' │
00:12:18 verbose #8660 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:18 verbose #8661 > >
00:12:18 verbose #8662 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:18 verbose #8663 > > inl unwrap_or' forall t u. (default : t) (x : result' t u) : t =
00:12:18 verbose #8664 > > !\\((x, default), $'"$0.unwrap_or($1)"')
00:12:18 verbose #8665 > >
00:12:18 verbose #8666 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:18 verbose #8667 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:18 verbose #8668 > > │ ### expect │
00:12:18 verbose #8669 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:18 verbose #8670 > >
00:12:18 verbose #8671 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:18 verbose #8672 > > inl expect forall t u. (error : rust.ref' string) (x : result' t u) : t =
00:12:18 verbose #8673 > > !\($'"!x.expect(&!error)"')
00:12:19 verbose #8674 > >
00:12:19 verbose #8675 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:19 verbose #8676 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:19 verbose #8677 > > │ ### is_err │
00:12:19 verbose #8678 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:19 verbose #8679 > >
00:12:19 verbose #8680 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:19 verbose #8681 > > inl is_err forall t u. (x : result' t u) : bool =
00:12:19 verbose #8682 > > !\($'"!x.is_err()"')
00:12:20 verbose #8683 > >
00:12:20 verbose #8684 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:20 verbose #8685 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:20 verbose #8686 > > │ ### ok' │
00:12:20 verbose #8687 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:20 verbose #8688 > >
00:12:20 verbose #8689 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:20 verbose #8690 > > inl ok' forall t. (x : result' t _) : optionm'.option' t =
00:12:20 verbose #8691 > > !\($'"!x.ok()"')
00:12:20 verbose #8692 > >
00:12:20 verbose #8693 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:20 verbose #8694 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:20 verbose #8695 > > │ ### transpose │
00:12:20 verbose #8696 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:20 verbose #8697 > >
00:12:20 verbose #8698 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:20 verbose #8699 > > inl transpose forall t u. (x : optionm'.option' (result' t u)) : result'
00:12:20 verbose #8700 > > (optionm'.option' t) u =
00:12:20 verbose #8701 > > !\\(x, $'"$0.transpose()"')
00:12:21 verbose #8702 > >
00:12:21 verbose #8703 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:21 verbose #8704 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:21 verbose #8705 > > │ ### rc_try_unwrap │
00:12:21 verbose #8706 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:21 verbose #8707 > >
00:12:21 verbose #8708 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:21 verbose #8709 > > inl rc_try_unwrap forall t. (x : rust.rc t) : result' t (rust.rc t) =
00:12:21 verbose #8710 > > !\\(x, $'"std::rc::Rc::try_unwrap($0)"')
00:12:22 verbose #8711 > >
00:12:22 verbose #8712 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:22 verbose #8713 > > //// test
00:12:22 verbose #8714 > > ///! rust
00:12:22 verbose #8715 > >
00:12:22 verbose #8716 > > types ()
00:12:22 verbose #8717 > > rust.new_rc true
00:12:22 verbose #8718 > > |> rc_try_unwrap
00:12:22 verbose #8719 > > |> unbox
00:12:22 verbose #8720 > > |> _assert_eq (Ok true)
00:12:26 verbose #8721 > >
00:12:26 verbose #8722 > > ╭─[ 4.09s - return value ]─────────────────────────────────────────────────────╮
00:12:26 verbose #8723 > > │ assert_eq / actual: US0_0(true) / expected: US0_0(true) │
00:12:26 verbose #8724 > > │ │
00:12:26 verbose #8725 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:26 verbose #8726 > 00:00:35 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 20026
00:12:26 verbose #8727 > 00:00:35 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:12:29 verbose #8728 > 00:00:38 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb to html
00:12:29 verbose #8729 > 00:00:38 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:12:29 verbose #8730 > 00:00:38 verbose #7 ! validate(nb)
00:12:31 verbose #8731 > 00:00:40 verbose #8 ! [NbConvertApp] Writing 336344 bytes to c:\home\git\polyglot\lib\spiral\resultm.dib.html
00:12:31 verbose #8732 > 00:00:40 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:12:31 verbose #8733 > 00:00:40 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:12:31 verbose #8734 > 00:00:40 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/resultm.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/resultm.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:12:32 verbose #8735 > 00:00:42 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:12:32 verbose #8736 > 00:00:42 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:12:33 verbose #8737 > 00:00:42 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 20730
00:12:33 debug #8738 runtime.execute_with_options_async / exit_code: 0 / output.Length: 23788
00:12:33 debug #11 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path resultm.dib --retries 3
00:12:33 debug #8739 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path console.dib --retries 3",
[||], None, None, true, None)
00:12:33 verbose #8740 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "console.dib", "--retries", "3"])
00:12:33 verbose #8741 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/console.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/console.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/console.dib" --output-path "c:/home/git/polyglot/lib/spiral/console.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:12:36 verbose #8742 > >
00:12:36 verbose #8743 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:36 verbose #8744 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:36 verbose #8745 > > │ # console │
00:12:36 verbose #8746 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:36 verbose #8747 > >
00:12:36 verbose #8748 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:36 verbose #8749 > > //// test
00:12:36 verbose #8750 > >
00:12:36 verbose #8751 > > open testing
00:12:36 verbose #8752 > >
00:12:36 verbose #8753 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:12:36 verbose #8754 > > #r
00:12:36 verbose #8755 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:36 verbose #8756 > > otNet.Interactive.Spiral.dll"
00:12:36 verbose #8757 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:12:36 verbose #8758 > > #r
00:12:36 verbose #8759 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:36 verbose #8760 > > otNet.Interactive.dll"
00:12:36 verbose #8761 > > open type Microsoft.DotNet.Interactive.Kernel
00:12:42 verbose #8762 > >
00:12:42 verbose #8763 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:42 verbose #8764 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:42 verbose #8765 > > │ ## fsharp │
00:12:42 verbose #8766 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:42 verbose #8767 > >
00:12:42 verbose #8768 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:42 verbose #8769 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:42 verbose #8770 > > │ ### write_line_ │
00:12:42 verbose #8771 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:42 verbose #8772 > >
00:12:42 verbose #8773 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:42 verbose #8774 > > inl write_line_ ~obj : () =
00:12:42 verbose #8775 > > obj |> $'System.Console.WriteLine'
00:12:43 verbose #8776 > >
00:12:43 verbose #8777 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:43 verbose #8778 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:43 verbose #8779 > > │ ### console_color │
00:12:43 verbose #8780 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:43 verbose #8781 > >
00:12:43 verbose #8782 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:43 verbose #8783 > > nominal console_color = $'System.ConsoleColor'
00:12:44 verbose #8784 > >
00:12:44 verbose #8785 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:44 verbose #8786 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:44 verbose #8787 > > │ ### reset_color │
00:12:44 verbose #8788 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:44 verbose #8789 > >
00:12:44 verbose #8790 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:44 verbose #8791 > > inl reset_color () : () =
00:12:44 verbose #8792 > > run_target function
00:12:44 verbose #8793 > > | Fsharp => fun () => $'System.Console.ResetColor' ()
00:12:44 verbose #8794 > > | _ => fun () => ()
00:12:44 verbose #8795 > >
00:12:44 verbose #8796 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:44 verbose #8797 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:44 verbose #8798 > > │ ### set_foreground_color │
00:12:44 verbose #8799 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:44 verbose #8800 > >
00:12:44 verbose #8801 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:44 verbose #8802 > > inl set_foreground_color (color : console_color) : () =
00:12:44 verbose #8803 > > run_target function
00:12:44 verbose #8804 > > | Fsharp => fun () => $'System.Console.ForegroundColor <- !color '
00:12:44 verbose #8805 > > | _ => fun () => ()
00:12:45 verbose #8806 > >
00:12:45 verbose #8807 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:45 verbose #8808 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:45 verbose #8809 > > │ ## console │
00:12:45 verbose #8810 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:45 verbose #8811 > >
00:12:45 verbose #8812 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:45 verbose #8813 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:45 verbose #8814 > > │ ### write_line │
00:12:45 verbose #8815 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:45 verbose #8816 > >
00:12:45 verbose #8817 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:45 verbose #8818 > > inl write_line obj : () =
00:12:45 verbose #8819 > > backend_switch {
00:12:45 verbose #8820 > > Fsharp = fun () => obj |> $'System.Console.WriteLine' : ()
00:12:45 verbose #8821 > > Python = fun () => $'print(!obj)' : ()
00:12:45 verbose #8822 > > }
00:12:46 verbose #8823 > 00:00:12 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 4131
00:12:46 verbose #8824 > 00:00:12 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/console.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/console.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:12:48 verbose #8825 > 00:00:15 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/console.dib.ipynb to html
00:12:48 verbose #8826 > 00:00:15 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:12:48 verbose #8827 > 00:00:15 verbose #7 ! validate(nb)
00:12:49 verbose #8828 > 00:00:16 verbose #8 ! [NbConvertApp] Writing 280291 bytes to c:\home\git\polyglot\lib\spiral\console.dib.html
00:12:49 verbose #8829 > 00:00:16 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:12:49 verbose #8830 > 00:00:16 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:12:49 verbose #8831 > 00:00:16 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/console.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/console.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:12:50 verbose #8832 > 00:00:17 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:12:50 verbose #8833 > 00:00:17 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:12:51 verbose #8834 > 00:00:18 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 4835
00:12:51 debug #8835 runtime.execute_with_options_async / exit_code: 0 / output.Length: 7261
00:12:51 debug #12 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path console.dib --retries 3
00:12:51 debug #8836 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path date_time.dib --retries 3",
[||], None, None, true, None)
00:12:51 verbose #8837 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "date_time.dib", "--retries", "3"])
00:12:51 verbose #8838 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/date_time.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/date_time.dib" --output-path "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:12:54 verbose #8839 > >
00:12:54 verbose #8840 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:54 verbose #8841 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:54 verbose #8842 > > │ # date_time │
00:12:54 verbose #8843 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:54 verbose #8844 > >
00:12:54 verbose #8845 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:54 verbose #8846 > > open rust_operators
00:12:54 verbose #8847 > > open sm'_operators
00:12:54 verbose #8848 > >
00:12:54 verbose #8849 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:12:54 verbose #8850 > > #r
00:12:54 verbose #8851 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:54 verbose #8852 > > otNet.Interactive.Spiral.dll"
00:12:54 verbose #8853 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:12:54 verbose #8854 > > #r
00:12:54 verbose #8855 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:54 verbose #8856 > > otNet.Interactive.dll"
00:12:54 verbose #8857 > > open type Microsoft.DotNet.Interactive.Kernel
00:13:01 verbose #8858 > >
00:13:01 verbose #8859 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:01 verbose #8860 > > //// test
00:13:01 verbose #8861 > >
00:13:01 verbose #8862 > > open testing
00:13:01 verbose #8863 > >
00:13:01 verbose #8864 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:01 verbose #8865 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:01 verbose #8866 > > │ ## types │
00:13:01 verbose #8867 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:01 verbose #8868 > >
00:13:01 verbose #8869 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:01 verbose #8870 > > inl types () =
00:13:01 verbose #8871 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:01 verbose #8872 > > Fable.Core.Emit(\"chrono::DateTime<$0>\")>]]\n#endif\ntype chrono_DateTime<'T> =
00:13:01 verbose #8873 > > class end"
00:13:01 verbose #8874 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:01 verbose #8875 > > Fable.Core.Emit(\"chrono::Local\")>]]\n#endif\ntype chrono_Local = class end"
00:13:01 verbose #8876 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:01 verbose #8877 > > Fable.Core.Emit(\"chrono::NaiveDateTime\")>]]\n#endif\ntype chrono_NaiveDateTime
00:13:01 verbose #8878 > > = class end"
00:13:01 verbose #8879 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:01 verbose #8880 > > Fable.Core.Emit(\"chrono::Utc\")>]]\n#endif\ntype chrono_Utc = class end"
00:13:01 verbose #8881 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:01 verbose #8882 > > Fable.Core.Emit(\"std::time::Duration\")>]]\n#endif\ntype std_time_Duration =
00:13:01 verbose #8883 > > class end"
00:13:02 verbose #8884 > >
00:13:02 verbose #8885 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:02 verbose #8886 > > inl types () =
00:13:02 verbose #8887 > > sm'.types ()
00:13:02 verbose #8888 > > types ()
00:13:02 verbose #8889 > >
00:13:02 verbose #8890 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:02 verbose #8891 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:02 verbose #8892 > > │ ## date_time │
00:13:02 verbose #8893 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:02 verbose #8894 > >
00:13:02 verbose #8895 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:02 verbose #8896 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:02 verbose #8897 > > │ ### timestamp │
00:13:02 verbose #8898 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:02 verbose #8899 > >
00:13:02 verbose #8900 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:02 verbose #8901 > > nominal timestamp = i64
00:13:03 verbose #8902 > >
00:13:03 verbose #8903 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:03 verbose #8904 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:03 verbose #8905 > > │ ### timestamp_guid │
00:13:03 verbose #8906 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:03 verbose #8907 > >
00:13:03 verbose #8908 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:03 verbose #8909 > > type timestamp_guid = guid.guid
00:13:04 verbose #8910 > >
00:13:04 verbose #8911 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:04 verbose #8912 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:04 verbose #8913 > > │ ### date_time_guid │
00:13:04 verbose #8914 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:04 verbose #8915 > >
00:13:04 verbose #8916 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:04 verbose #8917 > > type date_time_guid = guid.guid
00:13:04 verbose #8918 > >
00:13:04 verbose #8919 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:04 verbose #8920 > > //// test
00:13:04 verbose #8921 > >
00:13:04 verbose #8922 > > inl test_guid () =
00:13:04 verbose #8923 > > guid.new_guid "FEDCBA98-7654-3210-FEDC-BA9876543210"
00:13:05 verbose #8924 > >
00:13:05 verbose #8925 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #8926 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #8927 > > │ ## fsharp │
00:13:05 verbose #8928 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #8929 > >
00:13:05 verbose #8930 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #8931 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #8932 > > │ ### date_time │
00:13:05 verbose #8933 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #8934 > >
00:13:05 verbose #8935 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #8936 > > nominal date_time = $'System.DateTime'
00:13:06 verbose #8937 > >
00:13:06 verbose #8938 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:06 verbose #8939 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:06 verbose #8940 > > │ ### date_time_milliseconds │
00:13:06 verbose #8941 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:06 verbose #8942 > >
00:13:06 verbose #8943 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:06 verbose #8944 > > inl date_time_milliseconds
00:13:06 verbose #8945 > > (year : int) (month : int) (day : int) (hour : int) (minute : int) (second :
00:13:06 verbose #8946 > > int) (millisecond : int)
00:13:06 verbose #8947 > > : date_time
00:13:06 verbose #8948 > > =
00:13:06 verbose #8949 > > $'System.DateTime (!year, !month, !day, !hour, !minute, !second,
00:13:06 verbose #8950 > > !millisecond)'
00:13:06 verbose #8951 > >
00:13:06 verbose #8952 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:06 verbose #8953 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:06 verbose #8954 > > │ ### date_time_utc │
00:13:06 verbose #8955 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:06 verbose #8956 > >
00:13:06 verbose #8957 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:06 verbose #8958 > > inl date_time_utc
00:13:06 verbose #8959 > > (year : int) (month : int) (day : int) (hour : int) (minute : int) (second :
00:13:06 verbose #8960 > > int)
00:13:06 verbose #8961 > > : date_time
00:13:06 verbose #8962 > > =
00:13:06 verbose #8963 > > $'System.DateTime (!year, !month, !day, !hour, !minute, !second,
00:13:06 verbose #8964 > > System.DateTimeKind.Utc)'
00:13:07 verbose #8965 > >
00:13:07 verbose #8966 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:07 verbose #8967 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:07 verbose #8968 > > │ ### ticks │
00:13:07 verbose #8969 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:07 verbose #8970 > >
00:13:07 verbose #8971 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:07 verbose #8972 > > inl ticks (date_time : date_time) : timestamp =
00:13:07 verbose #8973 > > date_time |> $'_.Ticks'
00:13:08 verbose #8974 > >
00:13:08 verbose #8975 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:08 verbose #8976 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:08 verbose #8977 > > │ ### format │
00:13:08 verbose #8978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:08 verbose #8979 > >
00:13:08 verbose #8980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:08 verbose #8981 > > inl format (format : string) (date_time : date_time) : string =
00:13:08 verbose #8982 > > $'!date_time.ToString' format
00:13:08 verbose #8983 > >
00:13:08 verbose #8984 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:08 verbose #8985 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:08 verbose #8986 > > │ ### format_iso8601 │
00:13:08 verbose #8987 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:08 verbose #8988 > >
00:13:08 verbose #8989 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:08 verbose #8990 > > inl format_iso8601 (date_time : date_time) =
00:13:08 verbose #8991 > > date_time |> format "yyyy-MM-ddTHH-mm-ss.fff"
00:13:09 verbose #8992 > >
00:13:09 verbose #8993 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:09 verbose #8994 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:09 verbose #8995 > > │ ### min_value │
00:13:09 verbose #8996 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:09 verbose #8997 > >
00:13:09 verbose #8998 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:09 verbose #8999 > > inl min_value () : date_time =
00:13:09 verbose #9000 > > $'System.DateTime.MinValue'
00:13:10 verbose #9001 > >
00:13:10 verbose #9002 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:10 verbose #9003 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:10 verbose #9004 > > │ ### max_value │
00:13:10 verbose #9005 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:10 verbose #9006 > >
00:13:10 verbose #9007 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:10 verbose #9008 > > inl max_value () : date_time =
00:13:10 verbose #9009 > > $'System.DateTime.MaxValue'
00:13:10 verbose #9010 > >
00:13:10 verbose #9011 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:10 verbose #9012 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:10 verbose #9013 > > │ ### unix_epoch │
00:13:10 verbose #9014 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:10 verbose #9015 > >
00:13:10 verbose #9016 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:10 verbose #9017 > > inl unix_epoch () : date_time =
00:13:10 verbose #9018 > > $'System.DateTime.UnixEpoch'
00:13:11 verbose #9019 > >
00:13:11 verbose #9020 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:11 verbose #9021 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:11 verbose #9022 > > │ ### to_universal_time │
00:13:11 verbose #9023 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:11 verbose #9024 > >
00:13:11 verbose #9025 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:11 verbose #9026 > > inl to_universal_time (date_time : date_time) : date_time =
00:13:11 verbose #9027 > > date_time |> $'_.ToUniversalTime()'
00:13:12 verbose #9028 > >
00:13:12 verbose #9029 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:12 verbose #9030 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:12 verbose #9031 > > │ ### date_time_kind │
00:13:12 verbose #9032 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:12 verbose #9033 > >
00:13:12 verbose #9034 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:12 verbose #9035 > > union date_time_kind =
00:13:12 verbose #9036 > > | Unspecified
00:13:12 verbose #9037 > > | Utc
00:13:12 verbose #9038 > > | Local
00:13:12 verbose #9039 > >
00:13:12 verbose #9040 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:12 verbose #9041 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:12 verbose #9042 > > │ ### specify_date_kind │
00:13:12 verbose #9043 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:12 verbose #9044 > >
00:13:12 verbose #9045 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:12 verbose #9046 > > inl specify_date_kind (kind : date_time_kind) (date_time : date_time) :
00:13:12 verbose #9047 > > date_time =
00:13:12 verbose #9048 > > inl kind : $'System.DateTimeKind' =
00:13:12 verbose #9049 > > match kind with
00:13:12 verbose #9050 > > | Unspecified => $'System.DateTimeKind.Unspecified'
00:13:12 verbose #9051 > > | Utc => $'System.DateTimeKind.Utc'
00:13:12 verbose #9052 > > | Local => $'System.DateTimeKind.Local'
00:13:12 verbose #9053 > > $'System.DateTime.SpecifyKind (!date_time, !kind)'
00:13:13 verbose #9054 > >
00:13:13 verbose #9055 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:13 verbose #9056 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:13 verbose #9057 > > │ ### time_span │
00:13:13 verbose #9058 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:13 verbose #9059 > >
00:13:13 verbose #9060 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:13 verbose #9061 > > nominal time_span = $'System.TimeSpan'
00:13:13 verbose #9062 > >
00:13:13 verbose #9063 > > inl time_span x : time_span =
00:13:13 verbose #9064 > > x |> $'`time_span '
00:13:14 verbose #9065 > >
00:13:14 verbose #9066 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:14 verbose #9067 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:14 verbose #9068 > > │ ### new_time_span │
00:13:14 verbose #9069 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:14 verbose #9070 > >
00:13:14 verbose #9071 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:14 verbose #9072 > > inl new_time_span (a : date_time) (b : date_time) : time_span =
00:13:14 verbose #9073 > > $'!b - !a '
00:13:14 verbose #9074 > >
00:13:14 verbose #9075 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:14 verbose #9076 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:14 verbose #9077 > > │ ### time_span_format │
00:13:14 verbose #9078 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:14 verbose #9079 > >
00:13:14 verbose #9080 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:14 verbose #9081 > > inl time_span_format (format : string) (time_span : time_span) : string =
00:13:14 verbose #9082 > > run_target function
00:13:14 verbose #9083 > > | (TypeScript _ | Python _) => fun () =>
00:13:14 verbose #9084 > > $'!time_span.ToString ("c",
00:13:14 verbose #9085 > > System.Globalization.CultureInfo.InvariantCulture)'
00:13:14 verbose #9086 > > | _ => fun () =>
00:13:14 verbose #9087 > > $'!time_span.ToString !format '
00:13:15 verbose #9088 > >
00:13:15 verbose #9089 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:15 verbose #9090 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:15 verbose #9091 > > │ ### hours │
00:13:15 verbose #9092 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:15 verbose #9093 > >
00:13:15 verbose #9094 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:15 verbose #9095 > > inl hours (time_span : time_span) : i32 =
00:13:15 verbose #9096 > > time_span |> $'_.Hours'
00:13:16 verbose #9097 > >
00:13:16 verbose #9098 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:16 verbose #9099 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:16 verbose #9100 > > │ ### milliseconds │
00:13:16 verbose #9101 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:16 verbose #9102 > >
00:13:16 verbose #9103 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:16 verbose #9104 > > inl milliseconds (time_span : time_span) : i32 =
00:13:16 verbose #9105 > > time_span |> $'_.Milliseconds'
00:13:16 verbose #9106 > >
00:13:16 verbose #9107 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:16 verbose #9108 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:16 verbose #9109 > > │ ### minutes │
00:13:16 verbose #9110 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:16 verbose #9111 > >
00:13:16 verbose #9112 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:16 verbose #9113 > > inl minutes (time_span : time_span) : i32 =
00:13:16 verbose #9114 > > time_span |> $'_.Minutes'
00:13:17 verbose #9115 > >
00:13:17 verbose #9116 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:17 verbose #9117 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:17 verbose #9118 > > │ ### seconds │
00:13:17 verbose #9119 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:17 verbose #9120 > >
00:13:17 verbose #9121 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:17 verbose #9122 > > inl seconds (time_span : time_span) : i32 =
00:13:17 verbose #9123 > > time_span |> $'_.Seconds'
00:13:18 verbose #9124 > >
00:13:18 verbose #9125 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:18 verbose #9126 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:18 verbose #9127 > > │ ### total_seconds │
00:13:18 verbose #9128 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:18 verbose #9129 > >
00:13:18 verbose #9130 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:18 verbose #9131 > > inl total_seconds (time_span : time_span) : f64 =
00:13:18 verbose #9132 > > time_span |> $'_.TotalSeconds'
00:13:18 verbose #9133 > >
00:13:18 verbose #9134 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:18 verbose #9135 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:18 verbose #9136 > > │ ### time_zone_info │
00:13:18 verbose #9137 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:18 verbose #9138 > >
00:13:18 verbose #9139 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:18 verbose #9140 > > nominal time_zone_info = $'System.TimeZoneInfo'
00:13:19 verbose #9141 > >
00:13:19 verbose #9142 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:19 verbose #9143 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:19 verbose #9144 > > │ ### add_days │
00:13:19 verbose #9145 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:19 verbose #9146 > >
00:13:19 verbose #9147 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:19 verbose #9148 > > inl add_days (days : i32) (date_time : date_time) : date_time =
00:13:19 verbose #9149 > > $'!date_time.AddDays' days
00:13:20 verbose #9150 > >
00:13:20 verbose #9151 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:20 verbose #9152 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:20 verbose #9153 > > │ ### now │
00:13:20 verbose #9154 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #9155 > >
00:13:20 verbose #9156 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #9157 > > inl now () : date_time =
00:13:20 verbose #9158 > > $'System.DateTime.Now'
00:13:20 verbose #9159 > >
00:13:20 verbose #9160 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:20 verbose #9161 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:20 verbose #9162 > > │ ### utc_now │
00:13:20 verbose #9163 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #9164 > >
00:13:20 verbose #9165 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #9166 > > inl utc_now () : date_time =
00:13:20 verbose #9167 > > $'System.DateTime.UtcNow'
00:13:21 verbose #9168 > >
00:13:21 verbose #9169 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:21 verbose #9170 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:21 verbose #9171 > > │ ## rust │
00:13:21 verbose #9172 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:21 verbose #9173 > >
00:13:21 verbose #9174 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:21 verbose #9175 > > nominal duration = $'std_time_Duration'
00:13:22 verbose #9176 > >
00:13:22 verbose #9177 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:22 verbose #9178 > > nominal date_time' t = $'chrono_DateTime<`t>'
00:13:22 verbose #9179 > >
00:13:22 verbose #9180 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:22 verbose #9181 > > nominal local = $'chrono_Local'
00:13:23 verbose #9182 > >
00:13:23 verbose #9183 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:23 verbose #9184 > > nominal naive_date_time = $'chrono_NaiveDateTime'
00:13:24 verbose #9185 > >
00:13:24 verbose #9186 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:24 verbose #9187 > > nominal utc = $'chrono_Utc'
00:13:24 verbose #9188 > >
00:13:24 verbose #9189 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:24 verbose #9190 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:24 verbose #9191 > > │ ### naive_utc │
00:13:24 verbose #9192 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:24 verbose #9193 > >
00:13:24 verbose #9194 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:24 verbose #9195 > > inl naive_utc (date_time : date_time' utc) : naive_date_time =
00:13:24 verbose #9196 > > inl date_time = join date_time
00:13:24 verbose #9197 > > !\($'"!date_time.naive_utc()"')
00:13:25 verbose #9198 > >
00:13:25 verbose #9199 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:25 verbose #9200 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:25 verbose #9201 > > │ ### to_local │
00:13:25 verbose #9202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:25 verbose #9203 > >
00:13:25 verbose #9204 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:25 verbose #9205 > > inl to_local (date_time : date_time' utc) : date_time' local =
00:13:25 verbose #9206 > > inl naive_date_time = date_time |> naive_utc
00:13:25 verbose #9207 > > !\($'"chrono::offset::TimeZone::from_utc_datetime(&chrono::Local,
00:13:25 verbose #9208 > > &!naive_date_time)"')
00:13:26 verbose #9209 > >
00:13:26 verbose #9210 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:26 verbose #9211 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:26 verbose #9212 > > │ ### from_timestamp_micros │
00:13:26 verbose #9213 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:26 verbose #9214 > >
00:13:26 verbose #9215 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:26 verbose #9216 > > inl from_timestamp_micros forall t {number; int}. (timestamp : t) : option
00:13:26 verbose #9217 > > (date_time' utc) =
00:13:26 verbose #9218 > > inl result : optionm'.option' (date_time' utc) =
00:13:26 verbose #9219 > > !\\(timestamp, $'"chrono::DateTime::from_timestamp_micros($0)"')
00:13:26 verbose #9220 > > result |> optionm'.unbox
00:13:26 verbose #9221 > >
00:13:26 verbose #9222 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:26 verbose #9223 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:26 verbose #9224 > > │ ### format' │
00:13:26 verbose #9225 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:26 verbose #9226 > >
00:13:26 verbose #9227 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:26 verbose #9228 > > inl format' (format : string) (date_time : date_time' utc) : sm'.std_string =
00:13:26 verbose #9229 > > inl format = #format
00:13:26 verbose #9230 > > inl date_time = join date_time
00:13:26 verbose #9231 > > !\($'"!date_time.format(!format).to_string()"')
00:13:27 verbose #9232 > >
00:13:27 verbose #9233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:27 verbose #9234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:27 verbose #9235 > > │ ### format'' │
00:13:27 verbose #9236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:27 verbose #9237 > >
00:13:27 verbose #9238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:27 verbose #9239 > > inl format'' (format : string) (date_time : date_time' _) : sm'.std_string =
00:13:27 verbose #9240 > > inl format = #format
00:13:27 verbose #9241 > > inl date_time = join date_time
00:13:27 verbose #9242 > > !\($'"!date_time.format(!format).to_string()"')
00:13:28 verbose #9243 > >
00:13:28 verbose #9244 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:28 verbose #9245 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:28 verbose #9246 > > │ ### format_timestamp │
00:13:28 verbose #9247 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:28 verbose #9248 > >
00:13:28 verbose #9249 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:28 verbose #9250 > > inl format_timestamp forall t {number; int}. (timestamp : t) =
00:13:28 verbose #9251 > > inl timestamp = join timestamp
00:13:28 verbose #9252 > > (timestamp / 1000)
00:13:28 verbose #9253 > > |> from_timestamp_micros
00:13:28 verbose #9254 > > |> optionm.map fun x =>
00:13:28 verbose #9255 > > x
00:13:28 verbose #9256 > > |> to_local
00:13:28 verbose #9257 > > |> format'' "%Y-%m-%d %H:%M:%S"
00:13:28 verbose #9258 > > |> sm'.from_std_string
00:13:28 verbose #9259 > > |> resultm.from_option
00:13:28 verbose #9260 > >
00:13:28 verbose #9261 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:28 verbose #9262 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:28 verbose #9263 > > │ ### duration_from_millis │
00:13:28 verbose #9264 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:28 verbose #9265 > >
00:13:28 verbose #9266 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:28 verbose #9267 > > inl duration_from_millis (ms : u64) : duration =
00:13:28 verbose #9268 > > inl ms = join ms
00:13:28 verbose #9269 > > !\($'"std::time::Duration::from_millis(!ms)"')
00:13:29 verbose #9270 > >
00:13:29 verbose #9271 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:29 verbose #9272 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:29 verbose #9273 > > │ ## date_time │
00:13:29 verbose #9274 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:29 verbose #9275 > >
00:13:29 verbose #9276 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:29 verbose #9277 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:29 verbose #9278 > > │ ### time_zone_local │
00:13:29 verbose #9279 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:29 verbose #9280 > >
00:13:29 verbose #9281 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:29 verbose #9282 > > inl time_zone_local () : time_zone_info =
00:13:29 verbose #9283 > > run_target function
00:13:29 verbose #9284 > > | Rust (Native) => fun () =>
00:13:29 verbose #9285 > > open rust_operators
00:13:29 verbose #9286 > > !\($'"0i64.into()"')
00:13:29 verbose #9287 > > | Fsharp _ => fun () =>
00:13:29 verbose #9288 > > $'System.TimeZoneInfo.Local'
00:13:29 verbose #9289 > > | _ => fun () => null ()
00:13:30 verbose #9290 > >
00:13:30 verbose #9291 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:30 verbose #9292 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:30 verbose #9293 > > │ ### get_utc_offset │
00:13:30 verbose #9294 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:30 verbose #9295 > >
00:13:30 verbose #9296 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:30 verbose #9297 > > inl get_utc_offset (time_zone_info : time_zone_info) (date_time : date_time) :
00:13:30 verbose #9298 > > time_span =
00:13:30 verbose #9299 > > run_target function
00:13:30 verbose #9300 > > | Rust _ => fun () => time_span ()
00:13:30 verbose #9301 > > | Fsharp _ => fun () => date_time |> $'_.GetUtcOffset' (time_zone_local
00:13:30 verbose #9302 > > ())
00:13:30 verbose #9303 > > | target => fun () => failwith $'$"date_time.get_utc_offset / target:
00:13:30 verbose #9304 > > {!target}"'
00:13:30 verbose #9305 > >
00:13:30 verbose #9306 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:30 verbose #9307 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:30 verbose #9308 > > │ ### date_time_guid_from_date_time │
00:13:30 verbose #9309 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:30 verbose #9310 > >
00:13:30 verbose #9311 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:30 verbose #9312 > > let date_time_guid_from_date_time (guid : guid.guid) (date_time : date_time) =
00:13:30 verbose #9313 > > inl create prefix time_zone : date_time_guid =
00:13:30 verbose #9314 > > inl guid = guid |> sm'.obj_to_string
00:13:30 verbose #9315 > > $'`date_time_guid $"{!prefix}{!time_zone}{!guid.[[!prefix.Length +
00:13:30 verbose #9316 > > !time_zone.Length..]]}"'
00:13:30 verbose #9317 > > run_target function
00:13:30 verbose #9318 > > | Rust (Contract) => fun () => null ()
00:13:30 verbose #9319 > > | Rust (Native | Wasm) => fun () =>
00:13:30 verbose #9320 > > inl epoch =
00:13:30 verbose #9321 > > date_time_utc 1970 1 1 0 0 0
00:13:30 verbose #9322 > > |> to_universal_time
00:13:30 verbose #9323 > > inl date_time =
00:13:30 verbose #9324 > > date_time
00:13:30 verbose #9325 > > |> specify_date_kind Local
00:13:30 verbose #9326 > > |> to_universal_time
00:13:30 verbose #9327 > > inl unixticks =
00:13:30 verbose #9328 > > match date_time |> ticks, epoch |> ticks with
00:13:30 verbose #9329 > > | timestamp date_time, timestamp epoch => date_time - epoch
00:13:30 verbose #9330 > > inl prefix =
00:13:30 verbose #9331 > > unixticks / 10
00:13:30 verbose #9332 > > |> from_timestamp_micros
00:13:30 verbose #9333 > > |> optionm.map (
00:13:30 verbose #9334 > > to_local
00:13:30 verbose #9335 > > >> format'' "%Y%m%d-%H%M-%S%f"
00:13:30 verbose #9336 > > >> sm'.from_std_string
00:13:30 verbose #9337 > > >> fun s => $'$"{!s.[[0..17]]}-{!s.[[18..21]]}-{!s.[[22]]}"'
00:13:30 verbose #9338 > > )
00:13:30 verbose #9339 > > |> optionm'.default_value ""
00:13:30 verbose #9340 > > inl time_zone = date_time |> get_utc_offset (time_zone_local ())
00:13:30 verbose #9341 > > inl time_zone_signal = if hours time_zone > 0 then 1u8 else 0
00:13:30 verbose #9342 > > inl time_zone_value = time_zone |> time_span_format (join "hh:mm")
00:13:30 verbose #9343 > > inl time_zone =
00:13:30 verbose #9344 > > $'$"{!time_zone_signal}{!time_zone_value.[[0..1]]}{!time_zone_value.[[3..4]]}"'
00:13:30 verbose #9345 > > : string
00:13:30 verbose #9346 > > create prefix time_zone
00:13:30 verbose #9347 > > | target => fun () =>
00:13:30 verbose #9348 > > inl prefix = date_time |> format (join "yyyyMMdd-HHmm-ssff-ffff-f")
00:13:30 verbose #9349 > > inl time_zone = date_time |> get_utc_offset (time_zone_local ())
00:13:30 verbose #9350 > > inl time_zone_signal = if hours time_zone > 0 then 1u8 else 0
00:13:30 verbose #9351 > > inl time_zone_value = time_zone |> time_span_format (join "hhmm")
00:13:30 verbose #9352 > > inl time_zone = $'$"{!time_zone_signal}{!time_zone_value}"' : string
00:13:30 verbose #9353 > > create prefix time_zone
00:13:31 verbose #9354 > >
00:13:31 verbose #9355 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:31 verbose #9356 > > //// test
00:13:31 verbose #9357 > >
00:13:31 verbose #9358 > > types ()
00:13:31 verbose #9359 > > now () |> to_universal_time |> date_time_guid_from_date_time (test_guid ()) |>
00:13:31 verbose #9360 > > sm'.obj_to_string
00:13:31 verbose #9361 > > |> console.write_line
00:13:33 verbose #9362 > >
00:13:33 verbose #9363 > > ╭─[ 2.23s - stdout ]───────────────────────────────────────────────────────────╮
00:13:33 verbose #9364 > > │ 20240609-0338-2535-3599-300400543210 │
00:13:33 verbose #9365 > > │ │
00:13:33 verbose #9366 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:33 verbose #9367 > >
00:13:33 verbose #9368 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:33 verbose #9369 > > //// test
00:13:33 verbose #9370 > > ///! rust -d chrono
00:13:33 verbose #9371 > >
00:13:33 verbose #9372 > > types ()
00:13:33 verbose #9373 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:13:33 verbose #9374 > > - 6i32) (am'.End id)
00:13:33 verbose #9375 > > now ()
00:13:33 verbose #9376 > > |> to_universal_time
00:13:33 verbose #9377 > > |> date_time_guid_from_date_time (test_guid ())
00:13:33 verbose #9378 > > |> sm'.obj_to_string
00:13:33 verbose #9379 > > |> fun s => s |> _assert_eq' $'$"{!s.[[0..29]]}{!suffix}"'
00:13:37 verbose #9380 > >
00:13:37 verbose #9381 > > ╭─[ 3.91s - return value ]─────────────────────────────────────────────────────╮
00:13:37 verbose #9382 > > │ assert_eq' / actual: "20240609-0338-2912-6520-000000543210" / expected: │
00:13:37 verbose #9383 > > │ "20240609-0338-2912-6520-000000543210" │
00:13:37 verbose #9384 > > │ │
00:13:37 verbose #9385 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:37 verbose #9386 > >
00:13:37 verbose #9387 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:37 verbose #9388 > > //// test
00:13:37 verbose #9389 > >
00:13:37 verbose #9390 > > types ()
00:13:37 verbose #9391 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:13:37 verbose #9392 > > - 6i32) (am'.End id)
00:13:37 verbose #9393 > > min_value ()
00:13:37 verbose #9394 > > |> specify_date_kind Local
00:13:37 verbose #9395 > > |> date_time_guid_from_date_time (test_guid ())
00:13:37 verbose #9396 > > |> sm'.obj_to_string
00:13:37 verbose #9397 > > |> fun s => s |> _assert_eq'
00:13:37 verbose #9398 > > $'$"00010101-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:13:38 verbose #9399 > >
00:13:38 verbose #9400 > > ╭─[ 918.57ms - stdout ]────────────────────────────────────────────────────────╮
00:13:38 verbose #9401 > > │ assert_eq' / actual: "00010101-0000-0000-0000-000400543210" / expected: │
00:13:38 verbose #9402 > > │ "00010101-0000-0000-0000-000400543210" │
00:13:38 verbose #9403 > > │ │
00:13:38 verbose #9404 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:38 verbose #9405 > >
00:13:38 verbose #9406 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:38 verbose #9407 > > //// test
00:13:38 verbose #9408 > > ///! rust -d chrono
00:13:38 verbose #9409 > >
00:13:38 verbose #9410 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:13:38 verbose #9411 > > - 6i32) (am'.End id)
00:13:38 verbose #9412 > > types ()
00:13:38 verbose #9413 > > min_value ()
00:13:38 verbose #9414 > > |> specify_date_kind Local
00:13:38 verbose #9415 > > |> date_time_guid_from_date_time (test_guid ())
00:13:38 verbose #9416 > > |> sm'.obj_to_string
00:13:38 verbose #9417 > > |> fun s => s |> _assert_eq'
00:13:38 verbose #9418 > > $'$"00010101-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:13:42 verbose #9419 > >
00:13:42 verbose #9420 > > ╭─[ 3.74s - return value ]─────────────────────────────────────────────────────╮
00:13:42 verbose #9421 > > │ assert_eq' / actual: "00010101-0000-0000-0000-000000543210" / expected: │
00:13:42 verbose #9422 > > │ "00010101-0000-0000-0000-000000543210" │
00:13:42 verbose #9423 > > │ │
00:13:42 verbose #9424 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:42 verbose #9425 > >
00:13:42 verbose #9426 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:42 verbose #9427 > > //// test
00:13:42 verbose #9428 > >
00:13:42 verbose #9429 > > types ()
00:13:42 verbose #9430 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:13:42 verbose #9431 > > - 6i32) (am'.End id)
00:13:42 verbose #9432 > > max_value ()
00:13:42 verbose #9433 > > |> specify_date_kind Utc
00:13:42 verbose #9434 > > |> add_days -1
00:13:42 verbose #9435 > > |> date_time_guid_from_date_time (test_guid ())
00:13:42 verbose #9436 > > |> sm'.obj_to_string
00:13:42 verbose #9437 > > |> fun s => s |> _assert_eq
00:13:42 verbose #9438 > > $'$"99991230-2359-5999-9999-9{!s.[[25..29]]}{!suffix}"'
00:13:43 verbose #9439 > >
00:13:43 verbose #9440 > > ╭─[ 1.01s - stdout ]───────────────────────────────────────────────────────────╮
00:13:43 verbose #9441 > > │ assert_eq / actual: "99991230-2359-5999-9999-900400543210" / expected: │
00:13:43 verbose #9442 > > │ "99991230-2359-5999-9999-900400543210" │
00:13:43 verbose #9443 > > │ │
00:13:43 verbose #9444 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:43 verbose #9445 > >
00:13:43 verbose #9446 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:43 verbose #9447 > > //// test
00:13:43 verbose #9448 > > ///! rust -d chrono
00:13:43 verbose #9449 > >
00:13:43 verbose #9450 > > types ()
00:13:43 verbose #9451 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:13:43 verbose #9452 > > - 6i32) (am'.End id)
00:13:43 verbose #9453 > > max_value ()
00:13:43 verbose #9454 > > |> specify_date_kind Utc
00:13:43 verbose #9455 > > |> add_days -1
00:13:43 verbose #9456 > > |> date_time_guid_from_date_time (test_guid ())
00:13:43 verbose #9457 > > |> sm'.obj_to_string
00:13:43 verbose #9458 > > |> fun s => s |> _assert_eq
00:13:43 verbose #9459 > > $'$"99991230-2359-5999-9999-0{!s.[[25..29]]}{!suffix}"'
00:13:48 verbose #9460 > >
00:13:48 verbose #9461 > > ╭─[ 5.39s - return value ]─────────────────────────────────────────────────────╮
00:13:48 verbose #9462 > > │ assert_eq / actual: "99991230-2359-5999-9999-000000543210" / expected: │
00:13:48 verbose #9463 > > │ "99991230-2359-5999-9999-000000543210" │
00:13:48 verbose #9464 > > │ │
00:13:48 verbose #9465 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #9466 > >
00:13:48 verbose #9467 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #9468 > > //// test
00:13:48 verbose #9469 > >
00:13:48 verbose #9470 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:13:48 verbose #9471 > > - 6i32) (am'.End id)
00:13:48 verbose #9472 > > unix_epoch ()
00:13:48 verbose #9473 > > |> specify_date_kind Utc
00:13:48 verbose #9474 > > |> add_days 1
00:13:48 verbose #9475 > > |> date_time_guid_from_date_time (test_guid ())
00:13:48 verbose #9476 > > |> sm'.obj_to_string
00:13:48 verbose #9477 > > |> fun s => s |> _assert_eq
00:13:48 verbose #9478 > > $'$"19700102-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:13:49 verbose #9479 > >
00:13:49 verbose #9480 > > ╭─[ 1.15s - stdout ]───────────────────────────────────────────────────────────╮
00:13:49 verbose #9481 > > │ assert_eq / actual: "19700102-0000-0000-0000-000400543210" / expected: │
00:13:49 verbose #9482 > > │ "19700102-0000-0000-0000-000400543210" │
00:13:49 verbose #9483 > > │ │
00:13:49 verbose #9484 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:49 verbose #9485 > >
00:13:49 verbose #9486 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:49 verbose #9487 > > //// test
00:13:49 verbose #9488 > > ///! rust -d chrono
00:13:49 verbose #9489 > >
00:13:49 verbose #9490 > > types ()
00:13:49 verbose #9491 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:13:49 verbose #9492 > > - 6i32) (am'.End id)
00:13:49 verbose #9493 > > unix_epoch ()
00:13:49 verbose #9494 > > |> specify_date_kind Utc
00:13:49 verbose #9495 > > |> add_days 1
00:13:49 verbose #9496 > > |> date_time_guid_from_date_time (test_guid ())
00:13:49 verbose #9497 > > |> sm'.obj_to_string
00:13:49 verbose #9498 > > |> fun s => s |> _assert_eq
00:13:49 verbose #9499 > > $'$"19700102-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:13:54 verbose #9500 > >
00:13:54 verbose #9501 > > ╭─[ 4.42s - return value ]─────────────────────────────────────────────────────╮
00:13:54 verbose #9502 > > │ assert_eq / actual: "19700102-0000-0000-0000-000000543210" / expected: │
00:13:54 verbose #9503 > > │ "19700102-0000-0000-0000-000000543210" │
00:13:54 verbose #9504 > > │ │
00:13:54 verbose #9505 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:54 verbose #9506 > >
00:13:54 verbose #9507 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:54 verbose #9508 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:54 verbose #9509 > > │ ### date_time_from_guid │
00:13:54 verbose #9510 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:54 verbose #9511 > >
00:13:54 verbose #9512 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:54 verbose #9513 > > inl date_time_from_guid (date_time_guid : date_time_guid) =
00:13:54 verbose #9514 > > inl date_time_guid = date_time_guid |> sm'.obj_to_string
00:13:54 verbose #9515 > > inl sm'_replace = join sm'.replace
00:13:54 verbose #9516 > > run_target function
00:13:54 verbose #9517 > > | (Rust _ | TypeScript _) => fun () =>
00:13:54 verbose #9518 > > $'System.DateTime.Parse (!date_time_guid.[[..24]] |> !sm'_replace
00:13:54 verbose #9519 > > "-" "")' : date_time
00:13:54 verbose #9520 > > | _ => fun () => $'System.DateTime.ParseExact (!date_time_guid.[[..24]]
00:13:54 verbose #9521 > > |> !sm'_replace "-" "", "yyyyMMddHHmmssfffffff", null)' : date_time
00:13:55 verbose #9522 > >
00:13:55 verbose #9523 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:55 verbose #9524 > > //// test
00:13:55 verbose #9525 > >
00:13:55 verbose #9526 > > date_time_from_guid (guid.new_guid "00010101-0000-0000-0000-0a9876543210")
00:13:55 verbose #9527 > > |> _assert_eq' (min_value ())
00:13:55 verbose #9528 > >
00:13:55 verbose #9529 > > ╭─[ 786.09ms - stdout ]────────────────────────────────────────────────────────╮
00:13:55 verbose #9530 > > │ assert_eq' / actual: 0001-01-01 12:00:00 AM / expected: 0001-01-01 12:00:00 │
00:13:55 verbose #9531 > > │ AM │
00:13:55 verbose #9532 > > │ │
00:13:55 verbose #9533 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:55 verbose #9534 > >
00:13:55 verbose #9535 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:55 verbose #9536 > > //// test
00:13:55 verbose #9537 > >
00:13:55 verbose #9538 > > date_time_from_guid (guid.new_guid $'$"99991231-2359-5999-9999-9{(!test_guid ()
00:13:55 verbose #9539 > > |> string).[[^10..]]}"')
00:13:55 verbose #9540 > > |> _assert_eq' (max_value ())
00:13:56 verbose #9541 > >
00:13:56 verbose #9542 > > ╭─[ 861.29ms - stdout ]────────────────────────────────────────────────────────╮
00:13:56 verbose #9543 > > │ assert_eq' / actual: 9999-12-31 11:59:59 PM / expected: 9999-12-31 11:59:59 │
00:13:56 verbose #9544 > > │ PM │
00:13:56 verbose #9545 > > │ │
00:13:56 verbose #9546 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:56 verbose #9547 > >
00:13:56 verbose #9548 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:56 verbose #9549 > > //// test
00:13:56 verbose #9550 > >
00:13:56 verbose #9551 > > date_time_from_guid (guid.new_guid $'$"19700101-0000-0000-0000-0{(!test_guid ()
00:13:56 verbose #9552 > > |> string).[[^10..]]}"')
00:13:56 verbose #9553 > > |> _assert_eq' $'System.DateTime.UnixEpoch'
00:13:57 verbose #9554 > >
00:13:57 verbose #9555 > > ╭─[ 723.69ms - stdout ]────────────────────────────────────────────────────────╮
00:13:57 verbose #9556 > > │ assert_eq' / actual: 1970-01-01 12:00:00 AM / expected: 1970-01-01 12:00:00 │
00:13:57 verbose #9557 > > │ AM │
00:13:57 verbose #9558 > > │ │
00:13:57 verbose #9559 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:57 verbose #9560 > >
00:13:57 verbose #9561 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:57 verbose #9562 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:57 verbose #9563 > > │ ### timestamp_guid_from_timestamp │
00:13:57 verbose #9564 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:57 verbose #9565 > >
00:13:57 verbose #9566 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:57 verbose #9567 > > inl timestamp_guid_from_timestamp (guid : guid.guid) (timestamp : timestamp) :
00:13:57 verbose #9568 > > timestamp_guid =
00:13:57 verbose #9569 > > inl guid = guid |> sm'.obj_to_string
00:13:57 verbose #9570 > > inl timestamp = timestamp |> sm'.obj_to_string |> sm'.pad_left 18i32 '0'
00:13:57 verbose #9571 > > $'`timestamp_guid
00:13:57 verbose #9572 > > $"{!timestamp.[[0..7]]}-{!timestamp.[[8..11]]}-{!timestamp.[[12..15]]}-{!timesta
00:13:57 verbose #9573 > > mp.[[16..17]]}{!guid.[[21..]]}"'
00:13:58 verbose #9574 > >
00:13:58 verbose #9575 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:58 verbose #9576 > > //// test
00:13:58 verbose #9577 > >
00:13:58 verbose #9578 > > timestamp_guid_from_timestamp (test_guid ()) (timestamp 0i64)
00:13:58 verbose #9579 > > |> _assert_eq' (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:13:58 verbose #9580 > >
00:13:58 verbose #9581 > > ╭─[ 758.97ms - stdout ]────────────────────────────────────────────────────────╮
00:13:58 verbose #9582 > > │ assert_eq' / actual: 00000000-0000-0000-00dc-ba9876543210 / expected: │
00:13:58 verbose #9583 > > │ 00000000-0000-0000-00dc-ba9876543210 │
00:13:58 verbose #9584 > > │ │
00:13:58 verbose #9585 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:58 verbose #9586 > >
00:13:58 verbose #9587 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:58 verbose #9588 > > //// test
00:13:58 verbose #9589 > >
00:13:58 verbose #9590 > > timestamp_guid_from_timestamp (test_guid ()) (timestamp 999999999999999999i64)
00:13:58 verbose #9591 > > |> _assert_eq' (guid.new_guid $'$"99999999-9999-9999-99dc-b{(!test_guid () |>
00:13:58 verbose #9592 > > string).[[^10..]]}"')
00:13:59 verbose #9593 > >
00:13:59 verbose #9594 > > ╭─[ 725.87ms - stdout ]────────────────────────────────────────────────────────╮
00:13:59 verbose #9595 > > │ assert_eq' / actual: 99999999-9999-9999-99dc-ba9876543210 / expected: │
00:13:59 verbose #9596 > > │ 99999999-9999-9999-99dc-ba9876543210 │
00:13:59 verbose #9597 > > │ │
00:13:59 verbose #9598 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:59 verbose #9599 > >
00:13:59 verbose #9600 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:59 verbose #9601 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:59 verbose #9602 > > │ ### timestamp_from_guid │
00:13:59 verbose #9603 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:59 verbose #9604 > >
00:13:59 verbose #9605 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:59 verbose #9606 > > inl timestamp_from_guid (guid : date_time_guid) : timestamp =
00:13:59 verbose #9607 > > inl guid = guid |> sm'.obj_to_string
00:13:59 verbose #9608 > > $'`i64
00:13:59 verbose #9609 > > $"{!guid.[[0..7]]}{!guid.[[9..12]]}{!guid.[[14..17]]}{!guid.[[19..20]]}"'
00:14:00 verbose #9610 > >
00:14:00 verbose #9611 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:00 verbose #9612 > > //// test
00:14:00 verbose #9613 > >
00:14:00 verbose #9614 > > timestamp_from_guid (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:14:00 verbose #9615 > > |> _assert_eq (timestamp 0)
00:14:01 verbose #9616 > >
00:14:01 verbose #9617 > > ╭─[ 1.40s - stdout ]───────────────────────────────────────────────────────────╮
00:14:01 verbose #9618 > > │ assert_eq / actual: 0L / expected: 0L │
00:14:01 verbose #9619 > > │ │
00:14:01 verbose #9620 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:01 verbose #9621 > >
00:14:01 verbose #9622 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:01 verbose #9623 > > //// test
00:14:01 verbose #9624 > >
00:14:01 verbose #9625 > > timestamp_from_guid (guid.new_guid $'$"99999999-9999-9999-99{(!test_guid () |>
00:14:01 verbose #9626 > > string).[[^14..]]}"')
00:14:01 verbose #9627 > > |> _assert_eq (timestamp 999999999999999999)
00:14:02 verbose #9628 > >
00:14:02 verbose #9629 > > ╭─[ 1.01s - stdout ]───────────────────────────────────────────────────────────╮
00:14:02 verbose #9630 > > │ assert_eq / actual: 999999999999999999L / expected: 999999999999999999L │
00:14:02 verbose #9631 > > │ │
00:14:02 verbose #9632 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:02 verbose #9633 > >
00:14:02 verbose #9634 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:02 verbose #9635 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:02 verbose #9636 > > │ ### new_guid_from_date_time │
00:14:02 verbose #9637 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:02 verbose #9638 > >
00:14:02 verbose #9639 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:02 verbose #9640 > > inl new_guid_from_date_time (date_time : date_time) =
00:14:02 verbose #9641 > > inl guid = guid.new_raw_guid ()
00:14:02 verbose #9642 > > date_time_guid_from_date_time guid date_time
00:14:03 verbose #9643 > >
00:14:03 verbose #9644 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:03 verbose #9645 > > //// test
00:14:03 verbose #9646 > >
00:14:03 verbose #9647 > > utc_now ()
00:14:03 verbose #9648 > > |> new_guid_from_date_time
00:14:03 verbose #9649 > > |> date_time_from_guid
00:14:03 verbose #9650 > > |> fun date_time => new_time_span date_time (utc_now ()) |> total_seconds |> i32
00:14:03 verbose #9651 > > |> _assert_eq 0
00:14:04 verbose #9652 > >
00:14:04 verbose #9653 > > ╭─[ 871.35ms - stdout ]────────────────────────────────────────────────────────╮
00:14:04 verbose #9654 > > │ assert_eq / actual: 0 / expected: 0 │
00:14:04 verbose #9655 > > │ │
00:14:04 verbose #9656 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:04 verbose #9657 > >
00:14:04 verbose #9658 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:04 verbose #9659 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:04 verbose #9660 > > │ ### new_guid_from_timestamp │
00:14:04 verbose #9661 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:04 verbose #9662 > >
00:14:04 verbose #9663 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:04 verbose #9664 > > inl new_guid_from_timestamp (timestamp : timestamp) =
00:14:04 verbose #9665 > > inl guid = guid.new_raw_guid ()
00:14:04 verbose #9666 > > timestamp_guid_from_timestamp guid timestamp
00:14:04 verbose #9667 > >
00:14:04 verbose #9668 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:04 verbose #9669 > > //// test
00:14:04 verbose #9670 > >
00:14:04 verbose #9671 > > utc_now ()
00:14:04 verbose #9672 > > |> ticks
00:14:04 verbose #9673 > > |> new_guid_from_timestamp
00:14:04 verbose #9674 > > |> timestamp_from_guid
00:14:04 verbose #9675 > > |> fun (timestamp timestamp) => (timestamp - (utc_now () |> ticks |> fun
00:14:04 verbose #9676 > > (timestamp x) => x)) / 100000i64
00:14:04 verbose #9677 > > |> _assert_eq 0i64
00:14:05 verbose #9678 > >
00:14:05 verbose #9679 > > ╭─[ 688.06ms - stdout ]────────────────────────────────────────────────────────╮
00:14:05 verbose #9680 > > │ assert_eq / actual: 0L / expected: 0L │
00:14:05 verbose #9681 > > │ │
00:14:05 verbose #9682 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:05 verbose #9683 > >
00:14:05 verbose #9684 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:05 verbose #9685 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:05 verbose #9686 > > │ ## main │
00:14:05 verbose #9687 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:05 verbose #9688 > >
00:14:05 verbose #9689 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:05 verbose #9690 > > inl main () =
00:14:05 verbose #9691 > > types ()
00:14:05 verbose #9692 > > $'let date_time_guid_from_date_time x = !date_time_guid_from_date_time x' :
00:14:05 verbose #9693 > > ()
00:14:05 verbose #9694 > > $'let date_time_from_guid x = !date_time_from_guid x' : ()
00:14:05 verbose #9695 > > $'let timestamp_guid_from_timestamp x = !timestamp_guid_from_timestamp x' :
00:14:05 verbose #9696 > > ()
00:14:05 verbose #9697 > > $'let timestamp_from_guid x = !timestamp_from_guid x' : ()
00:14:05 verbose #9698 > > $'let new_guid_from_date_time x = !new_guid_from_date_time x' : ()
00:14:05 verbose #9699 > > $'let new_guid_from_timestamp x = !new_guid_from_timestamp x' : ()
00:14:05 verbose #9700 > > $'let format x = !format x' : ()
00:14:05 verbose #9701 > > $'let format_iso8601 x = !format_iso8601 x' : ()
00:14:06 verbose #9702 > 00:01:15 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 42105
00:14:06 verbose #9703 > 00:01:15 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:14:11 verbose #9704 > 00:01:20 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb to html
00:14:11 verbose #9705 > 00:01:20 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:14:11 verbose #9706 > 00:01:20 verbose #7 ! validate(nb)
00:14:14 verbose #9707 > 00:01:22 verbose #8 ! [NbConvertApp] Writing 395903 bytes to c:\home\git\polyglot\lib\spiral\date_time.dib.html
00:14:14 verbose #9708 > 00:01:22 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:14:14 verbose #9709 > 00:01:22 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:14:14 verbose #9710 > 00:01:22 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/date_time.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/date_time.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:14:15 verbose #9711 > 00:01:23 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:14:15 verbose #9712 > 00:01:23 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:14:15 verbose #9713 > 00:01:24 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 42813
00:14:15 debug #9714 runtime.execute_with_options_async / exit_code: 0 / output.Length: 46823
00:14:15 debug #13 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path date_time.dib --retries 3
00:14:15 debug #9715 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 3",
[||], None, None, true, None)
00:14:15 verbose #9716 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "math.dib", "--retries", "3"])
00:14:15 verbose #9717 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/math.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/math.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/math.dib" --output-path "c:/home/git/polyglot/lib/spiral/math.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:14:18 verbose #9718 > >
00:14:18 verbose #9719 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:18 verbose #9720 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:18 verbose #9721 > > │ # math │
00:14:18 verbose #9722 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:18 verbose #9723 > >
00:14:18 verbose #9724 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:18 verbose #9725 > > //// test
00:14:18 verbose #9726 > >
00:14:18 verbose #9727 > > open testing
00:14:18 verbose #9728 > >
00:14:18 verbose #9729 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:14:18 verbose #9730 > > #r
00:14:18 verbose #9731 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:14:18 verbose #9732 > > otNet.Interactive.Spiral.dll"
00:14:18 verbose #9733 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:14:18 verbose #9734 > > #r
00:14:18 verbose #9735 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:14:18 verbose #9736 > > otNet.Interactive.dll"
00:14:18 verbose #9737 > > open type Microsoft.DotNet.Interactive.Kernel
00:14:23 verbose #9738 > >
00:14:23 verbose #9739 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:23 verbose #9740 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:23 verbose #9741 > > │ ## math │
00:14:23 verbose #9742 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:23 verbose #9743 > >
00:14:23 verbose #9744 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:23 verbose #9745 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:23 verbose #9746 > > │ ### e │
00:14:23 verbose #9747 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:23 verbose #9748 > >
00:14:23 verbose #9749 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:23 verbose #9750 > > inl e () =
00:14:23 verbose #9751 > > exp 1f64
00:14:24 verbose #9752 > >
00:14:24 verbose #9753 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:24 verbose #9754 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:24 verbose #9755 > > │ ## square │
00:14:24 verbose #9756 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:24 verbose #9757 > >
00:14:24 verbose #9758 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:24 verbose #9759 > > inl square x =
00:14:24 verbose #9760 > > x ** 2
00:14:25 verbose #9761 > >
00:14:25 verbose #9762 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:25 verbose #9763 > > //// test
00:14:25 verbose #9764 > >
00:14:25 verbose #9765 > > 5f64
00:14:25 verbose #9766 > > |> sqrt
00:14:25 verbose #9767 > > |> square
00:14:25 verbose #9768 > > |> _assert_approx_eq None 5
00:14:26 verbose #9769 > >
00:14:26 verbose #9770 > > ╭─[ 1.18s - stdout ]───────────────────────────────────────────────────────────╮
00:14:26 verbose #9771 > > │ assert_approx_eq / actual: 5.0 / expected: 5.0 │
00:14:26 verbose #9772 > > │ │
00:14:26 verbose #9773 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:26 verbose #9774 > >
00:14:26 verbose #9775 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:26 verbose #9776 > > //// test
00:14:26 verbose #9777 > >
00:14:26 verbose #9778 > > e () |> square
00:14:26 verbose #9779 > > |> _assert_approx_eq None 7.3890560989306495
00:14:27 verbose #9780 > >
00:14:27 verbose #9781 > > ╭─[ 648.40ms - stdout ]────────────────────────────────────────────────────────╮
00:14:27 verbose #9782 > > │ assert_approx_eq / actual: 7.389056099 / expected: 7.389056099 │
00:14:27 verbose #9783 > > │ │
00:14:27 verbose #9784 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:27 verbose #9785 > >
00:14:27 verbose #9786 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:27 verbose #9787 > > //// test
00:14:27 verbose #9788 > >
00:14:27 verbose #9789 > > 2 * 2 / 0.4f64 |> sqrt
00:14:27 verbose #9790 > > |> _assert_approx_eq None 3.1622776601683795
00:14:27 verbose #9791 > >
00:14:27 verbose #9792 > > ╭─[ 629.42ms - stdout ]────────────────────────────────────────────────────────╮
00:14:27 verbose #9793 > > │ assert_approx_eq / actual: 3.16227766 / expected: 3.16227766 │
00:14:27 verbose #9794 > > │ │
00:14:27 verbose #9795 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:27 verbose #9796 > >
00:14:27 verbose #9797 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:27 verbose #9798 > > //// test
00:14:27 verbose #9799 > >
00:14:27 verbose #9800 > > 2f64 / 3
00:14:27 verbose #9801 > > |> _assert_approx_eq None 0.6666666666666666
00:14:28 verbose #9802 > >
00:14:28 verbose #9803 > > ╭─[ 652.01ms - stdout ]────────────────────────────────────────────────────────╮
00:14:28 verbose #9804 > > │ assert_approx_eq / actual: 0.6666666667 / expected: 0.6666666667 │
00:14:28 verbose #9805 > > │ │
00:14:28 verbose #9806 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:28 verbose #9807 > >
00:14:28 verbose #9808 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:28 verbose #9809 > > //// test
00:14:28 verbose #9810 > >
00:14:28 verbose #9811 > > 2f64 |> log
00:14:28 verbose #9812 > > |> _assert_approx_eq None 0.6931471805599453
00:14:29 verbose #9813 > >
00:14:29 verbose #9814 > > ╭─[ 646.50ms - stdout ]────────────────────────────────────────────────────────╮
00:14:29 verbose #9815 > > │ assert_approx_eq / actual: 0.6931471806 / expected: 0.6931471806 │
00:14:29 verbose #9816 > > │ │
00:14:29 verbose #9817 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:29 verbose #9818 > >
00:14:29 verbose #9819 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:29 verbose #9820 > > //// test
00:14:29 verbose #9821 > >
00:14:29 verbose #9822 > > pi
00:14:29 verbose #9823 > > |> _assert_approx_eq None 3.141592653589793f64
00:14:29 verbose #9824 > >
00:14:29 verbose #9825 > > ╭─[ 675.92ms - stdout ]────────────────────────────────────────────────────────╮
00:14:29 verbose #9826 > > │ assert_approx_eq / actual: 3.141592654 / expected: 3.141592654 │
00:14:29 verbose #9827 > > │ │
00:14:29 verbose #9828 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:29 verbose #9829 > >
00:14:29 verbose #9830 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:29 verbose #9831 > > //// test
00:14:29 verbose #9832 > >
00:14:29 verbose #9833 > > pi |> cos
00:14:29 verbose #9834 > > |> _assert_eq -1f64
00:14:30 verbose #9835 > >
00:14:30 verbose #9836 > > ╭─[ 630.30ms - stdout ]────────────────────────────────────────────────────────╮
00:14:30 verbose #9837 > > │ assert_eq / actual: -1.0 / expected: -1.0 │
00:14:30 verbose #9838 > > │ │
00:14:30 verbose #9839 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:30 verbose #9840 > >
00:14:30 verbose #9841 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:30 verbose #9842 > > //// test
00:14:30 verbose #9843 > >
00:14:30 verbose #9844 > > pi
00:14:30 verbose #9845 > > |> cos
00:14:30 verbose #9846 > > |> fun n => n / 2f64
00:14:30 verbose #9847 > > |> _assert_approx_eq None -0.5
00:14:30 verbose #9848 > >
00:14:30 verbose #9849 > > ╭─[ 630.23ms - stdout ]────────────────────────────────────────────────────────╮
00:14:30 verbose #9850 > > │ assert_approx_eq / actual: -0.5 / expected: -0.5 │
00:14:30 verbose #9851 > > │ │
00:14:30 verbose #9852 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:30 verbose #9853 > >
00:14:30 verbose #9854 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:30 verbose #9855 > > //// test
00:14:30 verbose #9856 > >
00:14:30 verbose #9857 > > pi / 2 |> cos
00:14:30 verbose #9858 > > |> _assert_approx_eq None 0.00000000000000006123233995736766f64
00:14:31 verbose #9859 > >
00:14:31 verbose #9860 > > ╭─[ 635.69ms - stdout ]────────────────────────────────────────────────────────╮
00:14:31 verbose #9861 > > │ assert_approx_eq / actual: 6.123233996e-17 / expected: 6.123233996e-17 │
00:14:31 verbose #9862 > > │ │
00:14:31 verbose #9863 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:31 verbose #9864 > >
00:14:31 verbose #9865 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:31 verbose #9866 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:31 verbose #9867 > > │ ## fsharp │
00:14:31 verbose #9868 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:31 verbose #9869 > >
00:14:31 verbose #9870 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:31 verbose #9871 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:31 verbose #9872 > > │ ### atan2 │
00:14:31 verbose #9873 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:31 verbose #9874 > >
00:14:31 verbose #9875 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:31 verbose #9876 > > inl atan2 (y : f64) (x : f64) : f64 =
00:14:31 verbose #9877 > > $'System.Math.Atan2 (!y, !x)'
00:14:32 verbose #9878 > >
00:14:32 verbose #9879 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:32 verbose #9880 > > //// test
00:14:32 verbose #9881 > >
00:14:32 verbose #9882 > > 0 |> atan2 1
00:14:32 verbose #9883 > > |> _assert_eq 1.5707963267948966
00:14:32 verbose #9884 > >
00:14:32 verbose #9885 > > ╭─[ 733.85ms - stdout ]────────────────────────────────────────────────────────╮
00:14:32 verbose #9886 > > │ assert_eq / actual: 1.570796327 / expected: 1.570796327 │
00:14:32 verbose #9887 > > │ │
00:14:32 verbose #9888 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:32 verbose #9889 > >
00:14:32 verbose #9890 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:32 verbose #9891 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:32 verbose #9892 > > │ ## floor │
00:14:32 verbose #9893 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:32 verbose #9894 > >
00:14:32 verbose #9895 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:32 verbose #9896 > > inl floor forall t {float}. (n : t) : t =
00:14:32 verbose #9897 > > n |> $'floor'
00:14:33 verbose #9898 > >
00:14:33 verbose #9899 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:33 verbose #9900 > > //// test
00:14:33 verbose #9901 > >
00:14:33 verbose #9902 > > 0.6 |> floor
00:14:33 verbose #9903 > > |> _assert_eq 0f64
00:14:34 verbose #9904 > >
00:14:34 verbose #9905 > > ╭─[ 692.07ms - stdout ]────────────────────────────────────────────────────────╮
00:14:34 verbose #9906 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:14:34 verbose #9907 > > │ │
00:14:34 verbose #9908 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:34 verbose #9909 > >
00:14:34 verbose #9910 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:34 verbose #9911 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:34 verbose #9912 > > │ ## ceil │
00:14:34 verbose #9913 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:34 verbose #9914 > >
00:14:34 verbose #9915 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:34 verbose #9916 > > inl ceil forall t {float}. (n : t) : t =
00:14:34 verbose #9917 > > n |> $'ceil'
00:14:34 verbose #9918 > >
00:14:34 verbose #9919 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:34 verbose #9920 > > //// test
00:14:34 verbose #9921 > >
00:14:34 verbose #9922 > > 0.6 |> ceil
00:14:34 verbose #9923 > > |> _assert_eq 1f64
00:14:35 verbose #9924 > >
00:14:35 verbose #9925 > > ╭─[ 705.80ms - stdout ]────────────────────────────────────────────────────────╮
00:14:35 verbose #9926 > > │ assert_eq / actual: 1.0 / expected: 1.0 │
00:14:35 verbose #9927 > > │ │
00:14:35 verbose #9928 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:35 verbose #9929 > >
00:14:35 verbose #9930 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:35 verbose #9931 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:35 verbose #9932 > > │ ## round │
00:14:35 verbose #9933 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:35 verbose #9934 > >
00:14:35 verbose #9935 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:35 verbose #9936 > > inl round forall t {float}. (n : t) : t =
00:14:35 verbose #9937 > > n |> $'round'
00:14:36 verbose #9938 > >
00:14:36 verbose #9939 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:36 verbose #9940 > > //// test
00:14:36 verbose #9941 > >
00:14:36 verbose #9942 > > 0.5 |> round
00:14:36 verbose #9943 > > |> _assert_eq 0f64
00:14:36 verbose #9944 > >
00:14:36 verbose #9945 > > 1.5 |> round
00:14:36 verbose #9946 > > |> _assert_eq 2f64
00:14:36 verbose #9947 > >
00:14:36 verbose #9948 > > 2.5 |> round
00:14:36 verbose #9949 > > |> _assert_eq 2f64
00:14:36 verbose #9950 > >
00:14:36 verbose #9951 > > 3.5 |> round
00:14:36 verbose #9952 > > |> _assert_eq 4f64
00:14:36 verbose #9953 > >
00:14:36 verbose #9954 > > ╭─[ 707.57ms - stdout ]────────────────────────────────────────────────────────╮
00:14:36 verbose #9955 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:14:36 verbose #9956 > > │ assert_eq / actual: 2.0 / expected: 2.0 │
00:14:36 verbose #9957 > > │ assert_eq / actual: 2.0 / expected: 2.0 │
00:14:36 verbose #9958 > > │ assert_eq / actual: 4.0 / expected: 4.0 │
00:14:36 verbose #9959 > > │ │
00:14:36 verbose #9960 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:36 verbose #9961 > >
00:14:36 verbose #9962 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:36 verbose #9963 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:36 verbose #9964 > > │ ## log_base │
00:14:36 verbose #9965 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:36 verbose #9966 > >
00:14:36 verbose #9967 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:36 verbose #9968 > > inl log_base (new_base : f64) (a : f64) : f64 =
00:14:36 verbose #9969 > > $'System.Math.Log (!a, !new_base)'
00:14:37 verbose #9970 > >
00:14:37 verbose #9971 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:37 verbose #9972 > > //// test
00:14:37 verbose #9973 > >
00:14:37 verbose #9974 > > 100 |> log_base 10
00:14:37 verbose #9975 > > |> _assert_eq 2
00:14:38 verbose #9976 > >
00:14:38 verbose #9977 > > ╭─[ 676.53ms - stdout ]────────────────────────────────────────────────────────╮
00:14:38 verbose #9978 > > │ assert_eq / actual: 2.0 / expected: 2.0 │
00:14:38 verbose #9979 > > │ │
00:14:38 verbose #9980 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:38 verbose #9981 > >
00:14:38 verbose #9982 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:38 verbose #9983 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:38 verbose #9984 > > │ ## round │
00:14:38 verbose #9985 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:38 verbose #9986 > >
00:14:38 verbose #9987 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:38 verbose #9988 > > inl round forall t {float}. (x : t) : t =
00:14:38 verbose #9989 > > x |> $'round'
00:14:38 verbose #9990 > >
00:14:38 verbose #9991 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:38 verbose #9992 > > //// test
00:14:38 verbose #9993 > >
00:14:38 verbose #9994 > > 0.5 |> round
00:14:38 verbose #9995 > > |> _assert_eq 0f64
00:14:39 verbose #9996 > >
00:14:39 verbose #9997 > > ╭─[ 718.02ms - stdout ]────────────────────────────────────────────────────────╮
00:14:39 verbose #9998 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:14:39 verbose #9999 > > │ │
00:14:39 verbose #10000 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:39 verbose #10001 > >
00:14:39 verbose #10002 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:39 verbose #10003 > > //// test
00:14:39 verbose #10004 > >
00:14:39 verbose #10005 > > 0.6 |> round
00:14:39 verbose #10006 > > |> _assert_eq 1f64
00:14:40 verbose #10007 > >
00:14:40 verbose #10008 > > ╭─[ 681.42ms - stdout ]────────────────────────────────────────────────────────╮
00:14:40 verbose #10009 > > │ assert_eq / actual: 1.0 / expected: 1.0 │
00:14:40 verbose #10010 > > │ │
00:14:40 verbose #10011 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:40 verbose #10012 > 00:00:24 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 12975
00:14:40 verbose #10013 > 00:00:24 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/math.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/math.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:14:42 verbose #10014 > 00:00:26 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/math.dib.ipynb to html
00:14:42 verbose #10015 > 00:00:26 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:14:42 verbose #10016 > 00:00:26 verbose #7 ! validate(nb)
00:14:43 verbose #10017 > 00:00:28 verbose #8 ! [NbConvertApp] Writing 304804 bytes to c:\home\git\polyglot\lib\spiral\math.dib.html
00:14:44 verbose #10018 > 00:00:28 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:14:44 verbose #10019 > 00:00:28 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:14:44 verbose #10020 > 00:00:28 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:14:45 verbose #10021 > 00:00:29 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:14:45 verbose #10022 > 00:00:29 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:14:45 verbose #10023 > 00:00:29 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 13673
00:14:45 debug #10024 runtime.execute_with_options_async / exit_code: 0 / output.Length: 16500
00:14:45 debug #14 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 3
00:14:45 debug #10025 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path mapm.dib --retries 3",
[||], None, None, true, None)
00:14:45 verbose #10026 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "mapm.dib", "--retries", "3"])
00:14:45 verbose #10027 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/mapm.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/mapm.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/mapm.dib" --output-path "c:/home/git/polyglot/lib/spiral/mapm.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:14:47 verbose #10028 > >
00:14:47 verbose #10029 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:47 verbose #10030 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:47 verbose #10031 > > │ # mapm │
00:14:47 verbose #10032 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:47 verbose #10033 > >
00:14:47 verbose #10034 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:47 verbose #10035 > > open rust_operators
00:14:47 verbose #10036 > >
00:14:47 verbose #10037 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:14:47 verbose #10038 > > #r
00:14:47 verbose #10039 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:14:47 verbose #10040 > > otNet.Interactive.Spiral.dll"
00:14:47 verbose #10041 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:14:47 verbose #10042 > > #r
00:14:47 verbose #10043 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:14:47 verbose #10044 > > otNet.Interactive.dll"
00:14:47 verbose #10045 > > open type Microsoft.DotNet.Interactive.Kernel
00:14:53 verbose #10046 > >
00:14:53 verbose #10047 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:53 verbose #10048 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:53 verbose #10049 > > │ ## types │
00:14:53 verbose #10050 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:53 verbose #10051 > >
00:14:53 verbose #10052 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:53 verbose #10053 > > inl types () =
00:14:53 verbose #10054 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:14:53 verbose #10055 > > Fable.Core.Emit(\"std::collections::HashMap<$0, $1>\")>]]\n#endif\ntype
00:14:53 verbose #10056 > > std_collections_HashMap<'K, 'V> = class end"
00:14:53 verbose #10057 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:14:53 verbose #10058 > > Fable.Core.Emit(\"std::collections::BTreeMap<$0, $1>\")>]]\n#endif\ntype
00:14:53 verbose #10059 > > std_collections_BTreeMap<'K, 'V> = class end"
00:14:54 verbose #10060 > >
00:14:54 verbose #10061 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:54 verbose #10062 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:54 verbose #10063 > > │ ## rust │
00:14:54 verbose #10064 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:54 verbose #10065 > >
00:14:54 verbose #10066 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:54 verbose #10067 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:54 verbose #10068 > > │ ### hash_map │
00:14:54 verbose #10069 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:54 verbose #10070 > >
00:14:54 verbose #10071 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:54 verbose #10072 > > nominal hash_map k v = $'std_collections_HashMap<`k, `v>'
00:14:55 verbose #10073 > >
00:14:55 verbose #10074 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:55 verbose #10075 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:55 verbose #10076 > > │ ### b_tree_map │
00:14:55 verbose #10077 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:55 verbose #10078 > >
00:14:55 verbose #10079 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:55 verbose #10080 > > nominal b_tree_map k v = $'std_collections_BTreeMap<`k, `v>'
00:14:55 verbose #10081 > >
00:14:55 verbose #10082 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:55 verbose #10083 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:55 verbose #10084 > > │ ### new_hash_map │
00:14:55 verbose #10085 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:55 verbose #10086 > >
00:14:55 verbose #10087 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:55 verbose #10088 > > inl new_hash_map () : hash_map _ _ =
00:14:55 verbose #10089 > > !\($'"std::collections::HashMap::new()"')
00:14:56 verbose #10090 > >
00:14:56 verbose #10091 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:56 verbose #10092 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:56 verbose #10093 > > │ ### new_b_tree_map │
00:14:56 verbose #10094 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:56 verbose #10095 > >
00:14:56 verbose #10096 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:56 verbose #10097 > > inl new_b_tree_map () : b_tree_map _ _ =
00:14:56 verbose #10098 > > !\($'"std::collections::BTreeMap::new()"')
00:14:57 verbose #10099 > >
00:14:57 verbose #10100 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:57 verbose #10101 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:57 verbose #10102 > > │ ### get │
00:14:57 verbose #10103 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:57 verbose #10104 > >
00:14:57 verbose #10105 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:57 verbose #10106 > > inl get forall k v. (key : k) (map : hash_map k v) : optionm'.option' v =
00:14:57 verbose #10107 > > inl key = join key
00:14:57 verbose #10108 > > !\\(map, $'"std::collections::HashMap::get(&$0, &!key).map(|x|
00:14:57 verbose #10109 > > x).cloned()"')
00:14:59 verbose #10110 > >
00:14:59 verbose #10111 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:59 verbose #10112 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:59 verbose #10113 > > │ ### insert │
00:14:59 verbose #10114 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:59 verbose #10115 > >
00:14:59 verbose #10116 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:59 verbose #10117 > > inl insert forall k v. (key : k) (value : v) (map : hash_map k v) :
00:14:59 verbose #10118 > > optionm'.option' v =
00:14:59 verbose #10119 > > inl key = join key
00:14:59 verbose #10120 > > !\($'"let mut !map = !map"')
00:14:59 verbose #10121 > > !\($'"std::collections::HashMap::insert(&mut !map, !key, !value)"')
00:14:59 verbose #10122 > >
00:14:59 verbose #10123 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:59 verbose #10124 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:59 verbose #10125 > > │ ### map' │
00:14:59 verbose #10126 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:59 verbose #10127 > >
00:14:59 verbose #10128 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:59 verbose #10129 > > inl map' forall k v w. (fn : v -> w) (map : hash_map k v) : hash_map k w =
00:14:59 verbose #10130 > > !\\((map, fn), $'"$0.into_iter().map(|(k, v)| (k, $1(v))).collect()"')
00:15:00 verbose #10131 > >
00:15:00 verbose #10132 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:00 verbose #10133 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:00 verbose #10134 > > │ ### hash_map_count │
00:15:00 verbose #10135 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:00 verbose #10136 > >
00:15:00 verbose #10137 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:00 verbose #10138 > > inl hash_map_count forall k v. (map : hash_map k v) : i32 =
00:15:00 verbose #10139 > > !\\(map, $'"$0.count()"')
00:15:01 verbose #10140 > >
00:15:01 verbose #10141 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:01 verbose #10142 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:01 verbose #10143 > > │ ### from_vec │
00:15:01 verbose #10144 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:01 verbose #10145 > >
00:15:01 verbose #10146 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:01 verbose #10147 > > inl from_vec forall k v. (vec : am'.vec (k * v)) : hash_map k v =
00:15:01 verbose #10148 > > !\($'"std::collections::HashMap::from_iter(!vec)"')
00:15:02 verbose #10149 > >
00:15:02 verbose #10150 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:02 verbose #10151 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:02 verbose #10152 > > │ ### from_vec_pairs │
00:15:02 verbose #10153 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:02 verbose #10154 > >
00:15:02 verbose #10155 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:02 verbose #10156 > > inl from_vec_pairs forall k v. (vec : am'.vec (pair k v)) : hash_map k v =
00:15:02 verbose #10157 > > !\($'"std::collections::HashMap::from_iter(!vec.iter().map(|x|
00:15:02 verbose #10158 > > x.as_ref()).map(|&(ref k, ref v)| (k.clone(), v.clone())))"')
00:15:03 verbose #10159 > >
00:15:03 verbose #10160 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:03 verbose #10161 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:03 verbose #10162 > > │ ### b_tree_map_from_vec_pairs │
00:15:03 verbose #10163 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:03 verbose #10164 > >
00:15:03 verbose #10165 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:03 verbose #10166 > > inl b_tree_map_from_vec_pairs forall k v. (vec : am'.vec (pair k v)) :
00:15:03 verbose #10167 > > b_tree_map k v =
00:15:03 verbose #10168 > > !\($'"std::collections::BTreeMap::from_iter(!vec.iter().map(|x|
00:15:03 verbose #10169 > > x.as_ref()).map(|&(ref k, ref v)| (k.clone(), v.clone())))"')
00:15:03 verbose #10170 > >
00:15:03 verbose #10171 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:03 verbose #10172 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:03 verbose #10173 > > │ ### from_array │
00:15:03 verbose #10174 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:03 verbose #10175 > >
00:15:03 verbose #10176 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:03 verbose #10177 > > inl from_array forall k v. (array : array_base (k * v)) : hash_map k v =
00:15:03 verbose #10178 > > array |> am'.to_vec |> from_vec
00:15:04 verbose #10179 > >
00:15:04 verbose #10180 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:04 verbose #10181 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:04 verbose #10182 > > │ ### from_list │
00:15:04 verbose #10183 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:04 verbose #10184 > >
00:15:04 verbose #10185 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:04 verbose #10186 > > inl from_list forall k v. (list : list (k * v)) : hash_map k v =
00:15:04 verbose #10187 > > inl (a list) : _ i32 _ = list |> listm.toArray
00:15:04 verbose #10188 > > list |> am'.to_vec |> from_vec
00:15:05 verbose #10189 > >
00:15:05 verbose #10190 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:05 verbose #10191 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:05 verbose #10192 > > │ ### to_vec │
00:15:05 verbose #10193 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:05 verbose #10194 > >
00:15:05 verbose #10195 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:05 verbose #10196 > > inl to_vec forall k v. (map : hash_map k v) : am'.vec (k * v) =
00:15:05 verbose #10197 > > !\\(map, $'"$0.into_iter().map(|(k, v)| (k, v)).collect::<Vec<_>>()"')
00:15:05 verbose #10198 > >
00:15:05 verbose #10199 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:05 verbose #10200 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:05 verbose #10201 > > │ ## fsharp │
00:15:05 verbose #10202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:05 verbose #10203 > >
00:15:05 verbose #10204 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:05 verbose #10205 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:05 verbose #10206 > > │ ### map │
00:15:05 verbose #10207 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:05 verbose #10208 > >
00:15:05 verbose #10209 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:05 verbose #10210 > > nominal map k v = $'Map<`k, `v>'
00:15:06 verbose #10211 > >
00:15:06 verbose #10212 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:06 verbose #10213 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:06 verbose #10214 > > │ ### item │
00:15:06 verbose #10215 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:06 verbose #10216 > >
00:15:06 verbose #10217 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:06 verbose #10218 > > inl item forall k v. (k : k) (map : map k v) : v =
00:15:06 verbose #10219 > > $'!map.[[!k]]'
00:15:07 verbose #10220 > >
00:15:07 verbose #10221 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:07 verbose #10222 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:07 verbose #10223 > > │ ### of_array │
00:15:07 verbose #10224 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:07 verbose #10225 > >
00:15:07 verbose #10226 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:07 verbose #10227 > > inl of_array forall k v. (array : a _ (k * v)) : map k v =
00:15:07 verbose #10228 > > $'!array |> Array.map (fun (struct (a, b)) -> a, b) |> Map.ofArray'
00:15:08 verbose #10229 > 00:00:22 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 11283
00:15:08 verbose #10230 > 00:00:22 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/mapm.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/mapm.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:15:10 verbose #10231 > 00:00:24 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/mapm.dib.ipynb to html
00:15:10 verbose #10232 > 00:00:24 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:15:10 verbose #10233 > 00:00:24 verbose #7 ! validate(nb)
00:15:11 verbose #10234 > 00:00:26 verbose #8 ! [NbConvertApp] Writing 301830 bytes to c:\home\git\polyglot\lib\spiral\mapm.dib.html
00:15:11 verbose #10235 > 00:00:26 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:15:11 verbose #10236 > 00:00:26 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:15:11 verbose #10237 > 00:00:26 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/mapm.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/mapm.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:15:12 verbose #10238 > 00:00:27 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:15:12 verbose #10239 > 00:00:27 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:15:13 verbose #10240 > 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 11981
00:15:13 debug #10241 runtime.execute_with_options_async / exit_code: 0 / output.Length: 14622
00:15:13 debug #15 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path mapm.dib --retries 3
00:15:13 debug #10242 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path optionm'.dib --retries 3",
[||], None, None, true, None)
00:15:13 verbose #10243 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "optionm'.dib", "--retries", "3"])
00:15:13 verbose #10244 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/optionm'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/optionm'.dib" --output-path "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:15:15 verbose #10245 > >
00:15:15 verbose #10246 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:15 verbose #10247 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:15 verbose #10248 > > │ # optionm' │
00:15:15 verbose #10249 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:15 verbose #10250 > >
00:15:15 verbose #10251 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:15 verbose #10252 > > open rust_operators
00:15:15 verbose #10253 > >
00:15:15 verbose #10254 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:15:15 verbose #10255 > > #r
00:15:15 verbose #10256 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:15:15 verbose #10257 > > otNet.Interactive.Spiral.dll"
00:15:15 verbose #10258 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:15:15 verbose #10259 > > #r
00:15:15 verbose #10260 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:15:15 verbose #10261 > > otNet.Interactive.dll"
00:15:15 verbose #10262 > > open type Microsoft.DotNet.Interactive.Kernel
00:15:21 verbose #10263 > >
00:15:21 verbose #10264 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:21 verbose #10265 > > //// test
00:15:21 verbose #10266 > >
00:15:21 verbose #10267 > > open testing
00:15:21 verbose #10268 > >
00:15:21 verbose #10269 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:21 verbose #10270 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:21 verbose #10271 > > │ ## optionm' │
00:15:21 verbose #10272 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:21 verbose #10273 > >
00:15:21 verbose #10274 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:21 verbose #10275 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:21 verbose #10276 > > │ ### default_value │
00:15:21 verbose #10277 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:21 verbose #10278 > >
00:15:21 verbose #10279 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:21 verbose #10280 > > inl default_value d =
00:15:21 verbose #10281 > > optionm.defaultWith d
00:15:22 verbose #10282 > >
00:15:22 verbose #10283 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:22 verbose #10284 > > //// test
00:15:22 verbose #10285 > >
00:15:22 verbose #10286 > > None
00:15:22 verbose #10287 > > |> default_value 3i32
00:15:22 verbose #10288 > > |> _assert_eq 3i32
00:15:23 verbose #10289 > >
00:15:23 verbose #10290 > > ╭─[ 1.24s - stdout ]───────────────────────────────────────────────────────────╮
00:15:23 verbose #10291 > > │ assert_eq / actual: 3 / expected: 3 │
00:15:23 verbose #10292 > > │ │
00:15:23 verbose #10293 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:23 verbose #10294 > >
00:15:23 verbose #10295 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:23 verbose #10296 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:23 verbose #10297 > > │ ### (/??) │
00:15:23 verbose #10298 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:23 verbose #10299 > >
00:15:23 verbose #10300 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:23 verbose #10301 > > inl (/??) a b =
00:15:23 verbose #10302 > > a |> default_value b
00:15:24 verbose #10303 > >
00:15:24 verbose #10304 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:24 verbose #10305 > > //// test
00:15:24 verbose #10306 > >
00:15:24 verbose #10307 > > None /?? 3i32
00:15:24 verbose #10308 > > |> _assert_eq 3i32
00:15:24 verbose #10309 > >
00:15:24 verbose #10310 > > ╭─[ 650.11ms - stdout ]────────────────────────────────────────────────────────╮
00:15:24 verbose #10311 > > │ assert_eq / actual: 3 / expected: 3 │
00:15:24 verbose #10312 > > │ │
00:15:24 verbose #10313 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:24 verbose #10314 > >
00:15:24 verbose #10315 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:24 verbose #10316 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:24 verbose #10317 > > │ ### default_with │
00:15:24 verbose #10318 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:24 verbose #10319 > >
00:15:24 verbose #10320 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:24 verbose #10321 > > inl default_with fn = function
00:15:24 verbose #10322 > > | Some x => x
00:15:24 verbose #10323 > > | None => fn ()
00:15:25 verbose #10324 > >
00:15:25 verbose #10325 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:25 verbose #10326 > > //// test
00:15:25 verbose #10327 > >
00:15:25 verbose #10328 > > None
00:15:25 verbose #10329 > > |> default_with fun () => 3i32
00:15:25 verbose #10330 > > |> _assert_eq 3i32
00:15:26 verbose #10331 > >
00:15:26 verbose #10332 > > ╭─[ 620.67ms - stdout ]────────────────────────────────────────────────────────╮
00:15:26 verbose #10333 > > │ assert_eq / actual: 3 / expected: 3 │
00:15:26 verbose #10334 > > │ │
00:15:26 verbose #10335 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:26 verbose #10336 > >
00:15:26 verbose #10337 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:26 verbose #10338 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:26 verbose #10339 > > │ ### choose │
00:15:26 verbose #10340 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:26 verbose #10341 > >
00:15:26 verbose #10342 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:26 verbose #10343 > > inl choose fn a b =
00:15:26 verbose #10344 > > match a, b with
00:15:26 verbose #10345 > > | Some x, Some y => fn x y |> Some
00:15:26 verbose #10346 > > | _ => None
00:15:26 verbose #10347 > >
00:15:26 verbose #10348 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:26 verbose #10349 > > //// test
00:15:26 verbose #10350 > >
00:15:26 verbose #10351 > > (Some 2i32, Some 3)
00:15:26 verbose #10352 > > ||> choose (+)
00:15:26 verbose #10353 > > |> _assert_eq (Some 5)
00:15:27 verbose #10354 > >
00:15:27 verbose #10355 > > ╭─[ 1.14s - stdout ]───────────────────────────────────────────────────────────╮
00:15:27 verbose #10356 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:15:27 verbose #10357 > > │ │
00:15:27 verbose #10358 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:27 verbose #10359 > >
00:15:27 verbose #10360 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:27 verbose #10361 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:27 verbose #10362 > > │ ### iter │
00:15:27 verbose #10363 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:27 verbose #10364 > >
00:15:27 verbose #10365 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:27 verbose #10366 > > inl iter fn = function
00:15:27 verbose #10367 > > | Some x => fn x
00:15:27 verbose #10368 > > | None => ()
00:15:28 verbose #10369 > >
00:15:28 verbose #10370 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:28 verbose #10371 > > //// test
00:15:28 verbose #10372 > >
00:15:28 verbose #10373 > > inl n = mut 1i32
00:15:28 verbose #10374 > > inl fn =
00:15:28 verbose #10375 > > fun n' =>
00:15:28 verbose #10376 > > n <- *n + n'
00:15:28 verbose #10377 > > Some 1i32 |> iter fn
00:15:28 verbose #10378 > > None |> iter fn
00:15:28 verbose #10379 > > *n
00:15:28 verbose #10380 > > |> _assert_eq 2i32
00:15:29 verbose #10381 > >
00:15:29 verbose #10382 > > ╭─[ 876.93ms - stdout ]────────────────────────────────────────────────────────╮
00:15:29 verbose #10383 > > │ assert_eq / actual: 2 / expected: 2 │
00:15:29 verbose #10384 > > │ │
00:15:29 verbose #10385 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:29 verbose #10386 > >
00:15:29 verbose #10387 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:29 verbose #10388 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:29 verbose #10389 > > │ ### flatten │
00:15:29 verbose #10390 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:29 verbose #10391 > >
00:15:29 verbose #10392 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:29 verbose #10393 > > inl flatten x =
00:15:29 verbose #10394 > > match x with
00:15:29 verbose #10395 > > | Some (Some x) => Some x
00:15:29 verbose #10396 > > | _ => None
00:15:30 verbose #10397 > >
00:15:30 verbose #10398 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:30 verbose #10399 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:30 verbose #10400 > > │ ## fsharp │
00:15:30 verbose #10401 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:30 verbose #10402 > >
00:15:30 verbose #10403 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:30 verbose #10404 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:30 verbose #10405 > > │ ### option' │
00:15:30 verbose #10406 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:30 verbose #10407 > >
00:15:30 verbose #10408 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:30 verbose #10409 > > nominal option' t = $'`t option'
00:15:30 verbose #10410 > >
00:15:30 verbose #10411 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:30 verbose #10412 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:30 verbose #10413 > > │ ### none' │
00:15:30 verbose #10414 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:30 verbose #10415 > >
00:15:30 verbose #10416 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:30 verbose #10417 > > inl none' forall t. () : option' t =
00:15:30 verbose #10418 > > $'None'
00:15:31 verbose #10419 > >
00:15:31 verbose #10420 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:31 verbose #10421 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:31 verbose #10422 > > │ ### some' │
00:15:31 verbose #10423 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:31 verbose #10424 > >
00:15:31 verbose #10425 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:31 verbose #10426 > > inl some' forall t. (x : t) : option' t =
00:15:31 verbose #10427 > > $'Some !x '
00:15:32 verbose #10428 > >
00:15:32 verbose #10429 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:32 verbose #10430 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:32 verbose #10431 > > │ ### default_value' │
00:15:32 verbose #10432 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:32 verbose #10433 > >
00:15:32 verbose #10434 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:32 verbose #10435 > > inl default_value' forall t. (value : t) (x : option' t) : t =
00:15:32 verbose #10436 > > $'!x |> Option.defaultValue !value '
00:15:32 verbose #10437 > >
00:15:32 verbose #10438 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:32 verbose #10439 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:32 verbose #10440 > > │ ### box │
00:15:32 verbose #10441 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:32 verbose #10442 > >
00:15:32 verbose #10443 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:32 verbose #10444 > > inl box forall t. (x : option t) : option' t =
00:15:32 verbose #10445 > > // x
00:15:32 verbose #10446 > > // |> optionm.map some'
00:15:32 verbose #10447 > > // |> default_with none'
00:15:32 verbose #10448 > > match x with
00:15:32 verbose #10449 > > | Some x => some' x
00:15:32 verbose #10450 > > | None => none' ()
00:15:33 verbose #10451 > >
00:15:33 verbose #10452 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:33 verbose #10453 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:33 verbose #10454 > > │ ### map │
00:15:33 verbose #10455 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:33 verbose #10456 > >
00:15:33 verbose #10457 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:33 verbose #10458 > > inl map forall t u. (fn : t -> u) (x : option' t) : option' u =
00:15:33 verbose #10459 > > inl result : option' u = none' ()
00:15:33 verbose #10460 > > $'let _!result = ref !result '
00:15:33 verbose #10461 > > $'match !x with'
00:15:33 verbose #10462 > > $'| Some x -> ('
00:15:33 verbose #10463 > > $'(fun () ->'
00:15:33 verbose #10464 > > $'(fun () ->'
00:15:33 verbose #10465 > > inl x = dyn $'x'
00:15:33 verbose #10466 > > x |> fn |> emit_unit
00:15:33 verbose #10467 > > $')'
00:15:33 verbose #10468 > > $'|> fun x -> x () |> Some'
00:15:33 verbose #10469 > > $') () ) | None -> None'
00:15:33 verbose #10470 > > $'|> fun x -> _!result.Value <- x'
00:15:33 verbose #10471 > > $'_!result.Value '
00:15:34 verbose #10472 > >
00:15:34 verbose #10473 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:34 verbose #10474 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:34 verbose #10475 > > │ ### map'' │
00:15:34 verbose #10476 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:34 verbose #10477 > >
00:15:34 verbose #10478 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:34 verbose #10479 > > inl map'' forall t u. (fn : t -> u) (x : option' t) : option' u =
00:15:34 verbose #10480 > > $'!x |> Option.map !fn '
00:15:35 verbose #10481 > >
00:15:35 verbose #10482 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:35 verbose #10483 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:35 verbose #10484 > > │ ### unbox │
00:15:35 verbose #10485 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:35 verbose #10486 > >
00:15:35 verbose #10487 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:35 verbose #10488 > > inl unbox forall t. (x : option' t) : option t =
00:15:35 verbose #10489 > > x |> map Some |> default_value' None
00:15:35 verbose #10490 > > // inl some x : option t = Some x
00:15:35 verbose #10491 > > // inl some = join some
00:15:35 verbose #10492 > > // inl none : option t = None
00:15:35 verbose #10493 > > // $'!x |> Option.map !some |> Option.defaultValue !none '
00:15:35 verbose #10494 > >
00:15:35 verbose #10495 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:35 verbose #10496 > > //// test
00:15:35 verbose #10497 > >
00:15:35 verbose #10498 > > inl x = Some 3i32
00:15:35 verbose #10499 > > inl y : option i32 = None
00:15:35 verbose #10500 > > inl x' = x |> box |> unbox
00:15:35 verbose #10501 > > inl y' = y |> box |> map id |> unbox
00:15:35 verbose #10502 > > (x', y') |> _assert_eq (x, y)
00:15:36 verbose #10503 > >
00:15:36 verbose #10504 > > ╭─[ 775.00ms - stdout ]────────────────────────────────────────────────────────╮
00:15:36 verbose #10505 > > │ assert_eq / actual: struct (US0_0 3, US0_1) / expected: struct (US0_0 3, │
00:15:36 verbose #10506 > > │ US0_1) │
00:15:36 verbose #10507 > > │ │
00:15:36 verbose #10508 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:36 verbose #10509 > >
00:15:36 verbose #10510 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:36 verbose #10511 > > //// test
00:15:36 verbose #10512 > > ///! rust
00:15:36 verbose #10513 > >
00:15:36 verbose #10514 > > inl x = Some 3i32
00:15:36 verbose #10515 > > inl y : option i32 = None
00:15:36 verbose #10516 > > inl x' = x |> box |> unbox
00:15:36 verbose #10517 > > inl y' = y |> box |> map id |> unbox
00:15:36 verbose #10518 > > (x', y') |> _assert_eq' (x, y)
00:15:40 verbose #10519 > >
00:15:40 verbose #10520 > > ╭─[ 4.16s - return value ]─────────────────────────────────────────────────────╮
00:15:40 verbose #10521 > > │ assert_eq' / actual: (US0_0(3), US0_1) / expected: (US0_0(3), US0_1) │
00:15:40 verbose #10522 > > │ │
00:15:40 verbose #10523 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:40 verbose #10524 > >
00:15:40 verbose #10525 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:40 verbose #10526 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:40 verbose #10527 > > │ ### of_obj │
00:15:40 verbose #10528 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:40 verbose #10529 > >
00:15:40 verbose #10530 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:40 verbose #10531 > > inl of_obj forall t. (x : t) : option' t =
00:15:40 verbose #10532 > > $'let mutable _!x = None'
00:15:40 verbose #10533 > > $'#if \!FABLE_COMPILER && \!WASM && \!CONTRACT'
00:15:40 verbose #10534 > > ((x |> $'Option.ofObj') : option' t) |> emit_unit
00:15:40 verbose #10535 > > $'#else'
00:15:40 verbose #10536 > > $'Some !x '
00:15:40 verbose #10537 > > $'#endif'
00:15:40 verbose #10538 > > $'|> fun x -> _!x <- Some x'
00:15:40 verbose #10539 > > $'match _!x with Some x -> x | None -> failwith "optionm\'.of_obj
00:15:40 verbose #10540 > > _!x=None"'
00:15:41 verbose #10541 > >
00:15:41 verbose #10542 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:41 verbose #10543 > > //// test
00:15:41 verbose #10544 > >
00:15:41 verbose #10545 > > null ()
00:15:41 verbose #10546 > > |> of_obj
00:15:41 verbose #10547 > > |> unbox
00:15:41 verbose #10548 > > |> _assert_eq (None : option string)
00:15:42 verbose #10549 > >
00:15:42 verbose #10550 > > ╭─[ 744.98ms - stdout ]────────────────────────────────────────────────────────╮
00:15:42 verbose #10551 > > │ assert_eq / actual: US0_1 / expected: US0_1 │
00:15:42 verbose #10552 > > │ │
00:15:42 verbose #10553 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:42 verbose #10554 > >
00:15:42 verbose #10555 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:42 verbose #10556 > > //// test
00:15:42 verbose #10557 > > ///! rust
00:15:42 verbose #10558 > >
00:15:42 verbose #10559 > > ""
00:15:42 verbose #10560 > > |> of_obj
00:15:42 verbose #10561 > > |> unbox
00:15:42 verbose #10562 > > |> _assert_eq' (Some "")
00:15:46 verbose #10563 > >
00:15:46 verbose #10564 > > ╭─[ 4.52s - return value ]─────────────────────────────────────────────────────╮
00:15:46 verbose #10565 > > │ assert_eq' / actual: US0_0("") / expected: US0_0("") │
00:15:46 verbose #10566 > > │ │
00:15:46 verbose #10567 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:46 verbose #10568 > >
00:15:46 verbose #10569 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:46 verbose #10570 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:46 verbose #10571 > > │ ### flatten' │
00:15:46 verbose #10572 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:46 verbose #10573 > >
00:15:46 verbose #10574 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:46 verbose #10575 > > inl flatten' x =
00:15:46 verbose #10576 > > x
00:15:46 verbose #10577 > > |> unbox
00:15:46 verbose #10578 > > |> optionm.map unbox
00:15:46 verbose #10579 > > |> flatten
00:15:47 verbose #10580 > >
00:15:47 verbose #10581 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:47 verbose #10582 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:47 verbose #10583 > > │ ## rust │
00:15:47 verbose #10584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:47 verbose #10585 > >
00:15:47 verbose #10586 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:47 verbose #10587 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:47 verbose #10588 > > │ ### try' │
00:15:47 verbose #10589 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:47 verbose #10590 > >
00:15:47 verbose #10591 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:47 verbose #10592 > > inl try' forall t. (x : option' t) : t =
00:15:47 verbose #10593 > > !\\(x, $'"$0?"')
00:15:48 verbose #10594 > >
00:15:48 verbose #10595 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:48 verbose #10596 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:48 verbose #10597 > > │ ### map' │
00:15:48 verbose #10598 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:48 verbose #10599 > >
00:15:48 verbose #10600 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:48 verbose #10601 > > inl map' forall t u. (fn : t -> u) (x : option' t) : option' u =
00:15:48 verbose #10602 > > (!\($'"true; let _result = !x.map(|x| { //"') : bool) |> ignore
00:15:48 verbose #10603 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:15:48 verbose #10604 > > !\($'"_result"')
00:15:48 verbose #10605 > >
00:15:48 verbose #10606 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:48 verbose #10607 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:48 verbose #10608 > > │ ### unwrap │
00:15:48 verbose #10609 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:48 verbose #10610 > >
00:15:48 verbose #10611 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:48 verbose #10612 > > inl unwrap forall t. (x : option' t) : t =
00:15:48 verbose #10613 > > !\\(x, $'"$0.unwrap()"')
00:15:49 verbose #10614 > >
00:15:49 verbose #10615 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:49 verbose #10616 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:49 verbose #10617 > > │ ### take │
00:15:49 verbose #10618 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:49 verbose #10619 > >
00:15:49 verbose #10620 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:49 verbose #10621 > > inl take forall t. (x : option' t) : option' t =
00:15:49 verbose #10622 > > (!\\(x, $'"true; let mut !x = !x"') : bool) |> ignore
00:15:49 verbose #10623 > > !\\(x, $'"Option::take(&mut $0)"')
00:15:49 verbose #10624 > >
00:15:49 verbose #10625 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:49 verbose #10626 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:49 verbose #10627 > > │ ### take_ref │
00:15:49 verbose #10628 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:49 verbose #10629 > >
00:15:49 verbose #10630 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:49 verbose #10631 > > inl take_ref forall t. (x : rust.ref' (option' t)) : option' t =
00:15:49 verbose #10632 > > (!\\(x, $'"true; let mut !x = !x"') : bool) |> ignore
00:15:49 verbose #10633 > > !\\(x, $'"Option::take(&mut $0)"')
00:15:50 verbose #10634 > >
00:15:50 verbose #10635 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:50 verbose #10636 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:50 verbose #10637 > > │ ### take_ref_mut │
00:15:50 verbose #10638 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:50 verbose #10639 > >
00:15:50 verbose #10640 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:50 verbose #10641 > > inl take_ref_mut forall t. (x : rust.ref' (rust.mut' (option' t))) : option' t =
00:15:50 verbose #10642 > > !\\(x, $'"Option::take($0)"')
00:15:51 verbose #10643 > >
00:15:51 verbose #10644 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:51 verbose #10645 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:51 verbose #10646 > > │ ### as_ref │
00:15:51 verbose #10647 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:51 verbose #10648 > >
00:15:51 verbose #10649 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:51 verbose #10650 > > inl as_ref forall t. (x : rust.ref' (option' t)) : option' (rust.ref' t) =
00:15:51 verbose #10651 > > !\\(x, $'"$0.as_ref()"')
00:15:52 verbose #10652 > >
00:15:52 verbose #10653 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:52 verbose #10654 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:52 verbose #10655 > > │ ### as_mut │
00:15:52 verbose #10656 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:52 verbose #10657 > >
00:15:52 verbose #10658 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:52 verbose #10659 > > inl as_mut forall t. (x : rust.ref' (rust.mut' (option' t))) : option'
00:15:52 verbose #10660 > > (rust.ref' (rust.mut' t)) =
00:15:52 verbose #10661 > > !\\(x, $'"$0.as_mut()"')
00:15:52 verbose #10662 > >
00:15:52 verbose #10663 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:52 verbose #10664 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:52 verbose #10665 > > │ ### unwrap_or │
00:15:52 verbose #10666 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:52 verbose #10667 > >
00:15:52 verbose #10668 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:52 verbose #10669 > > inl unwrap_or forall t. (def : t) (x : option' t) : t =
00:15:52 verbose #10670 > > !\($'"!x.unwrap_or(!def)"')
00:15:53 verbose #10671 > >
00:15:53 verbose #10672 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:53 verbose #10673 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:53 verbose #10674 > > │ ### and_then │
00:15:53 verbose #10675 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:53 verbose #10676 > >
00:15:53 verbose #10677 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:53 verbose #10678 > > inl and_then forall t u. (fn : t -> option' u) (x : option' t) : option' u =
00:15:53 verbose #10679 > > !\\((x, fn), $'"$0.and_then(|x| $1(x))"')
00:15:53 verbose #10680 > >
00:15:53 verbose #10681 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:53 verbose #10682 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:53 verbose #10683 > > │ ### rc_upgrade │
00:15:53 verbose #10684 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:53 verbose #10685 > >
00:15:53 verbose #10686 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:53 verbose #10687 > > inl rc_upgrade forall t. (x : rust.weak_rc t) : option' (rust.rc t) =
00:15:53 verbose #10688 > > !\\(x, $'"std::rc::Weak::upgrade(&$0)"')
00:15:54 verbose #10689 > >
00:15:54 verbose #10690 > > ── markdown ────────────────────────────────────────────────────────────────────
00:15:54 verbose #10691 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:15:54 verbose #10692 > > │ ### rc_into_inner │
00:15:54 verbose #10693 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:54 verbose #10694 > >
00:15:54 verbose #10695 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:54 verbose #10696 > > inl rc_into_inner forall t. (x : rust.rc t) : option' t =
00:15:54 verbose #10697 > > !\\(x, $'"std::rc::Rc::into_inner($0)"')
00:15:55 verbose #10698 > >
00:15:55 verbose #10699 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:15:55 verbose #10700 > > //// test
00:15:55 verbose #10701 > > ///! rust
00:15:55 verbose #10702 > >
00:15:55 verbose #10703 > > types ()
00:15:55 verbose #10704 > > rust.new_rc 0i32
00:15:55 verbose #10705 > > |> rc_into_inner
00:15:55 verbose #10706 > > |> unbox
00:15:55 verbose #10707 > > |> _assert_eq' (Some 0i32)
00:15:58 verbose #10708 > >
00:15:58 verbose #10709 > > ╭─[ 3.57s - return value ]─────────────────────────────────────────────────────╮
00:15:58 verbose #10710 > > │ assert_eq' / actual: US0_0(0) / expected: US0_0(0) │
00:15:58 verbose #10711 > > │ │
00:15:58 verbose #10712 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:15:59 verbose #10713 > 00:00:45 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 21788
00:15:59 verbose #10714 > 00:00:45 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:16:01 verbose #10715 > 00:00:47 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb to html
00:16:01 verbose #10716 > 00:00:47 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:16:01 verbose #10717 > 00:00:47 verbose #7 ! validate(nb)
00:16:02 verbose #10718 > 00:00:49 verbose #8 ! [NbConvertApp] Writing 336435 bytes to c:\home\git\polyglot\lib\spiral\optionm'.dib.html
00:16:02 verbose #10719 > 00:00:49 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 647
00:16:02 verbose #10720 > 00:00:49 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 647
00:16:02 verbose #10721 > 00:00:49 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/optionm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/optionm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:16:04 verbose #10722 > 00:00:50 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:16:04 verbose #10723 > 00:00:50 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:16:04 verbose #10724 > 00:00:51 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 22494
00:16:04 debug #10725 runtime.execute_with_options_async / exit_code: 0 / output.Length: 25707
00:16:04 debug #16 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path optionm'.dib --retries 3
00:16:04 debug #10726 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path listm'.dib --retries 3",
[||], None, None, true, None)
00:16:04 verbose #10727 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "listm'.dib", "--retries", "3"])
00:16:04 verbose #10728 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/listm'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/listm'.dib" --output-path "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:16:07 verbose #10729 > >
00:16:07 verbose #10730 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:07 verbose #10731 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:07 verbose #10732 > > │ # listm' │
00:16:07 verbose #10733 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:07 verbose #10734 > >
00:16:07 verbose #10735 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:07 verbose #10736 > > //// test
00:16:07 verbose #10737 > >
00:16:07 verbose #10738 > > open testing
00:16:07 verbose #10739 > >
00:16:07 verbose #10740 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:16:07 verbose #10741 > > #r
00:16:07 verbose #10742 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:16:07 verbose #10743 > > otNet.Interactive.Spiral.dll"
00:16:07 verbose #10744 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:16:07 verbose #10745 > > #r
00:16:07 verbose #10746 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:16:07 verbose #10747 > > otNet.Interactive.dll"
00:16:07 verbose #10748 > > open type Microsoft.DotNet.Interactive.Kernel
00:16:16 verbose #10749 > >
00:16:16 verbose #10750 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:16 verbose #10751 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:16 verbose #10752 > > │ ## listm' │
00:16:16 verbose #10753 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:16 verbose #10754 > >
00:16:16 verbose #10755 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:16 verbose #10756 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:16 verbose #10757 > > │ ### append │
00:16:16 verbose #10758 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:16 verbose #10759 > >
00:16:16 verbose #10760 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:16 verbose #10761 > > instance append list t =
00:16:16 verbose #10762 > > listm.append
00:16:17 verbose #10763 > >
00:16:17 verbose #10764 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:17 verbose #10765 > > //// test
00:16:17 verbose #10766 > >
00:16:17 verbose #10767 > > [[ "a"; "b" ]] ++ [[ "c"; "d" ]]
00:16:17 verbose #10768 > > |> _assert_eq [[ "a"; "b"; "c"; "d" ]]
00:16:19 verbose #10769 > >
00:16:19 verbose #10770 > > ╭─[ 2.09s - stdout ]───────────────────────────────────────────────────────────╮
00:16:19 verbose #10771 > > │ assert_eq / actual: UH0_1 ("a", UH0_1 ("b", UH0_1 ("c", UH0_1 ("d", │
00:16:19 verbose #10772 > > │ UH0_0)))) / expected: UH0_1 ("a", UH0_1 ("b", UH0_1 ("c", UH0_1 ("d", │
00:16:19 verbose #10773 > > │ UH0_0)))) │
00:16:19 verbose #10774 > > │ │
00:16:19 verbose #10775 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:19 verbose #10776 > >
00:16:19 verbose #10777 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:19 verbose #10778 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:19 verbose #10779 > > │ ### collect │
00:16:19 verbose #10780 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:19 verbose #10781 > >
00:16:19 verbose #10782 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:19 verbose #10783 > > inl collect forall t r. (fn : t -> list r) (items : list t) : list r =
00:16:19 verbose #10784 > > items
00:16:19 verbose #10785 > > |> listm.map fn
00:16:19 verbose #10786 > > |> listm.fold (++) [[]]
00:16:19 verbose #10787 > >
00:16:19 verbose #10788 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:19 verbose #10789 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:19 verbose #10790 > > │ ### init_series │
00:16:19 verbose #10791 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:19 verbose #10792 > >
00:16:19 verbose #10793 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:19 verbose #10794 > > inl init_series start end inc =
00:16:19 verbose #10795 > > inl total : f64 = conv ((end - start) / inc) + 1
00:16:19 verbose #10796 > > listm.init total (conv >> (*) inc >> (+) start)
00:16:20 verbose #10797 > >
00:16:20 verbose #10798 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:20 verbose #10799 > > //// test
00:16:20 verbose #10800 > >
00:16:20 verbose #10801 > > init_series 0 1 0.5
00:16:20 verbose #10802 > > |> _assert_eq [[ 0f64; 0.5; 1 ]]
00:16:21 verbose #10803 > >
00:16:21 verbose #10804 > > ╭─[ 732.89ms - stdout ]────────────────────────────────────────────────────────╮
00:16:21 verbose #10805 > > │ assert_eq / actual: UH0_1 (0.0, UH0_1 (0.5, UH0_1 (1.0, UH0_0))) / expected: │
00:16:21 verbose #10806 > > │ UH0_1 (0.0, UH0_1 (0.5, UH0_1 (1.0, UH0_0))) │
00:16:21 verbose #10807 > > │ │
00:16:21 verbose #10808 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:21 verbose #10809 > >
00:16:21 verbose #10810 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:21 verbose #10811 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:21 verbose #10812 > > │ ### try_item │
00:16:21 verbose #10813 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:21 verbose #10814 > >
00:16:21 verbose #10815 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:21 verbose #10816 > > inl rec try_item i = function
00:16:21 verbose #10817 > > | Cons (x, _) when i = 0 => Some x
00:16:21 verbose #10818 > > | Cons (_, xs) => try_item (i - 1) xs
00:16:21 verbose #10819 > > | Nil => None
00:16:22 verbose #10820 > >
00:16:22 verbose #10821 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:22 verbose #10822 > > //// test
00:16:22 verbose #10823 > >
00:16:22 verbose #10824 > > listm.init 10i32 id
00:16:22 verbose #10825 > > |> try_item 9i32
00:16:22 verbose #10826 > > |> _assert_eq (Some 9)
00:16:22 verbose #10827 > >
00:16:22 verbose #10828 > > ╭─[ 778.88ms - stdout ]────────────────────────────────────────────────────────╮
00:16:22 verbose #10829 > > │ assert_eq / actual: US0_0 9 / expected: US0_0 9 │
00:16:22 verbose #10830 > > │ │
00:16:22 verbose #10831 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:22 verbose #10832 > >
00:16:22 verbose #10833 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:22 verbose #10834 > > //// test
00:16:22 verbose #10835 > >
00:16:22 verbose #10836 > > listm.init 10i32 id
00:16:22 verbose #10837 > > |> try_item 10i32
00:16:22 verbose #10838 > > |> _assert_eq None
00:16:23 verbose #10839 > >
00:16:23 verbose #10840 > > ╭─[ 806.88ms - stdout ]────────────────────────────────────────────────────────╮
00:16:23 verbose #10841 > > │ assert_eq / actual: US0_1 / expected: US0_1 │
00:16:23 verbose #10842 > > │ │
00:16:23 verbose #10843 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:23 verbose #10844 > >
00:16:23 verbose #10845 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:23 verbose #10846 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:23 verbose #10847 > > │ ### item │
00:16:23 verbose #10848 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:23 verbose #10849 > >
00:16:23 verbose #10850 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:23 verbose #10851 > > inl item i =
00:16:23 verbose #10852 > > try_item i >> optionm.value
00:16:24 verbose #10853 > >
00:16:24 verbose #10854 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:24 verbose #10855 > > //// test
00:16:24 verbose #10856 > >
00:16:24 verbose #10857 > > listm.init 10i32 id
00:16:24 verbose #10858 > > |> item 9i32
00:16:24 verbose #10859 > > |> _assert_eq 9
00:16:25 verbose #10860 > >
00:16:25 verbose #10861 > > ╭─[ 702.02ms - stdout ]────────────────────────────────────────────────────────╮
00:16:25 verbose #10862 > > │ assert_eq / actual: 9 / expected: 9 │
00:16:25 verbose #10863 > > │ │
00:16:25 verbose #10864 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:25 verbose #10865 > >
00:16:25 verbose #10866 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:25 verbose #10867 > > //// test
00:16:25 verbose #10868 > >
00:16:25 verbose #10869 > > fun () =>
00:16:25 verbose #10870 > > listm.init 10i32 id
00:16:25 verbose #10871 > > |> item 10i32
00:16:25 verbose #10872 > > |> ignore
00:16:25 verbose #10873 > > |> _throws
00:16:25 verbose #10874 > > |> optionm.map sm'.format_exception
00:16:25 verbose #10875 > > |> _assert_eq (Some "System.Exception: Option does not have a value.")
00:16:25 verbose #10876 > >
00:16:25 verbose #10877 > > ╭─[ 847.22ms - stdout ]────────────────────────────────────────────────────────╮
00:16:25 verbose #10878 > > │ assert_eq / actual: US1_0 "System.Exception: Option does not have a value." │
00:16:25 verbose #10879 > > │ / expected: US1_0 "System.Exception: Option does not have a value." │
00:16:25 verbose #10880 > > │ │
00:16:25 verbose #10881 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:25 verbose #10882 > >
00:16:25 verbose #10883 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:25 verbose #10884 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:25 verbose #10885 > > │ ### try_item_ │
00:16:25 verbose #10886 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:25 verbose #10887 > >
00:16:25 verbose #10888 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:25 verbose #10889 > > let rec try_item_ i = function
00:16:25 verbose #10890 > > | Cons (x, _) when i = 0 => Some x
00:16:25 verbose #10891 > > | Cons (_, xs) => try_item_ (i - 1) xs
00:16:25 verbose #10892 > > | Nil => None
00:16:26 verbose #10893 > >
00:16:26 verbose #10894 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:26 verbose #10895 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:26 verbose #10896 > > │ ### item_ │
00:16:26 verbose #10897 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:26 verbose #10898 > >
00:16:26 verbose #10899 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:26 verbose #10900 > > inl item_ i =
00:16:26 verbose #10901 > > try_item_ i >> optionm.value
00:16:27 verbose #10902 > >
00:16:27 verbose #10903 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:27 verbose #10904 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:27 verbose #10905 > > │ ### sum │
00:16:27 verbose #10906 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:27 verbose #10907 > >
00:16:27 verbose #10908 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:27 verbose #10909 > > inl sum list =
00:16:27 verbose #10910 > > list |> listm.fold (+) 0
00:16:27 verbose #10911 > >
00:16:27 verbose #10912 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:27 verbose #10913 > > //// test
00:16:27 verbose #10914 > >
00:16:27 verbose #10915 > > listm.init 10i32 id
00:16:27 verbose #10916 > > |> sum
00:16:27 verbose #10917 > > |> _assert_eq 45
00:16:28 verbose #10918 > >
00:16:28 verbose #10919 > > ╭─[ 741.33ms - stdout ]────────────────────────────────────────────────────────╮
00:16:28 verbose #10920 > > │ assert_eq / actual: 45 / expected: 45 │
00:16:28 verbose #10921 > > │ │
00:16:28 verbose #10922 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:28 verbose #10923 > >
00:16:28 verbose #10924 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:28 verbose #10925 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:28 verbose #10926 > > │ ### unzip │
00:16:28 verbose #10927 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:28 verbose #10928 > >
00:16:28 verbose #10929 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:28 verbose #10930 > > inl unzip list =
00:16:28 verbose #10931 > > (([[]], [[]]), list)
00:16:28 verbose #10932 > > ||> listm.fold fun (acc_x, acc_y) (x, y) =>
00:16:28 verbose #10933 > > x :: acc_x, y :: acc_y
00:16:28 verbose #10934 > > |> fun x, y =>
00:16:28 verbose #10935 > > x |> listm.rev, y |> listm.rev
00:16:29 verbose #10936 > >
00:16:29 verbose #10937 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:29 verbose #10938 > > //// test
00:16:29 verbose #10939 > >
00:16:29 verbose #10940 > > listm.init 10i32 id
00:16:29 verbose #10941 > > |> listm.map (fun x => x, x)
00:16:29 verbose #10942 > > |> unzip
00:16:29 verbose #10943 > > |> fun x, y =>
00:16:29 verbose #10944 > > x |> sum
00:16:29 verbose #10945 > > |> _assert_eq 45
00:16:29 verbose #10946 > >
00:16:29 verbose #10947 > > y |> sum
00:16:29 verbose #10948 > > |> _assert_eq 45
00:16:29 verbose #10949 > >
00:16:29 verbose #10950 > > ╭─[ 647.18ms - stdout ]────────────────────────────────────────────────────────╮
00:16:29 verbose #10951 > > │ assert_eq / actual: 45 / expected: 45 │
00:16:29 verbose #10952 > > │ assert_eq / actual: 45 / expected: 45 │
00:16:29 verbose #10953 > > │ │
00:16:29 verbose #10954 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:29 verbose #10955 > >
00:16:29 verbose #10956 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:29 verbose #10957 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:29 verbose #10958 > > │ ### try_index_of │
00:16:29 verbose #10959 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:29 verbose #10960 > >
00:16:29 verbose #10961 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:29 verbose #10962 > > inl try_index_of item list =
00:16:29 verbose #10963 > > inl rec loop i = function
00:16:29 verbose #10964 > > | [[]] => None
00:16:29 verbose #10965 > > | x :: xs =>
00:16:29 verbose #10966 > > if x = item
00:16:29 verbose #10967 > > then Some i
00:16:29 verbose #10968 > > else loop (i + 1) xs
00:16:29 verbose #10969 > > loop 0 list
00:16:29 verbose #10970 > >
00:16:29 verbose #10971 > > inl index_of item =
00:16:29 verbose #10972 > > try_index_of item >> optionm.value
00:16:29 verbose #10973 > >
00:16:29 verbose #10974 > > inl try_index_of_ item list =
00:16:29 verbose #10975 > > let rec loop i = function
00:16:29 verbose #10976 > > | [[]] => None
00:16:29 verbose #10977 > > | x :: xs =>
00:16:29 verbose #10978 > > if x = item
00:16:29 verbose #10979 > > then Some i
00:16:29 verbose #10980 > > else loop (i + 1) xs
00:16:29 verbose #10981 > > loop 0 list
00:16:29 verbose #10982 > >
00:16:29 verbose #10983 > > inl index_of_ item =
00:16:29 verbose #10984 > > try_index_of_ item >> optionm.value
00:16:29 verbose #10985 > >
00:16:29 verbose #10986 > > inl try_index_of__ item list =
00:16:29 verbose #10987 > > inl i = mut 0
00:16:29 verbose #10988 > > inl list = mut list
00:16:29 verbose #10989 > > inl result = mut None
00:16:29 verbose #10990 > > let rec loop () =
00:16:29 verbose #10991 > > match *list with
00:16:29 verbose #10992 > > | [[]] => result <- None
00:16:29 verbose #10993 > > | x :: xs =>
00:16:29 verbose #10994 > > if x = item
00:16:29 verbose #10995 > > then result <- Some *i
00:16:29 verbose #10996 > > else
00:16:29 verbose #10997 > > i <- *i + 1
00:16:29 verbose #10998 > > list <- xs
00:16:29 verbose #10999 > > loop ()
00:16:29 verbose #11000 > > loop ()
00:16:29 verbose #11001 > > *result
00:16:29 verbose #11002 > >
00:16:29 verbose #11003 > > inl index_of__ item =
00:16:29 verbose #11004 > > try_index_of__ item >> optionm.value
00:16:30 verbose #11005 > >
00:16:30 verbose #11006 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:30 verbose #11007 > > //// test
00:16:30 verbose #11008 > >
00:16:30 verbose #11009 > > listm.init 10i32 id
00:16:30 verbose #11010 > > |> index_of 5i32
00:16:30 verbose #11011 > > |> _assert_eq 5i32
00:16:31 verbose #11012 > >
00:16:31 verbose #11013 > > ╭─[ 660.68ms - stdout ]────────────────────────────────────────────────────────╮
00:16:31 verbose #11014 > > │ assert_eq / actual: 5 / expected: 5 │
00:16:31 verbose #11015 > > │ │
00:16:31 verbose #11016 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:31 verbose #11017 > >
00:16:31 verbose #11018 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:31 verbose #11019 > > //// test
00:16:31 verbose #11020 > >
00:16:31 verbose #11021 > > listm.init 10i32 id
00:16:31 verbose #11022 > > |> try_index_of 10i32
00:16:31 verbose #11023 > > |> _assert_eq (None : option i32)
00:16:32 verbose #11024 > >
00:16:32 verbose #11025 > > ╭─[ 673.60ms - stdout ]────────────────────────────────────────────────────────╮
00:16:32 verbose #11026 > > │ assert_eq / actual: US0_1 / expected: US0_1 │
00:16:32 verbose #11027 > > │ │
00:16:32 verbose #11028 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:32 verbose #11029 > >
00:16:32 verbose #11030 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:32 verbose #11031 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:32 verbose #11032 > > │ ### try_find │
00:16:32 verbose #11033 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:32 verbose #11034 > >
00:16:32 verbose #11035 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:32 verbose #11036 > > inl try_find fn list =
00:16:32 verbose #11037 > > inl rec loop = function
00:16:32 verbose #11038 > > | [[]] => None
00:16:32 verbose #11039 > > | x :: xs =>
00:16:32 verbose #11040 > > if fn x
00:16:32 verbose #11041 > > then Some x
00:16:32 verbose #11042 > > else loop xs
00:16:32 verbose #11043 > > loop list
00:16:32 verbose #11044 > >
00:16:32 verbose #11045 > > inl try_find_ fn list =
00:16:32 verbose #11046 > > let rec loop = function
00:16:32 verbose #11047 > > | [[]] => None
00:16:32 verbose #11048 > > | x :: xs =>
00:16:32 verbose #11049 > > if fn x
00:16:32 verbose #11050 > > then Some x
00:16:32 verbose #11051 > > else loop xs
00:16:32 verbose #11052 > > loop list
00:16:32 verbose #11053 > >
00:16:32 verbose #11054 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:32 verbose #11055 > > //// test
00:16:32 verbose #11056 > >
00:16:32 verbose #11057 > > listm.init 10i32 id
00:16:32 verbose #11058 > > |> try_find ((=) 5i32)
00:16:32 verbose #11059 > > |> _assert_eq (Some 5i32)
00:16:33 verbose #11060 > >
00:16:33 verbose #11061 > > ╭─[ 701.45ms - stdout ]────────────────────────────────────────────────────────╮
00:16:33 verbose #11062 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:16:33 verbose #11063 > > │ │
00:16:33 verbose #11064 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:33 verbose #11065 > >
00:16:33 verbose #11066 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:33 verbose #11067 > > inl find x =
00:16:33 verbose #11068 > > try_find x >> optionm.value
00:16:33 verbose #11069 > >
00:16:33 verbose #11070 > > inl find_ x =
00:16:33 verbose #11071 > > try_find_ x >> optionm.value
00:16:34 verbose #11072 > >
00:16:34 verbose #11073 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:34 verbose #11074 > > //// test
00:16:34 verbose #11075 > >
00:16:34 verbose #11076 > > listm.init 10i32 id
00:16:34 verbose #11077 > > |> find ((=) 5i32)
00:16:34 verbose #11078 > > |> _assert_eq 5i32
00:16:34 verbose #11079 > >
00:16:34 verbose #11080 > > ╭─[ 668.63ms - stdout ]────────────────────────────────────────────────────────╮
00:16:34 verbose #11081 > > │ assert_eq / actual: 5 / expected: 5 │
00:16:34 verbose #11082 > > │ │
00:16:34 verbose #11083 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:34 verbose #11084 > >
00:16:34 verbose #11085 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:34 verbose #11086 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:34 verbose #11087 > > │ ### choose │
00:16:34 verbose #11088 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:34 verbose #11089 > >
00:16:34 verbose #11090 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:34 verbose #11091 > > inl choose f l =
00:16:34 verbose #11092 > > (l, [[]])
00:16:34 verbose #11093 > > ||> listm.foldBack fun x acc =>
00:16:34 verbose #11094 > > match f x with
00:16:34 verbose #11095 > > | Some y => y :: acc
00:16:34 verbose #11096 > > | None => acc
00:16:35 verbose #11097 > >
00:16:35 verbose #11098 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:35 verbose #11099 > > //// test
00:16:35 verbose #11100 > >
00:16:35 verbose #11101 > > listm.init 10i32 id
00:16:35 verbose #11102 > > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:16:35 verbose #11103 > > |> _assert_eq [[ 0; 2; 4; 6; 8 ]]
00:16:36 verbose #11104 > >
00:16:36 verbose #11105 > > ╭─[ 942.34ms - stdout ]────────────────────────────────────────────────────────╮
00:16:36 verbose #11106 > > │ assert_eq / actual: UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, │
00:16:36 verbose #11107 > > │ UH0_0))))) / expected: UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, │
00:16:36 verbose #11108 > > │ UH0_0))))) │
00:16:36 verbose #11109 > > │ │
00:16:36 verbose #11110 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:36 verbose #11111 > >
00:16:36 verbose #11112 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:36 verbose #11113 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:36 verbose #11114 > > │ ### filter │
00:16:36 verbose #11115 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:36 verbose #11116 > >
00:16:36 verbose #11117 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:36 verbose #11118 > > inl filter forall t. (fn : t -> bool) (list : list t) : list t =
00:16:36 verbose #11119 > > (list, Nil)
00:16:36 verbose #11120 > > ||> listm.foldBack fun x acc =>
00:16:36 verbose #11121 > > if fn x then x :: acc else acc
00:16:37 verbose #11122 > >
00:16:37 verbose #11123 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:37 verbose #11124 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:37 verbose #11125 > > │ ### zip_with │
00:16:37 verbose #11126 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:37 verbose #11127 > >
00:16:37 verbose #11128 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:37 verbose #11129 > > inl zip_with fn xs ys =
00:16:37 verbose #11130 > > inl rec loop acc xs ys =
00:16:37 verbose #11131 > > match xs, ys with
00:16:37 verbose #11132 > > | Cons (x, xs), Cons (y, ys) =>
00:16:37 verbose #11133 > > loop (fn x y :: acc) xs ys
00:16:37 verbose #11134 > > | _ => listm.rev acc
00:16:37 verbose #11135 > > loop [[]] xs ys
00:16:37 verbose #11136 > >
00:16:37 verbose #11137 > > inl zip_with_ fn xs ys =
00:16:37 verbose #11138 > > let rec loop acc xs ys =
00:16:37 verbose #11139 > > match xs, ys with
00:16:37 verbose #11140 > > | Cons (x, xs), Cons (y, ys) =>
00:16:37 verbose #11141 > > loop (fn x y :: acc) xs ys
00:16:37 verbose #11142 > > | _ => listm.rev acc
00:16:37 verbose #11143 > > loop [[]] xs ys
00:16:37 verbose #11144 > >
00:16:37 verbose #11145 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:37 verbose #11146 > > //// test
00:16:37 verbose #11147 > >
00:16:37 verbose #11148 > > ([[ 1i32; 2; 3 ]], [[ 4; 5; 6 ]])
00:16:37 verbose #11149 > > ||> zip_with (+)
00:16:37 verbose #11150 > > |> _assert_eq [[ 5; 7; 9 ]]
00:16:38 verbose #11151 > >
00:16:38 verbose #11152 > > ╭─[ 704.27ms - stdout ]────────────────────────────────────────────────────────╮
00:16:38 verbose #11153 > > │ assert_eq / actual: UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))) / expected: UH0_1 │
00:16:38 verbose #11154 > > │ (5, UH0_1 (7, UH0_1 (9, UH0_0))) │
00:16:38 verbose #11155 > > │ │
00:16:38 verbose #11156 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:38 verbose #11157 > >
00:16:38 verbose #11158 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:38 verbose #11159 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:38 verbose #11160 > > │ ### zip │
00:16:38 verbose #11161 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:38 verbose #11162 > >
00:16:38 verbose #11163 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:38 verbose #11164 > > inl zip xs ys =
00:16:38 verbose #11165 > > zip_with pair xs ys
00:16:38 verbose #11166 > >
00:16:38 verbose #11167 > > inl zip_ xs ys =
00:16:38 verbose #11168 > > zip_with_ pair xs ys
00:16:39 verbose #11169 > >
00:16:39 verbose #11170 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:39 verbose #11171 > > //// test
00:16:39 verbose #11172 > >
00:16:39 verbose #11173 > > ([[ 1i32; 2; 3 ]], [[ 4i32; 5; 6 ]])
00:16:39 verbose #11174 > > ||> zip
00:16:39 verbose #11175 > > |> _assert_eq [[ 1, 4; 2, 5; 3, 6 ]]
00:16:39 verbose #11176 > >
00:16:39 verbose #11177 > > ╭─[ 717.40ms - stdout ]────────────────────────────────────────────────────────╮
00:16:39 verbose #11178 > > │ assert_eq / actual: UH0_1 (1, 4, UH0_1 (2, 5, UH0_1 (3, 6, UH0_0))) / │
00:16:39 verbose #11179 > > │ expected: UH0_1 (1, 4, UH0_1 (2, 5, UH0_1 (3, 6, UH0_0))) │
00:16:39 verbose #11180 > > │ │
00:16:39 verbose #11181 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:39 verbose #11182 > >
00:16:39 verbose #11183 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:39 verbose #11184 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:39 verbose #11185 > > │ ### indexed │
00:16:39 verbose #11186 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:39 verbose #11187 > >
00:16:39 verbose #11188 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:39 verbose #11189 > > inl indexed list =
00:16:39 verbose #11190 > > (([[]], 0), list)
00:16:39 verbose #11191 > > ||> listm.fold fun (acc, i) x =>
00:16:39 verbose #11192 > > (i, x) :: acc, i + 1
00:16:39 verbose #11193 > > |> fst
00:16:39 verbose #11194 > > |> listm.rev
00:16:40 verbose #11195 > >
00:16:40 verbose #11196 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:40 verbose #11197 > > //// test
00:16:40 verbose #11198 > >
00:16:40 verbose #11199 > > listm.init 5i32 ((*) 2)
00:16:40 verbose #11200 > > |> indexed
00:16:40 verbose #11201 > > |> _assert_eq [[ 0i32, 0; 1, 2; 2, 4; 3, 6; 4, 8 ]]
00:16:41 verbose #11202 > >
00:16:41 verbose #11203 > > ╭─[ 799.12ms - stdout ]────────────────────────────────────────────────────────╮
00:16:41 verbose #11204 > > │ assert_eq / actual: UH0_1 (0, 0, UH0_1 (1, 2, UH0_1 (2, 4, UH0_1 (3, 6, │
00:16:41 verbose #11205 > > │ UH0_1 (4, 8, UH0_0))))) / expected: UH0_1 (0, 0, UH0_1 (1, 2, UH0_1 (2, 4, │
00:16:41 verbose #11206 > > │ UH0_1 (3, 6, UH0_1 (4, 8, UH0_0))))) │
00:16:41 verbose #11207 > > │ │
00:16:41 verbose #11208 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:41 verbose #11209 > >
00:16:41 verbose #11210 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:41 verbose #11211 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:41 verbose #11212 > > │ ### group_by │
00:16:41 verbose #11213 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:41 verbose #11214 > >
00:16:41 verbose #11215 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:41 verbose #11216 > > inl group_by fn list =
00:16:41 verbose #11217 > > (list, [[]])
00:16:41 verbose #11218 > > ||> listm.foldBack fun x acc =>
00:16:41 verbose #11219 > > inl xk = fn x
00:16:41 verbose #11220 > > inl found, new_acc =
00:16:41 verbose #11221 > > ((false, [[]]), acc)
00:16:41 verbose #11222 > > ||> listm.fold fun (found, acc') (k, xs) =>
00:16:41 verbose #11223 > > if k = xk
00:16:41 verbose #11224 > > then true, (k, x :: xs) :: acc'
00:16:41 verbose #11225 > > else found, (k, xs) :: acc'
00:16:41 verbose #11226 > > if found
00:16:41 verbose #11227 > > then new_acc
00:16:41 verbose #11228 > > else (xk, [[ x ]]) :: new_acc
00:16:42 verbose #11229 > >
00:16:42 verbose #11230 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:42 verbose #11231 > > //// test
00:16:42 verbose #11232 > >
00:16:42 verbose #11233 > > listm.init 10i32 id
00:16:42 verbose #11234 > > |> group_by (fun x => x % 2 = 0)
00:16:42 verbose #11235 > > |> _assert_eq [[ true, [[ 0; 2; 4; 6; 8 ]]; false, [[ 1; 3; 5; 7; 9 ]] ]]
00:16:42 verbose #11236 > >
00:16:42 verbose #11237 > > ╭─[ 696.15ms - stdout ]────────────────────────────────────────────────────────╮
00:16:42 verbose #11238 > > │ assert_eq / actual: UH1_1 │
00:16:42 verbose #11239 > > │ (true, UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))), │
00:16:42 verbose #11240 > > │ UH1_1 │
00:16:42 verbose #11241 > > │ (false, UH0_1 (1, UH0_1 (3, UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))))), │
00:16:42 verbose #11242 > > │ UH1_0)) / expected: UH1_1 │
00:16:42 verbose #11243 > > │ (true, UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))), │
00:16:42 verbose #11244 > > │ UH1_1 │
00:16:42 verbose #11245 > > │ (false, UH0_1 (1, UH0_1 (3, UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))))), │
00:16:42 verbose #11246 > > │ UH1_0)) │
00:16:42 verbose #11247 > > │ │
00:16:42 verbose #11248 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:42 verbose #11249 > >
00:16:42 verbose #11250 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:42 verbose #11251 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:42 verbose #11252 > > │ ### forall' │
00:16:42 verbose #11253 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:42 verbose #11254 > >
00:16:42 verbose #11255 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:42 verbose #11256 > > inl forall' fn (head :: tail) =
00:16:42 verbose #11257 > > (true, tail)
00:16:42 verbose #11258 > > ||> listm.fold fun acc x =>
00:16:42 verbose #11259 > > acc && x = head
00:16:43 verbose #11260 > >
00:16:43 verbose #11261 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:43 verbose #11262 > > //// test
00:16:43 verbose #11263 > >
00:16:43 verbose #11264 > > [[ 1i32; 1; 1; 1; 1 ]]
00:16:43 verbose #11265 > > |> forall' ((=) 1i32)
00:16:43 verbose #11266 > > |> _assert_eq true
00:16:44 verbose #11267 > >
00:16:44 verbose #11268 > > ╭─[ 693.77ms - stdout ]────────────────────────────────────────────────────────╮
00:16:44 verbose #11269 > > │ assert_eq / actual: true / expected: true │
00:16:44 verbose #11270 > > │ │
00:16:44 verbose #11271 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:44 verbose #11272 > >
00:16:44 verbose #11273 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:44 verbose #11274 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:44 verbose #11275 > > │ ### last │
00:16:44 verbose #11276 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:44 verbose #11277 > >
00:16:44 verbose #11278 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:44 verbose #11279 > > inl last list =
00:16:44 verbose #11280 > > list
00:16:44 verbose #11281 > > |> listm.rev
00:16:44 verbose #11282 > > |> item 0i32
00:16:44 verbose #11283 > >
00:16:44 verbose #11284 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:44 verbose #11285 > > //// test
00:16:44 verbose #11286 > >
00:16:44 verbose #11287 > > listm.init 10i32 id
00:16:44 verbose #11288 > > |> last
00:16:44 verbose #11289 > > |> _assert_eq 9
00:16:45 verbose #11290 > >
00:16:45 verbose #11291 > > ╭─[ 722.75ms - stdout ]────────────────────────────────────────────────────────╮
00:16:45 verbose #11292 > > │ assert_eq / actual: 9 / expected: 9 │
00:16:45 verbose #11293 > > │ │
00:16:45 verbose #11294 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:45 verbose #11295 > >
00:16:45 verbose #11296 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:45 verbose #11297 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:45 verbose #11298 > > │ ### try_pick │
00:16:45 verbose #11299 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:45 verbose #11300 > >
00:16:45 verbose #11301 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:45 verbose #11302 > > inl try_pick fn list =
00:16:45 verbose #11303 > > inl rec body fn = function
00:16:45 verbose #11304 > > | [[]] => None
00:16:45 verbose #11305 > > | x :: xs =>
00:16:45 verbose #11306 > > match fn x with
00:16:45 verbose #11307 > > | Some y => Some y
00:16:45 verbose #11308 > > | None => loop xs
00:16:45 verbose #11309 > > and inl loop list =
00:16:45 verbose #11310 > > if var_is list |> not
00:16:45 verbose #11311 > > then body fn list
00:16:45 verbose #11312 > > else
00:16:45 verbose #11313 > > inl fn = join fn
00:16:45 verbose #11314 > > inl list = dyn list
00:16:45 verbose #11315 > > join body fn list
00:16:45 verbose #11316 > > loop list
00:16:46 verbose #11317 > >
00:16:46 verbose #11318 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:46 verbose #11319 > > //// test
00:16:46 verbose #11320 > >
00:16:46 verbose #11321 > > listm.init 10i32 id
00:16:46 verbose #11322 > > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:16:46 verbose #11323 > > |> _assert_eq (Some 5i32)
00:16:46 verbose #11324 > >
00:16:46 verbose #11325 > > ╭─[ 648.23ms - stdout ]────────────────────────────────────────────────────────╮
00:16:46 verbose #11326 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:16:46 verbose #11327 > > │ │
00:16:46 verbose #11328 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:46 verbose #11329 > >
00:16:46 verbose #11330 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:46 verbose #11331 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:46 verbose #11332 > > │ ### exists' │
00:16:46 verbose #11333 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:46 verbose #11334 > >
00:16:46 verbose #11335 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:46 verbose #11336 > > inl exists' f x =
00:16:46 verbose #11337 > > inl length_x : i64 = x |> listm.length
00:16:46 verbose #11338 > > let rec loop i =
00:16:46 verbose #11339 > > if i >= length_x
00:16:46 verbose #11340 > > then false
00:16:46 verbose #11341 > > elif x |> item i |> f
00:16:46 verbose #11342 > > then true
00:16:46 verbose #11343 > > else loop (i + 1)
00:16:46 verbose #11344 > > loop 0
00:16:47 verbose #11345 > >
00:16:47 verbose #11346 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:47 verbose #11347 > > //// test
00:16:47 verbose #11348 > >
00:16:47 verbose #11349 > > [[ 'a'; 'b'; 'c' ]]
00:16:47 verbose #11350 > > |> exists' fun x => x = 'b'
00:16:47 verbose #11351 > > |> _assert_eq true
00:16:47 verbose #11352 > >
00:16:47 verbose #11353 > > [[ 'a'; 'b' ]]
00:16:47 verbose #11354 > > |> exists' fun x => x = 'c'
00:16:47 verbose #11355 > > |> _assert_eq false
00:16:47 verbose #11356 > >
00:16:47 verbose #11357 > > [[]]
00:16:47 verbose #11358 > > |> exists' fun x => x = 'a'
00:16:47 verbose #11359 > > |> _assert_eq false
00:16:48 verbose #11360 > >
00:16:48 verbose #11361 > > ╭─[ 750.18ms - stdout ]────────────────────────────────────────────────────────╮
00:16:48 verbose #11362 > > │ assert_eq / actual: true / expected: true │
00:16:48 verbose #11363 > > │ assert_eq / actual: false / expected: false │
00:16:48 verbose #11364 > > │ assert_eq / actual: false / expected: false │
00:16:48 verbose #11365 > > │ │
00:16:48 verbose #11366 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:48 verbose #11367 > >
00:16:48 verbose #11368 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:48 verbose #11369 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:48 verbose #11370 > > │ ## fsharp │
00:16:48 verbose #11371 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:48 verbose #11372 > >
00:16:48 verbose #11373 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:48 verbose #11374 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:48 verbose #11375 > > │ ### list' │
00:16:48 verbose #11376 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:48 verbose #11377 > >
00:16:48 verbose #11378 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:48 verbose #11379 > > nominal list' t = $'`t list'
00:16:48 verbose #11380 > >
00:16:48 verbose #11381 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:48 verbose #11382 > > inl empty' forall t. () : list' t =
00:16:48 verbose #11383 > > $'[[]]'
00:16:49 verbose #11384 > >
00:16:49 verbose #11385 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:49 verbose #11386 > > inl cons' forall t. (head : t) (tail : list' t) : list' t =
00:16:49 verbose #11387 > > $'!head :: !tail '
00:16:50 verbose #11388 > >
00:16:50 verbose #11389 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:50 verbose #11390 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:50 verbose #11391 > > │ ### box │
00:16:50 verbose #11392 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:50 verbose #11393 > >
00:16:50 verbose #11394 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:50 verbose #11395 > > inl box forall t. (list : list t) : list' t =
00:16:50 verbose #11396 > > (list, empty' ())
00:16:50 verbose #11397 > > ||> listm.foldBack fun x acc =>
00:16:50 verbose #11398 > > acc |> cons' x
00:16:50 verbose #11399 > >
00:16:50 verbose #11400 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:50 verbose #11401 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:50 verbose #11402 > > │ ### fold' │
00:16:50 verbose #11403 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:50 verbose #11404 > >
00:16:50 verbose #11405 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:50 verbose #11406 > > inl fold' forall t u. (fn : t -> u) (init : list u) (list : list' t) : list u =
00:16:50 verbose #11407 > > (init, list)
00:16:50 verbose #11408 > > ||> $'List.fold' join fun acc x => Cons (fn x, acc)
00:16:51 verbose #11409 > >
00:16:51 verbose #11410 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:51 verbose #11411 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:51 verbose #11412 > > │ ### fold_back' │
00:16:51 verbose #11413 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:51 verbose #11414 > >
00:16:51 verbose #11415 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:51 verbose #11416 > > inl fold_back' forall t u. (fn : t -> u) (list : list' t) (init : list u) : list
00:16:51 verbose #11417 > > u =
00:16:51 verbose #11418 > > (list, init)
00:16:51 verbose #11419 > > ||> $'List.foldBack' join fun x acc => Cons (fn x, acc)
00:16:52 verbose #11420 > >
00:16:52 verbose #11421 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:52 verbose #11422 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:52 verbose #11423 > > │ ### filter' │
00:16:52 verbose #11424 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:52 verbose #11425 > >
00:16:52 verbose #11426 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:52 verbose #11427 > > inl filter' forall t. (fn : t -> bool) (list : list' t) : list' t =
00:16:52 verbose #11428 > > list |> $'"List.filter !fn"'
00:16:52 verbose #11429 > >
00:16:52 verbose #11430 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:52 verbose #11431 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:52 verbose #11432 > > │ ### map │
00:16:52 verbose #11433 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:52 verbose #11434 > >
00:16:52 verbose #11435 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:52 verbose #11436 > > inl map forall t u. (fn : t -> u) (list : list' t) : list' u =
00:16:52 verbose #11437 > > list |> $'List.map' fn
00:16:53 verbose #11438 > >
00:16:53 verbose #11439 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:53 verbose #11440 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:53 verbose #11441 > > │ ### unbox │
00:16:53 verbose #11442 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:53 verbose #11443 > >
00:16:53 verbose #11444 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:53 verbose #11445 > > inl unbox forall t. (list : list' t) : list t =
00:16:53 verbose #11446 > > (list, Nil)
00:16:53 verbose #11447 > > ||> fold_back' id
00:16:54 verbose #11448 > >
00:16:54 verbose #11449 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:54 verbose #11450 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:54 verbose #11451 > > │ ### distinct' │
00:16:54 verbose #11452 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:54 verbose #11453 > >
00:16:54 verbose #11454 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:54 verbose #11455 > > inl distinct' forall t. (list : list' t) : list' t =
00:16:54 verbose #11456 > > list |> $'List.distinct'
00:16:54 verbose #11457 > >
00:16:54 verbose #11458 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:54 verbose #11459 > > //// test
00:16:54 verbose #11460 > >
00:16:54 verbose #11461 > > [[ "1"; "2"; "2"; "3" ]]
00:16:54 verbose #11462 > > |> box
00:16:54 verbose #11463 > > |> distinct'
00:16:54 verbose #11464 > > |> unbox
00:16:54 verbose #11465 > > |> _assert_eq [[ "1"; "2"; "3" ]]
00:16:55 verbose #11466 > >
00:16:55 verbose #11467 > > ╭─[ 724.64ms - stdout ]────────────────────────────────────────────────────────╮
00:16:55 verbose #11468 > > │ assert_eq / actual: UH0_1 ("1", UH0_1 ("2", UH0_1 ("3", UH0_0))) / expected: │
00:16:55 verbose #11469 > > │ UH0_1 ("1", UH0_1 ("2", UH0_1 ("3", UH0_0))) │
00:16:55 verbose #11470 > > │ │
00:16:55 verbose #11471 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:55 verbose #11472 > >
00:16:55 verbose #11473 > > ── markdown ────────────────────────────────────────────────────────────────────
00:16:55 verbose #11474 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:16:55 verbose #11475 > > │ ### to_array' │
00:16:55 verbose #11476 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:16:55 verbose #11477 > >
00:16:55 verbose #11478 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:16:55 verbose #11479 > > inl to_array' forall t. (items : list' t) : array_base t =
00:16:55 verbose #11480 > > items |> $'List.toArray'
00:16:56 verbose #11481 > 00:00:51 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 32267
00:16:56 verbose #11482 > 00:00:51 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:16:58 verbose #11483 > 00:00:54 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb to html
00:16:58 verbose #11484 > 00:00:54 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:16:58 verbose #11485 > 00:00:54 verbose #7 ! validate(nb)
00:17:00 verbose #11486 > 00:00:55 verbose #8 ! [NbConvertApp] Writing 375335 bytes to c:\home\git\polyglot\lib\spiral\listm'.dib.html
00:17:00 verbose #11487 > 00:00:55 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:17:00 verbose #11488 > 00:00:55 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:17:00 verbose #11489 > 00:00:55 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/listm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/listm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:17:01 verbose #11490 > 00:00:56 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:17:01 verbose #11491 > 00:00:56 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:17:02 verbose #11492 > 00:00:57 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 32969
00:17:02 debug #11493 runtime.execute_with_options_async / exit_code: 0 / output.Length: 36732
00:17:02 debug #17 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path listm'.dib --retries 3
00:17:02 debug #11494 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path reflection.dib --retries 3",
[||], None, None, true, None)
00:17:02 verbose #11495 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "reflection.dib", "--retries", "3"])
00:17:02 verbose #11496 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/reflection.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/reflection.dib" --output-path "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:17:04 verbose #11497 > >
00:17:04 verbose #11498 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:04 verbose #11499 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:04 verbose #11500 > > │ # reflection │
00:17:04 verbose #11501 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:04 verbose #11502 > >
00:17:04 verbose #11503 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:04 verbose #11504 > > //// test
00:17:04 verbose #11505 > >
00:17:04 verbose #11506 > > open testing
00:17:04 verbose #11507 > >
00:17:04 verbose #11508 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:17:04 verbose #11509 > > #r
00:17:04 verbose #11510 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:17:04 verbose #11511 > > otNet.Interactive.Spiral.dll"
00:17:04 verbose #11512 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:17:04 verbose #11513 > > #r
00:17:04 verbose #11514 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:17:04 verbose #11515 > > otNet.Interactive.dll"
00:17:04 verbose #11516 > > open type Microsoft.DotNet.Interactive.Kernel
00:17:10 verbose #11517 > >
00:17:10 verbose #11518 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:10 verbose #11519 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:10 verbose #11520 > > │ ## reflection │
00:17:10 verbose #11521 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:10 verbose #11522 > >
00:17:10 verbose #11523 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:10 verbose #11524 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:10 verbose #11525 > > │ ### get_union_fields │
00:17:10 verbose #11526 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:10 verbose #11527 > >
00:17:10 verbose #11528 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:10 verbose #11529 > > inl get_union_fields forall union_type. () : list (string * union_type) =
00:17:10 verbose #11530 > > real
00:17:10 verbose #11531 > > real_core.union_to_record
00:17:10 verbose #11532 > > `union_type
00:17:10 verbose #11533 > > forall union_record_type. =>
00:17:10 verbose #11534 > > real_core.record_type_fold
00:17:10 verbose #11535 > > fun acc key =>
00:17:10 verbose #11536 > > forall value. =>
00:17:10 verbose #11537 > > inl item = real_core.nominal_create `union_type
00:17:10 verbose #11538 > > (key, ())
00:17:10 verbose #11539 > > inl key = sm'.symbol_to_string `value key
00:17:10 verbose #11540 > > (::) `(string * union_type) (key, item) acc
00:17:10 verbose #11541 > > (Nil `(string * union_type))
00:17:10 verbose #11542 > > `union_record_type
00:17:11 verbose #11543 > >
00:17:11 verbose #11544 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:11 verbose #11545 > > //// test
00:17:11 verbose #11546 > > ///! fsharp
00:17:11 verbose #11547 > > ///! rust
00:17:11 verbose #11548 > > ///! typescript
00:17:11 verbose #11549 > > ///! python
00:17:11 verbose #11550 > >
00:17:11 verbose #11551 > > get_union_fields ()
00:17:11 verbose #11552 > > |> listm'.box
00:17:11 verbose #11553 > > |> listm'.to_array'
00:17:11 verbose #11554 > > |> a
00:17:11 verbose #11555 > > |> am'.sort_by snd
00:17:11 verbose #11556 > > |> fun x => x : a i32 _
00:17:11 verbose #11557 > > |> _assert_eq' (a ;[[ "Native", Native; "Wasm", Wasm; "Contract", Contract ]])
00:17:20 verbose #11558 > >
00:17:20 verbose #11559 > > ╭─[ 9.67s - return value ]─────────────────────────────────────────────────────╮
00:17:20 verbose #11560 > > │ .rs output: │
00:17:20 verbose #11561 > > │ assert_eq' / actual: Array(MutCell([("Native", US0_0), ("Wasm", US0_1), │
00:17:20 verbose #11562 > > │ ("Contract", US0_2)])) / expected: Array(MutCell([("Native", US0_0), │
00:17:20 verbose #11563 > > │ ("Wasm", US0_1), ("Contract", US0_2)])) │
00:17:20 verbose #11564 > > │ │
00:17:20 verbose #11565 > > │ .ts output: │
00:17:20 verbose #11566 > > │ assert_eq' / actual: Native,US0_0,Wasm,US0_1,Contract,US0_2 / expected: │
00:17:20 verbose #11567 > > │ Native,US0_0,Wasm,US0_1,Contract,US0_2 │
00:17:20 verbose #11568 > > │ │
00:17:20 verbose #11569 > > │ .py output: │
00:17:20 verbose #11570 > > │ assert_eq' / actual: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:17:20 verbose #11571 > > │ US0_2)] / expected: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:17:20 verbose #11572 > > │ US0_2)] │
00:17:20 verbose #11573 > > │ │
00:17:20 verbose #11574 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:20 verbose #11575 > >
00:17:20 verbose #11576 > > ╭─[ 9.68s - stdout ]───────────────────────────────────────────────────────────╮
00:17:20 verbose #11577 > > │ .fsx output: │
00:17:20 verbose #11578 > > │ assert_eq' / actual: [|struct ("Native", US0_0); struct ("Wasm", US0_1); │
00:17:20 verbose #11579 > > │ struct ("Contract", US0_2)|] / expected: [|struct ("Native", US0_0); struct │
00:17:20 verbose #11580 > > │ ("Wasm", US0_1); struct ("Contract", US0_2)|] │
00:17:20 verbose #11581 > > │ │
00:17:20 verbose #11582 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:20 verbose #11583 > >
00:17:20 verbose #11584 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:20 verbose #11585 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:20 verbose #11586 > > │ ### get_union_fields_untag │
00:17:20 verbose #11587 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:20 verbose #11588 > >
00:17:20 verbose #11589 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:20 verbose #11590 > > inl get_union_fields_untag forall union_type. () : list (string * union_type) =
00:17:20 verbose #11591 > > real
00:17:20 verbose #11592 > > real_core.union_to_record
00:17:20 verbose #11593 > > `union_type
00:17:20 verbose #11594 > > forall union_record_type. =>
00:17:20 verbose #11595 > > inl result =
00:17:20 verbose #11596 > > real_core.record_type_fold_back
00:17:20 verbose #11597 > > fun _key =>
00:17:20 verbose #11598 > > forall value. (acc, (i : i32)) =>
00:17:20 verbose #11599 > > inl key, item : (string * union_type) =
00:17:20 verbose #11600 > > real_core.union_untag `union_type i
00:17:20 verbose #11601 > > (fun key => forall v. =>
00:17:20 verbose #11602 > > (sm'.symbol_to_string `v key),
00:17:20 verbose #11603 > > real_core.nominal_create `union_type
00:17:20 verbose #11604 > > (key, ())
00:17:20 verbose #11605 > > )
00:17:20 verbose #11606 > > (fun _ => failwith `(string *
00:17:20 verbose #11607 > > union_type) "reflection.get_union_fields_untag / invalid tag")
00:17:20 verbose #11608 > > (::) `(string * union_type) (key, item) acc, (+)
00:17:20 verbose #11609 > > `i32 i 1
00:17:20 verbose #11610 > > `union_record_type
00:17:20 verbose #11611 > > (Nil `(string * union_type), 0i32)
00:17:20 verbose #11612 > > inl result = fst `(list (string * union_type)) `i32 result
00:17:20 verbose #11613 > > listm.rev `(string * union_type) result
00:17:21 verbose #11614 > >
00:17:21 verbose #11615 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:21 verbose #11616 > > //// test
00:17:21 verbose #11617 > > ///! fsharp
00:17:21 verbose #11618 > > ///! rust
00:17:21 verbose #11619 > > ///! typescript
00:17:21 verbose #11620 > > ///! python
00:17:21 verbose #11621 > >
00:17:21 verbose #11622 > > get_union_fields_untag ()
00:17:21 verbose #11623 > > |> listm'.box
00:17:21 verbose #11624 > > |> listm'.to_array'
00:17:21 verbose #11625 > > |> a
00:17:21 verbose #11626 > > |> fun x => x : a i32 _
00:17:21 verbose #11627 > > |> _assert_eq' (a ;[[ "Native", Native; "Wasm", Wasm; "Contract", Contract ]])
00:17:26 verbose #11628 > >
00:17:26 verbose #11629 > > ╭─[ 4.62s - return value ]─────────────────────────────────────────────────────╮
00:17:26 verbose #11630 > > │ .rs output: │
00:17:26 verbose #11631 > > │ assert_eq' / actual: Array(MutCell([("Native", US0_0), ("Wasm", US0_1), │
00:17:26 verbose #11632 > > │ ("Contract", US0_2)])) / expected: Array(MutCell([("Native", US0_0), │
00:17:26 verbose #11633 > > │ ("Wasm", US0_1), ("Contract", US0_2)])) │
00:17:26 verbose #11634 > > │ │
00:17:26 verbose #11635 > > │ .ts output: │
00:17:26 verbose #11636 > > │ assert_eq' / actual: Native,US0_0,Wasm,US0_1,Contract,US0_2 / expected: │
00:17:26 verbose #11637 > > │ Native,US0_0,Wasm,US0_1,Contract,US0_2 │
00:17:26 verbose #11638 > > │ │
00:17:26 verbose #11639 > > │ .py output: │
00:17:26 verbose #11640 > > │ assert_eq' / actual: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:17:26 verbose #11641 > > │ US0_2)] / expected: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:17:26 verbose #11642 > > │ US0_2)] │
00:17:26 verbose #11643 > > │ │
00:17:26 verbose #11644 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:26 verbose #11645 > >
00:17:26 verbose #11646 > > ╭─[ 4.62s - stdout ]───────────────────────────────────────────────────────────╮
00:17:26 verbose #11647 > > │ .fsx output: │
00:17:26 verbose #11648 > > │ assert_eq' / actual: [|struct ("Native", US0_0); struct ("Wasm", US0_1); │
00:17:26 verbose #11649 > > │ struct ("Contract", US0_2)|] / expected: [|struct ("Native", US0_0); struct │
00:17:26 verbose #11650 > > │ ("Wasm", US0_1); struct ("Contract", US0_2)|] │
00:17:26 verbose #11651 > > │ │
00:17:26 verbose #11652 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:26 verbose #11653 > >
00:17:26 verbose #11654 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:26 verbose #11655 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:26 verbose #11656 > > │ ### union_try_pick │
00:17:26 verbose #11657 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:26 verbose #11658 > >
00:17:26 verbose #11659 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:26 verbose #11660 > > inl union_try_pick forall t. (key : string) : option t =
00:17:26 verbose #11661 > > real get_union_fields_untag `t ()
00:17:26 verbose #11662 > > |> listm'.try_pick fun key', x =>
00:17:26 verbose #11663 > > if key' = key
00:17:26 verbose #11664 > > then Some x
00:17:26 verbose #11665 > > else None
00:17:26 verbose #11666 > >
00:17:26 verbose #11667 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:26 verbose #11668 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:26 verbose #11669 > > │ ### union_to_string │
00:17:26 verbose #11670 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:26 verbose #11671 > >
00:17:26 verbose #11672 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:26 verbose #11673 > > inl union_to_string forall t. (x : t) : string =
00:17:26 verbose #11674 > > real get_union_fields_untag `t ()
00:17:26 verbose #11675 > > |> listm'.try_pick fun key, x' =>
00:17:26 verbose #11676 > > if x' = x
00:17:26 verbose #11677 > > then Some key
00:17:26 verbose #11678 > > else None
00:17:26 verbose #11679 > > |> optionm.value
00:17:27 verbose #11680 > 00:00:25 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 9416
00:17:27 verbose #11681 > 00:00:25 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:17:31 verbose #11682 > 00:00:29 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb to html
00:17:31 verbose #11683 > 00:00:29 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:17:31 verbose #11684 > 00:00:29 verbose #7 ! validate(nb)
00:17:32 verbose #11685 > 00:00:30 verbose #8 ! [NbConvertApp] Writing 290760 bytes to c:\home\git\polyglot\lib\spiral\reflection.dib.html
00:17:32 verbose #11686 > 00:00:30 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651
00:17:32 verbose #11687 > 00:00:30 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651
00:17:32 verbose #11688 > 00:00:30 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/reflection.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/reflection.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:17:34 verbose #11689 > 00:00:31 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:17:34 verbose #11690 > 00:00:31 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:17:34 verbose #11691 > 00:00:32 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 10126
00:17:34 debug #11692 runtime.execute_with_options_async / exit_code: 0 / output.Length: 12784
00:17:34 debug #18 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path reflection.dib --retries 3
00:17:34 debug #11693 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path util.dib --retries 3",
[||], None, None, true, None)
00:17:34 verbose #11694 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "util.dib", "--retries", "3"])
00:17:34 verbose #11695 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/util.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/util.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/util.dib" --output-path "c:/home/git/polyglot/lib/spiral/util.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:17:37 verbose #11696 > >
00:17:37 verbose #11697 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:37 verbose #11698 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:37 verbose #11699 > > │ # util │
00:17:37 verbose #11700 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:37 verbose #11701 > >
00:17:37 verbose #11702 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:37 verbose #11703 > > //// test
00:17:37 verbose #11704 > >
00:17:37 verbose #11705 > > open testing
00:17:37 verbose #11706 > >
00:17:37 verbose #11707 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:17:37 verbose #11708 > > #r
00:17:37 verbose #11709 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:17:37 verbose #11710 > > otNet.Interactive.Spiral.dll"
00:17:37 verbose #11711 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:17:37 verbose #11712 > > #r
00:17:37 verbose #11713 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:17:37 verbose #11714 > > otNet.Interactive.dll"
00:17:37 verbose #11715 > > open type Microsoft.DotNet.Interactive.Kernel
00:17:42 verbose #11716 > >
00:17:42 verbose #11717 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:42 verbose #11718 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:42 verbose #11719 > > │ ### ski │
00:17:42 verbose #11720 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:42 verbose #11721 > >
00:17:42 verbose #11722 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:42 verbose #11723 > > union rec ski =
00:17:42 verbose #11724 > > | I
00:17:42 verbose #11725 > > | K
00:17:42 verbose #11726 > > | S
00:17:42 verbose #11727 > > | App : ski * ski
00:17:42 verbose #11728 > >
00:17:42 verbose #11729 > > inl rec eval ski =
00:17:42 verbose #11730 > > match ski with
00:17:42 verbose #11731 > > | App (App (K, x), y) => x |> eval
00:17:42 verbose #11732 > > | App (App (App (S, x), y), z) => App (App (x, z), App (y, z)) |> eval
00:17:42 verbose #11733 > > | App (I, x) => x |> eval
00:17:42 verbose #11734 > > | App (K, x) => App (K, eval x)
00:17:42 verbose #11735 > > | App (f, x) => App (eval f, x) |> eval
00:17:42 verbose #11736 > > | _ => ski
00:17:43 verbose #11737 > >
00:17:43 verbose #11738 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:43 verbose #11739 > > //// test
00:17:43 verbose #11740 > >
00:17:43 verbose #11741 > > eval I
00:17:43 verbose #11742 > > |> _assert_eq I
00:17:43 verbose #11743 > >
00:17:43 verbose #11744 > > App (I, I)
00:17:43 verbose #11745 > > |> eval
00:17:43 verbose #11746 > > |> _assert_eq I
00:17:43 verbose #11747 > >
00:17:43 verbose #11748 > > App (I, App (I, I))
00:17:43 verbose #11749 > > |> eval
00:17:43 verbose #11750 > > |> _assert_eq I
00:17:43 verbose #11751 > >
00:17:43 verbose #11752 > > App (App (I, I), I)
00:17:43 verbose #11753 > > |> eval
00:17:43 verbose #11754 > > |> _assert_eq I
00:17:43 verbose #11755 > >
00:17:43 verbose #11756 > > App (App (App (I, I), I), I)
00:17:43 verbose #11757 > > |> eval
00:17:43 verbose #11758 > > |> _assert_eq I
00:17:43 verbose #11759 > >
00:17:43 verbose #11760 > > eval K
00:17:43 verbose #11761 > > |> _assert_eq K
00:17:43 verbose #11762 > >
00:17:43 verbose #11763 > > App (K, I)
00:17:43 verbose #11764 > > |> eval
00:17:43 verbose #11765 > > |> _assert_eq (App (K, I))
00:17:43 verbose #11766 > >
00:17:43 verbose #11767 > > App (K, K)
00:17:43 verbose #11768 > > |> eval
00:17:43 verbose #11769 > > |> _assert_eq (App (K, K))
00:17:43 verbose #11770 > >
00:17:43 verbose #11771 > > App (App (K, I), K)
00:17:43 verbose #11772 > > |> eval
00:17:43 verbose #11773 > > |> _assert_eq I
00:17:43 verbose #11774 > >
00:17:43 verbose #11775 > > App (App (K, K), I)
00:17:43 verbose #11776 > > |> eval
00:17:43 verbose #11777 > > |> _assert_eq K
00:17:43 verbose #11778 > >
00:17:43 verbose #11779 > > App (App (App (App (K, K), I), S), K)
00:17:43 verbose #11780 > > |> eval
00:17:43 verbose #11781 > > |> _assert_eq S
00:17:43 verbose #11782 > >
00:17:43 verbose #11783 > > eval S
00:17:43 verbose #11784 > > |> _assert_eq S
00:17:43 verbose #11785 > >
00:17:43 verbose #11786 > > App (App (App (S, I), I), I)
00:17:43 verbose #11787 > > |> eval
00:17:43 verbose #11788 > > |> _assert_eq I
00:17:43 verbose #11789 > >
00:17:43 verbose #11790 > > App (App (App (S, K), K), I)
00:17:43 verbose #11791 > > |> eval
00:17:43 verbose #11792 > > |> _assert_eq I
00:17:43 verbose #11793 > >
00:17:43 verbose #11794 > > App (App (App (S, K), I), (App (App (K, I), S)))
00:17:43 verbose #11795 > > |> eval
00:17:43 verbose #11796 > > |> _assert_eq I
00:17:43 verbose #11797 > >
00:17:43 verbose #11798 > > App (App (K, S), App (I, App (App (App (S, K), S), I)))
00:17:43 verbose #11799 > > |> eval
00:17:43 verbose #11800 > > |> _assert_eq S
00:17:43 verbose #11801 > >
00:17:43 verbose #11802 > > App (App (App (S, K), I), K)
00:17:43 verbose #11803 > > |> eval
00:17:43 verbose #11804 > > |> _assert_eq K
00:17:45 verbose #11805 > >
00:17:45 verbose #11806 > > ╭─[ 1.91s - stdout ]───────────────────────────────────────────────────────────╮
00:17:45 verbose #11807 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11808 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11809 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11810 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11811 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11812 > > │ assert_eq / actual: UH0_1 / expected: UH0_1 │
00:17:45 verbose #11813 > > │ assert_eq / actual: UH0_3 (UH0_1, UH0_0) / expected: UH0_3 (UH0_1, UH0_0) │
00:17:45 verbose #11814 > > │ assert_eq / actual: UH0_3 (UH0_1, UH0_1) / expected: UH0_3 (UH0_1, UH0_1) │
00:17:45 verbose #11815 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11816 > > │ assert_eq / actual: UH0_1 / expected: UH0_1 │
00:17:45 verbose #11817 > > │ assert_eq / actual: UH0_2 / expected: UH0_2 │
00:17:45 verbose #11818 > > │ assert_eq / actual: UH0_2 / expected: UH0_2 │
00:17:45 verbose #11819 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11820 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11821 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:17:45 verbose #11822 > > │ assert_eq / actual: UH0_2 / expected: UH0_2 │
00:17:45 verbose #11823 > > │ assert_eq / actual: UH0_1 / expected: UH0_1 │
00:17:45 verbose #11824 > > │ │
00:17:45 verbose #11825 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:45 verbose #11826 > 00:00:10 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 4118
00:17:45 verbose #11827 > 00:00:10 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/util.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/util.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:17:47 verbose #11828 > 00:00:13 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/util.dib.ipynb to html
00:17:47 verbose #11829 > 00:00:13 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:17:47 verbose #11830 > 00:00:13 verbose #7 ! validate(nb)
00:17:48 verbose #11831 > 00:00:14 verbose #8 ! [NbConvertApp] Writing 284313 bytes to c:\home\git\polyglot\lib\spiral\util.dib.html
00:17:49 verbose #11832 > 00:00:14 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:17:49 verbose #11833 > 00:00:14 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:17:49 verbose #11834 > 00:00:14 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/util.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/util.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:17:49 verbose #11835 > 00:00:15 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:17:49 verbose #11836 > 00:00:15 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:17:50 verbose #11837 > 00:00:15 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 4816
00:17:50 debug #11838 runtime.execute_with_options_async / exit_code: 0 / output.Length: 7313
00:17:50 debug #19 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path util.dib --retries 3
00:17:50 debug #11839 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path platform.dib --retries 3",
[||], None, None, true, None)
00:17:50 verbose #11840 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "platform.dib", "--retries", "3"])
00:17:50 verbose #11841 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/platform.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/platform.dib" --output-path "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:17:52 verbose #11842 > >
00:17:52 verbose #11843 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:52 verbose #11844 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:52 verbose #11845 > > │ # platform │
00:17:52 verbose #11846 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:52 verbose #11847 > >
00:17:52 verbose #11848 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:52 verbose #11849 > > open rust_operators
00:17:52 verbose #11850 > >
00:17:52 verbose #11851 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:17:52 verbose #11852 > > #r
00:17:52 verbose #11853 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:17:52 verbose #11854 > > otNet.Interactive.Spiral.dll"
00:17:52 verbose #11855 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:17:52 verbose #11856 > > #r
00:17:52 verbose #11857 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:17:52 verbose #11858 > > otNet.Interactive.dll"
00:17:52 verbose #11859 > > open type Microsoft.DotNet.Interactive.Kernel
00:17:58 verbose #11860 > >
00:17:58 verbose #11861 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:58 verbose #11862 > > //// test
00:17:58 verbose #11863 > >
00:17:58 verbose #11864 > > open testing
00:17:58 verbose #11865 > >
00:17:58 verbose #11866 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:58 verbose #11867 > > inl types () =
00:17:58 verbose #11868 > > ()
00:17:59 verbose #11869 > >
00:17:59 verbose #11870 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:59 verbose #11871 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:59 verbose #11872 > > │ ## fsharp │
00:17:59 verbose #11873 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:59 verbose #11874 > >
00:17:59 verbose #11875 > > ── markdown ────────────────────────────────────────────────────────────────────
00:17:59 verbose #11876 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:17:59 verbose #11877 > > │ ### os_platform │
00:17:59 verbose #11878 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:17:59 verbose #11879 > >
00:17:59 verbose #11880 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:17:59 verbose #11881 > > nominal os_platform' = $'System.Runtime.InteropServices.OSPlatform'
00:17:59 verbose #11882 > >
00:17:59 verbose #11883 > > union os_platform =
00:17:59 verbose #11884 > > | FreeBSD
00:17:59 verbose #11885 > > | Linux
00:17:59 verbose #11886 > > | OSX
00:17:59 verbose #11887 > > | Windows
00:17:59 verbose #11888 > >
00:17:59 verbose #11889 > > inl os_platform = function
00:17:59 verbose #11890 > > | FreeBSD => $'`os_platform'.FreeBSD' : os_platform'
00:17:59 verbose #11891 > > | Linux => $'`os_platform'.Linux' : os_platform'
00:17:59 verbose #11892 > > | OSX => $'`os_platform'.OSX' : os_platform'
00:17:59 verbose #11893 > > | Windows => $'`os_platform'.Windows' : os_platform'
00:18:00 verbose #11894 > >
00:18:00 verbose #11895 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:00 verbose #11896 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:00 verbose #11897 > > │ ### run_platform │
00:18:00 verbose #11898 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:00 verbose #11899 > >
00:18:00 verbose #11900 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:00 verbose #11901 > > inl run_platform forall t. (fn : os_platform -> (() -> t)) : t =
00:18:00 verbose #11902 > > inl result = dyn true
00:18:00 verbose #11903 > > $'let mutable _!result : `t option = None '
00:18:00 verbose #11904 > > $'\n#if _FREEBSD'
00:18:00 verbose #11905 > > fn FreeBSD () |> emit_unit
00:18:00 verbose #11906 > > $'#endif\n#if _LINUX'
00:18:00 verbose #11907 > > fn Linux () |> emit_unit
00:18:00 verbose #11908 > > $'#endif\n#if _OSX'
00:18:00 verbose #11909 > > fn OSX () |> emit_unit
00:18:00 verbose #11910 > > $'#endif\n#if _WINDOWS'
00:18:00 verbose #11911 > > fn Windows () |> emit_unit
00:18:00 verbose #11912 > > $'#endif'
00:18:00 verbose #11913 > > $'|> fun x -> _!result <- Some x'
00:18:00 verbose #11914 > > $'match _!result with Some x -> x | None -> failwith "runtime.run_platform
00:18:00 verbose #11915 > > _!result=None"'
00:18:00 verbose #11916 > >
00:18:00 verbose #11917 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:00 verbose #11918 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:00 verbose #11919 > > │ ### is_os_platform │
00:18:00 verbose #11920 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:00 verbose #11921 > >
00:18:00 verbose #11922 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:00 verbose #11923 > > inl is_os_platform (x : os_platform') : bool =
00:18:00 verbose #11924 > > x |> $'System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform'
00:18:01 verbose #11925 > >
00:18:01 verbose #11926 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:01 verbose #11927 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:01 verbose #11928 > > │ ### is_windows' │
00:18:01 verbose #11929 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:01 verbose #11930 > >
00:18:01 verbose #11931 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:01 verbose #11932 > > inl is_windows' () : bool =
00:18:01 verbose #11933 > > run_platform function
00:18:01 verbose #11934 > > | Windows => fun () => true
00:18:01 verbose #11935 > > | _ => fun () => false
00:18:02 verbose #11936 > >
00:18:02 verbose #11937 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:02 verbose #11938 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:02 verbose #11939 > > │ ## platform │
00:18:02 verbose #11940 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:02 verbose #11941 > >
00:18:02 verbose #11942 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:02 verbose #11943 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:02 verbose #11944 > > │ ### is_windows │
00:18:02 verbose #11945 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:02 verbose #11946 > >
00:18:02 verbose #11947 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:02 verbose #11948 > > inl is_windows () : bool =
00:18:02 verbose #11949 > > run_target function
00:18:02 verbose #11950 > > | Rust _ => fun () =>
00:18:02 verbose #11951 > > !\($'"cfg\!(windows)"')
00:18:02 verbose #11952 > > | Fsharp _ => fun () =>
00:18:02 verbose #11953 > > Windows |> os_platform |> is_os_platform
00:18:02 verbose #11954 > > | target => fun () => failwith $'$"platform.is_windows / target:
00:18:02 verbose #11955 > > {!target}"'
00:18:02 verbose #11956 > >
00:18:02 verbose #11957 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:02 verbose #11958 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:02 verbose #11959 > > │ ### get_executable_suffix │
00:18:02 verbose #11960 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:02 verbose #11961 > >
00:18:02 verbose #11962 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:02 verbose #11963 > > inl get_executable_suffix () =
00:18:02 verbose #11964 > > if is_windows ()
00:18:02 verbose #11965 > > then ".exe"
00:18:02 verbose #11966 > > else ""
00:18:03 verbose #11967 > >
00:18:03 verbose #11968 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:03 verbose #11969 > > //// test
00:18:03 verbose #11970 > >
00:18:03 verbose #11971 > > get_executable_suffix ()
00:18:05 verbose #11972 > >
00:18:05 verbose #11973 > > ╭─[ 1.71s - return value ]─────────────────────────────────────────────────────╮
00:18:05 verbose #11974 > > │ .exe │
00:18:05 verbose #11975 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:05 verbose #11976 > >
00:18:05 verbose #11977 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:05 verbose #11978 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:05 verbose #11979 > > │ ## main │
00:18:05 verbose #11980 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:05 verbose #11981 > >
00:18:05 verbose #11982 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:05 verbose #11983 > > inl main () =
00:18:05 verbose #11984 > > types ()
00:18:05 verbose #11985 > > $'let is_windows () = !is_windows ()' : ()
00:18:05 verbose #11986 > > $'let get_executable_suffix () = !get_executable_suffix ()' : ()
00:18:06 verbose #11987 > 00:00:15 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 6552
00:18:06 verbose #11988 > 00:00:15 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:18:08 verbose #11989 > 00:00:17 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/platform.dib.ipynb to html
00:18:08 verbose #11990 > 00:00:17 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:18:08 verbose #11991 > 00:00:17 verbose #7 ! validate(nb)
00:18:09 verbose #11992 > 00:00:19 verbose #8 ! [NbConvertApp] Writing 288687 bytes to c:\home\git\polyglot\lib\spiral\platform.dib.html
00:18:09 verbose #11993 > 00:00:19 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 647
00:18:09 verbose #11994 > 00:00:19 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 647
00:18:09 verbose #11995 > 00:00:19 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/platform.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/platform.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:18:10 verbose #11996 > 00:00:20 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:18:10 verbose #11997 > 00:00:20 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:18:11 verbose #11998 > 00:00:20 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 7258
00:18:11 debug #11999 runtime.execute_with_options_async / exit_code: 0 / output.Length: 9821
00:18:11 debug #20 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path platform.dib --retries 3
00:18:11 debug #12000 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path stream.dib --retries 3",
[||], None, None, true, None)
00:18:11 verbose #12001 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "stream.dib", "--retries", "3"])
00:18:11 verbose #12002 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/stream.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/stream.dib" --output-path "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:18:13 verbose #12003 > >
00:18:13 verbose #12004 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:13 verbose #12005 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:13 verbose #12006 > > │ # stream │
00:18:13 verbose #12007 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:13 verbose #12008 > >
00:18:13 verbose #12009 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:13 verbose #12010 > > open rust_operators
00:18:13 verbose #12011 > >
00:18:13 verbose #12012 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:18:13 verbose #12013 > > #r
00:18:13 verbose #12014 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:18:13 verbose #12015 > > otNet.Interactive.Spiral.dll"
00:18:13 verbose #12016 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:18:13 verbose #12017 > > #r
00:18:13 verbose #12018 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:18:13 verbose #12019 > > otNet.Interactive.dll"
00:18:13 verbose #12020 > > open type Microsoft.DotNet.Interactive.Kernel
00:18:19 verbose #12021 > >
00:18:19 verbose #12022 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:19 verbose #12023 > > //// test
00:18:19 verbose #12024 > >
00:18:19 verbose #12025 > > open testing
00:18:20 verbose #12026 > >
00:18:20 verbose #12027 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:20 verbose #12028 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:20 verbose #12029 > > │ ## types │
00:18:20 verbose #12030 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:20 verbose #12031 > >
00:18:20 verbose #12032 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:20 verbose #12033 > > inl types () =
00:18:20 verbose #12034 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:18:20 verbose #12035 > > Fable.Core.Emit(\"encoding_rs_io::DecodeReaderBytes<$0, $1>\")>]]\n#endif\ntype
00:18:20 verbose #12036 > > encoding_rs_io_DecodeReaderBytes<'T, 'U> = class end"
00:18:20 verbose #12037 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:18:20 verbose #12038 > > Fable.Core.Emit(\"std::io::BufReader<$0>\")>]]\n#endif\ntype
00:18:20 verbose #12039 > > std_io_BufReader<'T> = class end"
00:18:20 verbose #12040 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:18:20 verbose #12041 > > Fable.Core.Emit(\"std::io::Cursor<$0>\")>]]\n#endif\ntype std_io_Cursor<'T> =
00:18:20 verbose #12042 > > class end"
00:18:20 verbose #12043 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:18:20 verbose #12044 > > Fable.Core.Emit(\"std::io::Error\")>]]\n#endif\ntype std_io_Error = class end"
00:18:20 verbose #12045 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:18:20 verbose #12046 > > Fable.Core.Emit(\"std::io::Lines<$0>\")>]]\n#endif\ntype std_io_Lines<'T> =
00:18:20 verbose #12047 > > class end"
00:18:20 verbose #12048 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:18:20 verbose #12049 > > Fable.Core.Emit(\"tokio::io::BufReader<$0>\")>]]\n#endif\ntype
00:18:20 verbose #12050 > > tokio_io_BufReader<'T> = class end"
00:18:21 verbose #12051 > >
00:18:21 verbose #12052 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:21 verbose #12053 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:21 verbose #12054 > > │ ## stream │
00:18:21 verbose #12055 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:21 verbose #12056 > >
00:18:21 verbose #12057 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:21 verbose #12058 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:21 verbose #12059 > > │ ### stream │
00:18:21 verbose #12060 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:21 verbose #12061 > >
00:18:21 verbose #12062 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:21 verbose #12063 > > union rec stream t =
00:18:21 verbose #12064 > > | StreamCons : t * (() -> stream t)
00:18:21 verbose #12065 > > | StreamNil
00:18:22 verbose #12066 > >
00:18:22 verbose #12067 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:22 verbose #12068 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:22 verbose #12069 > > │ ### fold │
00:18:22 verbose #12070 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:22 verbose #12071 > >
00:18:22 verbose #12072 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:22 verbose #12073 > > inl fold fn init s =
00:18:22 verbose #12074 > > inl rec body acc = function
00:18:22 verbose #12075 > > | StreamCons (st, fn') => loop (fn acc st) (fn' ())
00:18:22 verbose #12076 > > | StreamNil => acc
00:18:22 verbose #12077 > > and inl loop acc = join_body body acc
00:18:22 verbose #12078 > > loop init s
00:18:22 verbose #12079 > >
00:18:22 verbose #12080 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:22 verbose #12081 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:22 verbose #12082 > > │ ### fold_back │
00:18:22 verbose #12083 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:22 verbose #12084 > >
00:18:22 verbose #12085 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:22 verbose #12086 > > inl fold_back fn s init =
00:18:22 verbose #12087 > > inl rec body acc = function
00:18:22 verbose #12088 > > | StreamCons (st, fn') => fn st (loop acc (fn' ()))
00:18:22 verbose #12089 > > | StreamNil => acc
00:18:22 verbose #12090 > > and inl loop acc = join_body body acc
00:18:22 verbose #12091 > > loop init s
00:18:23 verbose #12092 > >
00:18:23 verbose #12093 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:23 verbose #12094 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:23 verbose #12095 > > │ ### to_list │
00:18:23 verbose #12096 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:23 verbose #12097 > >
00:18:23 verbose #12098 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:23 verbose #12099 > > inl to_list s =
00:18:23 verbose #12100 > > (s, [[]])
00:18:23 verbose #12101 > > ||> fold_back fun x acc =>
00:18:23 verbose #12102 > > x :: acc
00:18:24 verbose #12103 > >
00:18:24 verbose #12104 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:24 verbose #12105 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:24 verbose #12106 > > │ ### rev │
00:18:24 verbose #12107 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:24 verbose #12108 > >
00:18:24 verbose #12109 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:24 verbose #12110 > > inl rev s =
00:18:24 verbose #12111 > > (StreamNil, s)
00:18:24 verbose #12112 > > ||> fold fun s x =>
00:18:24 verbose #12113 > > StreamCons (x, fun () => s)
00:18:24 verbose #12114 > >
00:18:24 verbose #12115 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:24 verbose #12116 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:24 verbose #12117 > > │ ### from_list │
00:18:24 verbose #12118 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:24 verbose #12119 > >
00:18:24 verbose #12120 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:24 verbose #12121 > > inl from_list list =
00:18:24 verbose #12122 > > (list, StreamNil)
00:18:24 verbose #12123 > > ||> listm.foldBack fun x acc =>
00:18:24 verbose #12124 > > StreamCons (x, fun () => acc)
00:18:25 verbose #12125 > >
00:18:25 verbose #12126 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:25 verbose #12127 > > //// test
00:18:25 verbose #12128 > >
00:18:25 verbose #12129 > > listm.init 3i32 id
00:18:25 verbose #12130 > > |> from_list
00:18:25 verbose #12131 > > |> rev
00:18:25 verbose #12132 > > |> to_list
00:18:25 verbose #12133 > > |> _assert_eq [[ 2; 1; 0 ]]
00:18:27 verbose #12134 > >
00:18:27 verbose #12135 > > ╭─[ 1.91s - stdout ]───────────────────────────────────────────────────────────╮
00:18:27 verbose #12136 > > │ assert_eq / actual: UH0_1 (2, UH0_1 (1, UH0_1 (0, UH0_0))) / expected: UH0_1 │
00:18:27 verbose #12137 > > │ (2, UH0_1 (1, UH0_1 (0, UH0_0))) │
00:18:27 verbose #12138 > > │ │
00:18:27 verbose #12139 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:27 verbose #12140 > >
00:18:27 verbose #12141 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:27 verbose #12142 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:27 verbose #12143 > > │ ### try_item │
00:18:27 verbose #12144 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:27 verbose #12145 > >
00:18:27 verbose #12146 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:27 verbose #12147 > > inl try_item i s =
00:18:27 verbose #12148 > > inl rec body i = function
00:18:27 verbose #12149 > > | StreamCons (x, _) when i <= 0 => Some x
00:18:27 verbose #12150 > > | StreamCons (_, fn) => loop (i - 1) (fn ())
00:18:27 verbose #12151 > > | StreamNil => None
00:18:27 verbose #12152 > > and inl loop acc s' =
00:18:27 verbose #12153 > > match var_is acc, var_is s' with
00:18:27 verbose #12154 > > | false, false => body acc s'
00:18:27 verbose #12155 > > | _ =>
00:18:27 verbose #12156 > > inl acc = dyn acc
00:18:27 verbose #12157 > > inl s' = dyn s'
00:18:27 verbose #12158 > > join body acc s'
00:18:27 verbose #12159 > > loop i s
00:18:27 verbose #12160 > >
00:18:27 verbose #12161 > > inl item i =
00:18:27 verbose #12162 > > try_item i >> optionm.value
00:18:28 verbose #12163 > >
00:18:28 verbose #12164 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:28 verbose #12165 > > //// test
00:18:28 verbose #12166 > >
00:18:28 verbose #12167 > > listm.init 10i32 id
00:18:28 verbose #12168 > > |> from_list
00:18:28 verbose #12169 > > |> item 9i32
00:18:28 verbose #12170 > > |> _assert_eq 9
00:18:28 verbose #12171 > >
00:18:28 verbose #12172 > > ╭─[ 831.43ms - stdout ]────────────────────────────────────────────────────────╮
00:18:28 verbose #12173 > > │ assert_eq / actual: 9 / expected: 9 │
00:18:28 verbose #12174 > > │ │
00:18:28 verbose #12175 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:28 verbose #12176 > >
00:18:28 verbose #12177 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:28 verbose #12178 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:28 verbose #12179 > > │ ### new_infinite_stream │
00:18:28 verbose #12180 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:28 verbose #12181 > >
00:18:28 verbose #12182 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:28 verbose #12183 > > inl new_infinite_stream fn =
00:18:28 verbose #12184 > > inl rec loop n =
00:18:28 verbose #12185 > > StreamCons (fn n, fun () => loop (n + 1))
00:18:28 verbose #12186 > > loop 0
00:18:28 verbose #12187 > >
00:18:28 verbose #12188 > > inl new_infinite_stream_ fn =
00:18:28 verbose #12189 > > let rec loop n =
00:18:28 verbose #12190 > > StreamCons (fn n, fun () => loop (n + 1))
00:18:28 verbose #12191 > > loop 0
00:18:29 verbose #12192 > >
00:18:29 verbose #12193 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:29 verbose #12194 > > //// test
00:18:29 verbose #12195 > >
00:18:29 verbose #12196 > > new_infinite_stream print_and_return
00:18:29 verbose #12197 > > |> item 4i32
00:18:29 verbose #12198 > > |> _assert_eq 4i32
00:18:30 verbose #12199 > >
00:18:30 verbose #12200 > > ╭─[ 1.16s - stdout ]───────────────────────────────────────────────────────────╮
00:18:30 verbose #12201 > > │ print_and_return / x: 0 │
00:18:30 verbose #12202 > > │ print_and_return / x: 1 │
00:18:30 verbose #12203 > > │ print_and_return / x: 2 │
00:18:30 verbose #12204 > > │ print_and_return / x: 3 │
00:18:30 verbose #12205 > > │ print_and_return / x: 4 │
00:18:30 verbose #12206 > > │ assert_eq / actual: 4 / expected: 4 │
00:18:30 verbose #12207 > > │ │
00:18:30 verbose #12208 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:30 verbose #12209 > >
00:18:30 verbose #12210 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:30 verbose #12211 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:30 verbose #12212 > > │ ### new_finite_stream │
00:18:30 verbose #12213 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:30 verbose #12214 > >
00:18:30 verbose #12215 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:30 verbose #12216 > > inl new_finite_stream fn max =
00:18:30 verbose #12217 > > inl rec loop n =
00:18:30 verbose #12218 > > if n >= max
00:18:30 verbose #12219 > > then StreamNil
00:18:30 verbose #12220 > > else StreamCons (fn n, fun () => loop (n + 1))
00:18:30 verbose #12221 > > loop 0
00:18:31 verbose #12222 > >
00:18:31 verbose #12223 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:31 verbose #12224 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:31 verbose #12225 > > │ ### memoize │
00:18:31 verbose #12226 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:31 verbose #12227 > >
00:18:31 verbose #12228 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:31 verbose #12229 > > union memoized_stream t =
00:18:31 verbose #12230 > > | NotComputed : () -> stream t
00:18:31 verbose #12231 > > | Computed : stream t
00:18:31 verbose #12232 > >
00:18:31 verbose #12233 > > inl memoize s =
00:18:31 verbose #12234 > > inl rec body s =
00:18:31 verbose #12235 > > inl state = mut (NotComputed s)
00:18:31 verbose #12236 > > fun () =>
00:18:31 verbose #12237 > > match *state with
00:18:31 verbose #12238 > > | Computed x => x
00:18:31 verbose #12239 > > | NotComputed fn =>
00:18:31 verbose #12240 > > inl new_state =
00:18:31 verbose #12241 > > match fn () with
00:18:31 verbose #12242 > > | StreamNil => StreamNil
00:18:31 verbose #12243 > > | StreamCons (x, fn) => StreamCons (x, loop fn)
00:18:31 verbose #12244 > > state <- Computed new_state
00:18:31 verbose #12245 > > new_state
00:18:31 verbose #12246 > > and inl loop s' = join_body_unit body s s'
00:18:31 verbose #12247 > > loop (fun () => s)
00:18:32 verbose #12248 > >
00:18:32 verbose #12249 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:32 verbose #12250 > > //// test
00:18:32 verbose #12251 > >
00:18:32 verbose #12252 > > inl memo_stream = new_finite_stream print_and_return 10 |> memoize
00:18:32 verbose #12253 > >
00:18:32 verbose #12254 > > memo_stream ()
00:18:32 verbose #12255 > > |> item 3i32
00:18:32 verbose #12256 > > |> _assert_eq 3i32
00:18:32 verbose #12257 > >
00:18:32 verbose #12258 > > memo_stream ()
00:18:32 verbose #12259 > > |> item 5i32
00:18:32 verbose #12260 > > |> _assert_eq 5i32
00:18:33 verbose #12261 > >
00:18:33 verbose #12262 > > ╭─[ 1.02s - stdout ]───────────────────────────────────────────────────────────╮
00:18:33 verbose #12263 > > │ print_and_return / x: 0 │
00:18:33 verbose #12264 > > │ print_and_return / x: 1 │
00:18:33 verbose #12265 > > │ print_and_return / x: 2 │
00:18:33 verbose #12266 > > │ print_and_return / x: 3 │
00:18:33 verbose #12267 > > │ assert_eq / actual: 3 / expected: 3 │
00:18:33 verbose #12268 > > │ print_and_return / x: 4 │
00:18:33 verbose #12269 > > │ print_and_return / x: 5 │
00:18:33 verbose #12270 > > │ assert_eq / actual: 5 / expected: 5 │
00:18:33 verbose #12271 > > │ │
00:18:33 verbose #12272 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:33 verbose #12273 > >
00:18:33 verbose #12274 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:33 verbose #12275 > > //// test
00:18:33 verbose #12276 > >
00:18:33 verbose #12277 > > inl memo_stream = new_infinite_stream_ print_and_return |> memoize
00:18:33 verbose #12278 > >
00:18:33 verbose #12279 > > memo_stream ()
00:18:33 verbose #12280 > > |> item 3i32
00:18:33 verbose #12281 > > |> _assert_eq 3i32
00:18:33 verbose #12282 > >
00:18:33 verbose #12283 > > memo_stream ()
00:18:33 verbose #12284 > > |> item 5i32
00:18:33 verbose #12285 > > |> _assert_eq 5i32
00:18:34 verbose #12286 > >
00:18:34 verbose #12287 > > ╭─[ 720.82ms - stdout ]────────────────────────────────────────────────────────╮
00:18:34 verbose #12288 > > │ print_and_return / x: 0 │
00:18:34 verbose #12289 > > │ print_and_return / x: 1 │
00:18:34 verbose #12290 > > │ print_and_return / x: 2 │
00:18:34 verbose #12291 > > │ print_and_return / x: 3 │
00:18:34 verbose #12292 > > │ assert_eq / actual: 3 / expected: 3 │
00:18:34 verbose #12293 > > │ print_and_return / x: 4 │
00:18:34 verbose #12294 > > │ print_and_return / x: 5 │
00:18:34 verbose #12295 > > │ assert_eq / actual: 5 / expected: 5 │
00:18:34 verbose #12296 > > │ │
00:18:34 verbose #12297 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:34 verbose #12298 > >
00:18:34 verbose #12299 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:34 verbose #12300 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:34 verbose #12301 > > │ ### unfold │
00:18:34 verbose #12302 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:34 verbose #12303 > >
00:18:34 verbose #12304 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:34 verbose #12305 > > inl unfold f x0 =
00:18:34 verbose #12306 > > inl rec body x =
00:18:34 verbose #12307 > > match f x with
00:18:34 verbose #12308 > > | Some (x', y) => StreamCons (x', fun () => loop y)
00:18:34 verbose #12309 > > | None => StreamNil
00:18:34 verbose #12310 > > and inl loop x = join_body_unit body x0 x
00:18:34 verbose #12311 > > loop x0
00:18:34 verbose #12312 > >
00:18:34 verbose #12313 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:34 verbose #12314 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:34 verbose #12315 > > │ ### iterate │
00:18:34 verbose #12316 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:34 verbose #12317 > >
00:18:34 verbose #12318 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:34 verbose #12319 > > inl iterate f =
00:18:34 verbose #12320 > > unfold (fun x => Some (x, f x))
00:18:35 verbose #12321 > >
00:18:35 verbose #12322 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:35 verbose #12323 > > //// test
00:18:35 verbose #12324 > >
00:18:35 verbose #12325 > > iterate ((*) 2) 1i32
00:18:35 verbose #12326 > > |> item 10i32
00:18:35 verbose #12327 > > |> _assert_eq 1024
00:18:36 verbose #12328 > >
00:18:36 verbose #12329 > > ╭─[ 674.31ms - stdout ]────────────────────────────────────────────────────────╮
00:18:36 verbose #12330 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:18:36 verbose #12331 > > │ │
00:18:36 verbose #12332 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:36 verbose #12333 > >
00:18:36 verbose #12334 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:36 verbose #12335 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:36 verbose #12336 > > │ ### take_while │
00:18:36 verbose #12337 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:36 verbose #12338 > >
00:18:36 verbose #12339 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:36 verbose #12340 > > inl take_while cond s =
00:18:36 verbose #12341 > > inl rec body i = function
00:18:36 verbose #12342 > > | StreamCons (st, fn) when cond st i => StreamCons (st, fun () => loop
00:18:36 verbose #12343 > > (i + 1) (fn ()))
00:18:36 verbose #12344 > > | _ => StreamNil
00:18:36 verbose #12345 > > and inl loop i = join_body body i
00:18:36 verbose #12346 > > loop 0 s
00:18:36 verbose #12347 > >
00:18:36 verbose #12348 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:36 verbose #12349 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:36 verbose #12350 > > │ ### sum │
00:18:36 verbose #12351 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:36 verbose #12352 > >
00:18:36 verbose #12353 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:36 verbose #12354 > > inl sum seq =
00:18:36 verbose #12355 > > seq |> fold (+) 0
00:18:37 verbose #12356 > >
00:18:37 verbose #12357 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:37 verbose #12358 > > //// test
00:18:37 verbose #12359 > >
00:18:37 verbose #12360 > > listm.init 10i32 id
00:18:37 verbose #12361 > > |> from_list
00:18:37 verbose #12362 > > |> sum
00:18:37 verbose #12363 > > |> _assert_eq 45
00:18:37 verbose #12364 > >
00:18:37 verbose #12365 > > ╭─[ 666.22ms - stdout ]────────────────────────────────────────────────────────╮
00:18:37 verbose #12366 > > │ assert_eq / actual: 45 / expected: 45 │
00:18:37 verbose #12367 > > │ │
00:18:37 verbose #12368 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:37 verbose #12369 > >
00:18:37 verbose #12370 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:37 verbose #12371 > > //// test
00:18:37 verbose #12372 > >
00:18:37 verbose #12373 > > new_finite_stream print_and_return 10i32
00:18:37 verbose #12374 > > |> take_while (fun n (_ : i32) => n < 5)
00:18:37 verbose #12375 > > |> sum
00:18:37 verbose #12376 > > |> _assert_eq 10
00:18:38 verbose #12377 > >
00:18:38 verbose #12378 > > ╭─[ 674.84ms - stdout ]────────────────────────────────────────────────────────╮
00:18:38 verbose #12379 > > │ print_and_return / x: 0 │
00:18:38 verbose #12380 > > │ print_and_return / x: 1 │
00:18:38 verbose #12381 > > │ print_and_return / x: 2 │
00:18:38 verbose #12382 > > │ print_and_return / x: 3 │
00:18:38 verbose #12383 > > │ print_and_return / x: 4 │
00:18:38 verbose #12384 > > │ print_and_return / x: 5 │
00:18:38 verbose #12385 > > │ assert_eq / actual: 10 / expected: 10 │
00:18:38 verbose #12386 > > │ │
00:18:38 verbose #12387 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:38 verbose #12388 > >
00:18:38 verbose #12389 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:38 verbose #12390 > > //// test
00:18:38 verbose #12391 > >
00:18:38 verbose #12392 > > new_infinite_stream print_and_return
00:18:38 verbose #12393 > > |> take_while (fun n (_ : i32) => n < 5i32)
00:18:38 verbose #12394 > > |> sum
00:18:38 verbose #12395 > > |> _assert_eq 10
00:18:39 verbose #12396 > >
00:18:39 verbose #12397 > > ╭─[ 673.80ms - stdout ]────────────────────────────────────────────────────────╮
00:18:39 verbose #12398 > > │ print_and_return / x: 0 │
00:18:39 verbose #12399 > > │ print_and_return / x: 1 │
00:18:39 verbose #12400 > > │ print_and_return / x: 2 │
00:18:39 verbose #12401 > > │ print_and_return / x: 3 │
00:18:39 verbose #12402 > > │ print_and_return / x: 4 │
00:18:39 verbose #12403 > > │ print_and_return / x: 5 │
00:18:39 verbose #12404 > > │ assert_eq / actual: 10 / expected: 10 │
00:18:39 verbose #12405 > > │ │
00:18:39 verbose #12406 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:39 verbose #12407 > >
00:18:39 verbose #12408 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:39 verbose #12409 > > //// test
00:18:39 verbose #12410 > >
00:18:39 verbose #12411 > > iterate ((*) 6) 1i32
00:18:39 verbose #12412 > > |> take_while (fun _ i => i <= 7i32)
00:18:39 verbose #12413 > > |> to_list
00:18:39 verbose #12414 > > |> _assert_eq [[ 1i32; 6; 36; 216; 1296; 7776; 46656; 279936 ]]
00:18:40 verbose #12415 > >
00:18:40 verbose #12416 > > ╭─[ 688.12ms - stdout ]────────────────────────────────────────────────────────╮
00:18:40 verbose #12417 > > │ assert_eq / actual: UH0_1 │
00:18:40 verbose #12418 > > │ (1, │
00:18:40 verbose #12419 > > │ UH0_1 │
00:18:40 verbose #12420 > > │ (6, │
00:18:40 verbose #12421 > > │ UH0_1 │
00:18:40 verbose #12422 > > │ (36, │
00:18:40 verbose #12423 > > │ UH0_1 │
00:18:40 verbose #12424 > > │ (216, │
00:18:40 verbose #12425 > > │ UH0_1 (1296, UH0_1 (7776, UH0_1 (46656, UH0_1 (279936, │
00:18:40 verbose #12426 > > │ UH0_0)))))))) / expected: UH0_1 │
00:18:40 verbose #12427 > > │ (1, │
00:18:40 verbose #12428 > > │ UH0_1 │
00:18:40 verbose #12429 > > │ (6, │
00:18:40 verbose #12430 > > │ UH0_1 │
00:18:40 verbose #12431 > > │ (36, │
00:18:40 verbose #12432 > > │ UH0_1 │
00:18:40 verbose #12433 > > │ (216, │
00:18:40 verbose #12434 > > │ UH0_1 (1296, UH0_1 (7776, UH0_1 (46656, UH0_1 (279936, │
00:18:40 verbose #12435 > > │ UH0_0)))))))) │
00:18:40 verbose #12436 > > │ │
00:18:40 verbose #12437 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:40 verbose #12438 > >
00:18:40 verbose #12439 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:40 verbose #12440 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:40 verbose #12441 > > │ ### indexed │
00:18:40 verbose #12442 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:40 verbose #12443 > >
00:18:40 verbose #12444 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:40 verbose #12445 > > inl indexed s =
00:18:40 verbose #12446 > > ((StreamNil, 0), s)
00:18:40 verbose #12447 > > ||> fold fun (acc, i) x =>
00:18:40 verbose #12448 > > StreamCons ((i, x), fun () => acc), i + 1
00:18:40 verbose #12449 > > |> fst
00:18:40 verbose #12450 > > |> rev
00:18:40 verbose #12451 > >
00:18:40 verbose #12452 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:40 verbose #12453 > > //// test
00:18:40 verbose #12454 > >
00:18:40 verbose #12455 > > listm.init 10i32 ((*) 2)
00:18:40 verbose #12456 > > |> from_list
00:18:40 verbose #12457 > > |> indexed
00:18:40 verbose #12458 > > |> item 5i32
00:18:40 verbose #12459 > > |> _assert_eq (5i32, 10i32)
00:18:41 verbose #12460 > >
00:18:41 verbose #12461 > > ╭─[ 696.84ms - stdout ]────────────────────────────────────────────────────────╮
00:18:41 verbose #12462 > > │ assert_eq / actual: struct (5, 10) / expected: struct (5, 10) │
00:18:41 verbose #12463 > > │ │
00:18:41 verbose #12464 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:41 verbose #12465 > >
00:18:41 verbose #12466 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:41 verbose #12467 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:41 verbose #12468 > > │ ### map │
00:18:41 verbose #12469 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:41 verbose #12470 > >
00:18:41 verbose #12471 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:41 verbose #12472 > > inl map fn s =
00:18:41 verbose #12473 > > (s, StreamNil)
00:18:41 verbose #12474 > > ||> fold_back fun x acc =>
00:18:41 verbose #12475 > > StreamCons (fn x, fun () => acc)
00:18:42 verbose #12476 > >
00:18:42 verbose #12477 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:42 verbose #12478 > > //// test
00:18:42 verbose #12479 > >
00:18:42 verbose #12480 > > listm.init 10i32 id
00:18:42 verbose #12481 > > |> from_list
00:18:42 verbose #12482 > > |> map ((*) 2)
00:18:42 verbose #12483 > > |> item 5i32
00:18:42 verbose #12484 > > |> _assert_eq 10i32
00:18:42 verbose #12485 > >
00:18:42 verbose #12486 > > ╭─[ 676.74ms - stdout ]────────────────────────────────────────────────────────╮
00:18:42 verbose #12487 > > │ assert_eq / actual: 10 / expected: 10 │
00:18:42 verbose #12488 > > │ │
00:18:42 verbose #12489 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:42 verbose #12490 > >
00:18:42 verbose #12491 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:42 verbose #12492 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:42 verbose #12493 > > │ ### zip_with │
00:18:42 verbose #12494 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:42 verbose #12495 > >
00:18:42 verbose #12496 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:42 verbose #12497 > > inl zip_with fn s1 s2 =
00:18:42 verbose #12498 > > inl rec loop s1 s2 =
00:18:42 verbose #12499 > > match s1, s2 with
00:18:42 verbose #12500 > > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:18:42 verbose #12501 > > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:18:42 verbose #12502 > > | StreamNil, _ | _, StreamNil => StreamNil
00:18:42 verbose #12503 > > loop s1 s2
00:18:42 verbose #12504 > >
00:18:42 verbose #12505 > > inl zip_with_ fn s1 s2 =
00:18:42 verbose #12506 > > let rec loop s1 s2 =
00:18:42 verbose #12507 > > match s1, s2 with
00:18:42 verbose #12508 > > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:18:42 verbose #12509 > > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:18:42 verbose #12510 > > | StreamNil, _ | _, StreamNil => StreamNil
00:18:42 verbose #12511 > > loop s1 s2
00:18:43 verbose #12512 > >
00:18:43 verbose #12513 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:43 verbose #12514 > > //// test
00:18:43 verbose #12515 > >
00:18:43 verbose #12516 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:18:43 verbose #12517 > > ||> zip_with (+)
00:18:43 verbose #12518 > > |> item 2i32
00:18:43 verbose #12519 > > |> _assert_eq 6
00:18:44 verbose #12520 > >
00:18:44 verbose #12521 > > ╭─[ 687.05ms - stdout ]────────────────────────────────────────────────────────╮
00:18:44 verbose #12522 > > │ assert_eq / actual: 6 / expected: 6 │
00:18:44 verbose #12523 > > │ │
00:18:44 verbose #12524 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:44 verbose #12525 > >
00:18:44 verbose #12526 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:44 verbose #12527 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:44 verbose #12528 > > │ ### zip │
00:18:44 verbose #12529 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:44 verbose #12530 > >
00:18:44 verbose #12531 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:44 verbose #12532 > > inl zip s1 s2 =
00:18:44 verbose #12533 > > zip_with pair s1 s2
00:18:44 verbose #12534 > >
00:18:44 verbose #12535 > > inl zip_ s1 s2 =
00:18:44 verbose #12536 > > zip_with_ pair s1 s2
00:18:44 verbose #12537 > >
00:18:44 verbose #12538 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:44 verbose #12539 > > //// test
00:18:44 verbose #12540 > >
00:18:44 verbose #12541 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:18:44 verbose #12542 > > ||> zip
00:18:44 verbose #12543 > > |> item 5i32
00:18:44 verbose #12544 > > |> _assert_eq (5, 10)
00:18:45 verbose #12545 > >
00:18:45 verbose #12546 > > ╭─[ 682.52ms - stdout ]────────────────────────────────────────────────────────╮
00:18:45 verbose #12547 > > │ assert_eq / actual: struct (5, 10) / expected: struct (5, 10) │
00:18:45 verbose #12548 > > │ │
00:18:45 verbose #12549 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:45 verbose #12550 > >
00:18:45 verbose #12551 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:45 verbose #12552 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:45 verbose #12553 > > │ ### unzip │
00:18:45 verbose #12554 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:45 verbose #12555 > >
00:18:45 verbose #12556 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:45 verbose #12557 > > inl unzip s =
00:18:45 verbose #12558 > > inl rec body s =
00:18:45 verbose #12559 > > match s with
00:18:45 verbose #12560 > > | StreamCons ((x, y), fn) =>
00:18:45 verbose #12561 > > inl xs, ys = loop (fn ())
00:18:45 verbose #12562 > > StreamCons (x, fun () => xs), StreamCons (y, fun () => ys)
00:18:45 verbose #12563 > > | StreamNil => pair StreamNil StreamNil
00:18:45 verbose #12564 > > and inl loop x =
00:18:45 verbose #12565 > > if var_is x |> not
00:18:45 verbose #12566 > > then body x
00:18:45 verbose #12567 > > else
00:18:45 verbose #12568 > > inl x = dyn x
00:18:45 verbose #12569 > > join body x
00:18:45 verbose #12570 > > loop s
00:18:46 verbose #12571 > >
00:18:46 verbose #12572 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:46 verbose #12573 > > //// test
00:18:46 verbose #12574 > >
00:18:46 verbose #12575 > > listm.init 10i32 id
00:18:46 verbose #12576 > > |> listm.map (fun x => x, x)
00:18:46 verbose #12577 > > |> from_list
00:18:46 verbose #12578 > > |> unzip
00:18:46 verbose #12579 > > |> fun x, y =>
00:18:46 verbose #12580 > > x |> sum
00:18:46 verbose #12581 > > |> _assert_eq 45
00:18:46 verbose #12582 > >
00:18:46 verbose #12583 > > y |> sum
00:18:46 verbose #12584 > > |> _assert_eq 45
00:18:46 verbose #12585 > >
00:18:46 verbose #12586 > > ╭─[ 698.95ms - stdout ]────────────────────────────────────────────────────────╮
00:18:46 verbose #12587 > > │ assert_eq / actual: 45 / expected: 45 │
00:18:46 verbose #12588 > > │ assert_eq / actual: 45 / expected: 45 │
00:18:46 verbose #12589 > > │ │
00:18:46 verbose #12590 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:46 verbose #12591 > >
00:18:46 verbose #12592 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:46 verbose #12593 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:46 verbose #12594 > > │ ## rust │
00:18:46 verbose #12595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:46 verbose #12596 > >
00:18:46 verbose #12597 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:46 verbose #12598 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:46 verbose #12599 > > │ ### io_error │
00:18:46 verbose #12600 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:46 verbose #12601 > >
00:18:46 verbose #12602 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:46 verbose #12603 > > nominal io_error = $'std_io_Error'
00:18:47 verbose #12604 > >
00:18:47 verbose #12605 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:47 verbose #12606 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:47 verbose #12607 > > │ ### buf_reader │
00:18:47 verbose #12608 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:47 verbose #12609 > >
00:18:47 verbose #12610 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:47 verbose #12611 > > nominal buf_reader t = $'std_io_BufReader<`t>'
00:18:48 verbose #12612 > >
00:18:48 verbose #12613 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:48 verbose #12614 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:48 verbose #12615 > > │ ### cursor │
00:18:48 verbose #12616 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:48 verbose #12617 > >
00:18:48 verbose #12618 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:48 verbose #12619 > > nominal cursor t = $'std_io_Cursor<`t>'
00:18:48 verbose #12620 > >
00:18:48 verbose #12621 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:48 verbose #12622 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:48 verbose #12623 > > │ ### async_buf_reader │
00:18:48 verbose #12624 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:48 verbose #12625 > >
00:18:48 verbose #12626 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:48 verbose #12627 > > nominal async_buf_reader t = $'tokio_io_BufReader<`t>'
00:18:49 verbose #12628 > >
00:18:49 verbose #12629 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:49 verbose #12630 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:49 verbose #12631 > > │ ### new_buf_reader │
00:18:49 verbose #12632 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:49 verbose #12633 > >
00:18:49 verbose #12634 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:49 verbose #12635 > > inl new_buf_reader forall t. (x : t) : buf_reader t =
00:18:49 verbose #12636 > > !\($'"std::io::BufReader::new(!x)"')
00:18:50 verbose #12637 > >
00:18:50 verbose #12638 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:50 verbose #12639 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:50 verbose #12640 > > │ ### new_cursor │
00:18:50 verbose #12641 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:50 verbose #12642 > >
00:18:50 verbose #12643 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:50 verbose #12644 > > inl new_cursor forall t. (x : t) : cursor t =
00:18:50 verbose #12645 > > !\($'"std::io::Cursor::new(!x)"')
00:18:50 verbose #12646 > >
00:18:50 verbose #12647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:50 verbose #12648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:50 verbose #12649 > > │ ### lines │
00:18:50 verbose #12650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:50 verbose #12651 > >
00:18:50 verbose #12652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:50 verbose #12653 > > nominal lines t = $'std_io_Lines<`t>'
00:18:51 verbose #12654 > >
00:18:51 verbose #12655 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:51 verbose #12656 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:51 verbose #12657 > > │ ### buf_read_lines │
00:18:51 verbose #12658 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:51 verbose #12659 > >
00:18:51 verbose #12660 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:51 verbose #12661 > > inl buf_read_lines forall t. (buf_reader : buf_reader t) : lines (buf_reader t)
00:18:51 verbose #12662 > > =
00:18:51 verbose #12663 > > !\($'"std::io::BufRead::lines(!buf_reader)"')
00:18:52 verbose #12664 > >
00:18:52 verbose #12665 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:52 verbose #12666 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:52 verbose #12667 > > │ ### decode_reader_bytes │
00:18:52 verbose #12668 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:52 verbose #12669 > >
00:18:52 verbose #12670 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:52 verbose #12671 > > nominal decode_reader_bytes t u = $'encoding_rs_io_DecodeReaderBytes<`t, `u>'
00:18:52 verbose #12672 > >
00:18:52 verbose #12673 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:52 verbose #12674 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:52 verbose #12675 > > │ ### decode_reader_bytes_build │
00:18:52 verbose #12676 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:52 verbose #12677 > >
00:18:52 verbose #12678 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:52 verbose #12679 > > inl decode_reader_bytes_build forall t. (x : t) : decode_reader_bytes t (am'.vec
00:18:52 verbose #12680 > > u8) =
00:18:52 verbose #12681 > >
00:18:52 verbose #12682 > > !\($'"encoding_rs_io::DecodeReaderBytesBuilder::new().encoding(Some(encoding_rs:
00:18:52 verbose #12683 > > :UTF_8)).build(!x)"')
00:18:52 verbose #12684 > >
00:18:52 verbose #12685 > > !\($'"encoding_rs_io::DecodeReaderBytesBuilder::new().encoding(Some(encoding_rs:
00:18:52 verbose #12686 > > :UTF_8)).utf8_passthru(true).build(!x)"')
00:18:52 verbose #12687 > > !\\(x,
00:18:52 verbose #12688 > > $'"encoding_rs_io::DecodeReaderBytesBuilder::new().utf8_passthru(true).build($0)
00:18:52 verbose #12689 > > "')
00:18:52 verbose #12690 > > // !\($'"encoding_rs_io::DecodeReaderBytes::new(!x)"')
00:18:53 verbose #12691 > >
00:18:53 verbose #12692 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:53 verbose #12693 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:53 verbose #12694 > > │ ### buf_reader_read │
00:18:53 verbose #12695 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:53 verbose #12696 > >
00:18:53 verbose #12697 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:53 verbose #12698 > > inl buf_reader_read forall el dim. (slice : am'.slice' el dim) (buf_reader :
00:18:53 verbose #12699 > > buf_reader el) : resultm.result' unativeint io_error =
00:18:53 verbose #12700 > > (!\($'"true; let mut !slice = !slice"') : bool) |> ignore
00:18:53 verbose #12701 > > !\($'"std::io::Read::read(&mut !buf_reader, &mut !slice)"')
00:18:54 verbose #12702 > >
00:18:54 verbose #12703 > > ── markdown ────────────────────────────────────────────────────────────────────
00:18:54 verbose #12704 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:18:54 verbose #12705 > > │ ### io_read_by_ref │
00:18:54 verbose #12706 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:18:54 verbose #12707 > >
00:18:54 verbose #12708 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:18:54 verbose #12709 > > inl io_read_by_ref forall t. (lines : lines t) : lines t =
00:18:54 verbose #12710 > > !\\(lines, $'"std::io::Read::by_ref($0)"')
00:18:54 verbose #12711 > 00:00:43 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 32941
00:18:54 verbose #12712 > 00:00:43 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:18:57 verbose #12713 > 00:00:45 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/stream.dib.ipynb to html
00:18:57 verbose #12714 > 00:00:45 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:18:57 verbose #12715 > 00:00:45 verbose #7 ! validate(nb)
00:18:58 verbose #12716 > 00:00:47 verbose #8 ! [NbConvertApp] Writing 365357 bytes to c:\home\git\polyglot\lib\spiral\stream.dib.html
00:18:58 verbose #12717 > 00:00:47 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:18:58 verbose #12718 > 00:00:47 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:18:58 verbose #12719 > 00:00:47 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/stream.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/stream.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:18:59 verbose #12720 > 00:00:48 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:18:59 verbose #12721 > 00:00:48 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:19:00 verbose #12722 > 00:00:48 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 33643
00:19:00 debug #12723 runtime.execute_with_options_async / exit_code: 0 / output.Length: 37316
00:19:00 debug #21 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path stream.dib --retries 3
00:19:00 debug #12724 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path parsing.dib --retries 3",
[||], None, None, true, None)
00:19:00 verbose #12725 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "parsing.dib", "--retries", "3"])
00:19:00 verbose #12726 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/parsing.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/parsing.dib" --output-path "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:19:02 verbose #12727 > >
00:19:02 verbose #12728 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:02 verbose #12729 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:02 verbose #12730 > > │ # parsing │
00:19:02 verbose #12731 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:02 verbose #12732 > >
00:19:02 verbose #12733 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:02 verbose #12734 > > open rust_operators
00:19:02 verbose #12735 > > open sm'_operators
00:19:02 verbose #12736 > >
00:19:02 verbose #12737 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:19:02 verbose #12738 > > #r
00:19:02 verbose #12739 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:19:02 verbose #12740 > > otNet.Interactive.Spiral.dll"
00:19:02 verbose #12741 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:19:02 verbose #12742 > > #r
00:19:02 verbose #12743 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:19:02 verbose #12744 > > otNet.Interactive.dll"
00:19:02 verbose #12745 > > open type Microsoft.DotNet.Interactive.Kernel
00:19:08 verbose #12746 > >
00:19:08 verbose #12747 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:08 verbose #12748 > > //// test
00:19:08 verbose #12749 > >
00:19:08 verbose #12750 > > open testing
00:19:08 verbose #12751 > >
00:19:08 verbose #12752 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:08 verbose #12753 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:08 verbose #12754 > > │ ## types │
00:19:08 verbose #12755 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:08 verbose #12756 > >
00:19:08 verbose #12757 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:08 verbose #12758 > > inl types () =
00:19:08 verbose #12759 > > ()
00:19:09 verbose #12760 > >
00:19:09 verbose #12761 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:09 verbose #12762 > > inl types () =
00:19:09 verbose #12763 > > types ()
00:19:09 verbose #12764 > >
00:19:09 verbose #12765 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:09 verbose #12766 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:09 verbose #12767 > > │ ## fparsec │
00:19:09 verbose #12768 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:09 verbose #12769 > >
00:19:09 verbose #12770 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:09 verbose #12771 > > //// test
00:19:09 verbose #12772 > >
00:19:09 verbose #12773 > > #r "nuget:FParsec"
00:19:13 verbose #12774 > >
00:19:13 verbose #12775 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:13 verbose #12776 > > //// test
00:19:13 verbose #12777 > >
00:19:13 verbose #12778 > > nominal position_ = $'FParsec.Position'
00:19:13 verbose #12779 > > nominal parser_error_ = $'FParsec.Error.ParserError'
00:19:13 verbose #12780 > >
00:19:13 verbose #12781 > > nominal reply_ t = $'FParsec.Reply<`t>'
00:19:13 verbose #12782 > >
00:19:13 verbose #12783 > > nominal char_stream_ t = $'FParsec.CharStream<`t>'
00:19:13 verbose #12784 > >
00:19:13 verbose #12785 > > // nominal parser t u = char_stream u -> reply t
00:19:13 verbose #12786 > > nominal parser_ t u = $'FParsec.Primitives.Parser<`t, `u>'
00:19:13 verbose #12787 > >
00:19:13 verbose #12788 > > inl p_char_ forall t. (x : char) : parser_ char t =
00:19:13 verbose #12789 > > x |> $'FParsec.CharParsers.pchar'
00:19:13 verbose #12790 > >
00:19:13 verbose #12791 > > inl p_string_ forall t. (x : string) : parser_ string t =
00:19:13 verbose #12792 > > x |> $'FParsec.CharParsers.pstring'
00:19:13 verbose #12793 > >
00:19:13 verbose #12794 > > inl (>>.$) forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_ u v =
00:19:13 verbose #12795 > > b |> $'FParsec.Primitives.(>>.)' a
00:19:13 verbose #12796 > >
00:19:13 verbose #12797 > > inl (.>>$) forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_ t v =
00:19:13 verbose #12798 > > b |> $'FParsec.Primitives.(.>>)' a
00:19:13 verbose #12799 > >
00:19:13 verbose #12800 > > inl (.>>.$) forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_ (pair t
00:19:13 verbose #12801 > > u) v =
00:19:13 verbose #12802 > > b |> $'FParsec.Primitives.(.>>.)' a
00:19:13 verbose #12803 > >
00:19:13 verbose #12804 > > inl (>>%$) forall t u v. (a : parser_ t v) (b : u) : parser_ u v =
00:19:13 verbose #12805 > > b |> $'FParsec.Primitives.(>>%)' a
00:19:13 verbose #12806 > >
00:19:13 verbose #12807 > > inl (>>=$) forall t u v. (a : parser_ t v) (b : t -> parser_ u v) : parser_ u v
00:19:13 verbose #12808 > > =
00:19:13 verbose #12809 > > b |> $'FParsec.Primitives.(>>=)' a
00:19:13 verbose #12810 > >
00:19:13 verbose #12811 > > inl (|>>$) forall t u v. (a : parser_ t v) (b : t -> u) : parser_ u v =
00:19:13 verbose #12812 > > inl b = fun x => x |> b
00:19:13 verbose #12813 > > b |> $'FParsec.Primitives.(|>>)' a
00:19:13 verbose #12814 > >
00:19:13 verbose #12815 > > inl any_char_ () : parser_ char _ =
00:19:13 verbose #12816 > > $'FParsec.CharParsers.anyChar'
00:19:13 verbose #12817 > >
00:19:13 verbose #12818 > > inl any_string_ () : parser_ string _ =
00:19:13 verbose #12819 > > $'FParsec.CharParsers.anyString'
00:19:13 verbose #12820 > >
00:19:13 verbose #12821 > > inl any_string__ (n : i32) : parser_ string _ =
00:19:13 verbose #12822 > > n |> $'FParsec.CharParsers.anyString'
00:19:13 verbose #12823 > >
00:19:13 verbose #12824 > > inl eof_ () : parser_ () _ =
00:19:13 verbose #12825 > > $'FParsec.CharParsers.eof'
00:19:13 verbose #12826 > >
00:19:13 verbose #12827 > > inl spaces_ () : parser_ () () =
00:19:13 verbose #12828 > > $'FParsec.CharParsers.spaces'
00:19:13 verbose #12829 > >
00:19:13 verbose #12830 > > inl spaces1_ () : parser_ () () =
00:19:13 verbose #12831 > > $'FParsec.CharParsers.spaces1'
00:19:13 verbose #12832 > >
00:19:13 verbose #12833 > > inl (<|>$) forall t u. (a : parser_ t u) (b : parser_ t u) : parser_ t u =
00:19:13 verbose #12834 > > b |> $'FParsec.Primitives.(<|>)' a
00:19:13 verbose #12835 > >
00:19:13 verbose #12836 > > inl many_satisfy_ forall t. (x : char -> bool) : parser_ string t =
00:19:13 verbose #12837 > > x |> $'FParsec.CharParsers.manySatisfy'
00:19:13 verbose #12838 > >
00:19:13 verbose #12839 > > inl satisfy_ forall t. (x : char -> bool) : parser_ char t =
00:19:13 verbose #12840 > > x |> $'FParsec.CharParsers.satisfy'
00:19:13 verbose #12841 > >
00:19:13 verbose #12842 > > inl none_of_ (x : list char) : parser_ char () =
00:19:13 verbose #12843 > > x
00:19:13 verbose #12844 > > |> listm'.box
00:19:13 verbose #12845 > > |> listm'.to_array'
00:19:13 verbose #12846 > > |> $'FParsec.CharParsers.noneOf'
00:19:13 verbose #12847 > >
00:19:13 verbose #12848 > > inl any_of_ (x : list char) : parser_ char () =
00:19:13 verbose #12849 > > x
00:19:13 verbose #12850 > > |> listm'.box
00:19:13 verbose #12851 > > |> listm'.to_array'
00:19:13 verbose #12852 > > |> $'FParsec.CharParsers.anyOf'
00:19:13 verbose #12853 > >
00:19:13 verbose #12854 > > inl skip_any_of_ (x : list char) : parser_ () () =
00:19:13 verbose #12855 > > x
00:19:13 verbose #12856 > > |> listm'.box
00:19:13 verbose #12857 > > |> listm'.to_array'
00:19:13 verbose #12858 > > |> $'FParsec.CharParsers.skipAnyOf'
00:19:13 verbose #12859 > >
00:19:13 verbose #12860 > > inl between_ forall t u v x. (a : parser_ t x) (b : parser_ u x) (c : parser_ v
00:19:13 verbose #12861 > > x) : parser_ v x =
00:19:13 verbose #12862 > > c |> $'FParsec.Primitives.between' a b
00:19:13 verbose #12863 > >
00:19:13 verbose #12864 > > inl many_chars_ forall t. (x : parser_ char t) : parser_ string t =
00:19:13 verbose #12865 > > x |> $'FParsec.CharParsers.manyChars'
00:19:13 verbose #12866 > >
00:19:13 verbose #12867 > > inl many1_chars_ forall t. (x : parser_ char t) : parser_ string t =
00:19:13 verbose #12868 > > x |> $'FParsec.CharParsers.many1Chars'
00:19:13 verbose #12869 > >
00:19:13 verbose #12870 > > inl many_strings_ forall t. (x : parser_ string t) : parser_ string t =
00:19:13 verbose #12871 > > x |> $'FParsec.CharParsers.manyStrings'
00:19:13 verbose #12872 > >
00:19:13 verbose #12873 > > inl skip_any_string_ forall t. (n : i32) : parser_ () t =
00:19:13 verbose #12874 > > n |> $'FParsec.CharParsers.skipAnyString'
00:19:13 verbose #12875 > >
00:19:13 verbose #12876 > > inl many1_strings_ forall t. (x : parser_ string t) : parser_ string t =
00:19:13 verbose #12877 > > x |> $'FParsec.CharParsers.many1Strings'
00:19:13 verbose #12878 > >
00:19:13 verbose #12879 > > inl opt_ forall t u. (a : parser_ t u) : parser_ (optionm'.option' t) u =
00:19:13 verbose #12880 > > a |> $'FParsec.Primitives.opt'
00:19:13 verbose #12881 > >
00:19:13 verbose #12882 > > inl choice_ forall t u. (a : list (parser_ t u)) : parser_ t u =
00:19:13 verbose #12883 > > a
00:19:13 verbose #12884 > > |> listm'.box
00:19:13 verbose #12885 > > |> seq.of_list'
00:19:13 verbose #12886 > > |> $'FParsec.Primitives.choice'
00:19:13 verbose #12887 > >
00:19:13 verbose #12888 > > inl delay_ forall t u. (fn : () -> parser_ t u) : parser_ t u =
00:19:13 verbose #12889 > > fn |> $'FParsec.Primitives.parse.Delay'
00:19:13 verbose #12890 > >
00:19:13 verbose #12891 > > inl peek_ forall t u. (a : parser_ t u) : parser_ char u =
00:19:13 verbose #12892 > > $'!a.Peek ()'
00:19:13 verbose #12893 > >
00:19:13 verbose #12894 > > inl not_followed_by_ forall t u. (a : parser_ t u) : parser_ () u =
00:19:13 verbose #12895 > > a |> $'FParsec.Primitives.notFollowedBy'
00:19:13 verbose #12896 > >
00:19:13 verbose #12897 > > inl sep_by_ forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_
00:19:13 verbose #12898 > > (listm'.list' t) v =
00:19:13 verbose #12899 > > b |> $'FParsec.Primitives.sepBy' a
00:19:13 verbose #12900 > >
00:19:13 verbose #12901 > > inl sep_by1_ forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_
00:19:13 verbose #12902 > > (listm'.list' t) v =
00:19:13 verbose #12903 > > b |> $'FParsec.Primitives.sepBy1' a
00:19:13 verbose #12904 > >
00:19:13 verbose #12905 > > inl sep_end_by_ forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_
00:19:13 verbose #12906 > > (listm'.list' t) v =
00:19:13 verbose #12907 > > b |> $'FParsec.Primitives.sepEndBy' a
00:19:13 verbose #12908 > >
00:19:13 verbose #12909 > > inl many_ forall t u. (a : parser_ t u) : parser_ (listm'.list' t) u =
00:19:13 verbose #12910 > > a |> $'FParsec.Primitives.many'
00:19:13 verbose #12911 > >
00:19:13 verbose #12912 > > inl many1_ forall t u. (a : parser_ t u) : parser_ (listm'.list' t) u =
00:19:13 verbose #12913 > > a |> $'FParsec.Primitives.many1'
00:19:13 verbose #12914 > >
00:19:13 verbose #12915 > > inl many1_satisfy_ forall t. (x : char -> bool) : parser_ string t =
00:19:13 verbose #12916 > > x |> $'FParsec.CharParsers.many1Satisfy'
00:19:13 verbose #12917 > >
00:19:13 verbose #12918 > > nominal parser_result'_ t u = $'FParsec.CharParsers.ParserResult<`t, `u>'
00:19:13 verbose #12919 > >
00:19:13 verbose #12920 > > inl run_ forall t. (parser : parser_ t ()) (x : string) : parser_result'_ t () =
00:19:13 verbose #12921 > > x |> $'FParsec.CharParsers.run' parser
00:19:13 verbose #12922 > >
00:19:13 verbose #12923 > > union parser_result_ t u =
00:19:13 verbose #12924 > > | Success : t * u * position_
00:19:13 verbose #12925 > > | Failure : string * parser_error_ * u
00:19:13 verbose #12926 > >
00:19:13 verbose #12927 > > inl parser_result_ forall t u. = function
00:19:13 verbose #12928 > > | Success (a, b, c) => $'`(parser_result'_ t u).Success (!a, !b, !c)' :
00:19:13 verbose #12929 > > parser_result'_ t u
00:19:13 verbose #12930 > > | Failure (a, b, c) => $'`(parser_result'_ t u).Failure (!a, !b, !c)' :
00:19:13 verbose #12931 > > parser_result'_ t u
00:19:13 verbose #12932 > >
00:19:13 verbose #12933 > > inl parser_result'_ forall t u. (x : parser_result'_ t u) : parser_result_ t u =
00:19:13 verbose #12934 > > $'let mutable _!x = None '
00:19:13 verbose #12935 > > $'match !x with'
00:19:13 verbose #12936 > > $'| FParsec.CharParsers.Success (a, b, c) -> (' : ()
00:19:13 verbose #12937 > > $'(fun () ->'
00:19:13 verbose #12938 > > $'(fun () ->'
00:19:13 verbose #12939 > > (Success ((dyn $'a'), dyn $'b', dyn $'c') : _ t u) |> emit_unit
00:19:13 verbose #12940 > > $')'
00:19:13 verbose #12941 > > $'|> fun x -> x ()'
00:19:13 verbose #12942 > > $') () ) | FParsec.CharParsers.Failure (a, b, c) -> (' : ()
00:19:13 verbose #12943 > > $'(fun () ->'
00:19:13 verbose #12944 > > $'(fun () ->'
00:19:13 verbose #12945 > > (Failure ((dyn $'a'), dyn $'b', dyn $'c') : _ t u) |> emit_unit
00:19:13 verbose #12946 > > $')'
00:19:13 verbose #12947 > > $'|> fun x -> x ()'
00:19:13 verbose #12948 > > $') () )' : ()
00:19:13 verbose #12949 > > $'|> fun x -> _!x <- Some x'
00:19:13 verbose #12950 > > $'match _!x with Some x -> x | None -> failwith "??? / _!x=None"'
00:19:13 verbose #12951 > >
00:19:13 verbose #12952 > > inl parse_ parser input : result _ _ =
00:19:13 verbose #12953 > > match input |> run_ parser |> parser_result'_ with
00:19:13 verbose #12954 > > | Success (result, b, c) => Ok (result, c)
00:19:13 verbose #12955 > > | Failure (error_msg, b, c) => Error (error_msg, b)
00:19:14 verbose #12956 > >
00:19:14 verbose #12957 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:14 verbose #12958 > > //// test
00:19:14 verbose #12959 > >
00:19:14 verbose #12960 > > inl split_args (args : string) : result (array_base (string * position_))
00:19:14 verbose #12961 > > (string * parser_error_) =
00:19:14 verbose #12962 > > inl esc = [[ '\\'; '`' ]]
00:19:14 verbose #12963 > > inl quotes = [[ '"' ]]
00:19:14 verbose #12964 > > inl special = esc ++ quotes
00:19:14 verbose #12965 > > inl p_esc_char c =
00:19:14 verbose #12966 > > p_char_ c >>.$ any_char_ () |>>$ fun c' => $'$"{!c}{!c'}"'
00:19:14 verbose #12967 > > inl p_word = special |> none_of_ |>>$ sm'.obj_to_string
00:19:14 verbose #12968 > > inl p_plain = special ++ [[ ' ' ]] |> none_of_ |> many1_chars_
00:19:14 verbose #12969 > > inl p_text = p_word |> many1_strings_
00:19:14 verbose #12970 > > inl p_esc = esc |> listm.map p_esc_char |> choice_
00:19:14 verbose #12971 > > inl p_quoted = (p_word <|>$ p_esc) |> many_ |>>$ (seq.of_list' >> sm'.concat
00:19:14 verbose #12972 > > "")
00:19:14 verbose #12973 > > inl p_quoted_all = p_quoted |> between_ (p_char_ '"') (p_char_ '"')
00:19:14 verbose #12974 > > inl p_esc_root = p_esc |>>$ (fun _ => "") >>.$ (p_word |> many_) |>>$
00:19:14 verbose #12975 > > (seq.of_list' >> sm'.concat "")
00:19:14 verbose #12976 > > inl p_content = p_plain <|>$ p_quoted_all <|>$ p_esc_root
00:19:14 verbose #12977 > > inl p_args = spaces1_ () |> sep_by_ p_content
00:19:14 verbose #12978 > > args
00:19:14 verbose #12979 > > |> parse_ p_args
00:19:14 verbose #12980 > > |> resultm.map fun (a', b') =>
00:19:14 verbose #12981 > > (
00:19:14 verbose #12982 > > (
00:19:14 verbose #12983 > > a'
00:19:14 verbose #12984 > > |> listm'.to_array'
00:19:14 verbose #12985 > > |> a
00:19:14 verbose #12986 > > |> am.map fun x => x, b'
00:19:14 verbose #12987 > > |> fun (a x : _ i32 _) => x
00:19:14 verbose #12988 > > )
00:19:14 verbose #12989 > > )
00:19:14 verbose #12990 > >
00:19:14 verbose #12991 > > [[
00:19:14 verbose #12992 > > "a b c",
00:19:14 verbose #12993 > > ;[[ "a"; "b"; "c" ]]
00:19:14 verbose #12994 > >
00:19:14 verbose #12995 > > "e f \"g h\" i",
00:19:14 verbose #12996 > > ;[[ "e"; "f"; "g h"; "i" ]]
00:19:14 verbose #12997 > >
00:19:14 verbose #12998 > > "\"j k\" \"l\" \"m\"",
00:19:14 verbose #12999 > > ;[[ "j k"; "l"; "m" ]]
00:19:14 verbose #13000 > >
00:19:14 verbose #13001 > > "s -t \"u \`\"v\`\" w\"",
00:19:14 verbose #13002 > > ;[[ "s"; "-t"; "u \`\"v\`\" w" ]]
00:19:14 verbose #13003 > >
00:19:14 verbose #13004 > > "n -o \"p \\\"q\\\" r\"",
00:19:14 verbose #13005 > > ;[[ "n"; "-o"; "p \\\"q\\\" r" ]]
00:19:14 verbose #13006 > >
00:19:14 verbose #13007 > > "r -s \"t \\\"u\\\"\"",
00:19:14 verbose #13008 > > ;[[ "r"; "-s"; "t \\\"u\\\"" ]]
00:19:14 verbose #13009 > >
00:19:14 verbose #13010 > > $'$"x -y \\\"$z -a \'(b=\\\\\\"c-id=)[[a-fA-F0-9]]{{8}}\', {{ \`$_[[1]] +
00:19:14 verbose #13011 > > \`$d++ }}\\\""',
00:19:14 verbose #13012 > > ;[[ "x"; "-y"; "$z -a '(b=\\\"c-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$d++ }"
00:19:14 verbose #13013 > > ]]
00:19:14 verbose #13014 > >
00:19:14 verbose #13015 > > "e -f \"$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }\"",
00:19:14 verbose #13016 > > ;[[ "e"; "-f"; "$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }"
00:19:14 verbose #13017 > > ]]
00:19:14 verbose #13018 > >
00:19:14 verbose #13019 > > $'$"--l \\\\\\"\'\'\' m \'\'\'\\\\\\" "',
00:19:14 verbose #13020 > > ;[[ "--l"; "''' m '''" ]]
00:19:14 verbose #13021 > >
00:19:14 verbose #13022 > > $'$"n --o --p q --r \\\"s:/t u/v.w\\\" --x \\\"y:/z.a\\\" --b c.d
00:19:14 verbose #13023 > > \\\"\\\\e{{f-g}}\\\" h.i \\\"j (k)\\\""',
00:19:14 verbose #13024 > > ;[[ "n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; "y:/z.a"; "--b";
00:19:14 verbose #13025 > > "c.d"; "\\e{f-g}"; "h.i"; "j (k)" ]]
00:19:14 verbose #13026 > >
00:19:14 verbose #13027 > > $'\@$"l ""m n:\\o.p"""',
00:19:14 verbose #13028 > > ;[[ "l"; "m n:\\o.p" ]]
00:19:14 verbose #13029 > > ]]
00:19:14 verbose #13030 > > |> listm.rev
00:19:14 verbose #13031 > > |> listm.map fun input, expected =>
00:19:14 verbose #13032 > > input
00:19:14 verbose #13033 > > |> split_args
00:19:14 verbose #13034 > > |> fun x =>
00:19:14 verbose #13035 > > try
00:19:14 verbose #13036 > > fun () =>
00:19:14 verbose #13037 > > ($'$"\ninput: {!input}"' : string)
00:19:14 verbose #13038 > > |> console.write_line
00:19:14 verbose #13039 > > x
00:19:14 verbose #13040 > > |> resultm.get
00:19:14 verbose #13041 > > |> am'.map_base fst
00:19:14 verbose #13042 > > |> _assert_eq' expected
00:19:14 verbose #13043 > > false
00:19:14 verbose #13044 > > fun ex =>
00:19:14 verbose #13045 > > ($'$"error / expected: %A{!expected} / ex: %A{!ex}"' : string)
00:19:14 verbose #13046 > > |> console.write_line
00:19:14 verbose #13047 > > Some true
00:19:14 verbose #13048 > > |> optionm.value
00:19:14 verbose #13049 > > |> listm'.filter id
00:19:14 verbose #13050 > > |> function
00:19:14 verbose #13051 > > | [[]] => ()
00:19:14 verbose #13052 > > | x => failwith $'$"{!x}"'
00:19:20 verbose #13053 > >
00:19:20 verbose #13054 > > ╭─[ 5.61s - stdout ]───────────────────────────────────────────────────────────╮
00:19:20 verbose #13055 > > │ │
00:19:20 verbose #13056 > > │ input: a b c │
00:19:20 verbose #13057 > > │ assert_eq' / actual: [|"a"; "b"; "c"|] / expected: [|"a"; "b"; "c"|] │
00:19:20 verbose #13058 > > │ │
00:19:20 verbose #13059 > > │ input: e f "g h" i │
00:19:20 verbose #13060 > > │ assert_eq' / actual: [|"e"; "f"; "g h"; "i"|] / expected: [|"e"; "f"; "g h"; │
00:19:20 verbose #13061 > > │ "i"|] │
00:19:20 verbose #13062 > > │ │
00:19:20 verbose #13063 > > │ input: "j k" "l" "m" │
00:19:20 verbose #13064 > > │ assert_eq' / actual: [|"j k"; "l"; "m"|] / expected: [|"j k"; "l"; "m"|] │
00:19:20 verbose #13065 > > │ │
00:19:20 verbose #13066 > > │ input: s -t "u `"v`" w" │
00:19:20 verbose #13067 > > │ assert_eq' / actual: [|"s"; "-t"; "u `"v`" w"|] / expected: [|"s"; "-t"; "u │
00:19:20 verbose #13068 > > │ `"v`" w"|] │
00:19:20 verbose #13069 > > │ │
00:19:20 verbose #13070 > > │ input: n -o "p \"q\" r" │
00:19:20 verbose #13071 > > │ assert_eq' / actual: [|"n"; "-o"; "p \"q\" r"|] / expected: [|"n"; "-o"; "p │
00:19:20 verbose #13072 > > │ \"q\" r"|] │
00:19:20 verbose #13073 > > │ │
00:19:20 verbose #13074 > > │ input: r -s "t \"u\"" │
00:19:20 verbose #13075 > > │ assert_eq' / actual: [|"r"; "-s"; "t \"u\""|] / expected: [|"r"; "-s"; "t │
00:19:20 verbose #13076 > > │ \"u\""|] │
00:19:20 verbose #13077 > > │ │
00:19:20 verbose #13078 > > │ input: x -y "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[1] + `$d++ }" │
00:19:20 verbose #13079 > > │ assert_eq' / actual: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[ │
00:19:20 verbose #13080 > > │ 1] + `$d++ }"|] / expected: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', │
00:19:20 verbose #13081 > > │ { `$_[1] + `$d++ }"|] │
00:19:20 verbose #13082 > > │ │
00:19:20 verbose #13083 > > │ input: e -f "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[1] + `$k++ }" │
00:19:20 verbose #13084 > > │ assert_eq' / actual: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[ │
00:19:20 verbose #13085 > > │ 1] + `$k++ }"|] / expected: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', │
00:19:20 verbose #13086 > > │ { `$_[1] + `$k++ }"|] │
00:19:20 verbose #13087 > > │ │
00:19:20 verbose #13088 > > │ input: --l \"''' m '''\" │
00:19:20 verbose #13089 > > │ assert_eq' / actual: [|"--l"; "''' m '''"|] / expected: [|"--l"; "''' m │
00:19:20 verbose #13090 > > │ '''"|] │
00:19:20 verbose #13091 > > │ │
00:19:20 verbose #13092 > > │ input: n --o --p q --r "s:/t u/v.w" --x "y:/z.a" --b c.d "\e{f-g}" h.i "j │
00:19:20 verbose #13093 > > │ (k)" │
00:19:20 verbose #13094 > > │ assert_eq' / actual: [|"n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; │
00:19:20 verbose #13095 > > │ "y:/z.a"; "--b"; "c.d"; │
00:19:20 verbose #13096 > > │ "\e{f-g}"; "h.i"; "j (k)"|] / expected: [|"n"; "--o"; "--p"; "q"; "--r"; │
00:19:20 verbose #13097 > > │ "s:/t u/v.w"; "--x"; "y:/z.a"; "--b"; "c.d"; │
00:19:20 verbose #13098 > > │ "\e{f-g}"; "h.i"; "j (k)"|] │
00:19:20 verbose #13099 > > │ │
00:19:20 verbose #13100 > > │ input: l "m n:\o.p" │
00:19:20 verbose #13101 > > │ assert_eq' / actual: [|"l"; "m n:\o.p"|] / expected: [|"l"; "m n:\o.p"|] │
00:19:20 verbose #13102 > > │ │
00:19:20 verbose #13103 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:20 verbose #13104 > >
00:19:20 verbose #13105 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:20 verbose #13106 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:20 verbose #13107 > > │ ## parsing │
00:19:20 verbose #13108 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:20 verbose #13109 > >
00:19:20 verbose #13110 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:20 verbose #13111 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:20 verbose #13112 > > │ ### range │
00:19:20 verbose #13113 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:20 verbose #13114 > >
00:19:20 verbose #13115 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:20 verbose #13116 > > type range =
00:19:20 verbose #13117 > > {
00:19:20 verbose #13118 > > from : int
00:19:20 verbose #13119 > > to : int
00:19:20 verbose #13120 > > }
00:19:21 verbose #13121 > >
00:19:21 verbose #13122 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:21 verbose #13123 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:21 verbose #13124 > > │ ### position │
00:19:21 verbose #13125 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:21 verbose #13126 > >
00:19:21 verbose #13127 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:21 verbose #13128 > > type position =
00:19:21 verbose #13129 > > {
00:19:21 verbose #13130 > > line : int
00:19:21 verbose #13131 > > col : int
00:19:21 verbose #13132 > > }
00:19:21 verbose #13133 > >
00:19:21 verbose #13134 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:21 verbose #13135 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:21 verbose #13136 > > │ ### parser_state │
00:19:21 verbose #13137 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:21 verbose #13138 > >
00:19:21 verbose #13139 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:21 verbose #13140 > > type parser_state =
00:19:21 verbose #13141 > > {
00:19:21 verbose #13142 > > line_text : sm'.string_builder
00:19:21 verbose #13143 > > position : position
00:19:21 verbose #13144 > > }
00:19:22 verbose #13145 > >
00:19:22 verbose #13146 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:22 verbose #13147 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:22 verbose #13148 > > │ ### parser │
00:19:22 verbose #13149 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:22 verbose #13150 > >
00:19:22 verbose #13151 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:22 verbose #13152 > > type parser t = string * parser_state -> result (t * string * parser_state)
00:19:22 verbose #13153 > > string
00:19:23 verbose #13154 > >
00:19:23 verbose #13155 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:23 verbose #13156 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:23 verbose #13157 > > │ ### parse │
00:19:23 verbose #13158 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:23 verbose #13159 > >
00:19:23 verbose #13160 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:23 verbose #13161 > > inl parse forall t. (p : parser t) (input : string) : result (t * string *
00:19:23 verbose #13162 > > parser_state) string =
00:19:23 verbose #13163 > > p (input, { line_text = "" |> sm'.string_builder; position = { line = 1; col
00:19:23 verbose #13164 > > = 1 } })
00:19:23 verbose #13165 > >
00:19:23 verbose #13166 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:23 verbose #13167 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:23 verbose #13168 > > │ ### inc │
00:19:23 verbose #13169 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:23 verbose #13170 > >
00:19:23 verbose #13171 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:23 verbose #13172 > > inl inc c (s : parser_state) =
00:19:23 verbose #13173 > > match c with
00:19:23 verbose #13174 > > | '\n' => { line = s.position.line + 1; col = 1 }
00:19:23 verbose #13175 > > | _ => { s.position with col = s.position.col + 1 }.position
00:19:24 verbose #13176 > >
00:19:24 verbose #13177 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:24 verbose #13178 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:24 verbose #13179 > > │ ### update │
00:19:24 verbose #13180 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:24 verbose #13181 > >
00:19:24 verbose #13182 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:24 verbose #13183 > > inl update result (s : parser_state) =
00:19:24 verbose #13184 > > (s, result |> sm'.to_char_array |> am'.to_list' |> listm'.unbox)
00:19:24 verbose #13185 > > ||> listm.fold fun s c => { s with
00:19:24 verbose #13186 > > position = s |> inc c
00:19:24 verbose #13187 > > line_text =
00:19:24 verbose #13188 > > match c with
00:19:24 verbose #13189 > > | '\n' => s.line_text |> sm'.builder_clear
00:19:24 verbose #13190 > > | c => s.line_text |> sm'.builder_append (sm'.obj_to_string c)
00:19:24 verbose #13191 > > }
00:19:25 verbose #13192 > >
00:19:25 verbose #13193 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:25 verbose #13194 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:25 verbose #13195 > > │ ### any_char │
00:19:25 verbose #13196 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:25 verbose #13197 > >
00:19:25 verbose #13198 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:25 verbose #13199 > > inl any_char () : parser char = function
00:19:25 verbose #13200 > > | "", s => Error $'$"parsing.any_char / unexpected end of input / s:
00:19:25 verbose #13201 > > %A{!s}"'
00:19:25 verbose #13202 > > | x, s =>
00:19:25 verbose #13203 > > inl first_char = x |> sm'.index 0i32
00:19:25 verbose #13204 > > inl rest = x |> sm'.range (am'.Start 1i32) (am'.End id)
00:19:25 verbose #13205 > > in Ok (first_char, rest, s |> update (sm'.obj_to_string first_char))
00:19:25 verbose #13206 > >
00:19:25 verbose #13207 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:25 verbose #13208 > > //// test
00:19:25 verbose #13209 > >
00:19:25 verbose #13210 > > "abc"
00:19:25 verbose #13211 > > |> parse (any_char ())
00:19:25 verbose #13212 > > |> resultm.get
00:19:25 verbose #13213 > > |> sm'.format_debug
00:19:25 verbose #13214 > > |> _assert_eq (
00:19:25 verbose #13215 > > ('a', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:19:25 verbose #13216 > > 2i32; line = 1i32 } })
00:19:25 verbose #13217 > > |> sm'.format_debug
00:19:25 verbose #13218 > > )
00:19:26 verbose #13219 > >
00:19:26 verbose #13220 > > ╭─[ 822.31ms - stdout ]────────────────────────────────────────────────────────╮
00:19:26 verbose #13221 > > │ assert_eq / actual: "struct ('a', "bc", a, 2, 1)" / expected: "struct ('a', │
00:19:26 verbose #13222 > > │ "bc", a, 2, 1)" │
00:19:26 verbose #13223 > > │ │
00:19:26 verbose #13224 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:26 verbose #13225 > >
00:19:26 verbose #13226 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:26 verbose #13227 > > //// test
00:19:26 verbose #13228 > >
00:19:26 verbose #13229 > > "abc"
00:19:26 verbose #13230 > > |> parse_ (any_char_ ())
00:19:26 verbose #13231 > > |> resultm.get
00:19:26 verbose #13232 > > |> sm'.format_debug
00:19:26 verbose #13233 > > |> _assert_eq' (('a', ($'FParsec.Position (null, 0, 1, 2)' : position_)) |>
00:19:26 verbose #13234 > > sm'.format_debug)
00:19:27 verbose #13235 > >
00:19:27 verbose #13236 > > ╭─[ 804.82ms - stdout ]────────────────────────────────────────────────────────╮
00:19:27 verbose #13237 > > │ assert_eq' / actual: "struct ('a', (Ln: 1, Col: 2))" / expected: "struct │
00:19:27 verbose #13238 > > │ ('a', (Ln: 1, Col: 2))" │
00:19:27 verbose #13239 > > │ │
00:19:27 verbose #13240 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:27 verbose #13241 > >
00:19:27 verbose #13242 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:27 verbose #13243 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:27 verbose #13244 > > │ ### p_char │
00:19:27 verbose #13245 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:27 verbose #13246 > >
00:19:27 verbose #13247 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:27 verbose #13248 > > inl p_char (c : char) : parser char = function
00:19:27 verbose #13249 > > | "", s => Error $'$"parsing.p_char / unexpected end of input / s: %A{!s}"'
00:19:27 verbose #13250 > > | input, s =>
00:19:27 verbose #13251 > > inl first_char = input |> sm'.index 0i32
00:19:27 verbose #13252 > > if first_char = c
00:19:27 verbose #13253 > > then Ok (
00:19:27 verbose #13254 > > first_char,
00:19:27 verbose #13255 > > input |> sm'.range (am'.Start 1i32) (am'.End id),
00:19:27 verbose #13256 > > s |> update (sm'.obj_to_string first_char)
00:19:27 verbose #13257 > > )
00:19:27 verbose #13258 > > else
00:19:27 verbose #13259 > > inl { line_text position = { line col } } = s
00:19:27 verbose #13260 > > inl message : string =
00:19:27 verbose #13261 > > inl rest =
00:19:27 verbose #13262 > > input
00:19:27 verbose #13263 > > |> sm'.range
00:19:27 verbose #13264 > > (am'.Start 0i32)
00:19:27 verbose #13265 > > (am'.End fun l =>
00:19:27 verbose #13266 > > match (input |> sm'.index_of "\n") - 1 with
00:19:27 verbose #13267 > > | -2 => l
00:19:27 verbose #13268 > > | l => l
00:19:27 verbose #13269 > > )
00:19:27 verbose #13270 > > $'$"parsing.p_char / expected: \'{!c}\' / line: {!line} / col:
00:19:27 verbose #13271 > > {!col}\n{!line_text}{!rest}"'
00:19:27 verbose #13272 > > inl pointer_line = (sm'.replicate (col - 1) " ") +. "^"
00:19:27 verbose #13273 > > $'$"{!message}\n{!pointer_line}\n"' |> Error
00:19:28 verbose #13274 > >
00:19:28 verbose #13275 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:28 verbose #13276 > > //// test
00:19:28 verbose #13277 > >
00:19:28 verbose #13278 > > "abc"
00:19:28 verbose #13279 > > |> parse (p_char 'a')
00:19:28 verbose #13280 > > |> resultm.get
00:19:28 verbose #13281 > > |> sm'.format_debug
00:19:28 verbose #13282 > > |> _assert_eq (
00:19:28 verbose #13283 > > ('a', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:19:28 verbose #13284 > > 2i32; line = 1i32 } })
00:19:28 verbose #13285 > > |> sm'.format_debug
00:19:28 verbose #13286 > > )
00:19:28 verbose #13287 > >
00:19:28 verbose #13288 > > ╭─[ 767.26ms - stdout ]────────────────────────────────────────────────────────╮
00:19:28 verbose #13289 > > │ assert_eq / actual: "struct ('a', "bc", a, 2, 1)" / expected: "struct ('a', │
00:19:28 verbose #13290 > > │ "bc", a, 2, 1)" │
00:19:28 verbose #13291 > > │ │
00:19:28 verbose #13292 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:28 verbose #13293 > >
00:19:28 verbose #13294 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:28 verbose #13295 > > //// test
00:19:28 verbose #13296 > >
00:19:28 verbose #13297 > > "abc"
00:19:28 verbose #13298 > > |> parse_ (p_char_ 'a')
00:19:28 verbose #13299 > > |> resultm.get
00:19:28 verbose #13300 > > |> sm'.format_debug
00:19:28 verbose #13301 > > |> _assert_eq' (('a', ($'FParsec.Position (null, 0, 1, 2)' : position_)) |>
00:19:28 verbose #13302 > > sm'.format_debug)
00:19:29 verbose #13303 > >
00:19:29 verbose #13304 > > ╭─[ 746.88ms - stdout ]────────────────────────────────────────────────────────╮
00:19:29 verbose #13305 > > │ assert_eq' / actual: "struct ('a', (Ln: 1, Col: 2))" / expected: "struct │
00:19:29 verbose #13306 > > │ ('a', (Ln: 1, Col: 2))" │
00:19:29 verbose #13307 > > │ │
00:19:29 verbose #13308 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:29 verbose #13309 > >
00:19:29 verbose #13310 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:29 verbose #13311 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:29 verbose #13312 > > │ ### any_string │
00:19:29 verbose #13313 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:29 verbose #13314 > >
00:19:29 verbose #13315 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:29 verbose #13316 > > inl any_string length : parser string = fun input, s =>
00:19:29 verbose #13317 > > if sm'.length input < length
00:19:29 verbose #13318 > > then Error $'$"parsing.any_string / unexpected end of input / s: %A{!s}"'
00:19:29 verbose #13319 > > else
00:19:29 verbose #13320 > > inl result = input |> sm'.range (am'.Start 0i32) (am'.End fun _ =>
00:19:29 verbose #13321 > > length - 1)
00:19:29 verbose #13322 > > inl rest = input |> sm'.range (am'.Start length) (am'.End id)
00:19:29 verbose #13323 > > Ok (result, rest, s |> update result)
00:19:30 verbose #13324 > >
00:19:30 verbose #13325 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:30 verbose #13326 > > //// test
00:19:30 verbose #13327 > >
00:19:30 verbose #13328 > > "abcdef"
00:19:30 verbose #13329 > > |> parse (any_string 3i32)
00:19:30 verbose #13330 > > |> resultm.get
00:19:30 verbose #13331 > > |> sm'.format_debug
00:19:30 verbose #13332 > > |> _assert_eq (
00:19:30 verbose #13333 > > ("abc", "def", { line_text = "abc" |> sm'.string_builder; position = { col =
00:19:30 verbose #13334 > > 4i32; line = 1i32 } })
00:19:30 verbose #13335 > > |> sm'.format_debug
00:19:30 verbose #13336 > > )
00:19:31 verbose #13337 > >
00:19:31 verbose #13338 > > ╭─[ 940.93ms - stdout ]────────────────────────────────────────────────────────╮
00:19:31 verbose #13339 > > │ assert_eq / actual: "struct ("abc", "def", abc, 4, 1)" / expected: "struct │
00:19:31 verbose #13340 > > │ ("abc", "def", abc, 4, 1)" │
00:19:31 verbose #13341 > > │ │
00:19:31 verbose #13342 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:31 verbose #13343 > >
00:19:31 verbose #13344 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:31 verbose #13345 > > //// test
00:19:31 verbose #13346 > >
00:19:31 verbose #13347 > > "abcdef"
00:19:31 verbose #13348 > > |> parse_ (any_string__ 3)
00:19:31 verbose #13349 > > |> resultm.get
00:19:31 verbose #13350 > > |> sm'.obj_to_string
00:19:31 verbose #13351 > > |> _assert_eq' (("abc", ($'FParsec.Position (null, 0, 1, 4)' : position_)) |>
00:19:31 verbose #13352 > > sm'.obj_to_string)
00:19:31 verbose #13353 > >
00:19:31 verbose #13354 > > ╭─[ 755.31ms - stdout ]────────────────────────────────────────────────────────╮
00:19:31 verbose #13355 > > │ assert_eq' / actual: "(abc, (Ln: 1, Col: 4))" / expected: "(abc, (Ln: 1, │
00:19:31 verbose #13356 > > │ Col: 4))" │
00:19:31 verbose #13357 > > │ │
00:19:31 verbose #13358 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:31 verbose #13359 > >
00:19:31 verbose #13360 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:31 verbose #13361 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:31 verbose #13362 > > │ ### skip_any_string │
00:19:31 verbose #13363 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:31 verbose #13364 > >
00:19:31 verbose #13365 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:31 verbose #13366 > > inl skip_any_string length : parser () = fun input, s =>
00:19:31 verbose #13367 > > if sm'.length input < length
00:19:31 verbose #13368 > > then Error $'$"parsing.skip_any_string / unexpected end of input / s:
00:19:31 verbose #13369 > > %A{!s}"'
00:19:31 verbose #13370 > > else Ok (
00:19:31 verbose #13371 > > (),
00:19:31 verbose #13372 > > input |> sm'.range (am'.Start length) (am'.End id),
00:19:31 verbose #13373 > > s |> update (input |> sm'.range (am'.Start 0i32) (am'.End fun _ =>
00:19:31 verbose #13374 > > length - 1))
00:19:31 verbose #13375 > > )
00:19:32 verbose #13376 > >
00:19:32 verbose #13377 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:32 verbose #13378 > > //// test
00:19:32 verbose #13379 > >
00:19:32 verbose #13380 > > "abcdef"
00:19:32 verbose #13381 > > |> parse (skip_any_string 3i32)
00:19:32 verbose #13382 > > |> resultm.get
00:19:32 verbose #13383 > > |> sm'.format_debug
00:19:32 verbose #13384 > > |> _assert_eq (
00:19:32 verbose #13385 > > ((), "def", { line_text = "abc" |> sm'.string_builder; position = { col =
00:19:32 verbose #13386 > > 4i32; line = 1i32 } })
00:19:32 verbose #13387 > > |> sm'.format_debug
00:19:32 verbose #13388 > > )
00:19:33 verbose #13389 > >
00:19:33 verbose #13390 > > ╭─[ 812.88ms - stdout ]────────────────────────────────────────────────────────╮
00:19:33 verbose #13391 > > │ assert_eq / actual: "struct ("def", abc, 4, 1)" / expected: "struct ("def", │
00:19:33 verbose #13392 > > │ abc, 4, 1)" │
00:19:33 verbose #13393 > > │ │
00:19:33 verbose #13394 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:33 verbose #13395 > >
00:19:33 verbose #13396 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:33 verbose #13397 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:33 verbose #13398 > > │ ### (>>.) │
00:19:33 verbose #13399 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:33 verbose #13400 > >
00:19:33 verbose #13401 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:33 verbose #13402 > > inl (>>.) forall t u. (a : parser t) (b : parser u) : parser u = fun input, s =>
00:19:33 verbose #13403 > > match a (input, s) with
00:19:33 verbose #13404 > > | Ok (_, rest, s) => b (rest, s)
00:19:33 verbose #13405 > > | Error e => Error e
00:19:34 verbose #13406 > >
00:19:34 verbose #13407 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:34 verbose #13408 > > //// test
00:19:34 verbose #13409 > >
00:19:34 verbose #13410 > > "abc"
00:19:34 verbose #13411 > > |> parse (p_char 'a' >>. p_char 'b')
00:19:34 verbose #13412 > > |> resultm.get
00:19:34 verbose #13413 > > |> sm'.format_debug
00:19:34 verbose #13414 > > |> _assert_eq (
00:19:34 verbose #13415 > > ('b', "c", { line_text = "ab" |> sm'.string_builder; position = { col =
00:19:34 verbose #13416 > > 3i32; line = 1i32 } })
00:19:34 verbose #13417 > > |> sm'.format_debug
00:19:34 verbose #13418 > > )
00:19:34 verbose #13419 > >
00:19:34 verbose #13420 > > "abc\ndef\nghi"
00:19:34 verbose #13421 > > |> parse (skip_any_string 5i32 >>. p_char 'a')
00:19:34 verbose #13422 > > |> _assert_eq (Error "parsing.p_char / expected: 'a' / line: 2 / col: 2\ndef\n
00:19:34 verbose #13423 > > ^\n")
00:19:35 verbose #13424 > >
00:19:35 verbose #13425 > > ╭─[ 1.01s - stdout ]───────────────────────────────────────────────────────────╮
00:19:35 verbose #13426 > > │ assert_eq / actual: "struct ('b', "c", ab, 3, 1)" / expected: "struct ('b', │
00:19:35 verbose #13427 > > │ "c", ab, 3, 1)" │
00:19:35 verbose #13428 > > │ assert_eq / actual: US0_1 "parsing.p_char / expected: 'a' / line: 2 / col: 2 │
00:19:35 verbose #13429 > > │ def │
00:19:35 verbose #13430 > > │ ^ │
00:19:35 verbose #13431 > > │ " / expected: US0_1 "parsing.p_char / expected: 'a' / line: 2 / col: 2 │
00:19:35 verbose #13432 > > │ def │
00:19:35 verbose #13433 > > │ ^ │
00:19:35 verbose #13434 > > │ " │
00:19:35 verbose #13435 > > │ │
00:19:35 verbose #13436 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:35 verbose #13437 > >
00:19:35 verbose #13438 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:35 verbose #13439 > > //// test
00:19:35 verbose #13440 > >
00:19:35 verbose #13441 > > "abc"
00:19:35 verbose #13442 > > |> parse_ (p_char_ 'a' >>.$ p_char_ 'b')
00:19:35 verbose #13443 > > |> resultm.get
00:19:35 verbose #13444 > > |> sm'.obj_to_string
00:19:35 verbose #13445 > > |> _assert_eq' (('b', ($'FParsec.Position (null, 0, 1, 3)' : position_)) |>
00:19:35 verbose #13446 > > sm'.obj_to_string)
00:19:35 verbose #13447 > >
00:19:35 verbose #13448 > > ╭─[ 776.53ms - stdout ]────────────────────────────────────────────────────────╮
00:19:35 verbose #13449 > > │ assert_eq' / actual: "(b, (Ln: 1, Col: 3))" / expected: "(b, (Ln: 1, Col: │
00:19:35 verbose #13450 > > │ 3))" │
00:19:35 verbose #13451 > > │ │
00:19:35 verbose #13452 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:35 verbose #13453 > >
00:19:35 verbose #13454 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:35 verbose #13455 > > //// test
00:19:35 verbose #13456 > >
00:19:35 verbose #13457 > > "abc\ndef\nghi"
00:19:35 verbose #13458 > > |> parse_ (skip_any_string_ 5 >>.$ p_char_ 'a')
00:19:35 verbose #13459 > > |> resultm.unwrap_err
00:19:35 verbose #13460 > > |> sm'.obj_to_string
00:19:35 verbose #13461 > > |> sm'.replace "\r\n" "\n"
00:19:35 verbose #13462 > > |> _assert_eq "(Error in Ln: 2 Col: 2\ndef\n ^\nExpecting: 'a'\n, Error in Ln: 2
00:19:35 verbose #13463 > > Col: 2\nExpecting: 'a'\n)"
00:19:36 verbose #13464 > >
00:19:36 verbose #13465 > > ╭─[ 786.45ms - stdout ]────────────────────────────────────────────────────────╮
00:19:36 verbose #13466 > > │ assert_eq / actual: "(Error in Ln: 2 Col: 2 │
00:19:36 verbose #13467 > > │ def │
00:19:36 verbose #13468 > > │ ^ │
00:19:36 verbose #13469 > > │ Expecting: 'a' │
00:19:36 verbose #13470 > > │ , Error in Ln: 2 Col: 2 │
00:19:36 verbose #13471 > > │ Expecting: 'a' │
00:19:36 verbose #13472 > > │ )" / expected: "(Error in Ln: 2 Col: 2 │
00:19:36 verbose #13473 > > │ def │
00:19:36 verbose #13474 > > │ ^ │
00:19:36 verbose #13475 > > │ Expecting: 'a' │
00:19:36 verbose #13476 > > │ , Error in Ln: 2 Col: 2 │
00:19:36 verbose #13477 > > │ Expecting: 'a' │
00:19:36 verbose #13478 > > │ )" │
00:19:36 verbose #13479 > > │ │
00:19:36 verbose #13480 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:36 verbose #13481 > >
00:19:36 verbose #13482 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:36 verbose #13483 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:36 verbose #13484 > > │ ### none_of │
00:19:36 verbose #13485 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:36 verbose #13486 > >
00:19:36 verbose #13487 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:36 verbose #13488 > > inl none_of (chars : list char) : parser char = function
00:19:36 verbose #13489 > > | "", s =>
00:19:36 verbose #13490 > > inl chars = chars |> listm'.box |> listm'.to_array'
00:19:36 verbose #13491 > > Error $'$"parsing.none_of / unexpected end of input / chars: %A{!chars}
00:19:36 verbose #13492 > > / s: %A{!s}"'
00:19:36 verbose #13493 > > | x, s =>
00:19:36 verbose #13494 > > inl first_char = x |> sm'.index 0i32
00:19:36 verbose #13495 > > inl rest = x |> sm'.range (am'.Start 1i32) (am'.End id)
00:19:36 verbose #13496 > > if chars |> listm'.exists' ((=) first_char) |> not
00:19:36 verbose #13497 > > then Ok (first_char, rest, s |> update (sm'.obj_to_string first_char))
00:19:36 verbose #13498 > > else
00:19:36 verbose #13499 > > inl chars = chars |> listm'.box |> listm'.to_array'
00:19:36 verbose #13500 > > Error $'$"parsing.none_of / unexpected char: \'{!first_char}\'
00:19:36 verbose #13501 > > chars: %A{!chars} / s: %A{!s}"'
00:19:37 verbose #13502 > >
00:19:37 verbose #13503 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:37 verbose #13504 > > //// test
00:19:37 verbose #13505 > >
00:19:37 verbose #13506 > > "abc"
00:19:37 verbose #13507 > > |> parse (none_of [['a'; 'b'; 'c']])
00:19:37 verbose #13508 > > |> _assert_eq (Error "parsing.none_of / unexpected char: \'a\' / chars: [[|'a';
00:19:37 verbose #13509 > > 'b'; 'c'|]] / s: struct (, 1, 1)")
00:19:37 verbose #13510 > >
00:19:37 verbose #13511 > > "def"
00:19:37 verbose #13512 > > |> parse (none_of [['a'; 'b'; 'c']])
00:19:37 verbose #13513 > > |> resultm.get
00:19:37 verbose #13514 > > |> sm'.format_debug
00:19:37 verbose #13515 > > |> _assert_eq (
00:19:37 verbose #13516 > > ('d', "ef", { line_text = "d" |> sm'.string_builder; position = { col =
00:19:37 verbose #13517 > > 2i32; line = 1i32 } })
00:19:37 verbose #13518 > > |> sm'.format_debug
00:19:37 verbose #13519 > > )
00:19:38 verbose #13520 > >
00:19:38 verbose #13521 > > ╭─[ 917.18ms - stdout ]────────────────────────────────────────────────────────╮
00:19:38 verbose #13522 > > │ assert_eq / actual: US1_1 │
00:19:38 verbose #13523 > > │ "parsing.none_of / unexpected char: 'a' / chars: [|'a'; 'b'; 'c'|] / s: │
00:19:38 verbose #13524 > > │ struct (, 1, 1)" / expected: US1_1 │
00:19:38 verbose #13525 > > │ "parsing.none_of / unexpected char: 'a' / chars: [|'a'; 'b'; 'c'|] / s: │
00:19:38 verbose #13526 > > │ struct (, 1, 1)" │
00:19:38 verbose #13527 > > │ assert_eq / actual: "struct ('d', "ef", d, 2, 1)" / expected: "struct ('d', │
00:19:38 verbose #13528 > > │ "ef", d, 2, 1)" │
00:19:38 verbose #13529 > > │ │
00:19:38 verbose #13530 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:38 verbose #13531 > >
00:19:38 verbose #13532 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:38 verbose #13533 > > //// test
00:19:38 verbose #13534 > >
00:19:38 verbose #13535 > > "abc"
00:19:38 verbose #13536 > > |> parse_ (none_of_ [['a'; 'b'; 'c']])
00:19:38 verbose #13537 > > |> resultm.unwrap_err
00:19:38 verbose #13538 > > |> sm'.obj_to_string
00:19:38 verbose #13539 > > |> sm'.replace "\r\n" "\n"
00:19:38 verbose #13540 > > |> _assert_eq ($'"(Error in Ln: 1 Col: 1\nabc\n^\nExpecting: any char not in
00:19:38 verbose #13541 > > ‘abc’\n, Error in Ln: 1 Col: 1\nExpecting: any char not in ‘abc’\n)"')
00:19:38 verbose #13542 > >
00:19:38 verbose #13543 > > "def"
00:19:38 verbose #13544 > > |> parse_ (none_of_ [['a'; 'b'; 'c']])
00:19:38 verbose #13545 > > |> resultm.get
00:19:38 verbose #13546 > > |> sm'.obj_to_string
00:19:38 verbose #13547 > > |> _assert_eq' (('d', ($'FParsec.Position (null, 0, 1, 2)' : position_)) |>
00:19:38 verbose #13548 > > sm'.obj_to_string)
00:19:39 verbose #13549 > >
00:19:39 verbose #13550 > > ╭─[ 858.52ms - stdout ]────────────────────────────────────────────────────────╮
00:19:39 verbose #13551 > > │ assert_eq / actual: "(Error in Ln: 1 Col: 1 │
00:19:39 verbose #13552 > > │ abc │
00:19:39 verbose #13553 > > │ ^ │
00:19:39 verbose #13554 > > │ Expecting: any char not in ‘abc’ │
00:19:39 verbose #13555 > > │ , Error in Ln: 1 Col: 1 │
00:19:39 verbose #13556 > > │ Expecting: any char not in ‘abc’ │
00:19:39 verbose #13557 > > │ )" / expected: "(Error in Ln: 1 Col: 1 │
00:19:39 verbose #13558 > > │ abc │
00:19:39 verbose #13559 > > │ ^ │
00:19:39 verbose #13560 > > │ Expecting: any char not in ‘abc’ │
00:19:39 verbose #13561 > > │ , Error in Ln: 1 Col: 1 │
00:19:39 verbose #13562 > > │ Expecting: any char not in ‘abc’ │
00:19:39 verbose #13563 > > │ )" │
00:19:39 verbose #13564 > > │ assert_eq' / actual: "(d, (Ln: 1, Col: 2))" / expected: "(d, (Ln: 1, Col: │
00:19:39 verbose #13565 > > │ 2))" │
00:19:39 verbose #13566 > > │ │
00:19:39 verbose #13567 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:39 verbose #13568 > >
00:19:39 verbose #13569 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:39 verbose #13570 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:39 verbose #13571 > > │ ### (<|>) │
00:19:39 verbose #13572 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:39 verbose #13573 > >
00:19:39 verbose #13574 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:39 verbose #13575 > > inl (<|>) forall t. (a : parser t) (b : parser t) : parser t = fun input, s =>
00:19:39 verbose #13576 > > match a (input, s) with
00:19:39 verbose #13577 > > | Ok _ as result => result
00:19:39 verbose #13578 > > | Error _ => b (input, s)
00:19:39 verbose #13579 > >
00:19:39 verbose #13580 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:39 verbose #13581 > > //// test
00:19:39 verbose #13582 > >
00:19:39 verbose #13583 > > "abc"
00:19:39 verbose #13584 > > |> parse (p_char 'a' <|> p_char 'b')
00:19:39 verbose #13585 > > |> resultm.get
00:19:39 verbose #13586 > > |> sm'.format_debug
00:19:39 verbose #13587 > > |> _assert_eq (
00:19:39 verbose #13588 > > ('a', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:19:39 verbose #13589 > > 2i32; line = 1i32 } })
00:19:39 verbose #13590 > > |> sm'.format_debug
00:19:39 verbose #13591 > > )
00:19:39 verbose #13592 > >
00:19:39 verbose #13593 > > "cba"
00:19:39 verbose #13594 > > |> parse (p_char 'a' <|> p_char 'b')
00:19:39 verbose #13595 > > |> _assert_eq (Error "parsing.p_char / expected: 'b' / line: 1 / col:
00:19:39 verbose #13596 > > 1\ncba\n^\n")
00:19:40 verbose #13597 > >
00:19:40 verbose #13598 > > ╭─[ 819.19ms - stdout ]────────────────────────────────────────────────────────╮
00:19:40 verbose #13599 > > │ assert_eq / actual: "struct ('a', "bc", a, 2, 1)" / expected: "struct ('a', │
00:19:40 verbose #13600 > > │ "bc", a, 2, 1)" │
00:19:40 verbose #13601 > > │ assert_eq / actual: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:19:40 verbose #13602 > > │ cba │
00:19:40 verbose #13603 > > │ ^ │
00:19:40 verbose #13604 > > │ " / expected: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:19:40 verbose #13605 > > │ cba │
00:19:40 verbose #13606 > > │ ^ │
00:19:40 verbose #13607 > > │ " │
00:19:40 verbose #13608 > > │ │
00:19:40 verbose #13609 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:40 verbose #13610 > >
00:19:40 verbose #13611 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:40 verbose #13612 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:40 verbose #13613 > > │ ### (|>>) │
00:19:40 verbose #13614 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:40 verbose #13615 > >
00:19:40 verbose #13616 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:40 verbose #13617 > > inl (|>>) p f : parser _ = fun input =>
00:19:40 verbose #13618 > > match p input with
00:19:40 verbose #13619 > > | Ok (result, rest) => Ok (f result, rest)
00:19:40 verbose #13620 > > | Error e => Error e
00:19:41 verbose #13621 > >
00:19:41 verbose #13622 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:41 verbose #13623 > > //// test
00:19:41 verbose #13624 > >
00:19:41 verbose #13625 > > "abc"
00:19:41 verbose #13626 > > |> parse (p_char 'a' |>> sm'.char_to_upper)
00:19:41 verbose #13627 > > |> resultm.get
00:19:41 verbose #13628 > > |> sm'.format_debug
00:19:41 verbose #13629 > > |> _assert_eq (
00:19:41 verbose #13630 > > ('A', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:19:41 verbose #13631 > > 2i32; line = 1i32 } })
00:19:41 verbose #13632 > > |> sm'.format_debug
00:19:41 verbose #13633 > > )
00:19:42 verbose #13634 > >
00:19:42 verbose #13635 > > ╭─[ 858.82ms - stdout ]────────────────────────────────────────────────────────╮
00:19:42 verbose #13636 > > │ assert_eq / actual: "struct ('A', "bc", a, 2, 1)" / expected: "struct ('A', │
00:19:42 verbose #13637 > > │ "bc", a, 2, 1)" │
00:19:42 verbose #13638 > > │ │
00:19:42 verbose #13639 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:42 verbose #13640 > >
00:19:42 verbose #13641 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:42 verbose #13642 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:42 verbose #13643 > > │ ### many1_chars │
00:19:42 verbose #13644 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:42 verbose #13645 > >
00:19:42 verbose #13646 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:42 verbose #13647 > > inl many1_chars p : parser string = fun input =>
00:19:42 verbose #13648 > > match p input with
00:19:42 verbose #13649 > > | Error e => Error e
00:19:42 verbose #13650 > > | Ok (first_result, rest) =>
00:19:42 verbose #13651 > > let rec loop acc input =
00:19:42 verbose #13652 > > match p input with
00:19:42 verbose #13653 > > | Ok (result, rest) => loop (acc +. sm'.obj_to_string result) rest
00:19:42 verbose #13654 > > | Error _ => Ok (acc, input)
00:19:42 verbose #13655 > > loop (sm'.obj_to_string first_result) rest
00:19:43 verbose #13656 > >
00:19:43 verbose #13657 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:43 verbose #13658 > > //// test
00:19:43 verbose #13659 > >
00:19:43 verbose #13660 > > "aaabbc"
00:19:43 verbose #13661 > > |> parse (many1_chars (p_char 'a' <|> p_char 'b'))
00:19:43 verbose #13662 > > |> resultm.get
00:19:43 verbose #13663 > > |> sm'.format_debug
00:19:43 verbose #13664 > > |> _assert_eq (
00:19:43 verbose #13665 > > ("aaabb", "c", { line_text = "aaabb" |> sm'.string_builder; position = { col
00:19:43 verbose #13666 > > = 6i32; line = 1i32 } })
00:19:43 verbose #13667 > > |> sm'.format_debug
00:19:43 verbose #13668 > > )
00:19:44 verbose #13669 > >
00:19:44 verbose #13670 > > ╭─[ 858.72ms - stdout ]────────────────────────────────────────────────────────╮
00:19:44 verbose #13671 > > │ assert_eq / actual: "struct ("aaabb", "c", aaabb, 6, 1)" / expected: "struct │
00:19:44 verbose #13672 > > │ ("aaabb", "c", aaabb, 6, 1)" │
00:19:44 verbose #13673 > > │ │
00:19:44 verbose #13674 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:44 verbose #13675 > >
00:19:44 verbose #13676 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:44 verbose #13677 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:44 verbose #13678 > > │ ### many1 │
00:19:44 verbose #13679 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:44 verbose #13680 > >
00:19:44 verbose #13681 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:44 verbose #13682 > > inl many1 p : parser (list _) = fun input =>
00:19:44 verbose #13683 > > match p input with
00:19:44 verbose #13684 > > | Error e => Error e
00:19:44 verbose #13685 > > | Ok (first_result, rest) =>
00:19:44 verbose #13686 > > let rec loop acc input =
00:19:44 verbose #13687 > > match p input with
00:19:44 verbose #13688 > > | Ok (result, rest) => loop (result :: acc) rest
00:19:44 verbose #13689 > > | Error _ => Ok (listm.rev acc, input)
00:19:44 verbose #13690 > > loop [[ first_result ]] rest
00:19:44 verbose #13691 > >
00:19:44 verbose #13692 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:44 verbose #13693 > > //// test
00:19:44 verbose #13694 > >
00:19:44 verbose #13695 > > "aaabbc"
00:19:44 verbose #13696 > > |> parse (many1 (p_char 'a' <|> p_char 'b'))
00:19:44 verbose #13697 > > |> resultm.get
00:19:44 verbose #13698 > > |> sm'.format_debug
00:19:44 verbose #13699 > > |> _assert_eq (
00:19:44 verbose #13700 > > ([['a'; 'a'; 'a'; 'b'; 'b']], "c", { line_text = "aaabb" |>
00:19:44 verbose #13701 > > sm'.string_builder; position = { col = 6i32; line = 1i32 } })
00:19:44 verbose #13702 > > |> sm'.format_debug
00:19:44 verbose #13703 > > )
00:19:44 verbose #13704 > >
00:19:44 verbose #13705 > > "bcc"
00:19:44 verbose #13706 > > |> parse (many1 (p_char 'a' <|> p_char 'b'))
00:19:44 verbose #13707 > > |> resultm.get
00:19:44 verbose #13708 > > |> sm'.format_debug
00:19:44 verbose #13709 > > |> _assert_eq (
00:19:44 verbose #13710 > > ([['b']], "cc", { line_text = "b" |> sm'.string_builder; position = { col =
00:19:44 verbose #13711 > > 2i32; line = 1i32 } })
00:19:44 verbose #13712 > > |> sm'.format_debug
00:19:44 verbose #13713 > > )
00:19:44 verbose #13714 > >
00:19:44 verbose #13715 > > "cba"
00:19:44 verbose #13716 > > |> parse (many1 (p_char 'a' <|> p_char 'b'))
00:19:44 verbose #13717 > > |> _assert_eq (Error "parsing.p_char / expected: 'b' / line: 1 / col:
00:19:44 verbose #13718 > > 1\ncba\n^\n")
00:19:45 verbose #13719 > >
00:19:45 verbose #13720 > > ╭─[ 1.01s - stdout ]───────────────────────────────────────────────────────────╮
00:19:45 verbose #13721 > > │ assert_eq / actual: "struct (UH0_1 ('a', UH0_1 ('a', UH0_1 ('a', UH0_1 ('b', │
00:19:45 verbose #13722 > > │ UH0_1 ('b', UH0_0))))), │
00:19:45 verbose #13723 > > │ "c", aaabb, 6, 1)" / expected: "struct (UH0_1 ('a', UH0_1 ('a', │
00:19:45 verbose #13724 > > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('b', UH0_0))))), │
00:19:45 verbose #13725 > > │ "c", aaabb, 6, 1)" │
00:19:45 verbose #13726 > > │ assert_eq / actual: "struct (UH0_1 ('b', UH0_0), "cc", b, 2, 1)" / expected: │
00:19:45 verbose #13727 > > │ "struct (UH0_1 ('b', UH0_0), "cc", b, 2, 1)" │
00:19:45 verbose #13728 > > │ assert_eq / actual: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:19:45 verbose #13729 > > │ cba │
00:19:45 verbose #13730 > > │ ^ │
00:19:45 verbose #13731 > > │ " / expected: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:19:45 verbose #13732 > > │ cba │
00:19:45 verbose #13733 > > │ ^ │
00:19:45 verbose #13734 > > │ " │
00:19:45 verbose #13735 > > │ │
00:19:45 verbose #13736 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:45 verbose #13737 > >
00:19:45 verbose #13738 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:45 verbose #13739 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:45 verbose #13740 > > │ ### many1_strings │
00:19:45 verbose #13741 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:45 verbose #13742 > >
00:19:45 verbose #13743 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:45 verbose #13744 > > inl many1_strings p : parser string = fun input =>
00:19:45 verbose #13745 > > match many1 p input with
00:19:45 verbose #13746 > > | Ok (results, rest) =>
00:19:45 verbose #13747 > > Ok (results |> listm.map sm'.obj_to_string |> listm'.box |> seq.of_list'
00:19:45 verbose #13748 > > |> sm'.concat "", rest)
00:19:45 verbose #13749 > > | Error e => Error e
00:19:46 verbose #13750 > >
00:19:46 verbose #13751 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:46 verbose #13752 > > //// test
00:19:46 verbose #13753 > >
00:19:46 verbose #13754 > > "aaabbc"
00:19:46 verbose #13755 > > |> parse (many1_strings (p_char 'a' <|> p_char 'b'))
00:19:46 verbose #13756 > > |> resultm.get
00:19:46 verbose #13757 > > |> sm'.format_debug
00:19:46 verbose #13758 > > |> _assert_eq (
00:19:46 verbose #13759 > > ("aaabb", "c", { line_text = "aaabb" |> sm'.string_builder; position = { col
00:19:46 verbose #13760 > > = 6i32; line = 1i32 } })
00:19:46 verbose #13761 > > |> sm'.format_debug
00:19:46 verbose #13762 > > )
00:19:47 verbose #13763 > >
00:19:47 verbose #13764 > > ╭─[ 923.01ms - stdout ]────────────────────────────────────────────────────────╮
00:19:47 verbose #13765 > > │ assert_eq / actual: "struct ("aaabb", "c", aaabb, 6, 1)" / expected: "struct │
00:19:47 verbose #13766 > > │ ("aaabb", "c", aaabb, 6, 1)" │
00:19:47 verbose #13767 > > │ │
00:19:47 verbose #13768 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:47 verbose #13769 > >
00:19:47 verbose #13770 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:47 verbose #13771 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:47 verbose #13772 > > │ ### choice │
00:19:47 verbose #13773 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:47 verbose #13774 > >
00:19:47 verbose #13775 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:47 verbose #13776 > > inl choice parsers : parser _ = fun input =>
00:19:47 verbose #13777 > > let rec loop = function
00:19:47 verbose #13778 > > | [[]] => Error "choice / no parsers succeeded"
00:19:47 verbose #13779 > > | p :: ps =>
00:19:47 verbose #13780 > > match p input with
00:19:47 verbose #13781 > > | Ok _ as result => result
00:19:47 verbose #13782 > > | Error _ => loop ps
00:19:47 verbose #13783 > > loop parsers
00:19:48 verbose #13784 > >
00:19:48 verbose #13785 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:48 verbose #13786 > > //// test
00:19:48 verbose #13787 > >
00:19:48 verbose #13788 > > "bca"
00:19:48 verbose #13789 > > |> parse (choice [[p_char 'a'; p_char 'b'; p_char 'c']])
00:19:48 verbose #13790 > > |> resultm.get
00:19:48 verbose #13791 > > |> sm'.format_debug
00:19:48 verbose #13792 > > |> _assert_eq (
00:19:48 verbose #13793 > > ('b', "ca", { line_text = "b" |> sm'.string_builder; position = { col =
00:19:48 verbose #13794 > > 2i32; line = 1i32 } })
00:19:48 verbose #13795 > > |> sm'.format_debug
00:19:48 verbose #13796 > > )
00:19:48 verbose #13797 > >
00:19:48 verbose #13798 > > "cba"
00:19:48 verbose #13799 > > |> parse (choice [[p_char 'a'; p_char 'b'; p_char 'c']])
00:19:48 verbose #13800 > > |> resultm.get
00:19:48 verbose #13801 > > |> sm'.format_debug
00:19:48 verbose #13802 > > |> _assert_eq (
00:19:48 verbose #13803 > > ('c', "ba", { line_text = "c" |> sm'.string_builder; position = { col =
00:19:48 verbose #13804 > > 2i32; line = 1i32 } })
00:19:48 verbose #13805 > > |> sm'.format_debug
00:19:48 verbose #13806 > > )
00:19:48 verbose #13807 > >
00:19:48 verbose #13808 > > ╭─[ 900.92ms - stdout ]────────────────────────────────────────────────────────╮
00:19:48 verbose #13809 > > │ assert_eq / actual: "struct ('b', "ca", b, 2, 1)" / expected: "struct ('b', │
00:19:48 verbose #13810 > > │ "ca", b, 2, 1)" │
00:19:48 verbose #13811 > > │ assert_eq / actual: "struct ('c', "ba", c, 2, 1)" / expected: "struct ('c', │
00:19:48 verbose #13812 > > │ "ba", c, 2, 1)" │
00:19:48 verbose #13813 > > │ │
00:19:48 verbose #13814 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:48 verbose #13815 > >
00:19:48 verbose #13816 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:48 verbose #13817 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:48 verbose #13818 > > │ ### many │
00:19:48 verbose #13819 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:48 verbose #13820 > >
00:19:48 verbose #13821 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:48 verbose #13822 > > inl many p : parser (list _) = fun input =>
00:19:48 verbose #13823 > > let rec loop acc input =
00:19:48 verbose #13824 > > match p input with
00:19:48 verbose #13825 > > | Ok (result, rest) => loop (result :: acc) rest
00:19:48 verbose #13826 > > | Error _ => Ok (listm.rev acc, input)
00:19:48 verbose #13827 > > loop [[]] input
00:19:49 verbose #13828 > >
00:19:49 verbose #13829 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:49 verbose #13830 > > //// test
00:19:49 verbose #13831 > >
00:19:49 verbose #13832 > > "aaabbc"
00:19:49 verbose #13833 > > |> parse (many (p_char 'a' <|> p_char 'b'))
00:19:49 verbose #13834 > > |> resultm.get
00:19:49 verbose #13835 > > |> sm'.format_debug
00:19:49 verbose #13836 > > |> _assert_eq (
00:19:49 verbose #13837 > > ([['a'; 'a'; 'a'; 'b'; 'b']], "c", { line_text = "aaabb" |>
00:19:49 verbose #13838 > > sm'.string_builder; position = { col = 6i32; line = 1i32 } })
00:19:49 verbose #13839 > > |> sm'.format_debug
00:19:49 verbose #13840 > > )
00:19:50 verbose #13841 > >
00:19:50 verbose #13842 > > ╭─[ 895.35ms - stdout ]────────────────────────────────────────────────────────╮
00:19:50 verbose #13843 > > │ assert_eq / actual: "struct (UH0_1 ('a', UH0_1 ('a', UH0_1 ('a', UH0_1 ('b', │
00:19:50 verbose #13844 > > │ UH0_1 ('b', UH0_0))))), │
00:19:50 verbose #13845 > > │ "c", aaabb, 6, 1)" / expected: "struct (UH0_1 ('a', UH0_1 ('a', │
00:19:50 verbose #13846 > > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('b', UH0_0))))), │
00:19:50 verbose #13847 > > │ "c", aaabb, 6, 1)" │
00:19:50 verbose #13848 > > │ │
00:19:50 verbose #13849 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:50 verbose #13850 > >
00:19:50 verbose #13851 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:50 verbose #13852 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:50 verbose #13853 > > │ ### between │
00:19:50 verbose #13854 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:50 verbose #13855 > >
00:19:50 verbose #13856 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:50 verbose #13857 > > inl between p_open p_close p_content : parser _ = fun input =>
00:19:50 verbose #13858 > > match p_open input with
00:19:50 verbose #13859 > > | Ok (_, rest1) =>
00:19:50 verbose #13860 > > match p_content rest1 with
00:19:50 verbose #13861 > > | Ok (result, rest2) =>
00:19:50 verbose #13862 > > match p_close rest2 with
00:19:50 verbose #13863 > > | Ok (_, rest3) => Ok (result, rest3)
00:19:50 verbose #13864 > > | Error e => Error $'$"between / expected closing delimiter / e:
00:19:50 verbose #13865 > > %A{!e} / input: %A{!input} / rest1: %A{!rest1} / rest2: %A{!rest2}"'
00:19:50 verbose #13866 > > | Error _ => Error "between / expected content"
00:19:50 verbose #13867 > > | Error e => Error e
00:19:51 verbose #13868 > >
00:19:51 verbose #13869 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:51 verbose #13870 > > //// test
00:19:51 verbose #13871 > >
00:19:51 verbose #13872 > > "[[aaabb]]"
00:19:51 verbose #13873 > > |> parse (between (p_char '[[') (p_char ']]') (many1_chars (p_char 'a' <|>
00:19:51 verbose #13874 > > p_char 'b')))
00:19:51 verbose #13875 > > |> resultm.get
00:19:51 verbose #13876 > > |> sm'.format_debug
00:19:51 verbose #13877 > > |> _assert_eq (
00:19:51 verbose #13878 > > ("aaabb", "", { line_text = "[[aaabb]]" |> sm'.string_builder; position = {
00:19:51 verbose #13879 > > col = 8i32; line = 1i32 } })
00:19:51 verbose #13880 > > |> sm'.format_debug
00:19:51 verbose #13881 > > )
00:19:51 verbose #13882 > >
00:19:51 verbose #13883 > > "[[aaabb"
00:19:51 verbose #13884 > > |> parse (between (p_char '[[') (p_char ']]') (many1_chars (p_char 'a' <|>
00:19:51 verbose #13885 > > p_char 'b')))
00:19:51 verbose #13886 > > |> resultm.unwrap_err
00:19:51 verbose #13887 > > |> sm'.format_debug
00:19:51 verbose #13888 > > |> _assert_eq "\"between / expected closing delimiter / e: \"parsing.p_char
00:19:51 verbose #13889 > > unexpected end of input / s: struct ([[aaabb, 7, 1)\" / input: struct
00:19:51 verbose #13890 > > (\"[[aaabb\", [[aaabb, 1, 1) / rest1: struct (\"aaabb\", [[aaabb, 2, 1) / rest2:
00:19:51 verbose #13891 > > struct (\"\", [[aaabb, 7, 1)\""
00:19:52 verbose #13892 > >
00:19:52 verbose #13893 > > ╭─[ 1.12s - stdout ]───────────────────────────────────────────────────────────╮
00:19:52 verbose #13894 > > │ assert_eq / actual: "struct ("aaabb", "", [aaabb], 8, 1)" / expected: │
00:19:52 verbose #13895 > > │ "struct ("aaabb", "", [aaabb], 8, 1)" │
00:19:52 verbose #13896 > > │ assert_eq / actual: ""between / expected closing delimiter / e: │
00:19:52 verbose #13897 > > │ "parsing.p_char / unexpected end of input / s: struct ([aaabb, 7, 1)" / │
00:19:52 verbose #13898 > > │ input: struct ("[aaabb", [aaabb, 1, 1) / rest1: struct ("aaabb", [aaabb, 2, │
00:19:52 verbose #13899 > > │ 1) / rest2: struct ("", [aaabb, 7, 1)"" / expected: ""between / expected │
00:19:52 verbose #13900 > > │ closing delimiter / e: "parsing.p_char / unexpected end of input / s: struct │
00:19:52 verbose #13901 > > │ ([aaabb, 7, 1)" / input: struct ("[aaabb", [aaabb, 1, 1) / rest1: struct │
00:19:52 verbose #13902 > > │ ("aaabb", [aaabb, 2, 1) / rest2: struct ("", [aaabb, 7, 1)"" │
00:19:52 verbose #13903 > > │ │
00:19:52 verbose #13904 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:52 verbose #13905 > >
00:19:52 verbose #13906 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:52 verbose #13907 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:52 verbose #13908 > > │ ### sep_by │
00:19:52 verbose #13909 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:52 verbose #13910 > >
00:19:52 verbose #13911 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:52 verbose #13912 > > inl sep_by p sep : parser (list _) = fun input, s =>
00:19:52 verbose #13913 > > let rec loop acc input s =
00:19:52 verbose #13914 > > match p (input, s) with
00:19:52 verbose #13915 > > | Error _ => Ok (acc |> listm.rev, input, s)
00:19:52 verbose #13916 > > | Ok (result, rest, s) =>
00:19:52 verbose #13917 > > match sep (rest, s) with
00:19:52 verbose #13918 > > | Error _ => Ok ((result :: acc) |> listm.rev, rest, s)
00:19:52 verbose #13919 > > | Ok (_, rest, s) => loop (result :: acc) rest s
00:19:52 verbose #13920 > > loop [[]] input s
00:19:53 verbose #13921 > >
00:19:53 verbose #13922 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:53 verbose #13923 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:53 verbose #13924 > > │ ### span │
00:19:53 verbose #13925 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:53 verbose #13926 > >
00:19:53 verbose #13927 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:53 verbose #13928 > > inl span pred str =
00:19:53 verbose #13929 > > let rec loop i =
00:19:53 verbose #13930 > > if i >= sm'.length str
00:19:53 verbose #13931 > > then i
00:19:53 verbose #13932 > > elif pred (str |> sm'.index i)
00:19:53 verbose #13933 > > then loop (i + 1)
00:19:53 verbose #13934 > > else i
00:19:53 verbose #13935 > > loop 0
00:19:53 verbose #13936 > >
00:19:53 verbose #13937 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:53 verbose #13938 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:53 verbose #13939 > > │ ### spaces1 │
00:19:53 verbose #13940 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:53 verbose #13941 > >
00:19:53 verbose #13942 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:53 verbose #13943 > > inl spaces1 () : parser () = fun input, s =>
00:19:53 verbose #13944 > > match input |> span fun c => c = ' ' with
00:19:53 verbose #13945 > > | 0i32 => Error "spaces1 / expected at least one space"
00:19:53 verbose #13946 > > | n => Ok ((), input |> sm'.range (am'.Start n) (am'.End id), s)
00:19:54 verbose #13947 > >
00:19:54 verbose #13948 > > ── markdown ────────────────────────────────────────────────────────────────────
00:19:54 verbose #13949 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:19:54 verbose #13950 > > │ ### p_digit │
00:19:54 verbose #13951 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:54 verbose #13952 > >
00:19:54 verbose #13953 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:54 verbose #13954 > > inl p_digit () : parser char = fun input, s =>
00:19:54 verbose #13955 > > match input |> sm'.index 0i32 with
00:19:54 verbose #13956 > > | ('0' | '1' | '2' | '3' | '4' | '5' | '6' | '7' | '8' | '9') as c =>
00:19:54 verbose #13957 > > Ok (c, input |> sm'.range (am'.Start 1i32) (am'.End id), s)
00:19:54 verbose #13958 > > | c => Error $'$"p_digit / unexpected char: {!c}"'
00:19:55 verbose #13959 > >
00:19:55 verbose #13960 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:55 verbose #13961 > > //// test
00:19:55 verbose #13962 > >
00:19:55 verbose #13963 > > "1 2 3"
00:19:55 verbose #13964 > > |> parse (sep_by (p_digit ()) (spaces1 ()))
00:19:55 verbose #13965 > > |> resultm.get
00:19:55 verbose #13966 > > |> sm'.format_debug
00:19:55 verbose #13967 > > |> _assert_eq (
00:19:55 verbose #13968 > > ([['1'; '2'; '3']], "", { line_text = "" |> sm'.string_builder; position = {
00:19:55 verbose #13969 > > col = 1i32; line = 1i32 } })
00:19:55 verbose #13970 > > |> sm'.format_debug
00:19:55 verbose #13971 > > )
00:19:56 verbose #13972 > >
00:19:56 verbose #13973 > > ╭─[ 838.03ms - stdout ]────────────────────────────────────────────────────────╮
00:19:56 verbose #13974 > > │ assert_eq / actual: "struct (UH0_1 ('1', UH0_1 ('2', UH0_1 ('3', UH0_0))), │
00:19:56 verbose #13975 > > │ "", , 1, 1)" / expected: "struct (UH0_1 ('1', UH0_1 ('2', UH0_1 ('3', │
00:19:56 verbose #13976 > > │ UH0_0))), "", , 1, 1)" │
00:19:56 verbose #13977 > > │ │
00:19:56 verbose #13978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:56 verbose #13979 > >
00:19:56 verbose #13980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:19:56 verbose #13981 > > //// test
00:19:56 verbose #13982 > >
00:19:56 verbose #13983 > > "1 a 2"
00:19:56 verbose #13984 > > |> parse (sep_by (p_digit ()) (spaces1 ()))
00:19:56 verbose #13985 > > |> resultm.get
00:19:56 verbose #13986 > > |> sm'.format_debug
00:19:56 verbose #13987 > > |> _assert_eq (
00:19:56 verbose #13988 > > ([['1']], "a 2", { line_text = "" |> sm'.string_builder; position = { col =
00:19:56 verbose #13989 > > 1i32; line = 1i32 } })
00:19:56 verbose #13990 > > |> sm'.format_debug
00:19:56 verbose #13991 > > )
00:19:57 verbose #13992 > >
00:19:57 verbose #13993 > > ╭─[ 877.12ms - stdout ]────────────────────────────────────────────────────────╮
00:19:57 verbose #13994 > > │ assert_eq / actual: "struct (UH0_1 ('1', UH0_0), "a 2", , 1, 1)" / expected: │
00:19:57 verbose #13995 > > │ "struct (UH0_1 ('1', UH0_0), "a 2", , 1, 1)" │
00:19:57 verbose #13996 > > │ │
00:19:57 verbose #13997 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:19:57 verbose #13998 > 00:00:56 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 55669
00:19:57 verbose #13999 > 00:00:56 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:19:59 verbose #14000 > 00:00:59 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb to html
00:19:59 verbose #14001 > 00:00:59 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:19:59 verbose #14002 > 00:00:59 verbose #7 ! validate(nb)
00:20:01 verbose #14003 > 00:01:01 verbose #8 ! [NbConvertApp] Writing 452640 bytes to c:\home\git\polyglot\lib\spiral\parsing.dib.html
00:20:01 verbose #14004 > 00:01:01 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:20:01 verbose #14005 > 00:01:01 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:20:01 verbose #14006 > 00:01:01 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/parsing.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/parsing.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:20:02 verbose #14007 > 00:01:02 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:20:02 verbose #14008 > 00:01:02 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:20:03 verbose #14009 > 00:01:02 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 56373
00:20:03 debug #14010 runtime.execute_with_options_async / exit_code: 0 / output.Length: 61181
00:20:03 debug #22 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path parsing.dib --retries 3
00:20:03 debug #14011 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path threading.dib --retries 3",
[||], None, None, true, None)
00:20:03 verbose #14012 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "threading.dib", "--retries", "3"])
00:20:03 verbose #14013 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/threading.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/threading.dib" --output-path "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:20:05 verbose #14014 > >
00:20:05 verbose #14015 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:05 verbose #14016 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:05 verbose #14017 > > │ # threading │
00:20:05 verbose #14018 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:05 verbose #14019 > >
00:20:05 verbose #14020 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:05 verbose #14021 > > open rust_operators
00:20:05 verbose #14022 > >
00:20:05 verbose #14023 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:20:05 verbose #14024 > > #r
00:20:05 verbose #14025 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:20:05 verbose #14026 > > otNet.Interactive.Spiral.dll"
00:20:05 verbose #14027 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:20:05 verbose #14028 > > #r
00:20:05 verbose #14029 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:20:05 verbose #14030 > > otNet.Interactive.dll"
00:20:05 verbose #14031 > > open type Microsoft.DotNet.Interactive.Kernel
00:20:10 verbose #14032 > >
00:20:10 verbose #14033 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:10 verbose #14034 > > //// test
00:20:10 verbose #14035 > >
00:20:10 verbose #14036 > > open testing
00:20:11 verbose #14037 > >
00:20:11 verbose #14038 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:11 verbose #14039 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:11 verbose #14040 > > │ ## types │
00:20:11 verbose #14041 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:11 verbose #14042 > >
00:20:11 verbose #14043 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:11 verbose #14044 > > inl types () =
00:20:11 verbose #14045 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14046 > > Fable.Core.Emit(\"std::thread::JoinHandle<$0>\")>]]\n#endif\ntype
00:20:11 verbose #14047 > > std_thread_JoinHandle<'T> = class end"
00:20:11 verbose #14048 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14049 > > Fable.Core.Emit(\"std::sync::Arc<$0>\")>]]\n#endif\ntype std_sync_Arc<'T> =
00:20:11 verbose #14050 > > class end"
00:20:11 verbose #14051 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14052 > > Fable.Core.Emit(\"std::sync::Mutex<$0>\")>]]\n#endif\ntype std_sync_Mutex<'T> =
00:20:11 verbose #14053 > > class end"
00:20:11 verbose #14054 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14055 > > Fable.Core.Emit(\"std::sync::MutexGuard<$0>\")>]]\n#endif\ntype
00:20:11 verbose #14056 > > std_sync_MutexGuard<'T> = class end"
00:20:11 verbose #14057 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14058 > > Fable.Core.Emit(\"std::sync::PoisonError<$0>\")>]]\n#endif\ntype
00:20:11 verbose #14059 > > std_sync_PoisonError<'T> = class end"
00:20:11 verbose #14060 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14061 > > Fable.Core.Emit(\"std::sync::mpsc::Receiver<$0>\")>]]\n#endif\ntype
00:20:11 verbose #14062 > > std_sync_mpsc_Receiver<'T> = class end"
00:20:11 verbose #14063 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14064 > > Fable.Core.Emit(\"std::sync::mpsc::SendError<$0>\")>]]\n#endif\ntype
00:20:11 verbose #14065 > > std_sync_mpsc_SendError<'T> = class end"
00:20:11 verbose #14066 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:20:11 verbose #14067 > > Fable.Core.Emit(\"std::sync::mpsc::Sender<$0>\")>]]\n#endif\ntype
00:20:11 verbose #14068 > > std_sync_mpsc_Sender<'T> = class end"
00:20:11 verbose #14069 > >
00:20:11 verbose #14070 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:11 verbose #14071 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:11 verbose #14072 > > │ ## rust │
00:20:11 verbose #14073 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:11 verbose #14074 > >
00:20:11 verbose #14075 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:11 verbose #14076 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:11 verbose #14077 > > │ ### sleep │
00:20:11 verbose #14078 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:11 verbose #14079 > >
00:20:11 verbose #14080 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:11 verbose #14081 > > inl sleep (duration : date_time.duration) : () =
00:20:11 verbose #14082 > > inl duration = join duration
00:20:11 verbose #14083 > > !\($'"std::thread::sleep(!duration)"')
00:20:12 verbose #14084 > >
00:20:12 verbose #14085 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:12 verbose #14086 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:12 verbose #14087 > > │ ### join_handle │
00:20:12 verbose #14088 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:12 verbose #14089 > >
00:20:12 verbose #14090 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:12 verbose #14091 > > nominal join_handle t = $'std_thread_JoinHandle<`t>'
00:20:13 verbose #14092 > >
00:20:13 verbose #14093 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:13 verbose #14094 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:13 verbose #14095 > > │ ### spawn │
00:20:13 verbose #14096 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:13 verbose #14097 > >
00:20:13 verbose #14098 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:13 verbose #14099 > > inl spawn forall t. depth flag (x : () -> t) : join_handle t =
00:20:13 verbose #14100 > > if flag = 1u8
00:20:13 verbose #14101 > > then (!\($'"true; let __result = std::thread::spawn(move || { //"') : bool)
00:20:13 verbose #14102 > > |> ignore
00:20:13 verbose #14103 > > else (!\($'"true; let __result = std::thread::spawn(|| { //"') : bool) |>
00:20:13 verbose #14104 > > ignore
00:20:13 verbose #14105 > >
00:20:13 verbose #14106 > > let x' = x ()
00:20:13 verbose #14107 > > inl x' = join x'
00:20:13 verbose #14108 > >
00:20:13 verbose #14109 > > x' |> rust.fix_closure depth
00:20:13 verbose #14110 > >
00:20:13 verbose #14111 > > !\($'"__result"')
00:20:13 verbose #14112 > >
00:20:13 verbose #14113 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:13 verbose #14114 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:13 verbose #14115 > > │ ### join' │
00:20:13 verbose #14116 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:13 verbose #14117 > >
00:20:13 verbose #14118 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:13 verbose #14119 > > inl join' forall t.
00:20:13 verbose #14120 > > (x : join_handle t)
00:20:13 verbose #14121 > > : resultm.result'
00:20:13 verbose #14122 > > t
00:20:13 verbose #14123 > > (
00:20:13 verbose #14124 > > rust.box (
00:20:13 verbose #14125 > > rust.lifetime_join'
00:20:13 verbose #14126 > > rust.dyn'
00:20:13 verbose #14127 > > (
00:20:13 verbose #14128 > > rust.lifetime_join
00:20:13 verbose #14129 > > rust.any
00:20:13 verbose #14130 > > (
00:20:13 verbose #14131 > > rust.lifetime_join'
00:20:13 verbose #14132 > > rust.send
00:20:13 verbose #14133 > > rust.static_lifetime
00:20:13 verbose #14134 > > )
00:20:13 verbose #14135 > > )
00:20:13 verbose #14136 > > )
00:20:13 verbose #14137 > > ) =
00:20:13 verbose #14138 > > !\\(x, $'"std::thread::JoinHandle::join($0)"')
00:20:14 verbose #14139 > >
00:20:14 verbose #14140 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:14 verbose #14141 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:14 verbose #14142 > > │ ### arc │
00:20:14 verbose #14143 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:14 verbose #14144 > >
00:20:14 verbose #14145 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:14 verbose #14146 > > nominal arc t = $'std_sync_Arc<`t>'
00:20:15 verbose #14147 > >
00:20:15 verbose #14148 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:15 verbose #14149 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:15 verbose #14150 > > │ ### new_arc │
00:20:15 verbose #14151 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:15 verbose #14152 > >
00:20:15 verbose #14153 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:15 verbose #14154 > > inl new_arc forall t. (x : t) : arc t =
00:20:15 verbose #14155 > > !\\(x, $'"std::sync::Arc::new($0)"')
00:20:15 verbose #14156 > >
00:20:15 verbose #14157 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:15 verbose #14158 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:15 verbose #14159 > > │ ### mutex │
00:20:15 verbose #14160 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:15 verbose #14161 > >
00:20:15 verbose #14162 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:15 verbose #14163 > > nominal mutex t = $'std_sync_Mutex<`t>'
00:20:16 verbose #14164 > >
00:20:16 verbose #14165 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:16 verbose #14166 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:16 verbose #14167 > > │ ### new_mutex │
00:20:16 verbose #14168 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:16 verbose #14169 > >
00:20:16 verbose #14170 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:16 verbose #14171 > > inl new_mutex forall t. (x : t) : mutex t =
00:20:16 verbose #14172 > > !\\(x, $'"std::sync::Mutex::new($0)"')
00:20:17 verbose #14173 > >
00:20:17 verbose #14174 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:17 verbose #14175 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:17 verbose #14176 > > │ ### new_arc_mutex │
00:20:17 verbose #14177 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:17 verbose #14178 > >
00:20:17 verbose #14179 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:17 verbose #14180 > > inl new_arc_mutex forall t. (x : t) : arc (mutex t) =
00:20:17 verbose #14181 > > x |> new_mutex |> new_arc
00:20:17 verbose #14182 > >
00:20:17 verbose #14183 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:17 verbose #14184 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:17 verbose #14185 > > │ ### arc_clone │
00:20:17 verbose #14186 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:17 verbose #14187 > >
00:20:17 verbose #14188 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:17 verbose #14189 > > inl arc_clone forall t. (x : arc t) : arc t =
00:20:17 verbose #14190 > > inl x = join x
00:20:17 verbose #14191 > > !\($'"std::sync::Arc::clone(&!x)"')
00:20:18 verbose #14192 > >
00:20:18 verbose #14193 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:18 verbose #14194 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:18 verbose #14195 > > │ ### mutex_guard │
00:20:18 verbose #14196 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:18 verbose #14197 > >
00:20:18 verbose #14198 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:18 verbose #14199 > > nominal mutex_guard t = $'std_sync_MutexGuard<`t>'
00:20:18 verbose #14200 > >
00:20:18 verbose #14201 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:18 verbose #14202 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:18 verbose #14203 > > │ ### poison_error │
00:20:18 verbose #14204 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:18 verbose #14205 > >
00:20:18 verbose #14206 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:18 verbose #14207 > > nominal poison_error t = $'std_sync_PoisonError<`t>'
00:20:19 verbose #14208 > >
00:20:19 verbose #14209 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:19 verbose #14210 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:19 verbose #14211 > > │ ### arc_mutex_lock │
00:20:19 verbose #14212 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:19 verbose #14213 > >
00:20:19 verbose #14214 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:19 verbose #14215 > > inl arc_mutex_lock forall t. (x : arc (mutex t)) : resultm.result' (mutex_guard
00:20:19 verbose #14216 > > t) (poison_error (mutex_guard t)) =
00:20:19 verbose #14217 > > inl x = join x
00:20:19 verbose #14218 > > !\($'"!x.lock()"')
00:20:20 verbose #14219 > >
00:20:20 verbose #14220 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:20 verbose #14221 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:20 verbose #14222 > > │ ### mutex_guard_ref │
00:20:20 verbose #14223 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:20 verbose #14224 > >
00:20:20 verbose #14225 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:20 verbose #14226 > > inl mutex_guard_ref forall t. (x : mutex_guard t) : rust.ref' t =
00:20:20 verbose #14227 > > !\\(x, $'"&$0"')
00:20:20 verbose #14228 > >
00:20:20 verbose #14229 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:20 verbose #14230 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:20 verbose #14231 > > │ ### mutex_guard_ref_mut │
00:20:20 verbose #14232 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:20 verbose #14233 > >
00:20:20 verbose #14234 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:20 verbose #14235 > > inl mutex_guard_ref_mut forall t. (x : mutex_guard t) : rust.ref' (rust.mut' t)
00:20:20 verbose #14236 > > =
00:20:20 verbose #14237 > > (!\($'"true; let mut !x = !x"') : bool) |> ignore
00:20:20 verbose #14238 > > !\\(x, $'"&mut $0"')
00:20:21 verbose #14239 > >
00:20:21 verbose #14240 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:21 verbose #14241 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:21 verbose #14242 > > │ ### mutex_guard_as_mut │
00:20:21 verbose #14243 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:21 verbose #14244 > >
00:20:21 verbose #14245 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:21 verbose #14246 > > inl mutex_guard_as_mut forall (t : * -> *) u. (x : mutex_guard (t u)) : t
00:20:21 verbose #14247 > > (rust.ref' (rust.mut' u)) =
00:20:21 verbose #14248 > > (!\($'"true; let mut !x = !x"') : bool) |> ignore
00:20:21 verbose #14249 > > !\\(x, $'"$0.as_mut()"')
00:20:22 verbose #14250 > >
00:20:22 verbose #14251 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:22 verbose #14252 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:22 verbose #14253 > > │ ### channel_receiver │
00:20:22 verbose #14254 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:22 verbose #14255 > >
00:20:22 verbose #14256 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:22 verbose #14257 > > nominal channel_receiver t = $'std_sync_mpsc_Receiver<`t>'
00:20:22 verbose #14258 > >
00:20:22 verbose #14259 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:22 verbose #14260 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:22 verbose #14261 > > │ ### channel_sender │
00:20:22 verbose #14262 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:22 verbose #14263 > >
00:20:22 verbose #14264 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:22 verbose #14265 > > nominal channel_sender t = $'std_sync_mpsc_Sender<`t>'
00:20:23 verbose #14266 > >
00:20:23 verbose #14267 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:23 verbose #14268 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:23 verbose #14269 > > │ ### new_channel │
00:20:23 verbose #14270 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:23 verbose #14271 > >
00:20:23 verbose #14272 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:23 verbose #14273 > > inl new_channel () : channel_sender sm'.std_string * arc (channel_receiver
00:20:23 verbose #14274 > > sm'.std_string) =
00:20:23 verbose #14275 > > !\($'"{ let (sender, receiver) = std::sync::mpsc::channel(); (sender,
00:20:23 verbose #14276 > > std::sync::Arc::new(receiver)) }"')
00:20:24 verbose #14277 > >
00:20:24 verbose #14278 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:24 verbose #14279 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:24 verbose #14280 > > │ ### send_error │
00:20:24 verbose #14281 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:24 verbose #14282 > >
00:20:24 verbose #14283 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:24 verbose #14284 > > nominal send_error t = $'std_sync_mpsc_SendError<`t>'
00:20:24 verbose #14285 > >
00:20:24 verbose #14286 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:24 verbose #14287 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:24 verbose #14288 > > │ ### channel_send │
00:20:24 verbose #14289 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:24 verbose #14290 > >
00:20:24 verbose #14291 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:24 verbose #14292 > > inl channel_send forall t. (line : t) (sender : rust.ref' (channel_sender t)) :
00:20:24 verbose #14293 > > resultm.result' () (send_error sm'.std_string) =
00:20:24 verbose #14294 > > !\\((sender, line), $'"$0.send($1)"')
00:20:25 verbose #14295 > >
00:20:25 verbose #14296 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:25 verbose #14297 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:25 verbose #14298 > > │ ## fsharp │
00:20:25 verbose #14299 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:25 verbose #14300 > >
00:20:25 verbose #14301 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:25 verbose #14302 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:25 verbose #14303 > > │ ### sleep' │
00:20:25 verbose #14304 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:25 verbose #14305 > >
00:20:25 verbose #14306 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:25 verbose #14307 > > inl sleep' (n : i32) : () =
00:20:25 verbose #14308 > > run_target function
00:20:25 verbose #14309 > > | Fsharp (Native) => fun () => $'System.Threading.Thread.Sleep' n
00:20:25 verbose #14310 > > | _ => fun () => ()
00:20:26 verbose #14311 > >
00:20:26 verbose #14312 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:26 verbose #14313 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:26 verbose #14314 > > │ ### thread │
00:20:26 verbose #14315 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:26 verbose #14316 > >
00:20:26 verbose #14317 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:26 verbose #14318 > > nominal thread = $'System.Threading.Thread'
00:20:26 verbose #14319 > >
00:20:26 verbose #14320 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:26 verbose #14321 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:26 verbose #14322 > > │ ### cancellation_token │
00:20:26 verbose #14323 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:26 verbose #14324 > >
00:20:26 verbose #14325 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:26 verbose #14326 > > nominal cancellation_token = $'System.Threading.CancellationToken'
00:20:27 verbose #14327 > >
00:20:27 verbose #14328 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:27 verbose #14329 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:27 verbose #14330 > > │ ### cancellation_token_source │
00:20:27 verbose #14331 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:27 verbose #14332 > >
00:20:27 verbose #14333 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:27 verbose #14334 > > nominal cancellation_token_source = $'System.Threading.CancellationTokenSource'
00:20:28 verbose #14335 > >
00:20:28 verbose #14336 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:28 verbose #14337 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:28 verbose #14338 > > │ ### cancellation_token_registration │
00:20:28 verbose #14339 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:28 verbose #14340 > >
00:20:28 verbose #14341 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:28 verbose #14342 > > nominal cancellation_token_registration =
00:20:28 verbose #14343 > > $'System.Threading.CancellationTokenRegistration'
00:20:28 verbose #14344 > >
00:20:28 verbose #14345 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:28 verbose #14346 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:28 verbose #14347 > > │ ### cancellation_source_token │
00:20:28 verbose #14348 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:28 verbose #14349 > >
00:20:28 verbose #14350 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:28 verbose #14351 > > inl cancellation_source_token (x : cancellation_token_source) :
00:20:28 verbose #14352 > > cancellation_token =
00:20:28 verbose #14353 > > $'!x.Token'
00:20:29 verbose #14354 > >
00:20:29 verbose #14355 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:29 verbose #14356 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:29 verbose #14357 > > │ ### cancellation_source_cancel │
00:20:29 verbose #14358 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:29 verbose #14359 > >
00:20:29 verbose #14360 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:29 verbose #14361 > > inl cancellation_source_cancel (x : cancellation_token_source) : () =
00:20:29 verbose #14362 > > run_target function
00:20:29 verbose #14363 > > | Fsharp (Native) => fun () =>
00:20:29 verbose #14364 > > $'!x.Cancel' ()
00:20:29 verbose #14365 > > | _ => fun () => null ()
00:20:30 verbose #14366 > >
00:20:30 verbose #14367 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:30 verbose #14368 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:30 verbose #14369 > > │ ### create_linked_token_source │
00:20:30 verbose #14370 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:30 verbose #14371 > >
00:20:30 verbose #14372 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:30 verbose #14373 > > inl create_linked_token_source (x : array_base cancellation_token) :
00:20:30 verbose #14374 > > cancellation_token_source =
00:20:30 verbose #14375 > > x |> $'System.Threading.CancellationTokenSource.CreateLinkedTokenSource'
00:20:30 verbose #14376 > >
00:20:30 verbose #14377 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:30 verbose #14378 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:30 verbose #14379 > > │ ### concurrent_stack │
00:20:30 verbose #14380 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:30 verbose #14381 > >
00:20:30 verbose #14382 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:30 verbose #14383 > > nominal concurrent_stack t =
00:20:30 verbose #14384 > > $'System.Collections.Concurrent.ConcurrentStack<`t>'
00:20:31 verbose #14385 > >
00:20:31 verbose #14386 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:31 verbose #14387 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:31 verbose #14388 > > │ ### concurrent_stack_push │
00:20:31 verbose #14389 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:31 verbose #14390 > >
00:20:31 verbose #14391 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:31 verbose #14392 > > inl concurrent_stack_push forall t. (item : t) (stack : concurrent_stack t) : ()
00:20:31 verbose #14393 > > =
00:20:31 verbose #14394 > > $'!stack.Push' item
00:20:32 verbose #14395 > >
00:20:32 verbose #14396 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:32 verbose #14397 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:32 verbose #14398 > > │ ### token_none │
00:20:32 verbose #14399 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:32 verbose #14400 > >
00:20:32 verbose #14401 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:32 verbose #14402 > > inl token_none () : cancellation_token =
00:20:32 verbose #14403 > > $'`cancellation_token.None'
00:20:32 verbose #14404 > >
00:20:32 verbose #14405 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:32 verbose #14406 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:32 verbose #14407 > > │ ### new_concurrent_stack │
00:20:32 verbose #14408 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:32 verbose #14409 > >
00:20:32 verbose #14410 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:32 verbose #14411 > > inl new_concurrent_stack forall t. () : concurrent_stack t =
00:20:32 verbose #14412 > > $'System.Collections.Concurrent.ConcurrentStack<`t>' ()
00:20:33 verbose #14413 > >
00:20:33 verbose #14414 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:33 verbose #14415 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:33 verbose #14416 > > │ ### token_register │
00:20:33 verbose #14417 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:33 verbose #14418 > >
00:20:33 verbose #14419 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:33 verbose #14420 > > inl token_register (fn : () -> ()) (ct : cancellation_token) :
00:20:33 verbose #14421 > > cancellation_token_registration =
00:20:33 verbose #14422 > > fn |> $'!ct.Register'
00:20:34 verbose #14423 > >
00:20:34 verbose #14424 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:34 verbose #14425 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:34 verbose #14426 > > │ ### new_cancellation_token_source │
00:20:34 verbose #14427 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:34 verbose #14428 > >
00:20:34 verbose #14429 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:34 verbose #14430 > > inl new_cancellation_token_source () : cancellation_token_source =
00:20:34 verbose #14431 > > $'new `cancellation_token_source ()'
00:20:34 verbose #14432 > >
00:20:34 verbose #14433 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:34 verbose #14434 > > inl token_cancellation_requested (ct : cancellation_token) : bool =
00:20:34 verbose #14435 > > $'!ct.IsCancellationRequested'
00:20:35 verbose #14436 > >
00:20:35 verbose #14437 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:35 verbose #14438 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:35 verbose #14439 > > │ ### new_disposable_token │
00:20:35 verbose #14440 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:35 verbose #14441 > >
00:20:35 verbose #14442 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:35 verbose #14443 > > inl new_disposable_token (merge_token : optionm'.option' cancellation_token) =
00:20:35 verbose #14444 > > run_target function
00:20:35 verbose #14445 > > | Fsharp (Native) => fun () =>
00:20:35 verbose #14446 > > inl cts = new_cancellation_token_source ()
00:20:35 verbose #14447 > > inl cts =
00:20:35 verbose #14448 > > match merge_token |> optionm'.unbox with
00:20:35 verbose #14449 > > | None => cts
00:20:35 verbose #14450 > > | Some merge_token =>
00:20:35 verbose #14451 > > create_linked_token_source ;[[ cts |>
00:20:35 verbose #14452 > > cancellation_source_token; merge_token ]]
00:20:35 verbose #14453 > > inl disposable : _ () = new_disposable fun () =>
00:20:35 verbose #14454 > > cts |> cancellation_source_cancel
00:20:35 verbose #14455 > > cts |> cancellation_source_token, disposable
00:20:35 verbose #14456 > > | _ => fun () => null ()
00:20:36 verbose #14457 > >
00:20:36 verbose #14458 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:36 verbose #14459 > > //// test
00:20:36 verbose #14460 > >
00:20:36 verbose #14461 > > inl run fn =
00:20:36 verbose #14462 > > inl token, disposable = new_disposable_token (None |> optionm'.box)
00:20:36 verbose #14463 > > disposable |> use |> ignore
00:20:36 verbose #14464 > > fn token
00:20:36 verbose #14465 > > fun () =>
00:20:36 verbose #14466 > > fn token
00:20:36 verbose #14467 > > |> async.new_async
00:20:36 verbose #14468 > > |> async.start
00:20:36 verbose #14469 > >
00:20:36 verbose #14470 > > fun () =>
00:20:36 verbose #14471 > > inl counter = mut 0i32
00:20:36 verbose #14472 > >
00:20:36 verbose #14473 > > inl fn (token : cancellation_token) =
00:20:36 verbose #14474 > > counter <- *counter + (if token |> token_cancellation_requested then 10
00:20:36 verbose #14475 > > else 1)
00:20:36 verbose #14476 > >
00:20:36 verbose #14477 > > join run fn
00:20:36 verbose #14478 > > async.sleep 10 |> async.do
00:20:36 verbose #14479 > > return *counter
00:20:36 verbose #14480 > > |> async.new_async_unit
00:20:36 verbose #14481 > > |> async.run_synchronously
00:20:36 verbose #14482 > > |> _assert_eq 11i32
00:20:38 verbose #14483 > >
00:20:38 verbose #14484 > > ╭─[ 2.27s - stdout ]───────────────────────────────────────────────────────────╮
00:20:38 verbose #14485 > > │ assert_eq / actual: 11 / expected: 11 │
00:20:38 verbose #14486 > > │ │
00:20:38 verbose #14487 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:38 verbose #14488 > >
00:20:38 verbose #14489 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:38 verbose #14490 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:38 verbose #14491 > > │ ## main │
00:20:38 verbose #14492 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:38 verbose #14493 > >
00:20:38 verbose #14494 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:38 verbose #14495 > > inl main () =
00:20:38 verbose #14496 > > types ()
00:20:38 verbose #14497 > > $'let new_disposable_token x = !new_disposable_token x' : ()
00:20:39 verbose #14498 > 00:00:36 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 24502
00:20:39 verbose #14499 > 00:00:36 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:20:41 verbose #14500 > 00:00:38 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/threading.dib.ipynb to html
00:20:41 verbose #14501 > 00:00:38 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:20:41 verbose #14502 > 00:00:38 verbose #7 ! validate(nb)
00:20:43 verbose #14503 > 00:00:40 verbose #8 ! [NbConvertApp] Writing 343376 bytes to c:\home\git\polyglot\lib\spiral\threading.dib.html
00:20:43 verbose #14504 > 00:00:40 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:20:43 verbose #14505 > 00:00:40 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:20:43 verbose #14506 > 00:00:40 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/threading.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/threading.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:20:44 verbose #14507 > 00:00:41 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:20:44 verbose #14508 > 00:00:41 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:20:45 verbose #14509 > 00:00:42 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 25210
00:20:45 debug #14510 runtime.execute_with_options_async / exit_code: 0 / output.Length: 28462
00:20:45 debug #23 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path threading.dib --retries 3
00:20:45 debug #14511 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path benchmark.dib --retries 3",
[||], None, None, true, None)
00:20:45 verbose #14512 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "benchmark.dib", "--retries", "3"])
00:20:45 verbose #14513 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/benchmark.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/benchmark.dib" --output-path "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:20:47 verbose #14514 > >
00:20:47 verbose #14515 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:47 verbose #14516 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:47 verbose #14517 > > │ ## benchmark │
00:20:47 verbose #14518 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:47 verbose #14519 > >
00:20:47 verbose #14520 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:47 verbose #14521 > > //// test
00:20:47 verbose #14522 > >
00:20:47 verbose #14523 > > open testing
00:20:47 verbose #14524 > >
00:20:47 verbose #14525 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:20:47 verbose #14526 > > #r
00:20:47 verbose #14527 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:20:47 verbose #14528 > > otNet.Interactive.Spiral.dll"
00:20:47 verbose #14529 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:20:47 verbose #14530 > > #r
00:20:47 verbose #14531 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:20:47 verbose #14532 > > otNet.Interactive.dll"
00:20:47 verbose #14533 > > open type Microsoft.DotNet.Interactive.Kernel
00:20:52 verbose #14534 > >
00:20:52 verbose #14535 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:52 verbose #14536 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:52 verbose #14537 > > │ ## fsharp │
00:20:52 verbose #14538 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:52 verbose #14539 > >
00:20:52 verbose #14540 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:52 verbose #14541 > > inl gc_collect () =
00:20:52 verbose #14542 > > run_target function
00:20:52 verbose #14543 > > | Fsharp _ => fun () => $'System.GC.Collect' ()
00:20:52 verbose #14544 > > | _ => fun () => ()
00:20:52 verbose #14545 > >
00:20:52 verbose #14546 > > inl printfn x =
00:20:52 verbose #14547 > > console.write_line x
00:20:52 verbose #14548 > >
00:20:52 verbose #14549 > > nominal stopwatch = $'System.Diagnostics.Stopwatch'
00:20:52 verbose #14550 > >
00:20:52 verbose #14551 > > inl stopwatch () : stopwatch =
00:20:52 verbose #14552 > > $'`stopwatch ' ()
00:20:52 verbose #14553 > >
00:20:52 verbose #14554 > > inl stopwatch_elapsed_milliseconds (stopwatch : stopwatch) : i64 =
00:20:52 verbose #14555 > > $'!stopwatch.ElapsedMilliseconds'
00:20:52 verbose #14556 > >
00:20:52 verbose #14557 > > inl stopwatch_start (stopwatch : stopwatch) : () =
00:20:52 verbose #14558 > > $'!stopwatch.Start' ()
00:20:53 verbose #14559 > >
00:20:53 verbose #14560 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:53 verbose #14561 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:53 verbose #14562 > > │ ### test_case_result │
00:20:53 verbose #14563 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:53 verbose #14564 > >
00:20:53 verbose #14565 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:53 verbose #14566 > > type test_case_result =
00:20:53 verbose #14567 > > {
00:20:53 verbose #14568 > > Input : string
00:20:53 verbose #14569 > > Expected : string
00:20:53 verbose #14570 > > Result : string
00:20:53 verbose #14571 > > TimeList : a u64 i64
00:20:53 verbose #14572 > > }
00:20:53 verbose #14573 > >
00:20:53 verbose #14574 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:53 verbose #14575 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:53 verbose #14576 > > │ ### run │
00:20:53 verbose #14577 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:53 verbose #14578 > >
00:20:53 verbose #14579 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:53 verbose #14580 > > inl run forall input expected.
00:20:53 verbose #14581 > > count
00:20:53 verbose #14582 > > (solutions : list (string * (input -> expected)))
00:20:53 verbose #14583 > > ((input, expected) : (input * expected))
00:20:53 verbose #14584 > > : test_case_result
00:20:53 verbose #14585 > > =
00:20:53 verbose #14586 > > inl input_str = input |> sm'.format_debug
00:20:53 verbose #14587 > >
00:20:53 verbose #14588 > > printfn ""
00:20:53 verbose #14589 > > printfn ($'$"Solution: {!input_str} "' : string)
00:20:53 verbose #14590 > >
00:20:53 verbose #14591 > > inl performance_invoke (fn : () -> expected) =
00:20:53 verbose #14592 > > gc_collect ()
00:20:53 verbose #14593 > > inl stopwatch = stopwatch ()
00:20:53 verbose #14594 > > stopwatch |> stopwatch_start
00:20:53 verbose #14595 > > inl time1 = stopwatch |> stopwatch_elapsed_milliseconds
00:20:53 verbose #14596 > > inl result : expected =
00:20:53 verbose #14597 > > am'.init_series 0 count 1i32
00:20:53 verbose #14598 > > |> am'.parallel_map fun _n => fn ()
00:20:53 verbose #14599 > > |> am'.last
00:20:53 verbose #14600 > > inl time2 = (stopwatch |> stopwatch_elapsed_milliseconds) - time1
00:20:53 verbose #14601 > > result, time2
00:20:53 verbose #14602 > >
00:20:53 verbose #14603 > > inl results_with_time : a u64 _ =
00:20:53 verbose #14604 > > solutions
00:20:53 verbose #14605 > > |> listm'.indexed
00:20:53 verbose #14606 > > |> listm.toArray
00:20:53 verbose #14607 > > |> am.map fun ((i : i32), (test_name, solution)) =>
00:20:53 verbose #14608 > > inl result, time = performance_invoke fun () => solution input
00:20:53 verbose #14609 > > printfn ($'$"Test case {!i + 1}. {!test_name}. Time: {!time} "' :
00:20:53 verbose #14610 > > string)
00:20:53 verbose #14611 > > result, time
00:20:53 verbose #14612 > >
00:20:53 verbose #14613 > > match results_with_time |> am.map fst with
00:20:53 verbose #14614 > > | array when length array <= 1 => ()
00:20:53 verbose #14615 > > | array when array |> am.forall' ((=) (index array 0)) => ()
00:20:53 verbose #14616 > > | results => failwith ($'$"Challenge error: {!results}"' : string)
00:20:53 verbose #14617 > >
00:20:53 verbose #14618 > > {
00:20:53 verbose #14619 > > Input = input_str
00:20:53 verbose #14620 > > Expected = expected |> sm'.format_debug
00:20:53 verbose #14621 > > Result = results_with_time |> am.map fst |> fun array => index array 0
00:20:53 verbose #14622 > > |> sm'.format_debug
00:20:53 verbose #14623 > > TimeList = results_with_time |> am.map snd
00:20:53 verbose #14624 > > }
00:20:54 verbose #14625 > >
00:20:54 verbose #14626 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:54 verbose #14627 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:54 verbose #14628 > > │ ### run_all │
00:20:54 verbose #14629 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:54 verbose #14630 > >
00:20:54 verbose #14631 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:54 verbose #14632 > > inl run_all forall input expected.
00:20:54 verbose #14633 > > test_name
00:20:54 verbose #14634 > > count
00:20:54 verbose #14635 > > (solutions : list (string * (input -> expected)))
00:20:54 verbose #14636 > > test_cases
00:20:54 verbose #14637 > > =
00:20:54 verbose #14638 > > printfn ""
00:20:54 verbose #14639 > > printfn ""
00:20:54 verbose #14640 > > printfn ($'$"Test: {!test_name}"' : string)
00:20:54 verbose #14641 > > test_cases
00:20:54 verbose #14642 > > |> listm.toArray
00:20:54 verbose #14643 > > |> am.map (run count solutions)
00:20:55 verbose #14644 > >
00:20:55 verbose #14645 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:55 verbose #14646 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:55 verbose #14647 > > │ ### sort_result_list │
00:20:55 verbose #14648 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:55 verbose #14649 > >
00:20:55 verbose #14650 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:55 verbose #14651 > > inl sort_result_list results =
00:20:55 verbose #14652 > > inl table =
00:20:55 verbose #14653 > > inl rows =
00:20:55 verbose #14654 > > results
00:20:55 verbose #14655 > > |> am.map fun (result : test_case_result) =>
00:20:55 verbose #14656 > > inl best =
00:20:55 verbose #14657 > > result.TimeList
00:20:55 verbose #14658 > > |> am'.indexed
00:20:55 verbose #14659 > > |> am.map fun (i, time) =>
00:20:55 verbose #14660 > > i + 1i64, time
00:20:55 verbose #14661 > > |> am'.sort_by snd
00:20:55 verbose #14662 > > |> fun array => index array 0i32
00:20:55 verbose #14663 > > |> sm'.format_debug
00:20:55 verbose #14664 > > inl row =
00:20:55 verbose #14665 > > [[
00:20:55 verbose #14666 > > result.Input
00:20:55 verbose #14667 > > result.Expected
00:20:55 verbose #14668 > > result.Result
00:20:55 verbose #14669 > > best
00:20:55 verbose #14670 > > ]]
00:20:55 verbose #14671 > > inl color : option console.console_color =
00:20:55 verbose #14672 > > open console
00:20:55 verbose #14673 > > match result.Expected = result.Result with
00:20:55 verbose #14674 > > | true => Some $'`console_color.DarkGreen'
00:20:55 verbose #14675 > > | false => Some $'`console_color.DarkRed'
00:20:55 verbose #14676 > > row, color
00:20:55 verbose #14677 > >
00:20:55 verbose #14678 > > inl header =
00:20:55 verbose #14679 > > [[
00:20:55 verbose #14680 > > [[
00:20:55 verbose #14681 > > "Input"
00:20:55 verbose #14682 > > "Expected"
00:20:55 verbose #14683 > > "Result"
00:20:55 verbose #14684 > > "Best"
00:20:55 verbose #14685 > > ]]
00:20:55 verbose #14686 > > [[
00:20:55 verbose #14687 > > "---"
00:20:55 verbose #14688 > > "---"
00:20:55 verbose #14689 > > "---"
00:20:55 verbose #14690 > > "---"
00:20:55 verbose #14691 > > ]]
00:20:55 verbose #14692 > > ]]
00:20:55 verbose #14693 > > |> listm.map fun row => row, None
00:20:55 verbose #14694 > > |> listm.toArray
00:20:55 verbose #14695 > > rows |> am.append header
00:20:55 verbose #14696 > >
00:20:55 verbose #14697 > > inl formattedTable =
00:20:55 verbose #14698 > > inl lengthMap : mapm.map i32 i64 =
00:20:55 verbose #14699 > > table
00:20:55 verbose #14700 > > |> am.map (fst >> listm.toArray)
00:20:55 verbose #14701 > > |> am'.transpose
00:20:55 verbose #14702 > > |> am.map fun column =>
00:20:55 verbose #14703 > > column
00:20:55 verbose #14704 > > |> am.map sm.length
00:20:55 verbose #14705 > > |> am'.sort_descending
00:20:55 verbose #14706 > > |> am'.try_item 0i32
00:20:55 verbose #14707 > > |> optionm'.default_value 0i64
00:20:55 verbose #14708 > > |> am'.indexed
00:20:55 verbose #14709 > > |> fun (x : a i32 _) => x
00:20:55 verbose #14710 > > |> mapm.of_array
00:20:55 verbose #14711 > > table
00:20:55 verbose #14712 > > |> am.map fun (row, color) =>
00:20:55 verbose #14713 > > inl newRow =
00:20:55 verbose #14714 > > row
00:20:55 verbose #14715 > > |> listm'.indexed
00:20:55 verbose #14716 > > |> listm.map fun (i, cell) =>
00:20:55 verbose #14717 > > cell |> sm'.pad_right (lengthMap |> mapm.item i |> conv) ' '
00:20:55 verbose #14718 > > |> listm.toArray
00:20:55 verbose #14719 > > newRow, color
00:20:55 verbose #14720 > >
00:20:55 verbose #14721 > > printfn ""
00:20:55 verbose #14722 > > formattedTable
00:20:55 verbose #14723 > > |> am.iter fun ((row : a i32 string), color) =>
00:20:55 verbose #14724 > > match color with
00:20:55 verbose #14725 > > | Some color => color |> console.set_foreground_color
00:20:55 verbose #14726 > > | None => console.reset_color ()
00:20:55 verbose #14727 > >
00:20:55 verbose #14728 > > printfn (row |> sm'.join' "\t| ")
00:20:55 verbose #14729 > >
00:20:55 verbose #14730 > > console.reset_color ()
00:20:55 verbose #14731 > >
00:20:55 verbose #14732 > > inl averages : a u64 _ =
00:20:55 verbose #14733 > > results
00:20:55 verbose #14734 > > |> am.map fun result =>
00:20:55 verbose #14735 > > result.TimeList
00:20:55 verbose #14736 > > |> am.map ($'float' : i64 -> f64)
00:20:55 verbose #14737 > > |> am'.transpose
00:20:55 verbose #14738 > > |> am.map am'.average
00:20:55 verbose #14739 > > |> am.map ($'int64' : f64 -> i64)
00:20:55 verbose #14740 > > |> am'.indexed
00:20:55 verbose #14741 > >
00:20:55 verbose #14742 > > printfn ""
00:20:55 verbose #14743 > > printfn "Average Ranking "
00:20:55 verbose #14744 > > averages
00:20:55 verbose #14745 > > |> am'.sort_by snd
00:20:55 verbose #14746 > > |> am.iter fun ((i : i32), avg) =>
00:20:55 verbose #14747 > > printfn ($'$"Test case %d{!i + 1}. Average Time: %A{!avg} "' : string)
00:20:55 verbose #14748 > >
00:20:55 verbose #14749 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:55 verbose #14750 > > //// test
00:20:55 verbose #14751 > >
00:20:55 verbose #14752 > > inl is_fast () =
00:20:55 verbose #14753 > > false
00:20:56 verbose #14754 > >
00:20:56 verbose #14755 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:56 verbose #14756 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:56 verbose #14757 > > │ ### empty2Tests │
00:20:56 verbose #14758 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:56 verbose #14759 > >
00:20:56 verbose #14760 > > ── markdown ────────────────────────────────────────────────────────────────────
00:20:56 verbose #14761 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:20:56 verbose #14762 > > │ Test: Empty2 │
00:20:56 verbose #14763 > > │ │
00:20:56 verbose #14764 > > │ Solution: (a, a) │
00:20:56 verbose #14765 > > │ Test case 1. A. Time: 59L │
00:20:56 verbose #14766 > > │ │
00:20:56 verbose #14767 > > │ Solution: (a, a) │
00:20:56 verbose #14768 > > │ Test case 1. A. Time: 53L │
00:20:56 verbose #14769 > > │ │
00:20:56 verbose #14770 > > │ Input | Expected | Result | Best │
00:20:56 verbose #14771 > > │ --- | --- | --- | --- │
00:20:56 verbose #14772 > > │ (a, a) | a | a | (1, 59) │
00:20:56 verbose #14773 > > │ (a, a) | a | a | (1, 53) │
00:20:56 verbose #14774 > > │ │
00:20:56 verbose #14775 > > │ Averages │
00:20:56 verbose #14776 > > │ Test case 1. Average Time: 56L │
00:20:56 verbose #14777 > > │ │
00:20:56 verbose #14778 > > │ Ranking │
00:20:56 verbose #14779 > > │ Test case 1. Average Time: 56L │
00:20:56 verbose #14780 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:20:56 verbose #14781 > >
00:20:56 verbose #14782 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:20:56 verbose #14783 > > //// test
00:20:56 verbose #14784 > >
00:20:56 verbose #14785 > > inl get_solutions () =
00:20:56 verbose #14786 > > [[
00:20:56 verbose #14787 > > "A",
00:20:56 verbose #14788 > > fun (a, _b) =>
00:20:56 verbose #14789 > > a
00:20:56 verbose #14790 > >
00:20:56 verbose #14791 > > "B",
00:20:56 verbose #14792 > > fun (_a, b) =>
00:20:56 verbose #14793 > > b
00:20:56 verbose #14794 > > ]]
00:20:56 verbose #14795 > >
00:20:56 verbose #14796 > > inl rec empty_2_tests () =
00:20:56 verbose #14797 > > inl test_cases = [[
00:20:56 verbose #14798 > > ("a", "a"), "a"
00:20:56 verbose #14799 > > ("b", "b"), "b"
00:20:56 verbose #14800 > > ]]
00:20:56 verbose #14801 > >
00:20:56 verbose #14802 > > inl solutions = get_solutions ()
00:20:56 verbose #14803 > >
00:20:56 verbose #14804 > > // inl is_fast () = true
00:20:56 verbose #14805 > >
00:20:56 verbose #14806 > > inl count =
00:20:56 verbose #14807 > > if is_fast ()
00:20:56 verbose #14808 > > then 1000i32
00:20:56 verbose #14809 > > else 2000000i32
00:20:56 verbose #14810 > >
00:20:56 verbose #14811 > > run_all (nameof empty_2_tests) count solutions test_cases
00:20:56 verbose #14812 > > |> sort_result_list
00:20:56 verbose #14813 > >
00:20:56 verbose #14814 > > empty_2_tests ()
00:21:05 verbose #14815 > >
00:21:05 verbose #14816 > > ╭─[ 9.19s - stdout ]───────────────────────────────────────────────────────────╮
00:21:05 verbose #14817 > > │ │
00:21:05 verbose #14818 > > │ │
00:21:05 verbose #14819 > > │ Test: v0 │
00:21:05 verbose #14820 > > │ │
00:21:05 verbose #14821 > > │ Solution: struct ("a", "a") │
00:21:05 verbose #14822 > > │ Test case 1. A. Time: 112 │
00:21:05 verbose #14823 > > │ Test case 2. B. Time: 92 │
00:21:05 verbose #14824 > > │ │
00:21:05 verbose #14825 > > │ Solution: struct ("b", "b") │
00:21:05 verbose #14826 > > │ Test case 1. A. Time: 111 │
00:21:05 verbose #14827 > > │ Test case 2. B. Time: 111 │
00:21:05 verbose #14828 > > │ │
00:21:05 verbose #14829 > > │ Input | Expected | Result | Best │
00:21:05 verbose #14830 > > │ --- | --- | --- | --- │
00:21:05 verbose #14831 > > │ struct ("a", "a") | "a" | "a" | struct (2L, 92L) │
00:21:05 verbose #14832 > > │ struct ("b", "b") | "b" | "b" | struct (1L, 111L) │
00:21:05 verbose #14833 > > │ │
00:21:05 verbose #14834 > > │ Average Ranking │
00:21:05 verbose #14835 > > │ Test case 2. Average Time: 101L │
00:21:05 verbose #14836 > > │ Test case 1. Average Time: 111L │
00:21:05 verbose #14837 > > │ │
00:21:05 verbose #14838 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:21:05 verbose #14839 > >
00:21:05 verbose #14840 > > ── markdown ────────────────────────────────────────────────────────────────────
00:21:05 verbose #14841 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:21:05 verbose #14842 > > │ ### emptyTests │
00:21:05 verbose #14843 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:21:05 verbose #14844 > >
00:21:05 verbose #14845 > > ── markdown ────────────────────────────────────────────────────────────────────
00:21:05 verbose #14846 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:21:05 verbose #14847 > > │ Test: Empty │
00:21:05 verbose #14848 > > │ │
00:21:05 verbose #14849 > > │ Solution: 0 │
00:21:05 verbose #14850 > > │ Test case 1. A. Time: 61L │
00:21:05 verbose #14851 > > │ │
00:21:05 verbose #14852 > > │ Solution: 2 │
00:21:05 verbose #14853 > > │ Test case 1. A. Time: 62L │
00:21:05 verbose #14854 > > │ │
00:21:05 verbose #14855 > > │ Solution: 5 │
00:21:05 verbose #14856 > > │ Test case 1. A. Time: 70L │
00:21:05 verbose #14857 > > │ │
00:21:05 verbose #14858 > > │ Input | Expected | Result | Best │
00:21:05 verbose #14859 > > │ --- | --- | --- | --- │
00:21:05 verbose #14860 > > │ 0 | 0 | 0 | (1, 61) │
00:21:05 verbose #14861 > > │ 2 | 2 | 2 | (1, 62) │
00:21:05 verbose #14862 > > │ 5 | 5 | 5 | (1, 70) │
00:21:05 verbose #14863 > > │ │
00:21:05 verbose #14864 > > │ Averages │
00:21:05 verbose #14865 > > │ Test case 1. Average Time: 64L │
00:21:05 verbose #14866 > > │ │
00:21:05 verbose #14867 > > │ Ranking │
00:21:05 verbose #14868 > > │ Test case 1. Average Time: 64L │
00:21:05 verbose #14869 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:21:05 verbose #14870 > >
00:21:05 verbose #14871 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:21:05 verbose #14872 > > //// test
00:21:05 verbose #14873 > >
00:21:05 verbose #14874 > > inl get_solutions () =
00:21:05 verbose #14875 > > [[
00:21:05 verbose #14876 > > "A",
00:21:05 verbose #14877 > > fun n =>
00:21:05 verbose #14878 > > n + 1f64
00:21:05 verbose #14879 > > ]]
00:21:05 verbose #14880 > >
00:21:05 verbose #14881 > > inl rec empty_1_tests () =
00:21:05 verbose #14882 > > inl test_cases = [[
00:21:05 verbose #14883 > > 0, 1
00:21:05 verbose #14884 > > 2, 3
00:21:05 verbose #14885 > > 5, 6
00:21:05 verbose #14886 > > ]]
00:21:05 verbose #14887 > >
00:21:05 verbose #14888 > > inl solutions = get_solutions ()
00:21:05 verbose #14889 > >
00:21:05 verbose #14890 > > // inl is_fast () = true
00:21:05 verbose #14891 > >
00:21:05 verbose #14892 > > inl count =
00:21:05 verbose #14893 > > if is_fast ()
00:21:05 verbose #14894 > > then 1000i32
00:21:05 verbose #14895 > > else 2000000i32
00:21:05 verbose #14896 > >
00:21:05 verbose #14897 > > run_all (nameof empty_1_tests) count solutions test_cases
00:21:05 verbose #14898 > > |> sort_result_list
00:21:05 verbose #14899 > >
00:21:05 verbose #14900 > > empty_1_tests ()
00:21:11 verbose #14901 > >
00:21:11 verbose #14902 > > ╭─[ 6.05s - stdout ]───────────────────────────────────────────────────────────╮
00:21:11 verbose #14903 > > │ │
00:21:11 verbose #14904 > > │ │
00:21:11 verbose #14905 > > │ Test: v0 │
00:21:11 verbose #14906 > > │ │
00:21:11 verbose #14907 > > │ Solution: 0.0 │
00:21:11 verbose #14908 > > │ Test case 1. A. Time: 24 │
00:21:11 verbose #14909 > > │ │
00:21:11 verbose #14910 > > │ Solution: 2.0 │
00:21:11 verbose #14911 > > │ Test case 1. A. Time: 11 │
00:21:11 verbose #14912 > > │ │
00:21:11 verbose #14913 > > │ Solution: 5.0 │
00:21:11 verbose #14914 > > │ Test case 1. A. Time: 11 │
00:21:11 verbose #14915 > > │ │
00:21:11 verbose #14916 > > │ Input | Expected | Result | Best │
00:21:11 verbose #14917 > > │ --- | --- | --- | --- │
00:21:11 verbose #14918 > > │ 0.0 | 1.0 | 1.0 | struct (1L, 24L) │
00:21:11 verbose #14919 > > │ 2.0 | 3.0 | 3.0 | struct (1L, 11L) │
00:21:11 verbose #14920 > > │ 5.0 | 6.0 | 6.0 | struct (1L, 11L) │
00:21:11 verbose #14921 > > │ │
00:21:11 verbose #14922 > > │ Average Ranking │
00:21:11 verbose #14923 > > │ Test case 1. Average Time: 15L │
00:21:11 verbose #14924 > > │ │
00:21:11 verbose #14925 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:21:12 verbose #14926 > 00:00:26 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 17802
00:21:12 verbose #14927 > 00:00:26 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:21:14 verbose #14928 > 00:00:29 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb to html
00:21:14 verbose #14929 > 00:00:29 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:21:14 verbose #14930 > 00:00:29 verbose #7 ! validate(nb)
00:21:16 verbose #14931 > 00:00:31 verbose #8 ! [NbConvertApp] Writing 310572 bytes to c:\home\git\polyglot\lib\spiral\benchmark.dib.html
00:21:17 verbose #14932 > 00:00:31 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:21:17 verbose #14933 > 00:00:31 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:21:17 verbose #14934 > 00:00:31 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/benchmark.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/benchmark.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:21:18 verbose #14935 > 00:00:33 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:21:18 verbose #14936 > 00:00:33 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:21:19 verbose #14937 > 00:00:34 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 18510
00:21:19 debug #14938 runtime.execute_with_options_async / exit_code: 0 / output.Length: 21618
00:21:19 debug #24 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path benchmark.dib --retries 3
00:21:19 debug #14939 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path physics.dib --retries 3",
[||], None, None, true, None)
00:21:19 verbose #14940 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "physics.dib", "--retries", "3"])
00:21:19 verbose #14941 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/physics.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/physics.dib" --output-path "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:21:24 verbose #14942 > >
00:21:24 verbose #14943 > > ── markdown ────────────────────────────────────────────────────────────────────
00:21:24 verbose #14944 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:21:24 verbose #14945 > > │ # physics │
00:21:24 verbose #14946 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:21:24 verbose #14947 > >
00:21:24 verbose #14948 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:21:24 verbose #14949 > > #!import ../../lib/fsharp/Plotting.dib
00:21:24 verbose #14950 > >
00:21:24 verbose #14951 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:24 verbose #14952 > > #r
00:21:24 verbose #14953 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:21:24 verbose #14954 > > spNetCore.Html.Abstractions.dll"
00:21:24 verbose #14955 > > #r
00:21:24 verbose #14956 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:21:24 verbose #14957 > > otNet.Interactive.dll"
00:21:24 verbose #14958 > > #r
00:21:24 verbose #14959 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:21:24 verbose #14960 > > otNet.Interactive.FSharp.dll"
00:21:24 verbose #14961 > > #r
00:21:24 verbose #14962 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:21:24 verbose #14963 > > otNet.Interactive.Formatting.dll"
00:21:24 verbose #14964 > > open System
00:21:24 verbose #14965 > > open System.IO
00:21:24 verbose #14966 > > open System.Text
00:21:24 verbose #14967 > > open Microsoft.DotNet.Interactive.Formatting
00:21:29 verbose #14968 > >
00:21:29 verbose #14969 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:29 verbose #14970 > > #r
00:21:29 verbose #14971 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:21:29 verbose #14972 > > otNet.Interactive.FSharp.dll"
00:21:29 verbose #14973 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:21:29 verbose #14974 > > #r
00:21:29 verbose #14975 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:21:29 verbose #14976 > > otNet.Interactive.dll"
00:21:29 verbose #14977 > > open type Microsoft.DotNet.Interactive.Kernel
00:21:29 verbose #14978 > >
00:21:29 verbose #14979 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:29 verbose #14980 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:21:30 verbose #14981 > >
00:21:30 verbose #14982 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:30 verbose #14983 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:21:30 verbose #14984 > > TextWriter)->fprintfn writer "%120A" x)
00:21:30 verbose #14985 > >
00:21:30 verbose #14986 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:30 verbose #14987 > > #r
00:21:30 verbose #14988 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:21:30 verbose #14989 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:21:30 verbose #14990 > > #r
00:21:30 verbose #14991 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:21:30 verbose #14992 > > 0/System.Reactive.dll"
00:21:30 verbose #14993 > > #r
00:21:30 verbose #14994 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:21:30 verbose #14995 > > netstandard2.0/System.Reactive.Linq.dll"
00:21:30 verbose #14996 > > #r
00:21:30 verbose #14997 > > @"../../../../../../../.nuget/packages/argu/6.2.4/lib/netstandard2.0/Argu.dll"
00:21:30 verbose #14998 > > #r
00:21:30 verbose #14999 > > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
00:21:30 verbose #15000 > > rp.Json.dll"
00:21:30 verbose #15001 > >
00:21:30 verbose #15002 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:30 verbose #15003 > > //// test
00:21:30 verbose #15004 > >
00:21:30 verbose #15005 > > Formatter.ListExpansionLimit <- 100
00:21:30 verbose #15006 > >
00:21:30 verbose #15007 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:30 verbose #15008 > > #if FABLE_COMPILER
00:21:30 verbose #15009 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:21:30 verbose #15010 > > #endif
00:21:30 verbose #15011 > > type std_env_VarError = class end
00:21:30 verbose #15012 > > #if FABLE_COMPILER
00:21:30 verbose #15013 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:21:30 verbose #15014 > > #endif
00:21:30 verbose #15015 > > type core_any_Any = class end
00:21:30 verbose #15016 > > #if FABLE_COMPILER
00:21:30 verbose #15017 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:21:30 verbose #15018 > > #endif
00:21:30 verbose #15019 > > type core_ops_Try<'T> = class end
00:21:30 verbose #15020 > > #if FABLE_COMPILER
00:21:30 verbose #15021 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:21:30 verbose #15022 > > #endif
00:21:30 verbose #15023 > > type Func0<'T> = class end
00:21:30 verbose #15024 > > #if FABLE_COMPILER
00:21:30 verbose #15025 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:21:30 verbose #15026 > > #endif
00:21:30 verbose #15027 > > type Func0<'T, 'U> = class end
00:21:30 verbose #15028 > > #if FABLE_COMPILER
00:21:30 verbose #15029 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:21:30 verbose #15030 > > #endif
00:21:30 verbose #15031 > > type Box<'T> = class end
00:21:30 verbose #15032 > > #if FABLE_COMPILER
00:21:30 verbose #15033 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:21:30 verbose #15034 > > #endif
00:21:30 verbose #15035 > > type Dyn<'T> = class end
00:21:30 verbose #15036 > > #if FABLE_COMPILER
00:21:30 verbose #15037 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:21:30 verbose #15038 > > #endif
00:21:30 verbose #15039 > > type Send<'T> = class end
00:21:30 verbose #15040 > > #if FABLE_COMPILER
00:21:30 verbose #15041 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:21:30 verbose #15042 > > #endif
00:21:30 verbose #15043 > > type Fn<'T> = class end
00:21:30 verbose #15044 > > #if FABLE_COMPILER
00:21:30 verbose #15045 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:21:30 verbose #15046 > > #endif
00:21:30 verbose #15047 > > type FnUnit = class end
00:21:30 verbose #15048 > > #if FABLE_COMPILER
00:21:30 verbose #15049 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:21:30 verbose #15050 > > #endif
00:21:30 verbose #15051 > > type FnOnce<'T> = class end
00:21:30 verbose #15052 > > #if FABLE_COMPILER
00:21:30 verbose #15053 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:21:30 verbose #15054 > > #endif
00:21:30 verbose #15055 > > type ActionFn<'T> = class end
00:21:30 verbose #15056 > > #if FABLE_COMPILER
00:21:30 verbose #15057 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:21:30 verbose #15058 > > #endif
00:21:30 verbose #15059 > > type ActionFn2<'T, 'U> = class end
00:21:30 verbose #15060 > > #if FABLE_COMPILER
00:21:30 verbose #15061 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:21:30 verbose #15062 > > #endif
00:21:30 verbose #15063 > > type Impl<'T> = class end
00:21:30 verbose #15064 > > #if FABLE_COMPILER
00:21:30 verbose #15065 > > [[<Fabl...2, v3, v4)
00:21:30 verbose #15066 > > US5_1
00:21:30 verbose #15067 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:21:30 verbose #15068 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:21:30 verbose #15069 > > let v4 : (US4 -> US5) = closure6()
00:21:30 verbose #15070 > > let v5 : (exn -> US5) = closure7(v2)
00:21:30 verbose #15071 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:21:30 verbose #15072 > > match v6 with
00:21:30 verbose #15073 > > | US5_1 -> (* None *)
00:21:30 verbose #15074 > > let v8 : int32 = v2 + 1
00:21:30 verbose #15075 > > method6(v0, v1, v8)
00:21:30 verbose #15076 > > | US5_0(v7) -> (* Some *)
00:21:30 verbose #15077 > > v7
00:21:30 verbose #15078 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:21:30 verbose #15079 > > let v2 : int32 = 0
00:21:30 verbose #15080 > > let v3 : US4 = method6(v0, v1, v2)
00:21:30 verbose #15081 > > match v3 with
00:21:30 verbose #15082 > > | US4_1 -> (* None *)
00:21:30 verbose #15083 > > let v5 : unit option = None
00:21:30 verbose #15084 > > v5
00:21:30 verbose #15085 > > | US4_0 -> (* Some *)
00:21:30 verbose #15086 > > let v4 : unit option = Some ()
00:21:30 verbose #15087 > > v4
00:21:30 verbose #15088 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:21:30 verbose #15089 > > closure4(v0)
00:21:30 verbose #15090 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:21:30 verbose #15091 > > v0
00:21:30 verbose #15092 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:21:30 verbose #15093 > > v0.Value
00:21:30 verbose #15094 > > ()
00:21:30 verbose #15095 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:21:30 verbose #15096 > > let v1 : (unit -> unit) = method12(v0)
00:21:30 verbose #15097 > > let v2 : Lazy<unit> = lazy v1 ()
00:21:30 verbose #15098 > > closure13(v2)
00:21:30 verbose #15099 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:21:30 verbose #15100 > > let v1 : US0 = US0_0
00:21:30 verbose #15101 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:21:30 verbose #15102 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:21:30 verbose #15103 > > let new_disposable x = v2 x
00:21:30 verbose #15104 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:21:30 verbose #15105 > > let retry_fn x = v3 x
00:21:30 verbose #15106 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:21:30 verbose #15107 > > let memoize x = v4 x
00:21:30 verbose #15108 > > ()
00:21:30 verbose #15109 > >
00:21:33 verbose #15110 > >
00:21:33 verbose #15111 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:33 verbose #15112 > > #if FABLE_COMPILER
00:21:33 verbose #15113 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:21:33 verbose #15114 > > #endif
00:21:33 verbose #15115 > > type core_any_Any = class end
00:21:33 verbose #15116 > > #if FABLE_COMPILER
00:21:33 verbose #15117 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:21:33 verbose #15118 > > #endif
00:21:33 verbose #15119 > > type core_ops_Try<'T> = class end
00:21:33 verbose #15120 > > #if FABLE_COMPILER
00:21:33 verbose #15121 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:21:33 verbose #15122 > > #endif
00:21:33 verbose #15123 > > type Func0<'T> = class end
00:21:33 verbose #15124 > > #if FABLE_COMPILER
00:21:33 verbose #15125 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:21:33 verbose #15126 > > #endif
00:21:33 verbose #15127 > > type Func0<'T, 'U> = class end
00:21:33 verbose #15128 > > #if FABLE_COMPILER
00:21:33 verbose #15129 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:21:33 verbose #15130 > > #endif
00:21:33 verbose #15131 > > type Box<'T> = class end
00:21:33 verbose #15132 > > #if FABLE_COMPILER
00:21:33 verbose #15133 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:21:33 verbose #15134 > > #endif
00:21:33 verbose #15135 > > type Dyn<'T> = class end
00:21:33 verbose #15136 > > #if FABLE_COMPILER
00:21:33 verbose #15137 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:21:33 verbose #15138 > > #endif
00:21:33 verbose #15139 > > type Send<'T> = class end
00:21:33 verbose #15140 > > #if FABLE_COMPILER
00:21:33 verbose #15141 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:21:33 verbose #15142 > > #endif
00:21:33 verbose #15143 > > type Fn<'T> = class end
00:21:33 verbose #15144 > > #if FABLE_COMPILER
00:21:33 verbose #15145 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:21:33 verbose #15146 > > #endif
00:21:33 verbose #15147 > > type FnUnit = class end
00:21:33 verbose #15148 > > #if FABLE_COMPILER
00:21:33 verbose #15149 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:21:33 verbose #15150 > > #endif
00:21:33 verbose #15151 > > type FnOnce<'T> = class end
00:21:33 verbose #15152 > > #if FABLE_COMPILER
00:21:33 verbose #15153 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:21:33 verbose #15154 > > #endif
00:21:33 verbose #15155 > > type ActionFn<'T> = class end
00:21:33 verbose #15156 > > #if FABLE_COMPILER
00:21:33 verbose #15157 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:21:33 verbose #15158 > > #endif
00:21:33 verbose #15159 > > type ActionFn2<'T, 'U> = class end
00:21:33 verbose #15160 > > #if FABLE_COMPILER
00:21:33 verbose #15161 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:21:33 verbose #15162 > > #endif
00:21:33 verbose #15163 > > type Impl<'T> = class end
00:21:33 verbose #15164 > > #if FABLE_COMPILER
00:21:33 verbose #15165 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:21:33 verbose #15166 > > #endif
00:21:33 verbose #15167 > > type Mut<'T> = class end
00:21:33 verbose #15168 > > #if FABLE_COMPILER
00:21:33 verbose #15169 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:21:33 verbose #15170 > > let replace x = v4 x
00:21:33 verbose #15171 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:21:33 verbose #15172 > > let replace_regex x = v5 x
00:21:33 verbose #15173 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:21:33 verbose #15174 > > let slice x = v6 x
00:21:33 verbose #15175 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:21:33 verbose #15176 > > let split x = v7 x
00:21:33 verbose #15177 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:21:33 verbose #15178 > > let split_string x = v8 x
00:21:33 verbose #15179 > > let v9 : (string -> (string -> bool)) = closure23()
00:21:33 verbose #15180 > > let starts_with x = v9 x
00:21:33 verbose #15181 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:21:33 verbose #15182 > > let substring x = v10 x
00:21:33 verbose #15183 > > let v11 : (string -> string) = closure28()
00:21:33 verbose #15184 > > let to_lower x = v11 x
00:21:33 verbose #15185 > > let v12 : (string -> string) = closure29()
00:21:33 verbose #15186 > > let to_upper x = v12 x
00:21:33 verbose #15187 > > let v13 : (string -> string) = closure30()
00:21:33 verbose #15188 > > let trim x = v13 x
00:21:33 verbose #15189 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:21:33 verbose #15190 > > let trim_end x = v14 x
00:21:33 verbose #15191 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:21:33 verbose #15192 > > let trim_start x = v15 x
00:21:33 verbose #15193 > > let v16 : (int32 -> (string -> string)) = closure35()
00:21:33 verbose #15194 > > let ellipsis x = v16 x
00:21:33 verbose #15195 > > let v17 : (int64 -> (string -> string)) = closure37()
00:21:33 verbose #15196 > > let ellipsis_end x = v17 x
00:21:33 verbose #15197 > > let v18 : (exn -> string) = closure39()
00:21:33 verbose #15198 > > let format_exception x = v18 x
00:21:33 verbose #15199 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:21:33 verbose #15200 > > let concat_array_trailing x = v19 x
00:21:33 verbose #15201 > > let v20 : (string -> (string seq -> string)) = closure42()
00:21:33 verbose #15202 > > let concat x = v20 x
00:21:33 verbose #15203 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:21:33 verbose #15204 > > let join' x = v21 x
00:21:33 verbose #15205 > > let v22 : (string -> (char [[]])) = closure46()
00:21:33 verbose #15206 > > let to_char_array x = v22 x
00:21:33 verbose #15207 > > ()
00:21:33 verbose #15208 > >
00:21:34 verbose #15209 > >
00:21:34 verbose #15210 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:34 verbose #15211 > > #if FABLE_COMPILER
00:21:34 verbose #15212 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:21:34 verbose #15213 > > #endif
00:21:34 verbose #15214 > > type core_any_Any = class end
00:21:34 verbose #15215 > > #if FABLE_COMPILER
00:21:34 verbose #15216 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:21:34 verbose #15217 > > #endif
00:21:34 verbose #15218 > > type core_ops_Try<'T> = class end
00:21:34 verbose #15219 > > #if FABLE_COMPILER
00:21:34 verbose #15220 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:21:34 verbose #15221 > > #endif
00:21:34 verbose #15222 > > type Func0<'T> = class end
00:21:34 verbose #15223 > > #if FABLE_COMPILER
00:21:34 verbose #15224 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:21:34 verbose #15225 > > #endif
00:21:34 verbose #15226 > > type Func0<'T, 'U> = class end
00:21:34 verbose #15227 > > #if FABLE_COMPILER
00:21:34 verbose #15228 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:21:34 verbose #15229 > > #endif
00:21:34 verbose #15230 > > type Box<'T> = class end
00:21:34 verbose #15231 > > #if FABLE_COMPILER
00:21:34 verbose #15232 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:21:34 verbose #15233 > > #endif
00:21:34 verbose #15234 > > type Dyn<'T> = class end
00:21:34 verbose #15235 > > #if FABLE_COMPILER
00:21:34 verbose #15236 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:21:34 verbose #15237 > > #endif
00:21:34 verbose #15238 > > type Send<'T> = class end
00:21:34 verbose #15239 > > #if FABLE_COMPILER
00:21:34 verbose #15240 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:21:34 verbose #15241 > > #endif
00:21:34 verbose #15242 > > type Fn<'T> = class end
00:21:34 verbose #15243 > > #if FABLE_COMPILER
00:21:34 verbose #15244 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:21:34 verbose #15245 > > #endif
00:21:34 verbose #15246 > > type FnUnit = class end
00:21:34 verbose #15247 > > #if FABLE_COMPILER
00:21:34 verbose #15248 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:21:34 verbose #15249 > > #endif
00:21:34 verbose #15250 > > type FnOnce<'T> = class end
00:21:34 verbose #15251 > > #if FABLE_COMPILER
00:21:34 verbose #15252 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:21:34 verbose #15253 > > #endif
00:21:34 verbose #15254 > > type ActionFn<'T> = class end
00:21:34 verbose #15255 > > #if FABLE_COMPILER
00:21:34 verbose #15256 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:21:34 verbose #15257 > > #endif
00:21:34 verbose #15258 > > type ActionFn2<'T, 'U> = class end
00:21:34 verbose #15259 > > #if FABLE_COMPILER
00:21:34 verbose #15260 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:21:34 verbose #15261 > > #endif
00:21:34 verbose #15262 > > type Impl<'T> = class end
00:21:34 verbose #15263 > > #if FABLE_COMPILER
00:21:34 verbose #15264 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:21:34 verbose #15265 > > #endif
00:21:34 verbose #15266 > > type Mut<'T> = class end
00:21:34 verbose #15267 > > #if FABLE_COMPILER
00:21:34 verbose #15268 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:21:34 verbose #15269 > > ()
00:21:34 verbose #15270 > > #endif
00:21:34 verbose #15271 > > #if FABLE_COMPILER_RUST && CONTRACT
00:21:34 verbose #15272 > > let v28 : string = @"println!(""{}"", $0)"
00:21:34 verbose #15273 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:21:34 verbose #15274 > > ()
00:21:34 verbose #15275 > > #endif
00:21:34 verbose #15276 > > #if FABLE_COMPILER_TYPESCRIPT
00:21:34 verbose #15277 > > System.Console.WriteLine v24
00:21:34 verbose #15278 > > ()
00:21:34 verbose #15279 > > #endif
00:21:34 verbose #15280 > > #if FABLE_COMPILER_PYTHON
00:21:34 verbose #15281 > > System.Console.WriteLine v24
00:21:34 verbose #15282 > > ()
00:21:34 verbose #15283 > > #endif
00:21:34 verbose #15284 > > #else
00:21:34 verbose #15285 > > System.Console.WriteLine v24
00:21:34 verbose #15286 > > ()
00:21:34 verbose #15287 > > #endif
00:21:34 verbose #15288 > > |> fun x -> _v25 <- Some x
00:21:34 verbose #15289 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:21:34 verbose #15290 > > _v25=None"
00:21:34 verbose #15291 > > let v29 : (string -> unit) = v8.l0
00:21:34 verbose #15292 > > v29 v24
00:21:34 verbose #15293 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:21:34 verbose #15294 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:21:34 verbose #15295 > > method11(v0, v3)
00:21:34 verbose #15296 > > and closure1 () (v0 : string) : uint16 =
00:21:34 verbose #15297 > > let v1 : char = v0.[[int 0]]
00:21:34 verbose #15298 > > let v2 : (char -> int32) = int32
00:21:34 verbose #15299 > > let v3 : int32 = v2 v1
00:21:34 verbose #15300 > > let v4 : string = v0.[[int 0..int 7]]
00:21:34 verbose #15301 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:21:34 verbose #15302 > > let v6 : int32 = v5 + v3
00:21:34 verbose #15303 > > let v7 : (int32 -> uint16) = uint16
00:21:34 verbose #15304 > > let v8 : uint16 = v7 v6
00:21:34 verbose #15305 > > let v9 : US0 = US0_0
00:21:34 verbose #15306 > > let v10 : (unit -> string) = closure2()
00:21:34 verbose #15307 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:21:34 verbose #15308 > > method3(v9, v10, v11)
00:21:34 verbose #15309 > > let v12 : uint16 = v8 % 48128us
00:21:34 verbose #15310 > > let v13 : uint16 = v12 + 1024us
00:21:34 verbose #15311 > > v13
00:21:34 verbose #15312 > > let v0 : (string -> string) = closure0()
00:21:34 verbose #15313 > > let hash_text x = v0 x
00:21:34 verbose #15314 > > let v1 : (string -> uint16) = closure1()
00:21:34 verbose #15315 > > let hash_to_port x = v1 x
00:21:34 verbose #15316 > > ()
00:21:34 verbose #15317 > >
00:21:36 verbose #15318 > >
00:21:36 verbose #15319 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:36 verbose #15320 > > #if FABLE_COMPILER
00:21:36 verbose #15321 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:21:36 verbose #15322 > > #endif
00:21:36 verbose #15323 > > type core_any_Any = class end
00:21:36 verbose #15324 > > #if FABLE_COMPILER
00:21:36 verbose #15325 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:21:36 verbose #15326 > > #endif
00:21:36 verbose #15327 > > type core_ops_Try<'T> = class end
00:21:36 verbose #15328 > > #if FABLE_COMPILER
00:21:36 verbose #15329 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:21:36 verbose #15330 > > #endif
00:21:36 verbose #15331 > > type Func0<'T> = class end
00:21:36 verbose #15332 > > #if FABLE_COMPILER
00:21:36 verbose #15333 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:21:36 verbose #15334 > > #endif
00:21:36 verbose #15335 > > type Func0<'T, 'U> = class end
00:21:36 verbose #15336 > > #if FABLE_COMPILER
00:21:36 verbose #15337 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:21:36 verbose #15338 > > #endif
00:21:36 verbose #15339 > > type Box<'T> = class end
00:21:36 verbose #15340 > > #if FABLE_COMPILER
00:21:36 verbose #15341 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:21:36 verbose #15342 > > #endif
00:21:36 verbose #15343 > > type Dyn<'T> = class end
00:21:36 verbose #15344 > > #if FABLE_COMPILER
00:21:36 verbose #15345 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:21:36 verbose #15346 > > #endif
00:21:36 verbose #15347 > > type Send<'T> = class end
00:21:36 verbose #15348 > > #if FABLE_COMPILER
00:21:36 verbose #15349 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:21:36 verbose #15350 > > #endif
00:21:36 verbose #15351 > > type Fn<'T> = class end
00:21:36 verbose #15352 > > #if FABLE_COMPILER
00:21:36 verbose #15353 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:21:36 verbose #15354 > > #endif
00:21:36 verbose #15355 > > type FnUnit = class end
00:21:36 verbose #15356 > > #if FABLE_COMPILER
00:21:36 verbose #15357 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:21:36 verbose #15358 > > #endif
00:21:36 verbose #15359 > > type FnOnce<'T> = class end
00:21:36 verbose #15360 > > #if FABLE_COMPILER
00:21:36 verbose #15361 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:21:36 verbose #15362 > > #endif
00:21:36 verbose #15363 > > type ActionFn<'T> = class end
00:21:36 verbose #15364 > > #if FABLE_COMPILER
00:21:36 verbose #15365 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:21:36 verbose #15366 > > #endif
00:21:36 verbose #15367 > > type ActionFn2<'T, 'U> = class end
00:21:36 verbose #15368 > > #if FABLE_COMPILER
00:21:36 verbose #15369 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:21:36 verbose #15370 > > #endif
00:21:36 verbose #15371 > > type Impl<'T> = class end
00:21:36 verbose #15372 > > #if FABLE_COMPILER
00:21:36 verbose #15373 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:21:36 verbose #15374 > > #endif
00:21:36 verbose #15375 > > type Mut<'T> = class end
00:21:36 verbose #15376 > > #if FABLE_COMPILER
00:21:36 verbose #15377 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:21:36 verbose #15378 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:21:36 verbose #15379 > > let v2 : System.Guid = v1 ()
00:21:36 verbose #15380 > > let v3 : (System.Guid -> string) = _.ToString()
00:21:36 verbose #15381 > > let v4 : string = v3 v2
00:21:36 verbose #15382 > > let v5 : (int64 -> string) = _.ToString()
00:21:36 verbose #15383 > > let v6 : string = v5 v0
00:21:36 verbose #15384 > > let v7 : string = v6.PadLeft (18, '0')
00:21:36 verbose #15385 > > let v8 : System.Guid = System.Guid
00:21:36 verbose #15386 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:21:36 verbose #15387 > > v8
00:21:36 verbose #15388 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:21:36 verbose #15389 > > let v2 : (string -> string) = v1.ToString
00:21:36 verbose #15390 > > v2 v0
00:21:36 verbose #15391 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:21:36 verbose #15392 > > closure12(v0)
00:21:36 verbose #15393 > > and closure13 () (v0 : System.DateTime) : string =
00:21:36 verbose #15394 > > let v1 : (string -> string) = v0.ToString
00:21:36 verbose #15395 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:21:36 verbose #15396 > > v1 v2
00:21:36 verbose #15397 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:21:36 verbose #15398 > > let date_time_guid_from_date_time x = v0 x
00:21:36 verbose #15399 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:21:36 verbose #15400 > > let date_time_from_guid x = v1 x
00:21:36 verbose #15401 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:21:36 verbose #15402 > > let timestamp_guid_from_timestamp x = v2 x
00:21:36 verbose #15403 > > let v3 : (System.Guid -> int64) = closure8()
00:21:36 verbose #15404 > > let timestamp_from_guid x = v3 x
00:21:36 verbose #15405 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:21:36 verbose #15406 > > let new_guid_from_date_time x = v4 x
00:21:36 verbose #15407 > > let v5 : (int64 -> System.Guid) = closure10()
00:21:36 verbose #15408 > > let new_guid_from_timestamp x = v5 x
00:21:36 verbose #15409 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:21:36 verbose #15410 > > let format x = v6 x
00:21:36 verbose #15411 > > let v7 : (System.DateTime -> string) = closure13()
00:21:36 verbose #15412 > > let format_iso8601 x = v7 x
00:21:36 verbose #15413 > > ()
00:21:36 verbose #15414 > >
00:21:37 verbose #15415 > >
00:21:37 verbose #15416 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:37 verbose #15417 > > #if FABLE_COMPILER
00:21:37 verbose #15418 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:21:37 verbose #15419 > > #endif
00:21:37 verbose #15420 > > type futures_future_JoinAll<'T> = class end
00:21:37 verbose #15421 > > #if FABLE_COMPILER
00:21:37 verbose #15422 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:21:37 verbose #15423 > > #endif
00:21:37 verbose #15424 > > type futures_future_TryJoinAll<'T> = class end
00:21:37 verbose #15425 > > #if FABLE_COMPILER
00:21:37 verbose #15426 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:21:37 verbose #15427 > > #endif
00:21:37 verbose #15428 > > type rayon_iter_Map<'T> = class end
00:21:37 verbose #15429 > > #if FABLE_COMPILER
00:21:37 verbose #15430 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:21:37 verbose #15431 > > #endif
00:21:37 verbose #15432 > > type rayon_vec_IntoIter<'T> = class end
00:21:37 verbose #15433 > > #if FABLE_COMPILER
00:21:37 verbose #15434 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:21:37 verbose #15435 > > #endif
00:21:37 verbose #15436 > > type std_future_Future<'T> = class end
00:21:37 verbose #15437 > > #if FABLE_COMPILER
00:21:37 verbose #15438 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:21:37 verbose #15439 > > #endif
00:21:37 verbose #15440 > > type futures_future_Fuse<'T> = class end
00:21:37 verbose #15441 > > #if FABLE_COMPILER
00:21:37 verbose #15442 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:21:37 verbose #15443 > > #endif
00:21:37 verbose #15444 > > type tokio_task_JoinHandle<'T> = class end
00:21:37 verbose #15445 > > #if FABLE_COMPILER
00:21:37 verbose #15446 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:21:37 verbose #15447 > > #endif
00:21:37 verbose #15448 > > type tokio_stream_StreamExt = class end
00:21:37 verbose #15449 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:21:37 verbose #15450 > > Async<System.Threading.CancellationToken> =
00:21:37 verbose #15451 > > let v1 : bool = true
00:21:37 verbose #15452 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:21:37 verbose #15453 > >
00:21:37 verbose #15454 > > #if FABLE_COMPILER || WASM || CONTRACT
00:21:37 verbose #15455 > >
00:21:37 verbose #15456 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:21:37 verbose #15457 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:21:37 verbose #15458 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:21:37 verbose #15459 > > v12
00:21:37 verbose #15460 > > #endif
00:21:37 verbose #15461 > > #else
00:21:37 verbose #15462 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:21:37 verbose #15463 > > let mutable _v13 = v13
00:21:37 verbose #15464 > > async {
00:21:37 verbose #15465 > > let v14 : Async<System.Threading.CancellationToken> =
00:21:37 verbose #15466 > > Async.CancellationToken
00:21:37 verbose #15467 > > let! v14 = v14
00:21:37 verbose #15468 > > let v15 : System.Threading.CancellationToken = v14
00:21:37 verbose #15469 > > let v16 : System.Threading.CancellationToken =
00:21:37 verbose #15470 > > Async.DefaultCancellationToken
00:21:37 verbose #15471 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:21:37 verbose #15472 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:21:37 verbose #15473 > > System.Threading.CancellationTokenSource) =
00:21:37 verbose #15474 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:21:37 verbose #15475 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:21:37 verbose #15476 > > let v20 : System.Threading.CancellationToken = v19.Token
00:21:37 verbose #15477 > > return v20
00:21:37 verbose #15478 > > }
00:21:37 verbose #15479 > > |> fun x -> _v13 <- Some x
00:21:37 verbose #15480 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:21:37 verbose #15481 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:21:37 verbose #15482 > > v21
00:21:37 verbose #15483 > > #endif
00:21:37 verbose #15484 > > |> fun x -> _v7 <- Some x
00:21:37 verbose #15485 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:21:37 verbose #15486 > > -> x | None -> failwith "base.run_target / _v7=None"
00:21:37 verbose #15487 > > v22
00:21:37 verbose #15488 > > #endif
00:21:37 verbose #15489 > > |> fun x -> _v1 <- Some x
00:21:37 verbose #15490 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:21:37 verbose #15491 > > -> x | None -> failwith "base.run_target / _v1=None"
00:21:37 verbose #15492 > > v23
00:21:37 verbose #15493 > > let v0 : (System.Threading.CancellationToken ->
00:21:37 verbose #15494 > > Async<System.Threading.CancellationToken>) = closure0()
00:21:37 verbose #15495 > > let merge_cancellation_token_with_default_async x = v0 x
00:21:37 verbose #15496 > > ()
00:21:37 verbose #15497 > >
00:21:38 verbose #15498 > >
00:21:38 verbose #15499 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:38 verbose #15500 > > #if FABLE_COMPILER
00:21:38 verbose #15501 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:21:38 verbose #15502 > > #endif
00:21:38 verbose #15503 > > type std_thread_JoinHandle<'T> = class end
00:21:38 verbose #15504 > > #if FABLE_COMPILER
00:21:38 verbose #15505 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:21:38 verbose #15506 > > #endif
00:21:38 verbose #15507 > > type std_sync_Arc<'T> = class end
00:21:38 verbose #15508 > > #if FABLE_COMPILER
00:21:38 verbose #15509 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:21:38 verbose #15510 > > #endif
00:21:38 verbose #15511 > > type std_sync_Mutex<'T> = class end
00:21:38 verbose #15512 > > #if FABLE_COMPILER
00:21:38 verbose #15513 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:21:38 verbose #15514 > > #endif
00:21:38 verbose #15515 > > type std_sync_MutexGuard<'T> = class end
00:21:38 verbose #15516 > > #if FABLE_COMPILER
00:21:38 verbose #15517 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:21:38 verbose #15518 > > #endif
00:21:38 verbose #15519 > > type std_sync_PoisonError<'T> = class end
00:21:38 verbose #15520 > > #if FABLE_COMPILER
00:21:38 verbose #15521 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:21:38 verbose #15522 > > #endif
00:21:38 verbose #15523 > > type std_sync_mpsc_Receiver<'T> = class end
00:21:38 verbose #15524 > > #if FABLE_COMPILER
00:21:38 verbose #15525 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:21:38 verbose #15526 > > #endif
00:21:38 verbose #15527 > > type std_sync_mpsc_SendError<'T> = class end
00:21:38 verbose #15528 > > #if FABLE_COMPILER
00:21:38 verbose #15529 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:21:38 verbose #15530 > > #endif
00:21:38 verbose #15531 > > type std_sync_mpsc_Sender<'T> = class end
00:21:38 verbose #15532 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:21:38 verbose #15533 > > _.Dispose () = f ()
00:21:38 verbose #15534 > > type [[<Struct>]] US0 =
00:21:38 verbose #15535 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:21:38 verbose #15536 > > | US0_1
00:21:38 verbose #15537 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:21:38 verbose #15538 > > let v1 : bool = true
00:21:38 verbose #15539 > > let mutable _v1 : unit option = None
00:21:38 verbose #15540 > >
00:21:38 verbose #15541 > > #if FABLE_COMPILER || WASM || CONTRACT
00:21:38 verbose #15542 > >
00:21:38 verbose #15543 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:21:38 verbose #15544 > > "$0()" )
00:21:38 verbose #15545 > > v28
00:21:38 verbose #15546 > > #endif
00:21:38 verbose #15547 > > #if FABLE_COMPILER_RUST && WASM
00:21:38 verbose #15548 > > let v29 : (unit -> unit) = method0(v25)
00:21:38 verbose #15549 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:21:38 verbose #15550 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:21:38 verbose #15551 > > v30
00:21:38 verbose #15552 > > #endif
00:21:38 verbose #15553 > > #if FABLE_COMPILER_RUST && CONTRACT
00:21:38 verbose #15554 > > let v31 : (unit -> unit) = method0(v25)
00:21:38 verbose #15555 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:21:38 verbose #15556 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:21:38 verbose #15557 > > v32
00:21:38 verbose #15558 > > #endif
00:21:38 verbose #15559 > > #if FABLE_COMPILER_TYPESCRIPT
00:21:38 verbose #15560 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:21:38 verbose #15561 > > v33
00:21:38 verbose #15562 > > #endif
00:21:38 verbose #15563 > > #if FABLE_COMPILER_PYTHON
00:21:38 verbose #15564 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:21:38 verbose #15565 > > v34
00:21:38 verbose #15566 > > #endif
00:21:38 verbose #15567 > > #else
00:21:38 verbose #15568 > > let v35 : (unit -> unit) = method1(v25)
00:21:38 verbose #15569 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:21:38 verbose #15570 > > _.Dispose () = v35 () }
00:21:38 verbose #15571 > > v36
00:21:38 verbose #15572 > > #endif
00:21:38 verbose #15573 > > |> fun x -> _v26 <- Some x
00:21:38 verbose #15574 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:21:38 verbose #15575 > > failwith "base.run_target / _v26=None"
00:21:38 verbose #15576 > > let v38 : System.Threading.CancellationToken = v25.Token
00:21:38 verbose #15577 > > struct (v38, v37)
00:21:38 verbose #15578 > > #endif
00:21:38 verbose #15579 > > |> fun x -> _v1 <- Some x
00:21:38 verbose #15580 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:21:38 verbose #15581 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:21:38 verbose #15582 > > "base.run_target / _v1=None"
00:21:38 verbose #15583 > > struct (v39, v40)
00:21:38 verbose #15584 > > let v0 : (System.Threading.CancellationToken option -> struct
00:21:38 verbose #15585 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:21:38 verbose #15586 > > let new_disposable_token x = v0 x
00:21:38 verbose #15587 > > ()
00:21:38 verbose #15588 > >
00:21:38 verbose #15589 > >
00:21:38 verbose #15590 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:38 verbose #15591 > > #if FABLE_COMPILER
00:21:38 verbose #15592 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:21:38 verbose #15593 > > #endif
00:21:38 verbose #15594 > > type reqwest_Error = class end
00:21:38 verbose #15595 > > #if FABLE_COMPILER
00:21:38 verbose #15596 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:21:38 verbose #15597 > > #endif
00:21:38 verbose #15598 > > type reqwest_RequestBuilder = class end
00:21:38 verbose #15599 > > #if FABLE_COMPILER
00:21:38 verbose #15600 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:21:38 verbose #15601 > > #endif
00:21:38 verbose #15602 > > type reqwest_Response = class end
00:21:38 verbose #15603 > > #if FABLE_COMPILER
00:21:38 verbose #15604 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:21:38 verbose #15605 > > #endif
00:21:38 verbose #15606 > > type std_env_VarError = class end
00:21:38 verbose #15607 > > #if FABLE_COMPILER
00:21:38 verbose #15608 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:21:38 verbose #15609 > > #endif
00:21:38 verbose #15610 > > type core_any_Any = class end
00:21:38 verbose #15611 > > #if FABLE_COMPILER
00:21:38 verbose #15612 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:21:38 verbose #15613 > > #endif
00:21:38 verbose #15614 > > type core_ops_Try<'T> = class end
00:21:38 verbose #15615 > > #if FABLE_COMPILER
00:21:38 verbose #15616 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:21:38 verbose #15617 > > #endif
00:21:38 verbose #15618 > > type Func0<'T> = class end
00:21:38 verbose #15619 > > #if FABLE_COMPILER
00:21:38 verbose #15620 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:21:38 verbose #15621 > > #endif
00:21:38 verbose #15622 > > type Func0<'T, 'U> = class end
00:21:38 verbose #15623 > > #if FABLE_COMPILER
00:21:38 verbose #15624 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:21:38 verbose #15625 > > #endif
00:21:38 verbose #15626 > > type Box<'T> = class end
00:21:38 verbose #15627 > > #if FABLE_COMPILER
00:21:38 verbose #15628 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:21:38 verbose #15629 > > #endif
00:21:38 verbose #15630 > > type Dyn<'T> = class end
00:21:38 verbose #15631 > > #if FABLE_COMPILER
00:21:38 verbose #15632 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:21:38 verbose #15633 > > #endif
00:21:38 verbose #15634 > > type Send<'T> = class end
00:21:38 verbose #15635 > > #if FABLE_COMPILER
00:21:38 verbose #15636 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:21:38 verbose #15637 > > #endif
00:21:38 verbose #15638 > > type Fn<'T> = class end
00:21:38 verbose #15639 > > #if FABLE_COMPILER
00:21:38 verbose #15640 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:21:38 verbose #15641 > > #endif
00:21:38 verbose #15642 > > type FnUnit = class end
00:21:38 verbose #15643 > > #if FABLE_COMPILER
00:21:38 verbose #15644 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:21:38 verbose #15645 > > ... v212 = v212
00:21:38 verbose #15646 > > let v213 : bool = v212
00:21:38 verbose #15647 > > let v214 : bool = v213 = false
00:21:38 verbose #15648 > > if v214 then
00:21:38 verbose #15649 > > return v2
00:21:38 verbose #15650 > > (*
00:21:38 verbose #15651 > > ()
00:21:38 verbose #15652 > > else
00:21:38 verbose #15653 > > *) else
00:21:38 verbose #15654 > > let v215 : int32 = v2 + 1
00:21:38 verbose #15655 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:21:38 verbose #15656 > > return! v216
00:21:38 verbose #15657 > > (*
00:21:38 verbose #15658 > > ()
00:21:38 verbose #15659 > > *)
00:21:38 verbose #15660 > > }
00:21:38 verbose #15661 > > |> fun x -> _v9 <- Some x
00:21:38 verbose #15662 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:21:38 verbose #15663 > > "async.new_async_unit / _v9=None"
00:21:38 verbose #15664 > > v217
00:21:38 verbose #15665 > > #endif
00:21:38 verbose #15666 > > |> fun x -> _v3 <- Some x
00:21:38 verbose #15667 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:21:38 verbose #15668 > > "base.run_target / _v3=None"
00:21:38 verbose #15669 > > v218
00:21:38 verbose #15670 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:21:38 verbose #15671 > > method10(v0, v1, v2)
00:21:38 verbose #15672 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:21:38 verbose #15673 > > closure23(v0, v1)
00:21:38 verbose #15674 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:21:38 verbose #15675 > > closure22(v0)
00:21:38 verbose #15676 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:21:38 verbose #15677 > > let v1 : US0 = US0_0
00:21:38 verbose #15678 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:21:38 verbose #15679 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:21:38 verbose #15680 > > let test_port_open x = v2 x
00:21:38 verbose #15681 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:21:38 verbose #15682 > > let test_port_open_timeout x = v3 x
00:21:38 verbose #15683 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:21:38 verbose #15684 > > closure15()
00:21:38 verbose #15685 > > let wait_for_port_access x = v4 x
00:21:38 verbose #15686 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:21:38 verbose #15687 > > let get_available_port x = v5 x
00:21:38 verbose #15688 > > ()
00:21:38 verbose #15689 > >
00:21:49 verbose #15690 > >
00:21:49 verbose #15691 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:49 verbose #15692 > > type [[<Struct>]] US0 =
00:21:49 verbose #15693 > > | US0_0
00:21:49 verbose #15694 > > | US0_1
00:21:49 verbose #15695 > > | US0_2
00:21:49 verbose #15696 > > and [[<Struct>]] US1 =
00:21:49 verbose #15697 > > | US1_0 of f0_0 : US0
00:21:49 verbose #15698 > > | US1_1 of f1_0 : US0
00:21:49 verbose #15699 > > | US1_2 of f2_0 : US0
00:21:49 verbose #15700 > > | US1_3 of f3_0 : US0
00:21:49 verbose #15701 > > | US1_4 of f4_0 : US0
00:21:49 verbose #15702 > > let rec closure0 () () : bool =
00:21:49 verbose #15703 > > let v0 : bool = true
00:21:49 verbose #15704 > > let mutable _v0 : bool option = None
00:21:49 verbose #15705 > >
00:21:49 verbose #15706 > > #if FABLE_COMPILER || WASM || CONTRACT
00:21:49 verbose #15707 > >
00:21:49 verbose #15708 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:21:49 verbose #15709 > > let v1 : string = "cfg!(windows)"
00:21:49 verbose #15710 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:21:49 verbose #15711 > > v2
00:21:49 verbose #15712 > > #endif
00:21:49 verbose #15713 > > #if FABLE_COMPILER_RUST && WASM
00:21:49 verbose #15714 > > let v3 : string = "cfg!(windows)"
00:21:49 verbose #15715 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:21:49 verbose #15716 > > v4
00:21:49 verbose #15717 > > #endif
00:21:49 verbose #15718 > > #if FABLE_COMPILER_RUST && CONTRACT
00:21:49 verbose #15719 > > let v5 : string = "cfg!(windows)"
00:21:49 verbose #15720 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:21:49 verbose #15721 > > v6
00:21:49 verbose #15722 > > #endif
00:21:49 verbose #15723 > > #if FABLE_COMPILER_TYPESCRIPT
00:21:49 verbose #15724 > > let v7 : US0 = US0_0
00:21:49 verbose #15725 > > let v8 : US1 = US1_3(v7)
00:21:49 verbose #15726 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:21:49 verbose #15727 > > let v10 : bool = failwith<bool> v9
00:21:49 verbose #15728 > > v10
00:21:49 verbose #15729 > > #endif
00:21:49 verbose #15730 > > #if FABLE_COMPILER_PYTHON
00:21:49 verbose #15731 > > let v11 : US0 = US0_0
00:21:49 verbose #15732 > > let v12 : US1 = US1_4(v11)
00:21:49 verbose #15733 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:21:49 verbose #15734 > > let v14 : bool = failwith<bool> v13
00:21:49 verbose #15735 > > v14
00:21:49 verbose #15736 > > #endif
00:21:49 verbose #15737 > > #else
00:21:49 verbose #15738 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:21:49 verbose #15739 > > System.Runtime.InteropServices.OSPlatform.Windows
00:21:49 verbose #15740 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:21:49 verbose #15741 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:21:49 verbose #15742 > > let v17 : b...: string = "cfg!(windows)"
00:21:49 verbose #15743 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:21:49 verbose #15744 > > v2
00:21:49 verbose #15745 > > #endif
00:21:49 verbose #15746 > > #if FABLE_COMPILER_RUST && WASM
00:21:49 verbose #15747 > > let v3 : string = "cfg!(windows)"
00:21:49 verbose #15748 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:21:49 verbose #15749 > > v4
00:21:49 verbose #15750 > > #endif
00:21:49 verbose #15751 > > #if FABLE_COMPILER_RUST && CONTRACT
00:21:49 verbose #15752 > > let v5 : string = "cfg!(windows)"
00:21:49 verbose #15753 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:21:49 verbose #15754 > > v6
00:21:49 verbose #15755 > > #endif
00:21:49 verbose #15756 > > #if FABLE_COMPILER_TYPESCRIPT
00:21:49 verbose #15757 > > let v7 : US0 = US0_0
00:21:49 verbose #15758 > > let v8 : US1 = US1_3(v7)
00:21:49 verbose #15759 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:21:49 verbose #15760 > > let v10 : bool = failwith<bool> v9
00:21:49 verbose #15761 > > v10
00:21:49 verbose #15762 > > #endif
00:21:49 verbose #15763 > > #if FABLE_COMPILER_PYTHON
00:21:49 verbose #15764 > > let v11 : US0 = US0_0
00:21:49 verbose #15765 > > let v12 : US1 = US1_4(v11)
00:21:49 verbose #15766 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:21:49 verbose #15767 > > let v14 : bool = failwith<bool> v13
00:21:49 verbose #15768 > > v14
00:21:49 verbose #15769 > > #endif
00:21:49 verbose #15770 > > #else
00:21:49 verbose #15771 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:21:49 verbose #15772 > > System.Runtime.InteropServices.OSPlatform.Windows
00:21:49 verbose #15773 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:21:49 verbose #15774 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:21:49 verbose #15775 > > let v17 : bool = v16 v15
00:21:49 verbose #15776 > > v17
00:21:49 verbose #15777 > > #endif
00:21:49 verbose #15778 > > |> fun x -> _v0 <- Some x
00:21:49 verbose #15779 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:21:49 verbose #15780 > > "base.run_target / _v0=None"
00:21:49 verbose #15781 > > if v18 then
00:21:49 verbose #15782 > > let v19 : string = ".exe"
00:21:49 verbose #15783 > > v19
00:21:49 verbose #15784 > > else
00:21:49 verbose #15785 > > let v20 : string = ""
00:21:49 verbose #15786 > > v20
00:21:49 verbose #15787 > > let v0 : (unit -> bool) = closure0()
00:21:49 verbose #15788 > > let is_windows () = v0 ()
00:21:49 verbose #15789 > > let v1 : (unit -> string) = closure1()
00:21:49 verbose #15790 > > let get_executable_suffix () = v1 ()
00:21:49 verbose #15791 > > ()
00:21:49 verbose #15792 > >
00:21:49 verbose #15793 > >
00:21:49 verbose #15794 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:21:49 verbose #15795 > > #if FABLE_COMPILER
00:21:49 verbose #15796 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:21:49 verbose #15797 > > #endif
00:21:49 verbose #15798 > > type clap_Arg = class end
00:21:49 verbose #15799 > > #if FABLE_COMPILER
00:21:49 verbose #15800 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:21:49 verbose #15801 > > #endif
00:21:49 verbose #15802 > > type clap_ArgAction = class end
00:21:49 verbose #15803 > > #if FABLE_COMPILER
00:21:49 verbose #15804 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:21:49 verbose #15805 > > #endif
00:21:49 verbose #15806 > > type clap_Command = class end
00:21:49 verbose #15807 > > #if FABLE_COMPILER
00:21:49 verbose #15808 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:21:49 verbose #15809 > > #endif
00:21:49 verbose #15810 > > type clap_ArgMatches = class end
00:21:49 verbose #15811 > > #if FABLE_COMPILER
00:21:49 verbose #15812 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:21:49 verbose #15813 > > #endif
00:21:49 verbose #15814 > > type clap_builder_ValueRange = class end
00:21:49 verbose #15815 > > #if FABLE_COMPILER
00:21:49 verbose #15816 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:21:49 verbose #15817 > > #endif
00:21:49 verbose #15818 > > type clap_builder_ValueParser = class end
00:21:49 verbose #15819 > > #if FABLE_COMPILER
00:21:49 verbose #15820 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:21:49 verbose #15821 > > #endif
00:21:49 verbose #15822 > > type clap_builder_PossibleValue = class end
00:21:49 verbose #15823 > > #if FABLE_COMPILER
00:21:49 verbose #15824 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:21:49 verbose #15825 > > #endif
00:21:49 verbose #15826 > > type std_process_Child = class end
00:21:49 verbose #15827 > > #if FABLE_COMPILER
00:21:49 verbose #15828 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:21:49 verbose #15829 > > #endif
00:21:49 verbose #15830 > > type std_process_ChildStderr = class end
00:21:49 verbose #15831 > > #if FABLE_COMPILER
00:21:49 verbose #15832 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:21:49 verbose #15833 > > #endif
00:21:49 verbose #15834 > > type std_process_ChildStdout = class end
00:21:49 verbose #15835 > > #if FABLE_COMPILER
00:21:49 verbose #15836 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:21:49 verbose #15837 > > #endif
00:21:49 verbose #15838 > > type std_process_ChildStdin = class end
00:21:49 verbose #15839 > > #if FABLE_COMPILER
00:21:49 verbose #15840 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:21:49 verbose #15841 > > #endif
00:21:49 verbose #15842 > > type std_process_Command = class...9 : (string list -> (string [[]])) =
00:21:49 verbose #15843 > > List.toArray
00:21:49 verbose #15844 > > let v20 : (string [[]]) = v19 v18
00:21:49 verbose #15845 > > US8_0(v20)
00:21:49 verbose #15846 > > and closure21 () (v0 : string) : Result<(string [[]]), string> =
00:21:49 verbose #15847 > > let v1 : US8 = method16(v0)
00:21:49 verbose #15848 > > match v1 with
00:21:49 verbose #15849 > > | US8_1(v4) -> (* Error *)
00:21:49 verbose #15850 > > let v5 : Result<(string [[]]), string> = Error v4
00:21:49 verbose #15851 > > v5
00:21:49 verbose #15852 > > | US8_0(v2) -> (* Ok *)
00:21:49 verbose #15853 > > let v3 : Result<(string [[]]), string> = Ok v2
00:21:49 verbose #15854 > > v3
00:21:49 verbose #15855 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:21:49 verbose #15856 > > let v1 : US0 = US0_0
00:21:49 verbose #15857 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:21:49 verbose #15858 > > let v2 : (unit -> unit) = closure2()
00:21:49 verbose #15859 > > let current_process_kill () = v2 ()
00:21:49 verbose #15860 > > let v3 : (string -> Async<struct (int32 * string)>) = closure9()
00:21:49 verbose #15861 > > let execute_async x = v3 x
00:21:49 verbose #15862 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:21:49 verbose #15863 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:21:49 verbose #15864 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:21:49 verbose #15865 > > string option) -> Async<struct (int32 * string)>) = closure19()
00:21:49 verbose #15866 > > let execute_with_options_async x = v4 x
00:21:49 verbose #15867 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:21:49 verbose #15868 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:21:49 verbose #15869 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:21:49 verbose #15870 > > unit) option * bool * string option)) = closure20()
00:21:49 verbose #15871 > > let execution_options x = v5 x
00:21:49 verbose #15872 > > let v6 : (string -> Result<(string [[]]), string>) = closure21()
00:21:49 verbose #15873 > > let split_args x = v6 x
00:21:49 verbose #15874 > > ()
00:21:49 verbose #15875 > >
00:22:01 verbose #15876 > >
00:22:01 verbose #15877 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:01 verbose #15878 > > #if FABLE_COMPILER
00:22:01 verbose #15879 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:22:01 verbose #15880 > > #endif
00:22:01 verbose #15881 > > type std_fs_File = class end
00:22:01 verbose #15882 > > #if FABLE_COMPILER
00:22:01 verbose #15883 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:22:01 verbose #15884 > > #endif
00:22:01 verbose #15885 > > type std_fs_FileType = class end
00:22:01 verbose #15886 > > #if FABLE_COMPILER
00:22:01 verbose #15887 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:22:01 verbose #15888 > > #endif
00:22:01 verbose #15889 > > type std_path_Display = class end
00:22:01 verbose #15890 > > #if FABLE_COMPILER
00:22:01 verbose #15891 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:22:01 verbose #15892 > > #endif
00:22:01 verbose #15893 > > type std_path_Path = class end
00:22:01 verbose #15894 > > #if FABLE_COMPILER
00:22:01 verbose #15895 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:22:01 verbose #15896 > > #endif
00:22:01 verbose #15897 > > type std_path_PathBuf = class end
00:22:01 verbose #15898 > > #if FABLE_COMPILER
00:22:01 verbose #15899 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:22:01 verbose #15900 > > #endif
00:22:01 verbose #15901 > > type async_walkdir_DirEntry = class end
00:22:01 verbose #15902 > > #if FABLE_COMPILER
00:22:01 verbose #15903 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:22:01 verbose #15904 > > #endif
00:22:01 verbose #15905 > > type async_walkdir_Filtering = class end
00:22:01 verbose #15906 > > #if FABLE_COMPILER
00:22:01 verbose #15907 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:22:01 verbose #15908 > > #endif
00:22:01 verbose #15909 > > type async_walkdir_WalkDir = class end
00:22:01 verbose #15910 > > #if FABLE_COMPILER
00:22:01 verbose #15911 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:22:01 verbose #15912 > > #endif
00:22:01 verbose #15913 > > type core_any_Any = class end
00:22:01 verbose #15914 > > #if FABLE_COMPILER
00:22:01 verbose #15915 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:22:01 verbose #15916 > > #endif
00:22:01 verbose #15917 > > type core_ops_Try<'T> = class end
00:22:01 verbose #15918 > > #if FABLE_COMPILER
00:22:01 verbose #15919 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:22:01 verbose #15920 > > #endif
00:22:01 verbose #15921 > > type Func0<'T> = class end
00:22:01 verbose #15922 > > #if FABLE_COMPILER
00:22:01 verbose #15923 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:22:01 verbose #15924 > > #endif
00:22:01 verbose #15925 > > type Func0<'T, 'U> = class end
00:22:01 verbose #15926 > > #if FABLE_COMPILER
00:22:01 verbose #15927 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:22:01 verbose #15928 > > #endif
00:22:01 verbose #15929 > > type Box<'T> = cla...ng -> Async<int64>)) = closure8()
00:22:01 verbose #15930 > > let wait_for_file_access x = v3 x
00:22:01 verbose #15931 > > let v4 : (string -> Async<int64>) = closure12()
00:22:01 verbose #15932 > > let wait_for_file_access_read x = v4 x
00:22:01 verbose #15933 > > let v5 : (string -> Async<string>) = closure13()
00:22:01 verbose #15934 > > let read_all_text_async x = v5 x
00:22:01 verbose #15935 > > let v6 : (string -> (string -> bool)) = closure14()
00:22:01 verbose #15936 > > let file_exists_content x = v6 x
00:22:01 verbose #15937 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:22:01 verbose #15938 > > let write_all_text_async x = v7 x
00:22:01 verbose #15939 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:22:01 verbose #15940 > > let write_all_text_exists x = v8 x
00:22:01 verbose #15941 > > let v9 : (string -> Async<int64>) = closure20()
00:22:01 verbose #15942 > > let delete_file_async x = v9 x
00:22:01 verbose #15943 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:22:01 verbose #15944 > > let move_file_async x = v10 x
00:22:01 verbose #15945 > > let v11 : (string -> Async<string option>) = closure27()
00:22:01 verbose #15946 > > let read_all_text_retry_async x = v11 x
00:22:01 verbose #15947 > > let v12 : (unit -> string) = closure35()
00:22:01 verbose #15948 > > let create_temp_path () = v12 ()
00:22:01 verbose #15949 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:22:01 verbose #15950 > > let create_temp_dir () = v13 ()
00:22:01 verbose #15951 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:22:01 verbose #15952 > > let create_temp_dir' x = v14 x
00:22:01 verbose #15953 > > let v15 : (unit -> string) = closure49()
00:22:01 verbose #15954 > > let get_source_directory () = v15 ()
00:22:01 verbose #15955 > > let v16 : (string -> string) = closure50()
00:22:01 verbose #15956 > > let normalize_path x = v16 x
00:22:01 verbose #15957 > > let v17 : (string -> string) = closure51()
00:22:01 verbose #15958 > > let new_file_uri x = v17 x
00:22:01 verbose #15959 > > let v18 : (unit -> string) = closure52()
00:22:01 verbose #15960 > > let get_workspace_root () = v18 ()
00:22:01 verbose #15961 > > let v19 : (bool -> unit) = closure56()
00:22:01 verbose #15962 > > let init_trace_file x = v19 x
00:22:01 verbose #15963 > > let v20 : (string -> (string -> string)) = closure58()
00:22:01 verbose #15964 > > let (</>) x = v20 x
00:22:01 verbose #15965 > > ()
00:22:01 verbose #15966 > >
00:22:13 verbose #15967 > >
00:22:13 verbose #15968 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:13 verbose #15969 > > #if FABLE_COMPILER
00:22:13 verbose #15970 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:22:13 verbose #15971 > > #endif
00:22:13 verbose #15972 > > type core_any_Any = class end
00:22:13 verbose #15973 > > #if FABLE_COMPILER
00:22:13 verbose #15974 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:22:13 verbose #15975 > > #endif
00:22:13 verbose #15976 > > type core_ops_Try<'T> = class end
00:22:13 verbose #15977 > > #if FABLE_COMPILER
00:22:13 verbose #15978 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:22:13 verbose #15979 > > #endif
00:22:13 verbose #15980 > > type Func0<'T> = class end
00:22:13 verbose #15981 > > #if FABLE_COMPILER
00:22:13 verbose #15982 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:22:13 verbose #15983 > > #endif
00:22:13 verbose #15984 > > type Func0<'T, 'U> = class end
00:22:13 verbose #15985 > > #if FABLE_COMPILER
00:22:13 verbose #15986 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:22:13 verbose #15987 > > #endif
00:22:13 verbose #15988 > > type Box<'T> = class end
00:22:13 verbose #15989 > > #if FABLE_COMPILER
00:22:13 verbose #15990 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:22:13 verbose #15991 > > #endif
00:22:13 verbose #15992 > > type Dyn<'T> = class end
00:22:13 verbose #15993 > > #if FABLE_COMPILER
00:22:13 verbose #15994 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:22:13 verbose #15995 > > #endif
00:22:13 verbose #15996 > > type Send<'T> = class end
00:22:13 verbose #15997 > > #if FABLE_COMPILER
00:22:13 verbose #15998 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:22:13 verbose #15999 > > #endif
00:22:13 verbose #16000 > > type Fn<'T> = class end
00:22:13 verbose #16001 > > #if FABLE_COMPILER
00:22:13 verbose #16002 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:22:13 verbose #16003 > > #endif
00:22:13 verbose #16004 > > type FnUnit = class end
00:22:13 verbose #16005 > > #if FABLE_COMPILER
00:22:13 verbose #16006 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:22:13 verbose #16007 > > #endif
00:22:13 verbose #16008 > > type FnOnce<'T> = class end
00:22:13 verbose #16009 > > #if FABLE_COMPILER
00:22:13 verbose #16010 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:22:13 verbose #16011 > > #endif
00:22:13 verbose #16012 > > type ActionFn<'T> = class end
00:22:13 verbose #16013 > > #if FABLE_COMPILER
00:22:13 verbose #16014 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:22:13 verbose #16015 > > #endif
00:22:13 verbose #16016 > > type ActionFn2<'T, 'U> = class end
00:22:13 verbose #16017 > > #if FABLE_COMPILER
00:22:13 verbose #16018 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:22:13 verbose #16019 > > #endif
00:22:13 verbose #16020 > > type Impl<'T> = class end
00:22:13 verbose #16021 > > #if FABLE_COMPILER
00:22:13 verbose #16022 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:22:13 verbose #16023 > > #endif
00:22:13 verbose #16024 > > type Mut<'T> = class end
00:22:13 verbose #16025 > > #if FABLE_COMPILER
00:22:13 verbose #16026 > > [[<Fable.Core.Erase; Fable.C... #endif
00:22:13 verbose #16027 > > #if FABLE_COMPILER_RUST && WASM
00:22:13 verbose #16028 > > let v27 : string = @"println!(""{}"", $0)"
00:22:13 verbose #16029 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:22:13 verbose #16030 > > ()
00:22:13 verbose #16031 > > #endif
00:22:13 verbose #16032 > > #if FABLE_COMPILER_RUST && CONTRACT
00:22:13 verbose #16033 > > let v28 : string = @"println!(""{}"", $0)"
00:22:13 verbose #16034 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:22:13 verbose #16035 > > ()
00:22:13 verbose #16036 > > #endif
00:22:13 verbose #16037 > > #if FABLE_COMPILER_TYPESCRIPT
00:22:13 verbose #16038 > > System.Console.WriteLine v24
00:22:13 verbose #16039 > > ()
00:22:13 verbose #16040 > > #endif
00:22:13 verbose #16041 > > #if FABLE_COMPILER_PYTHON
00:22:13 verbose #16042 > > System.Console.WriteLine v24
00:22:13 verbose #16043 > > ()
00:22:13 verbose #16044 > > #endif
00:22:13 verbose #16045 > > #else
00:22:13 verbose #16046 > > System.Console.WriteLine v24
00:22:13 verbose #16047 > > ()
00:22:13 verbose #16048 > > #endif
00:22:13 verbose #16049 > > |> fun x -> _v25 <- Some x
00:22:13 verbose #16050 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:22:13 verbose #16051 > > _v25=None"
00:22:13 verbose #16052 > > let v29 : (string -> unit) = v8.l0
00:22:13 verbose #16053 > > v29 v24
00:22:13 verbose #16054 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:22:13 verbose #16055 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:22:13 verbose #16056 > > method8(v0, v3)
00:22:13 verbose #16057 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:22:13 verbose #16058 > > method4(v0, v1, v2)
00:22:13 verbose #16059 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:22:13 verbose #16060 > > closure4(v0, v1)
00:22:13 verbose #16061 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:22:13 verbose #16062 > > closure3(v0)
00:22:13 verbose #16063 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:22:13 verbose #16064 > > let v1 : US0 = US0_0
00:22:13 verbose #16065 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:22:13 verbose #16066 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:22:13 verbose #16067 > > let trace x = v2 x
00:22:13 verbose #16068 > > ()
00:22:13 verbose #16069 > >
00:22:15 verbose #16070 > >
00:22:15 verbose #16071 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:15 verbose #16072 > > module SpiralTrace =
00:22:15 verbose #16073 > > let trace x =
00:22:15 verbose #16074 > > #if !INTERACTIVE
00:22:15 verbose #16075 > > Trace.trace x
00:22:15 verbose #16076 > > #else
00:22:15 verbose #16077 > > trace x
00:22:15 verbose #16078 > > #endif
00:22:15 verbose #16079 > >
00:22:15 verbose #16080 > > type TraceLevel =
00:22:15 verbose #16081 > > #if !INTERACTIVE
00:22:15 verbose #16082 > > Trace.US0
00:22:15 verbose #16083 > > #else
00:22:15 verbose #16084 > > US0
00:22:15 verbose #16085 > > #endif
00:22:15 verbose #16086 > >
00:22:15 verbose #16087 > > module SpiralCrypto =
00:22:15 verbose #16088 > > let hash_text x =
00:22:15 verbose #16089 > > #if !INTERACTIVE
00:22:15 verbose #16090 > > Crypto.hash_text x
00:22:15 verbose #16091 > > #else
00:22:15 verbose #16092 > > hash_text x
00:22:15 verbose #16093 > > #endif
00:22:15 verbose #16094 > >
00:22:15 verbose #16095 > > let hash_to_port x =
00:22:15 verbose #16096 > > #if !INTERACTIVE
00:22:15 verbose #16097 > > Crypto.hash_to_port x
00:22:15 verbose #16098 > > #else
00:22:15 verbose #16099 > > hash_to_port x
00:22:15 verbose #16100 > > #endif
00:22:15 verbose #16101 > >
00:22:15 verbose #16102 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:22:15 verbose #16103 > >
00:22:15 verbose #16104 > > module SpiralAsync =
00:22:15 verbose #16105 > > let merge_cancellation_token_with_default_async x =
00:22:15 verbose #16106 > > #if !INTERACTIVE
00:22:15 verbose #16107 > > Async_.merge_cancellation_token_with_default_async x
00:22:15 verbose #16108 > > #else
00:22:15 verbose #16109 > > merge_cancellation_token_with_default_async x
00:22:15 verbose #16110 > > #endif
00:22:15 verbose #16111 > >
00:22:15 verbose #16112 > > module SpiralThreading =
00:22:15 verbose #16113 > > let new_disposable_token x =
00:22:15 verbose #16114 > > #if !INTERACTIVE
00:22:15 verbose #16115 > > Threading.new_disposable_token x
00:22:15 verbose #16116 > > #else
00:22:15 verbose #16117 > > new_disposable_token x
00:22:15 verbose #16118 > > #endif
00:22:15 verbose #16119 > >
00:22:15 verbose #16120 > > module SpiralNetworking =
00:22:15 verbose #16121 > > let test_port_open x =
00:22:15 verbose #16122 > > #if !INTERACTIVE
00:22:15 verbose #16123 > > Networking.test_port_open x
00:22:15 verbose #16124 > > #else
00:22:15 verbose #16125 > > test_port_open x
00:22:15 verbose #16126 > > #endif
00:22:15 verbose #16127 > >
00:22:15 verbose #16128 > > let test_port_open_timeout x =
00:22:15 verbose #16129 > > #if !INTERACTIVE
00:22:15 verbose #16130 > > Networking.test_port_open_timeout x
00:22:15 verbose #16131 > > #else
00:22:15 verbose #16132 > > test_port_open_timeout x
00:22:15 verbose #16133 > > #endif
00:22:15 verbose #16134 > >
00:22:15 verbose #16135 > > let wait_for_port_access x =
00:22:15 verbose #16136 > > #if !INTERACTIVE
00:22:15 verbose #16137 > > Networking.wait_for_port_access x
00:22:15 verbose #16138 > > #else
00:22:15 verbose #16139 > > wait_for_port_access x
00:22:15 verbose #16140 > > #endif
00:22:15 verbose #16141 > >
00:22:15 verbose #16142 > > let get_available_port x =
00:22:15 verbose #16143 > > #if !INTERACTIVE
00:22:15 verbose #16144 > > Networking.get_available_port x
00:22:15 verbose #16145 > > #else
00:22:15 verbose #16146 > > get_available_port x
00:22:15 verbose #16147 > > #endif
00:22:15 verbose #16148 > >
00:22:15 verbose #16149 > > module SpiralPlatform =
00:22:15 verbose #16150 > > let get_executable_suffix () =
00:22:15 verbose #16151 > > #if !INTERACTIVE
00:22:15 verbose #16152 > > Platform.g...e.trace_state
00:22:15 verbose #16153 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:22:15 verbose #16154 > > level.l0 <-
00:22:15 verbose #16155 > > match new_level with
00:22:15 verbose #16156 > > | Trace.US0_0 -> File_system.US0_0
00:22:15 verbose #16157 > > | Trace.US0_1 -> File_system.US0_1
00:22:15 verbose #16158 > > | Trace.US0_2 -> File_system.US0_2
00:22:15 verbose #16159 > > | Trace.US0_3 -> File_system.US0_3
00:22:15 verbose #16160 > > | Trace.US0_4 -> File_system.US0_4
00:22:15 verbose #16161 > > )
00:22:15 verbose #16162 > >
00:22:15 verbose #16163 > > Runtime.State.trace_state
00:22:15 verbose #16164 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:22:15 verbose #16165 > > level.l0 <-
00:22:15 verbose #16166 > > match new_level with
00:22:15 verbose #16167 > > | Trace.US0_0 -> Runtime.US0_0
00:22:15 verbose #16168 > > | Trace.US0_1 -> Runtime.US0_1
00:22:15 verbose #16169 > > | Trace.US0_2 -> Runtime.US0_2
00:22:15 verbose #16170 > > | Trace.US0_3 -> Runtime.US0_3
00:22:15 verbose #16171 > > | Trace.US0_4 -> Runtime.US0_4
00:22:15 verbose #16172 > > )
00:22:15 verbose #16173 > >
00:22:15 verbose #16174 > > Common.State.trace_state
00:22:15 verbose #16175 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:22:15 verbose #16176 > > level.l0 <-
00:22:15 verbose #16177 > > match new_level with
00:22:15 verbose #16178 > > | Trace.US0_0 -> Common.US0_0
00:22:15 verbose #16179 > > | Trace.US0_1 -> Common.US0_1
00:22:15 verbose #16180 > > | Trace.US0_2 -> Common.US0_2
00:22:15 verbose #16181 > > | Trace.US0_3 -> Common.US0_3
00:22:15 verbose #16182 > > | Trace.US0_4 -> Common.US0_4
00:22:15 verbose #16183 > > )
00:22:15 verbose #16184 > >
00:22:15 verbose #16185 > > Trace.State.trace_state
00:22:15 verbose #16186 > > #else
00:22:15 verbose #16187 > > State.trace_state
00:22:15 verbose #16188 > > #endif
00:22:15 verbose #16189 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:22:15 verbose #16190 > > level.l0 <- new_level
00:22:15 verbose #16191 > > )
00:22:15 verbose #16192 > >
00:22:15 verbose #16193 > > let get_trace_level () =
00:22:15 verbose #16194 > > #if !INTERACTIVE
00:22:15 verbose #16195 > > Trace.State.trace_state
00:22:15 verbose #16196 > > #else
00:22:15 verbose #16197 > > State.trace_state
00:22:15 verbose #16198 > > #endif
00:22:15 verbose #16199 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:22:15 verbose #16200 > > level.l0
00:22:15 verbose #16201 > > )
00:22:15 verbose #16202 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:22:15 verbose #16203 > > trace_state=None")
00:22:15 verbose #16204 > >
00:22:16 verbose #16205 > >
00:22:16 verbose #16206 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:16 verbose #16207 > > #if !INTERACTIVE
00:22:16 verbose #16208 > > namespace Polyglot
00:22:16 verbose #16209 > > #endif
00:22:16 verbose #16210 > >
00:22:16 verbose #16211 > > module Common =
00:22:16 verbose #16212 > >
00:22:16 verbose #16213 > > #if !INTERACTIVE
00:22:16 verbose #16214 > > open Lib
00:22:16 verbose #16215 > > #endif
00:22:16 verbose #16216 > >
00:22:16 verbose #16217 > > let nl = System.Environment.NewLine
00:22:16 verbose #16218 > > let q = @""""
00:22:16 verbose #16219 > >
00:22:16 verbose #16220 > > let inline cons head tail = head :: tail
00:22:16 verbose #16221 > >
00:22:16 verbose #16222 > > /// ## memoize
00:22:16 verbose #16223 > > let inline memoize fn =
00:22:16 verbose #16224 > > let result = lazy fn ()
00:22:16 verbose #16225 > > fun () -> result.Value
00:22:16 verbose #16226 > >
00:22:16 verbose #16227 > > /// ## TraceLevel
00:22:16 verbose #16228 > > type TraceLevel =
00:22:16 verbose #16229 > > | Verbose
00:22:16 verbose #16230 > > | Debug
00:22:16 verbose #16231 > > | Info
00:22:16 verbose #16232 > > | Warning
00:22:16 verbose #16233 > > | Critical
00:22:16 verbose #16234 > >
00:22:16 verbose #16235 > > let inline _locals () = ""
00:22:16 verbose #16236 > >
00:22:16 verbose #16237 > > /// ## trace
00:22:16 verbose #16238 > > let to_trace_level = function
00:22:16 verbose #16239 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:22:16 verbose #16240 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:22:16 verbose #16241 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:22:16 verbose #16242 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:22:16 verbose #16243 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:22:16 verbose #16244 > >
00:22:16 verbose #16245 > > let trace level fn locals =
00:22:16 verbose #16246 > > let level = level |> to_trace_level
00:22:16 verbose #16247 > > SpiralTrace.trace level fn locals
00:22:16 verbose #16248 > >
00:22:16 verbose #16249 > >
00:22:16 verbose #16250 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:16 verbose #16251 > > #if !INTERACTIVE
00:22:16 verbose #16252 > > namespace Polyglot
00:22:16 verbose #16253 > > #endif
00:22:16 verbose #16254 > >
00:22:16 verbose #16255 > > module CommonFSharp =
00:22:16 verbose #16256 > >
00:22:16 verbose #16257 > > open Common
00:22:16 verbose #16258 > >
00:22:16 verbose #16259 > > /// ## getUnionCaseName
00:22:16 verbose #16260 > > let inline getUnionCaseName<'T> (x: 'T) =
00:22:16 verbose #16261 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:22:16 verbose #16262 > > | case, _ -> case.Name
00:22:16 verbose #16263 > >
00:22:16 verbose #16264 > >
00:22:16 verbose #16265 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:16 verbose #16266 > > #if !INTERACTIVE
00:22:16 verbose #16267 > > namespace Polyglot
00:22:16 verbose #16268 > > #endif
00:22:16 verbose #16269 > >
00:22:16 verbose #16270 > > module Async =
00:22:16 verbose #16271 > >
00:22:16 verbose #16272 > > #if !INTERACTIVE
00:22:16 verbose #16273 > > open Lib
00:22:16 verbose #16274 > > #endif
00:22:16 verbose #16275 > >
00:22:16 verbose #16276 > > open Common
00:22:16 verbose #16277 > >
00:22:16 verbose #16278 > > /// ## choice
00:22:16 verbose #16279 > > let inline choice asyncs = async {
00:22:16 verbose #16280 > > let e = Event<_> ()
00:22:16 verbose #16281 > > use cts = new System.Threading.CancellationTokenSource ()
00:22:16 verbose #16282 > > let fn =
00:22:16 verbose #16283 > > asyncs
00:22:16 verbose #16284 > > |> Seq.map (fun a -> async {
00:22:16 verbose #16285 > > let! x = a
00:22:16 verbose #16286 > > e.Trigger x
00:22:16 verbose #16287 > > })
00:22:16 verbose #16288 > > |> Async.Parallel
00:22:16 verbose #16289 > > |> Async.Ignore
00:22:16 verbose #16290 > > Async.Start (fn, cts.Token)
00:22:16 verbose #16291 > > let! result = Async.AwaitEvent e.Publish
00:22:16 verbose #16292 > > cts.Cancel ()
00:22:16 verbose #16293 > > return result
00:22:16 verbose #16294 > > }
00:22:16 verbose #16295 > >
00:22:16 verbose #16296 > > /// ## map
00:22:16 verbose #16297 > > let inline map fn a = async {
00:22:16 verbose #16298 > > let! x = a
00:22:16 verbose #16299 > > return fn x
00:22:16 verbose #16300 > > }
00:22:16 verbose #16301 > >
00:22:16 verbose #16302 > > /// ## catch
00:22:16 verbose #16303 > > let inline catch a =
00:22:16 verbose #16304 > > a
00:22:16 verbose #16305 > > |> Async.Catch
00:22:16 verbose #16306 > > |> map (function
00:22:16 verbose #16307 > > | Choice1Of2 result -> Ok result
00:22:16 verbose #16308 > > | Choice2Of2 ex -> Error ex
00:22:16 verbose #16309 > > )
00:22:16 verbose #16310 > >
00:22:16 verbose #16311 > > /// ## runWithTimeoutChoiceAsync
00:22:16 verbose #16312 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:22:16 verbose #16313 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:22:16 verbose #16314 > >
00:22:16 verbose #16315 > > let timeoutTask = async {
00:22:16 verbose #16316 > > do! Async.Sleep timeout
00:22:16 verbose #16317 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:22:16 verbose #16318 > > return None
00:22:16 verbose #16319 > > }
00:22:16 verbose #16320 > >
00:22:16 verbose #16321 > > let task = async {
00:22:16 verbose #16322 > > try
00:22:16 verbose #16323 > > let! result = fn
00:22:16 verbose #16324 > > return Some result
00:22:16 verbose #16325 > > with
00:22:16 verbose #16326 > > | :? System.AggregateException as ex when
00:22:16 verbose #16327 > > ex.InnerExceptions
00:22:16 verbose #16328 > > |> Seq.exists (function :? Sy... None
00:22:16 verbose #16329 > >
00:22:16 verbose #16330 > > /// ## awaitValueTask
00:22:16 verbose #16331 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:22:16 verbose #16332 > > task.AsTask () |> Async.AwaitTask
00:22:16 verbose #16333 > >
00:22:16 verbose #16334 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:22:16 verbose #16335 > > task.AsTask () |> Async.AwaitTask
00:22:16 verbose #16336 > >
00:22:16 verbose #16337 > > /// ## init
00:22:16 verbose #16338 > > let inline init x = async {
00:22:16 verbose #16339 > > return x
00:22:16 verbose #16340 > > }
00:22:16 verbose #16341 > >
00:22:16 verbose #16342 > > /// ## withCancellationToken
00:22:16 verbose #16343 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:22:16 verbose #16344 > > fn =
00:22:16 verbose #16345 > > Async.StartImmediateAsTask (fn, ct)
00:22:16 verbose #16346 > > |> Async.AwaitTask
00:22:16 verbose #16347 > >
00:22:16 verbose #16348 > > /// ## retryAsync
00:22:16 verbose #16349 > > let inline retryAsync retries fn =
00:22:16 verbose #16350 > > let rec loop retry lastError = async {
00:22:16 verbose #16351 > > try
00:22:16 verbose #16352 > > return!
00:22:16 verbose #16353 > > if retry <= retries
00:22:16 verbose #16354 > > then fn |> map Ok
00:22:16 verbose #16355 > > else lastError |> Error |> init
00:22:16 verbose #16356 > > with ex ->
00:22:16 verbose #16357 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:22:16 verbose #16358 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:22:16 verbose #16359 > > do! Async.Sleep 1
00:22:16 verbose #16360 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:22:16 verbose #16361 > > }
00:22:16 verbose #16362 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:22:16 verbose #16363 > >
00:22:16 verbose #16364 > > /// ## fold
00:22:16 verbose #16365 > > let fold folder state array =
00:22:16 verbose #16366 > > let rec loop acc i =
00:22:16 verbose #16367 > > async {
00:22:16 verbose #16368 > > if i < Array.length array then
00:22:16 verbose #16369 > > let! newAcc = folder acc array.[[i]]
00:22:16 verbose #16370 > > return! loop newAcc (i + 1)
00:22:16 verbose #16371 > > else
00:22:16 verbose #16372 > > return acc
00:22:16 verbose #16373 > > }
00:22:16 verbose #16374 > > loop state 0
00:22:16 verbose #16375 > >
00:22:19 verbose #16376 > >
00:22:19 verbose #16377 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:19 verbose #16378 > > #if !INTERACTIVE
00:22:19 verbose #16379 > > namespace Polyglot
00:22:19 verbose #16380 > > #endif
00:22:19 verbose #16381 > >
00:22:19 verbose #16382 > > module AsyncSeq =
00:22:19 verbose #16383 > >
00:22:19 verbose #16384 > > #if !INTERACTIVE
00:22:19 verbose #16385 > > open Lib
00:22:19 verbose #16386 > > #endif
00:22:19 verbose #16387 > >
00:22:19 verbose #16388 > > open Common
00:22:19 verbose #16389 > >
00:22:19 verbose #16390 > > /// ## subscribeEvent
00:22:19 verbose #16391 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:22:19 verbose #16392 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:22:19 verbose #16393 > > 'A>(event.AddHandler, event.RemoveHandler)
00:22:19 verbose #16394 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:22:19 verbose #16395 > > event.EventArgs)
00:22:19 verbose #16396 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:22:19 verbose #16397 > >
00:22:19 verbose #16398 > > /// ## subscribeToken
00:22:19 verbose #16399 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:22:19 verbose #16400 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:22:19 verbose #16401 > > System.Action tcs.SetResult |> token.Register |> ignore
00:22:19 verbose #16402 > > let start = System.DateTime.Now.Ticks
00:22:19 verbose #16403 > > FSharp.Control.AsyncSeq.unfoldAsync
00:22:19 verbose #16404 > > (fun () -> async {
00:22:19 verbose #16405 > > do! tcs.Task |> Async.AwaitTask
00:22:19 verbose #16406 > > return Some (System.DateTime.Now.Ticks - start, ())
00:22:19 verbose #16407 > > })
00:22:19 verbose #16408 > > ()
00:22:19 verbose #16409 > >
00:22:19 verbose #16410 > >
00:22:19 verbose #16411 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:19 verbose #16412 > > #if !INTERACTIVE
00:22:19 verbose #16413 > > namespace Polyglot
00:22:19 verbose #16414 > > #endif
00:22:19 verbose #16415 > >
00:22:19 verbose #16416 > > module Runtime =
00:22:19 verbose #16417 > >
00:22:19 verbose #16418 > > #if !INTERACTIVE
00:22:19 verbose #16419 > > open Lib
00:22:19 verbose #16420 > > #endif
00:22:19 verbose #16421 > >
00:22:19 verbose #16422 > > open Common
00:22:19 verbose #16423 > >
00:22:19 verbose #16424 > > /// ## parseArgs
00:22:19 verbose #16425 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:22:19 verbose #16426 > > let assemblyName =
00:22:19 verbose #16427 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:22:19 verbose #16428 > > let errorHandler : Argu.IExiter =
00:22:19 verbose #16429 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:22:19 verbose #16430 > > List.contains assemblyName
00:22:19 verbose #16431 > > then Argu.ExceptionExiter ()
00:22:19 verbose #16432 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:22:19 verbose #16433 > > _ -> Some System.ConsoleColor.Red)
00:22:19 verbose #16434 > >
00:22:19 verbose #16435 > > let parser =
00:22:19 verbose #16436 > > Argu.ArgumentParser.Create<'T> (
00:22:19 verbose #16437 > > programName =
00:22:19 verbose #16438 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:22:19 verbose #16439 > > errorHandler = errorHandler
00:22:19 verbose #16440 > > )
00:22:19 verbose #16441 > >
00:22:19 verbose #16442 > > parser.ParseCommandLine args
00:22:19 verbose #16443 > >
00:22:19 verbose #16444 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:22:19 verbose #16445 > > args
00:22:19 verbose #16446 > > |> parseArgs<'T>
00:22:19 verbose #16447 > > |> fun results -> results.GetAllResults ()
00:22:19 verbose #16448 > >
00:22:19 verbose #16449 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:22:19 verbose #16450 > > args
00:22:19 verbose #16451 > > |> parseAllArgs<'T>
00:22:19 verbose #16452 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:22:19 verbose #16453 > > |> Map.ofList
00:22:19 verbose #16454 > >
00:22:19 verbose #16455 > >
00:22:19 verbose #16456 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:19 verbose #16457 > > #if !INTERACTIVE
00:22:19 verbose #16458 > > namespace Polyglot
00:22:19 verbose #16459 > > #endif
00:22:19 verbose #16460 > >
00:22:19 verbose #16461 > > module FileSystem =
00:22:19 verbose #16462 > >
00:22:19 verbose #16463 > > #if !INTERACTIVE
00:22:19 verbose #16464 > > open Lib
00:22:19 verbose #16465 > > #endif
00:22:19 verbose #16466 > >
00:22:19 verbose #16467 > > open Common
00:22:19 verbose #16468 > > open SpiralFileSystem.Operators
00:22:19 verbose #16469 > >
00:22:19 verbose #16470 > > /// ## watchDirectory
00:22:19 verbose #16471 > > [[<RequireQualifiedAccess>]]
00:22:19 verbose #16472 > > type FileSystemChangeType =
00:22:19 verbose #16473 > > | Failure
00:22:19 verbose #16474 > > | Changed
00:22:19 verbose #16475 > > | Created
00:22:19 verbose #16476 > > | Deleted
00:22:19 verbose #16477 > > | Renamed
00:22:19 verbose #16478 > >
00:22:19 verbose #16479 > > [[<RequireQualifiedAccess>]]
00:22:19 verbose #16480 > > type FileSystemChange =
00:22:19 verbose #16481 > > | Failure of exn: exn
00:22:19 verbose #16482 > > | Changed of path: string * content: string option
00:22:19 verbose #16483 > > | Created of path: string * content: string option
00:22:19 verbose #16484 > > | Deleted of path: string
00:22:19 verbose #16485 > > | Renamed of oldPath: string * (string * string option)
00:22:19 verbose #16486 > >
00:22:19 verbose #16487 > >
00:22:19 verbose #16488 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:22:19 verbose #16489 > > let fullPath = path |> System.IO.Path.GetFullPath
00:22:19 verbose #16490 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:22:19 verbose #16491 > >
00:22:19 verbose #16492 > > let watcher =
00:22:19 verbose #16493 > > new System.IO.FileSystemWatcher (
00:22:19 verbose #16494 > > Path = fullPath,
00:22:19 verbose #16495 > > NotifyFilter = filter,
00:22:19 verbose #16496 > > EnableRaisingEvents = true,
00:22:19 verbose #16497 > > IncludeSubdirectories = true
00:22:19 verbose #16498 > > )
00:22:19 verbose #16499 > >
00:22:19 verbose #16500 > > let inline getEventPath (path : string) =
00:22:19 verbose #16501 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:22:19 verbose #16502 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:22:19 verbose #16503 > >
00:22:19 verbose #16504 > > let inline ticks () =
00:22:19 verbose #16505 > > System.DateTime.UtcNow.Ticks
00:22:19 verbose #16506 > >
00:22:19 verbose #16507 > > let changedStream =
00:22:19 verbose #16508 > > AsyncSeq.subscribeEvent
00:22:19 verbose #16509 > > watcher.Changed
00:22:19 verbose #16510 > > (fun event ->
00:22:19 verbose #16511 > > ticks (),
00:22:19 verbose #16512 > > [[ FileSystemChang...d_all_text_retry_async
00:22:19 verbose #16513 > > return t, FileSystemChange.Changed (path, content)
00:22:19 verbose #16514 > > | true, FileSystemChange.Created (path, _) ->
00:22:19 verbose #16515 > > do! Async.Sleep 5
00:22:19 verbose #16516 > > let! content = fullPath </> path |>
00:22:19 verbose #16517 > > SpiralFileSystem.read_all_text_retry_async
00:22:19 verbose #16518 > > return t, FileSystemChange.Created (path, content)
00:22:19 verbose #16519 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:22:19 verbose #16520 > > let! content = fullPath </> newPath |>
00:22:19 verbose #16521 > > SpiralFileSystem.read_all_text_retry_async
00:22:19 verbose #16522 > > return t, FileSystemChange.Renamed (oldPath, (newPath,
00:22:19 verbose #16523 > > content))
00:22:19 verbose #16524 > > | _ -> return t, event
00:22:19 verbose #16525 > > })
00:22:19 verbose #16526 > >
00:22:19 verbose #16527 > > let disposable =
00:22:19 verbose #16528 > > new_disposable (fun () ->
00:22:19 verbose #16529 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
00:22:19 verbose #16530 > > watch stream") _locals
00:22:19 verbose #16531 > > watcher.EnableRaisingEvents <- false
00:22:19 verbose #16532 > > watcher.Dispose ()
00:22:19 verbose #16533 > > )
00:22:19 verbose #16534 > >
00:22:19 verbose #16535 > > stream, disposable
00:22:19 verbose #16536 > >
00:22:19 verbose #16537 > > let inline watchDirectory path =
00:22:19 verbose #16538 > > watchDirectoryWithFilter
00:22:19 verbose #16539 > > (System.IO.NotifyFilters.FileName
00:22:19 verbose #16540 > > // ||| System.IO.NotifyFilters.DirectoryName
00:22:19 verbose #16541 > > // ||| System.IO.NotifyFilters.Attributes
00:22:19 verbose #16542 > > //// ||| System.IO.NotifyFilters.Size
00:22:19 verbose #16543 > > ||| System.IO.NotifyFilters.LastWrite
00:22:19 verbose #16544 > > //// ||| System.IO.NotifyFilters.LastAccess
00:22:19 verbose #16545 > > // ||| System.IO.NotifyFilters.CreationTime
00:22:19 verbose #16546 > > // ||| System.IO.NotifyFilters.Security
00:22:19 verbose #16547 > > )
00:22:19 verbose #16548 > > path
00:22:19 verbose #16549 > >
00:22:21 verbose #16550 > >
00:22:21 verbose #16551 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:21 verbose #16552 > > #if !INTERACTIVE
00:22:21 verbose #16553 > > open Lib
00:22:21 verbose #16554 > > #endif
00:22:21 verbose #16555 > >
00:22:21 verbose #16556 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:21 verbose #16557 > > open Common
00:22:21 verbose #16558 > > open SpiralFileSystem.Operators
00:22:21 verbose #16559 > >
00:22:21 verbose #16560 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:22:21 verbose #16561 > > let workspaceRoot = SpiralFileSystem.get_workspace_root ()
00:22:21 verbose #16562 > > let tmpSpiralPath = workspaceRoot </> "target/plot"
00:22:21 verbose #16563 > > let linePlotsDataPath = tmpSpiralPath </> "line_data"
00:22:21 verbose #16564 > > let linePlotsSvgPath = tmpSpiralPath </> "line_svg"
00:22:21 verbose #16565 > >
00:22:21 verbose #16566 > > [[ tmpSpiralPath; linePlotsDataPath; linePlotsSvgPath ]]
00:22:21 verbose #16567 > > |> List.iter (fun dir -> if Directory.Exists dir |> not then
00:22:21 verbose #16568 > > Directory.CreateDirectory dir |> ignore)
00:22:21 verbose #16569 > >
00:22:21 verbose #16570 > > Formatter.Register<struct (string * string * string * struct (string * float
00:22:21 verbose #16571 > > array * float array) array)> (
00:22:21 verbose #16572 > > (fun struct (caption, x_desc, y_desc, ys) ->
00:22:21 verbose #16573 > > let json = (caption, x_desc, y_desc, ys) |> FSharp.Json.Json.serialize
00:22:21 verbose #16574 > > async {
00:22:21 verbose #16575 > > let hashHex = json |> SpiralCrypto.hash_text
00:22:21 verbose #16576 > > let svgPath = linePlotsSvgPath </> $"{hashHex}.svg"
00:22:21 verbose #16577 > >
00:22:21 verbose #16578 > > if System.IO.File.Exists svgPath |> not then
00:22:21 verbose #16579 > > do! json |> SpiralFileSystem.write_all_text_async
00:22:21 verbose #16580 > > $"{linePlotsDataPath </> hashHex}.json"
00:22:21 verbose #16581 > >
00:22:21 verbose #16582 > > let ct =
00:22:21 verbose #16583 > > Microsoft.DotNet.Interactive.KernelInvocationContext.Current.CancellationToken
00:22:21 verbose #16584 > >
00:22:21 verbose #16585 > > let oldLevel = get_trace_level ()
00:22:21 verbose #16586 > > SpiralTrace.TraceLevel.US0_2
00:22:21 verbose #16587 > > |> set_trace_level
00:22:21 verbose #16588 > > use _ = (new_disposable (fun () ->
00:22:21 verbose #16589 > > oldLevel |> set_trace_level
00:22:21 verbose #16590 > > ))
00:22:21 verbose #16591 > >
00:22:21 verbose #16592 > > let plotExePath = workspaceRoot </>
00:22:21 verbose #16593 > > $"workspace/target/release/plot{SpiralPlatform.get_executable_suffix ()}"
00:22:21 verbose #16594 > > let! exitCode, result =
00:22:21 verbose #16595 > > SpiralRuntime.execution_options (fun x ->
00:22:21 verbose #16596 > > { x with
00:22:21 verbose #16597 > > l0 = Some ct
00:22:21 verbose #16598 > > l1 = plotExePath
00:22:21 verbose #16599 > > l6 = Some workspaceRoot
00:22:21 verbose #16600 > > }
00:22:21 verbose #16601 > > )
00:22:21 verbose #16602 > > |> SpiralRuntime.execute_with_options_async
00:22:21 verbose #16603 > > if exitCode <> 0 then
00:22:21 verbose #16604 > > return failwith $"plot failed with exit code {exitCode} and
00:22:21 verbose #16605 > > output {result}"
00:22:21 verbose #16606 > > return! svgPath |> SpiralFileSystem.read_all_text_async
00:22:21 verbose #16607 > > }
00:22:21 verbose #16608 > > |> Async.runWithTimeoutStrict 10000
00:22:21 verbose #16609 > > |> Option.defaultValue json
00:22:21 verbose #16610 > > ),
00:22:21 verbose #16611 > > "text/html"
00:22:21 verbose #16612 > > )
00:22:21 verbose #16613 > >
00:22:21 verbose #16614 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:21 verbose #16615 > > //// test
00:22:21 verbose #16616 > >
00:22:21 verbose #16617 > > open testing
00:22:21 verbose #16618 > >
00:22:21 verbose #16619 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:22:21 verbose #16620 > > #r
00:22:21 verbose #16621 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:22:21 verbose #16622 > > otNet.Interactive.Spiral.dll"
00:22:21 verbose #16623 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:22:21 verbose #16624 > > #r
00:22:21 verbose #16625 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:22:21 verbose #16626 > > otNet.Interactive.dll"
00:22:21 verbose #16627 > > open type Microsoft.DotNet.Interactive.Kernel
00:22:25 verbose #16628 > >
00:22:25 verbose #16629 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:25 verbose #16630 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:25 verbose #16631 > > │ ### init_series │
00:22:25 verbose #16632 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:25 verbose #16633 > >
00:22:25 verbose #16634 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:25 verbose #16635 > > //// test
00:22:25 verbose #16636 > >
00:22:25 verbose #16637 > > inl x : a _ f64 = am'.init_series -3 3 0.01
00:22:25 verbose #16638 > > inl y = x |> am.map math.square
00:22:25 verbose #16639 > > "square", "x", "y", ;[[ "square", x, y ]]
00:22:25 verbose #16640 > >
00:22:25 verbose #16641 > > ╭─[ 795.32ms - return value ]──────────────────────────────────────────────────╮
00:22:25 verbose #16642 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:25 verbose #16643 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:25 verbose #16644 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:25 verbose #16645 > > │ stroke="none"/> │
00:22:25 verbose #16646 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:25 verbose #16647 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:25 verbose #16648 > > │ fill="#FFFFFF"> │
00:22:25 verbose #16649 > > │ square │
00:22:25 verbose #16650 > > │ </text> │
00:22:25 verbose #16651 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:22:25 verbose #16652 > > │ y2="75"/> │
00:22:25 verbose #16653 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:25 verbose #16654 > > │ y2="75"/> │
00:22:25 verbose #16655 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:22:25 verbose #16656 > > │ y2="75"/> │
00:22:25 verbose #16657 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:22:25 verbose #16658 > > │ y2="75"/> │
00:22:25 verbose #16659 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:22:25 verbose #16660 > > │ y2="75"/> │
00:22:25 verbose #16661 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:22:25 verbose #16662 > > │ x2="103" y2="75"/> │
00:22:25 verbose #16663 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:22:25 verbose #16664 > > │ x2="111" y2="75"/> │
00:22:25 verbose #16665 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:25 verbose #16666 > > │ x2="119" y2="75"/> │
00:22:25 verbose #16667 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:22:25 verbose #16668 > > │ x2="128" y2="75"/> │
00:22:25 verbose #16669 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:22:25 verbose #16670 > > │ x2="136" y2="75"/> │
00:22:25 verbose #16671 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:22:25 verbose #16672 > > │ x2="144" y2="75"/> │
00:22:25 verbose #16673 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:22:25 verbose #16674 > > │ x2="153" y2="75"/> │
00:22:25 verbose #16675 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:22:25 verbose #16676 > > │ x2="161" y2="75"/> │
00:22:25 verbose #16677 > > │ <line opacity="1" stroke="#... 449,326 450,324 450,323 451,322 452,321 │
00:22:25 verbose #16678 > > │ 453,320 454,319 455,317 455,316 456,315 457,314 458,313 459,311 460,310 │
00:22:25 verbose #16679 > > │ 460,309 461,308 462,306 463,305 464,304 465,303 465,301 466,300 467,299 │
00:22:25 verbose #16680 > > │ 468,297 469,296 470,295 470,293 471,292 472,291 473,289 474,288 475,287 │
00:22:25 verbose #16681 > > │ 475,285 476,284 477,283 478,281 479,280 480,278 480,277 481,276 482,274 │
00:22:25 verbose #16682 > > │ 483,273 484,271 485,270 485,268 486,267 487,265 488,264 489,262 490,261 │
00:22:25 verbose #16683 > > │ 490,259 491,258 492,256 493,255 494,253 495,252 495,250 496,249 497,247 │
00:22:25 verbose #16684 > > │ 498,246 499,244 499,242 500,241 501,239 502,238 503,236 504,234 504,233 │
00:22:25 verbose #16685 > > │ 505,231 506,229 507,228 508,226 509,224 509,223 510,221 511,219 512,218 │
00:22:25 verbose #16686 > > │ 513,216 514,214 514,213 515,211 516,209 517,207 518,206 519,204 519,202 │
00:22:25 verbose #16687 > > │ 520,200 521,199 522,197 523,195 524,193 524,191 525,190 526,188 527,186 │
00:22:25 verbose #16688 > > │ 528,184 529,182 529,180 530,179 531,177 532,175 533,173 534,171 534,169 │
00:22:25 verbose #16689 > > │ 535,167 536,165 537,164 538,162 539,160 539,158 540,156 541,154 542,152 │
00:22:25 verbose #16690 > > │ 543,150 544,148 544,146 545,144 546,142 547,140 548,138 549,136 549,134 │
00:22:25 verbose #16691 > > │ 550,132 551,130 552,128 553,126 554,124 554,122 555,120 556,117 557,115 │
00:22:25 verbose #16692 > > │ 558,113 559,111 559,109 560,107 561,105 562,103 563,101 564,98 564,96 565,94 │
00:22:25 verbose #16693 > > │ 566,92 567,90 568,88 569,85 "/> │
00:22:25 verbose #16694 > > │ <rect x="497" y="235" width="83" height="30" opacity="1" fill="none" │
00:22:25 verbose #16695 > > │ stroke="#FFFFFF"/> │
00:22:25 verbose #16696 > > │ <text x="537" y="245" dy="0.76em" text-anchor="start" │
00:22:25 verbose #16697 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:25 verbose #16698 > > │ fill="#FFFFFF"> │
00:22:25 verbose #16699 > > │ square │
00:22:25 verbose #16700 > > │ </text> │
00:22:25 verbose #16701 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:25 verbose #16702 > > │ points="507,250 527,250 "/> │
00:22:25 verbose #16703 > > │ </svg> │
00:22:25 verbose #16704 > > │ │
00:22:25 verbose #16705 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:25 verbose #16706 > >
00:22:25 verbose #16707 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:25 verbose #16708 > > //// test
00:22:25 verbose #16709 > >
00:22:25 verbose #16710 > > inl x : a _ f64 = am'.init_series -10 10 0.1
00:22:25 verbose #16711 > > inl y_sin = x |> am.map sin
00:22:25 verbose #16712 > > inl y_cos = x |> am.map cos
00:22:25 verbose #16713 > > "sin cos", "x", "y", ;[[ "sin", x, y_sin; "cos", x, y_cos ]]
00:22:26 verbose #16714 > >
00:22:26 verbose #16715 > > ╭─[ 754.70ms - return value ]──────────────────────────────────────────────────╮
00:22:26 verbose #16716 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:26 verbose #16717 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:26 verbose #16718 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:26 verbose #16719 > > │ stroke="none"/> │
00:22:26 verbose #16720 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:26 verbose #16721 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:26 verbose #16722 > > │ fill="#FFFFFF"> │
00:22:26 verbose #16723 > > │ sin cos │
00:22:26 verbose #16724 > > │ </text> │
00:22:26 verbose #16725 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:22:26 verbose #16726 > > │ y2="75"/> │
00:22:26 verbose #16727 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:26 verbose #16728 > > │ y2="75"/> │
00:22:26 verbose #16729 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:22:26 verbose #16730 > > │ y2="75"/> │
00:22:26 verbose #16731 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:22:26 verbose #16732 > > │ y2="75"/> │
00:22:26 verbose #16733 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1="424" │
00:22:26 verbose #16734 > > │ x2="107" y2="75"/> │
00:22:26 verbose #16735 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:26 verbose #16736 > > │ x2="119" y2="75"/> │
00:22:26 verbose #16737 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="132" y1="424" │
00:22:26 verbose #16738 > > │ x2="132" y2="75"/> │
00:22:26 verbose #16739 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:22:26 verbose #16740 > > │ x2="144" y2="75"/> │
00:22:26 verbose #16741 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="157" y1="424" │
00:22:26 verbose #16742 > > │ x2="157" y2="75"/> │
00:22:26 verbose #16743 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:22:26 verbose #16744 > > │ x2="169" y2="75"/> │
00:22:26 verbose #16745 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="182" y1="424" │
00:22:26 verbose #16746 > > │ x2="182" y2="75"/> │
00:22:26 verbose #16747 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="194" y1="424" │
00:22:26 verbose #16748 > > │ x2="194" y2="75"/> │
00:22:26 verbose #16749 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="207" y1="424" │
00:22:26 verbose #16750 > > │ x2="207" y2="75"/> │
00:22:26 verbose #16751 > > │ <line opacity="1" stroke...55 282,238 284,222 287,206 289,190 292,175 │
00:22:26 verbose #16752 > > │ 294,161 297,148 299,135 302,124 304,114 307,106 309,98 312,93 314,89 317,86 │
00:22:26 verbose #16753 > > │ 319,85 321,86 324,89 326,93 329,98 331,106 334,114 336,124 339,135 341,148 │
00:22:26 verbose #16754 > > │ 344,161 346,175 349,190 351,206 354,222 356,238 359,255 361,271 364,287 │
00:22:26 verbose #16755 > > │ 366,303 369,319 371,333 374,347 376,360 379,371 381,382 384,391 386,399 │
00:22:26 verbose #16756 > > │ 389,405 391,410 394,413 396,414 399,414 401,413 404,409 406,404 409,398 │
00:22:26 verbose #16757 > > │ 411,390 414,380 416,370 419,358 421,345 424,331 426,316 429,301 431,285 │
00:22:26 verbose #16758 > > │ 434,268 436,252 439,236 441,219 444,203 446,188 449,173 451,159 454,146 │
00:22:26 verbose #16759 > > │ 456,133 459,122 461,113 464,104 466,97 469,92 471,88 474,86 476,85 479,86 │
00:22:26 verbose #16760 > > │ 481,89 484,94 486,99 489,107 491,116 494,126 496,137 499,150 501,163 504,178 │
00:22:26 verbose #16761 > > │ 506,193 509,209 511,225 514,241 516,258 519,274 521,290 524,306 526,321 │
00:22:26 verbose #16762 > > │ 529,335 531,349 534,362 536,373 539,384 541,392 544,400 546,406 549,410 │
00:22:26 verbose #16763 > > │ 551,413 554,415 556,414 559,412 561,408 564,403 566,396 569,388 "/> │
00:22:26 verbose #16764 > > │ <rect x="514" y="227" width="66" height="45" opacity="1" fill="none" │
00:22:26 verbose #16765 > > │ stroke="#FFFFFF"/> │
00:22:26 verbose #16766 > > │ <text x="554" y="237" dy="0.76em" text-anchor="start" │
00:22:26 verbose #16767 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:26 verbose #16768 > > │ fill="#FFFFFF"> │
00:22:26 verbose #16769 > > │ sin │
00:22:26 verbose #16770 > > │ </text> │
00:22:26 verbose #16771 > > │ <text x="554" y="252" dy="0.76em" text-anchor="start" │
00:22:26 verbose #16772 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:26 verbose #16773 > > │ fill="#FFFFFF"> │
00:22:26 verbose #16774 > > │ cos │
00:22:26 verbose #16775 > > │ </text> │
00:22:26 verbose #16776 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:26 verbose #16777 > > │ points="524,242 544,242 "/> │
00:22:26 verbose #16778 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:22:26 verbose #16779 > > │ points="524,257 544,257 "/> │
00:22:26 verbose #16780 > > │ </svg> │
00:22:26 verbose #16781 > > │ │
00:22:26 verbose #16782 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:26 verbose #16783 > >
00:22:26 verbose #16784 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:26 verbose #16785 > > //// test
00:22:26 verbose #16786 > >
00:22:26 verbose #16787 > > inl y_pos y0 vy0 ay t =
00:22:26 verbose #16788 > > y0 + vy0 * t + ay * (t |> math.square) / 2
00:22:26 verbose #16789 > >
00:22:26 verbose #16790 > > inl x : a _ f64 = am'.init_series 0 5 0.01
00:22:26 verbose #16791 > > inl y = x |> am.map (y_pos 0 20 -9.8)
00:22:26 verbose #16792 > > "projectile motion", "time (s)", "", ;[[ "height of projectile (m)", x, y ]]
00:22:27 verbose #16793 > >
00:22:27 verbose #16794 > > ╭─[ 762.85ms - return value ]──────────────────────────────────────────────────╮
00:22:27 verbose #16795 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:27 verbose #16796 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:27 verbose #16797 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:27 verbose #16798 > > │ stroke="none"/> │
00:22:27 verbose #16799 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:27 verbose #16800 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:27 verbose #16801 > > │ fill="#FFFFFF"> │
00:22:27 verbose #16802 > > │ projectile motion │
00:22:27 verbose #16803 > > │ </text> │
00:22:27 verbose #16804 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:22:27 verbose #16805 > > │ y2="75"/> │
00:22:27 verbose #16806 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:27 verbose #16807 > > │ y2="75"/> │
00:22:27 verbose #16808 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:22:27 verbose #16809 > > │ y2="75"/> │
00:22:27 verbose #16810 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:22:27 verbose #16811 > > │ y2="75"/> │
00:22:27 verbose #16812 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:22:27 verbose #16813 > > │ y2="75"/> │
00:22:27 verbose #16814 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:22:27 verbose #16815 > > │ x2="109" y2="75"/> │
00:22:27 verbose #16816 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:27 verbose #16817 > > │ x2="119" y2="75"/> │
00:22:27 verbose #16818 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:22:27 verbose #16819 > > │ x2="129" y2="75"/> │
00:22:27 verbose #16820 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:22:27 verbose #16821 > > │ x2="139" y2="75"/> │
00:22:27 verbose #16822 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:22:27 verbose #16823 > > │ x2="149" y2="75"/> │
00:22:27 verbose #16824 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:22:27 verbose #16825 > > │ x2="159" y2="75"/> │
00:22:27 verbose #16826 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:22:27 verbose #16827 > > │ x2="169" y2="75"/> │
00:22:27 verbose #16828 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:22:27 verbose #16829 > > │ x2="179" y2="75"/> │
00:22:27 verbose #16830 > > │ <line opacity="1...28,176 429,177 430,178 431,179 432,180 433,182 434,183 │
00:22:27 verbose #16831 > > │ 435,184 436,185 437,186 438,188 439,189 440,190 441,191 442,193 443,194 │
00:22:27 verbose #16832 > > │ 444,195 445,197 446,198 447,199 448,200 449,202 450,203 451,204 452,206 │
00:22:27 verbose #16833 > > │ 453,207 454,208 455,210 456,211 457,213 458,214 459,215 460,217 461,218 │
00:22:27 verbose #16834 > > │ 462,220 463,221 464,222 465,224 466,225 467,227 468,228 469,230 470,231 │
00:22:27 verbose #16835 > > │ 471,233 472,234 473,236 474,237 475,239 476,240 477,242 478,243 479,245 │
00:22:27 verbose #16836 > > │ 480,246 481,248 482,249 483,251 484,253 485,254 486,256 487,257 488,259 │
00:22:27 verbose #16837 > > │ 489,261 490,262 491,264 492,266 493,267 494,269 495,271 496,272 497,274 │
00:22:27 verbose #16838 > > │ 498,276 499,277 500,279 501,281 502,282 503,284 504,286 505,288 506,289 │
00:22:27 verbose #16839 > > │ 507,291 508,293 509,295 510,296 511,298 512,300 513,302 514,304 515,305 │
00:22:27 verbose #16840 > > │ 516,307 517,309 518,311 519,313 520,315 521,316 522,318 523,320 524,322 │
00:22:27 verbose #16841 > > │ 525,324 526,326 527,328 528,330 529,332 530,334 531,335 532,337 533,339 │
00:22:27 verbose #16842 > > │ 534,341 535,343 536,345 537,347 538,349 539,351 540,353 541,355 542,357 │
00:22:27 verbose #16843 > > │ 543,359 544,361 545,363 546,365 547,367 548,370 549,372 550,374 551,376 │
00:22:27 verbose #16844 > > │ 552,378 553,380 554,382 555,384 556,386 557,388 558,391 559,393 560,395 │
00:22:27 verbose #16845 > > │ 561,397 562,399 563,401 564,404 565,406 566,408 567,410 568,412 569,415 "/> │
00:22:27 verbose #16846 > > │ <rect x="399" y="235" width="181" height="30" opacity="1" fill="none" │
00:22:27 verbose #16847 > > │ stroke="#FFFFFF"/> │
00:22:27 verbose #16848 > > │ <text x="439" y="245" dy="0.76em" text-anchor="start" │
00:22:27 verbose #16849 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:27 verbose #16850 > > │ fill="#FFFFFF"> │
00:22:27 verbose #16851 > > │ height of projectile (m) │
00:22:27 verbose #16852 > > │ </text> │
00:22:27 verbose #16853 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:27 verbose #16854 > > │ points="409,250 429,250 "/> │
00:22:27 verbose #16855 > > │ </svg> │
00:22:27 verbose #16856 > > │ │
00:22:27 verbose #16857 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:27 verbose #16858 > >
00:22:27 verbose #16859 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:27 verbose #16860 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:27 verbose #16861 > > │ ### velocity_cf │
00:22:27 verbose #16862 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:27 verbose #16863 > >
00:22:27 verbose #16864 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:27 verbose #16865 > > type mass = f64
00:22:27 verbose #16866 > > type time = f64
00:22:27 verbose #16867 > > type position = f64
00:22:27 verbose #16868 > > type velocity = f64
00:22:27 verbose #16869 > > type force = f64
00:22:27 verbose #16870 > >
00:22:27 verbose #16871 > > type velocity_cf = mass -> velocity -> list force -> (time -> velocity)
00:22:27 verbose #16872 > >
00:22:27 verbose #16873 > > inl velocity_cf m v0 fs =
00:22:27 verbose #16874 > > inl f_net = fs |> listm'.sum
00:22:27 verbose #16875 > > inl a0 = f_net / m
00:22:27 verbose #16876 > > inl v t = v0 + a0 * t
00:22:27 verbose #16877 > > v
00:22:28 verbose #16878 > >
00:22:28 verbose #16879 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:28 verbose #16880 > > //// test
00:22:28 verbose #16881 > >
00:22:28 verbose #16882 > > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 0
00:22:28 verbose #16883 > > |> _assert_eq 0.6
00:22:28 verbose #16884 > >
00:22:28 verbose #16885 > > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 1
00:22:28 verbose #16886 > > |> _assert_eq 0.2
00:22:28 verbose #16887 > >
00:22:28 verbose #16888 > > ╭─[ 697.71ms - stdout ]────────────────────────────────────────────────────────╮
00:22:28 verbose #16889 > > │ assert_eq / actual: 0.6 / expected: 0.6 │
00:22:28 verbose #16890 > > │ assert_eq / actual: 0.2 / expected: 0.2 │
00:22:28 verbose #16891 > > │ │
00:22:28 verbose #16892 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:28 verbose #16893 > >
00:22:28 verbose #16894 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:28 verbose #16895 > > //// test
00:22:28 verbose #16896 > >
00:22:28 verbose #16897 > > inl x = am'.init_series 0 4 0.1
00:22:28 verbose #16898 > > inl y = x |> am.map (velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]])
00:22:28 verbose #16899 > > "car on an air track", "time (s)", "", ;[[ "velocity of car (m/s)", x, y ]]
00:22:29 verbose #16900 > >
00:22:29 verbose #16901 > > ╭─[ 754.69ms - return value ]──────────────────────────────────────────────────╮
00:22:29 verbose #16902 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:29 verbose #16903 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:29 verbose #16904 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:29 verbose #16905 > > │ stroke="none"/> │
00:22:29 verbose #16906 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:29 verbose #16907 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:29 verbose #16908 > > │ fill="#FFFFFF"> │
00:22:29 verbose #16909 > > │ car on an air track │
00:22:29 verbose #16910 > > │ </text> │
00:22:29 verbose #16911 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:22:29 verbose #16912 > > │ y2="75"/> │
00:22:29 verbose #16913 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:29 verbose #16914 > > │ y2="75"/> │
00:22:29 verbose #16915 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:22:29 verbose #16916 > > │ y2="75"/> │
00:22:29 verbose #16917 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:22:29 verbose #16918 > > │ y2="75"/> │
00:22:29 verbose #16919 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1="424" │
00:22:29 verbose #16920 > > │ x2="107" y2="75"/> │
00:22:29 verbose #16921 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:29 verbose #16922 > > │ x2="119" y2="75"/> │
00:22:29 verbose #16923 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="132" y1="424" │
00:22:29 verbose #16924 > > │ x2="132" y2="75"/> │
00:22:29 verbose #16925 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:22:29 verbose #16926 > > │ x2="144" y2="75"/> │
00:22:29 verbose #16927 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="157" y1="424" │
00:22:29 verbose #16928 > > │ x2="157" y2="75"/> │
00:22:29 verbose #16929 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:22:29 verbose #16930 > > │ x2="169" y2="75"/> │
00:22:29 verbose #16931 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="182" y1="424" │
00:22:29 verbose #16932 > > │ x2="182" y2="75"/> │
00:22:29 verbose #16933 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="194" y1="424" │
00:22:29 verbose #16934 > > │ x2="194" y2="75"/> │
00:22:29 verbose #16935 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="207" y1="424" │
00:22:29 verbose #16936 > > │ x2="207" y2="75"/> │
00:22:29 verbose #16937 > > │ <line opacit...85,209 590,209 "/> │
00:22:29 verbose #16938 > > │ <text x="617" y="168" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:22:29 verbose #16939 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:22:29 verbose #16940 > > │ 0.2 │
00:22:29 verbose #16941 > > │ </text> │
00:22:29 verbose #16942 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:22:29 verbose #16943 > > │ points="585,168 590,168 "/> │
00:22:29 verbose #16944 > > │ <text x="617" y="127" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:22:29 verbose #16945 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:22:29 verbose #16946 > > │ 0.4 │
00:22:29 verbose #16947 > > │ </text> │
00:22:29 verbose #16948 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:22:29 verbose #16949 > > │ points="585,127 590,127 "/> │
00:22:29 verbose #16950 > > │ <text x="617" y="85" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:22:29 verbose #16951 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:22:29 verbose #16952 > > │ 0.6 │
00:22:29 verbose #16953 > > │ </text> │
00:22:29 verbose #16954 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:22:29 verbose #16955 > > │ points="585,85 590,85 "/> │
00:22:29 verbose #16956 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:29 verbose #16957 > > │ points="69,85 82,94 94,102 107,110 119,118 132,127 144,135 157,143 169,151 │
00:22:29 verbose #16958 > > │ 182,159 194,168 207,176 219,184 232,192 244,201 257,209 269,217 282,225 │
00:22:29 verbose #16959 > > │ 294,234 307,242 319,250 331,258 344,266 356,275 369,283 381,291 394,299 │
00:22:29 verbose #16960 > > │ 406,308 419,316 431,324 444,332 456,341 469,349 481,357 494,365 506,373 │
00:22:29 verbose #16961 > > │ 519,382 531,390 544,398 556,406 569,415 "/> │
00:22:29 verbose #16962 > > │ <rect x="415" y="235" width="165" height="30" opacity="1" fill="none" │
00:22:29 verbose #16963 > > │ stroke="#FFFFFF"/> │
00:22:29 verbose #16964 > > │ <text x="455" y="245" dy="0.76em" text-anchor="start" │
00:22:29 verbose #16965 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:29 verbose #16966 > > │ fill="#FFFFFF"> │
00:22:29 verbose #16967 > > │ velocity of car (m/s) │
00:22:29 verbose #16968 > > │ </text> │
00:22:29 verbose #16969 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:29 verbose #16970 > > │ points="425,250 445,250 "/> │
00:22:29 verbose #16971 > > │ </svg> │
00:22:29 verbose #16972 > > │ │
00:22:29 verbose #16973 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:29 verbose #16974 > >
00:22:29 verbose #16975 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:29 verbose #16976 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:29 verbose #16977 > > │ ### derivative │
00:22:29 verbose #16978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:29 verbose #16979 > >
00:22:29 verbose #16980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:29 verbose #16981 > > type derivative = (f64 -> f64) -> f64 -> f64
00:22:29 verbose #16982 > >
00:22:29 verbose #16983 > > inl derivative dt : derivative =
00:22:29 verbose #16984 > > fun x t =>
00:22:29 verbose #16985 > > (x (t + dt / 2) - x (t - dt / 2)) / dt
00:22:30 verbose #16986 > >
00:22:30 verbose #16987 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:30 verbose #16988 > > //// test
00:22:30 verbose #16989 > >
00:22:30 verbose #16990 > > derivative 1 (fun x => x ** 4 / 4) 1 - 1
00:22:30 verbose #16991 > > |> _assert_approx_eq None 0.25
00:22:30 verbose #16992 > >
00:22:30 verbose #16993 > > derivative 0.001 (fun x => x ** 4 / 4) 1 - 1
00:22:30 verbose #16994 > > |> _assert_approx_eq None 0.0000002499998827953931
00:22:30 verbose #16995 > >
00:22:30 verbose #16996 > > derivative 0.000001 (fun x => x ** 4 / 4) 1 - 1
00:22:30 verbose #16997 > > |> _assert_approx_eq None 0.000000000001000088900582341
00:22:30 verbose #16998 > >
00:22:30 verbose #16999 > > derivative 0.000000001 (fun x => x ** 4 / 4) 1 - 1
00:22:30 verbose #17000 > > |> _assert_approx_eq None 0.00000008274037099909037
00:22:30 verbose #17001 > >
00:22:30 verbose #17002 > > derivative 0.000000000001 (fun x => x ** 4 / 4) 1 - 1
00:22:30 verbose #17003 > > |> _assert_approx_eq None 0.00008890058234101161
00:22:30 verbose #17004 > >
00:22:30 verbose #17005 > > derivative 0.000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:22:30 verbose #17006 > > |> _assert_approx_eq None -0.0007992778373592246
00:22:30 verbose #17007 > >
00:22:30 verbose #17008 > > derivative 0.000000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:22:30 verbose #17009 > > |> _assert_approx_eq None -1
00:22:31 verbose #17010 > >
00:22:31 verbose #17011 > > ╭─[ 818.66ms - stdout ]────────────────────────────────────────────────────────╮
00:22:31 verbose #17012 > > │ assert_approx_eq / actual: 0.25 / expected: 0.25 │
00:22:31 verbose #17013 > > │ assert_approx_eq / actual: 2.499998828e-07 / expected: 2.499998828e-07 │
00:22:31 verbose #17014 > > │ assert_approx_eq / actual: 1.000088901e-12 / expected: 1.000088901e-12 │
00:22:31 verbose #17015 > > │ assert_approx_eq / actual: 8.2740371e-08 / expected: 8.2740371e-08 │
00:22:31 verbose #17016 > > │ assert_approx_eq / actual: 8.890058234e-05 / expected: 8.890058234e-05 │
00:22:31 verbose #17017 > > │ assert_approx_eq / actual: -0.0007992778374 / expected: -0.0007992778374 │
00:22:31 verbose #17018 > > │ assert_approx_eq / actual: -1.0 / expected: -1.0 │
00:22:31 verbose #17019 > > │ │
00:22:31 verbose #17020 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:31 verbose #17021 > >
00:22:31 verbose #17022 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:31 verbose #17023 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:31 verbose #17024 > > │ ### integration │
00:22:31 verbose #17025 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:31 verbose #17026 > >
00:22:31 verbose #17027 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:31 verbose #17028 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64
00:22:31 verbose #17029 > >
00:22:31 verbose #17030 > > inl integral dt : integration =
00:22:31 verbose #17031 > > fun f a b =>
00:22:31 verbose #17032 > > inl rec loop t y =
00:22:31 verbose #17033 > > if t < b
00:22:31 verbose #17034 > > then loop (t + dt) (y + f t * dt)
00:22:31 verbose #17035 > > else t, y
00:22:31 verbose #17036 > > loop (a + dt / 2) 0
00:22:31 verbose #17037 > > |> snd
00:22:31 verbose #17038 > >
00:22:31 verbose #17039 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:31 verbose #17040 > > //// test
00:22:31 verbose #17041 > >
00:22:31 verbose #17042 > > integral 0.01 math.square 0 1
00:22:31 verbose #17043 > > |> _assert_approx_eq None 0.33332500000000004
00:22:33 verbose #17044 > >
00:22:33 verbose #17045 > > ╭─[ 1.15s - stdout ]───────────────────────────────────────────────────────────╮
00:22:33 verbose #17046 > > │ assert_approx_eq / actual: 0.333325 / expected: 0.333325 │
00:22:33 verbose #17047 > > │ │
00:22:33 verbose #17048 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:33 verbose #17049 > >
00:22:33 verbose #17050 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:33 verbose #17051 > > inl integral' dt : integration =
00:22:33 verbose #17052 > > fun f a b =>
00:22:33 verbose #17053 > > listm'.init_series (a + dt / 2) (b - dt / 2) dt
00:22:33 verbose #17054 > > |> listm.map (f >> (*) dt)
00:22:33 verbose #17055 > > |> listm'.sum
00:22:33 verbose #17056 > >
00:22:33 verbose #17057 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:33 verbose #17058 > > //// test
00:22:33 verbose #17059 > >
00:22:33 verbose #17060 > > integral' 0.1 math.square 0 1
00:22:33 verbose #17061 > > |> _assert_approx_eq None (integral 0.1 math.square 0 1)
00:22:34 verbose #17062 > >
00:22:34 verbose #17063 > > ╭─[ 692.88ms - stdout ]────────────────────────────────────────────────────────╮
00:22:34 verbose #17064 > > │ assert_approx_eq / actual: 0.3325 / expected: 0.3325 │
00:22:34 verbose #17065 > > │ │
00:22:34 verbose #17066 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:34 verbose #17067 > >
00:22:34 verbose #17068 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:34 verbose #17069 > > inl integral'' dt : integration =
00:22:34 verbose #17070 > > fun f a b =>
00:22:34 verbose #17071 > > am'.init_series (a + dt / 2) (b - dt / 2) dt
00:22:34 verbose #17072 > > |> am.map (f >> (*) dt)
00:22:34 verbose #17073 > > |> am'.sum
00:22:35 verbose #17074 > >
00:22:35 verbose #17075 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:35 verbose #17076 > > //// test
00:22:35 verbose #17077 > >
00:22:35 verbose #17078 > > integral'' 0.01 math.square 0 1
00:22:35 verbose #17079 > > |> _assert_approx_eq None (integral 0.01 math.square 0 1)
00:22:35 verbose #17080 > >
00:22:35 verbose #17081 > > ╭─[ 749.85ms - stdout ]────────────────────────────────────────────────────────╮
00:22:35 verbose #17082 > > │ assert_approx_eq / actual: 0.333325 / expected: 0.333325 │
00:22:35 verbose #17083 > > │ │
00:22:35 verbose #17084 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:35 verbose #17085 > >
00:22:35 verbose #17086 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:35 verbose #17087 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:35 verbose #17088 > > │ ### anti_derivative │
00:22:35 verbose #17089 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:35 verbose #17090 > >
00:22:35 verbose #17091 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:35 verbose #17092 > > inl anti_derivative dt v0 a t =
00:22:35 verbose #17093 > > v0 + integral' dt a 0 t
00:22:36 verbose #17094 > >
00:22:36 verbose #17095 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:36 verbose #17096 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:36 verbose #17097 > > │ ### velocity_ft │
00:22:36 verbose #17098 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:36 verbose #17099 > >
00:22:36 verbose #17100 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:36 verbose #17101 > > type velocity_ft = mass -> velocity -> list (time -> force) -> (time ->
00:22:36 verbose #17102 > > velocity)
00:22:36 verbose #17103 > >
00:22:36 verbose #17104 > > inl velocity_ft dt : velocity_ft =
00:22:36 verbose #17105 > > fun m v0 fs =>
00:22:36 verbose #17106 > > inl f_net t = fs |> listm.map (fun f => f t) |> listm'.sum
00:22:36 verbose #17107 > > inl a t = f_net t / m
00:22:36 verbose #17108 > > anti_derivative dt v0 a
00:22:37 verbose #17109 > >
00:22:37 verbose #17110 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:37 verbose #17111 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:37 verbose #17112 > > │ ### position_ft │
00:22:37 verbose #17113 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:37 verbose #17114 > >
00:22:37 verbose #17115 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:37 verbose #17116 > > type position_ft = mass -> position -> velocity -> list (time -> force) -> (time
00:22:37 verbose #17117 > > -> position)
00:22:37 verbose #17118 > >
00:22:37 verbose #17119 > > inl position_ft dt : position_ft =
00:22:37 verbose #17120 > > fun m x0 v0 fs =>
00:22:37 verbose #17121 > > velocity_ft dt m v0 fs
00:22:37 verbose #17122 > > |> anti_derivative dt x0
00:22:38 verbose #17123 > >
00:22:38 verbose #17124 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:38 verbose #17125 > > //// test
00:22:38 verbose #17126 > >
00:22:38 verbose #17127 > > inl pedal_coast (t : time) : force =
00:22:38 verbose #17128 > > inl t_cycle = 20
00:22:38 verbose #17129 > > inl n_complete : i32 = t / t_cycle |> conv
00:22:38 verbose #17130 > > inl remainder = t - conv n_complete * t_cycle
00:22:38 verbose #17131 > > if remainder > 0 && remainder < 10
00:22:38 verbose #17132 > > then 10
00:22:38 verbose #17133 > > else 0
00:22:38 verbose #17134 > >
00:22:38 verbose #17135 > > inl x = am'.init_series -5 45 0.1
00:22:38 verbose #17136 > > inl y = x |> am.map pedal_coast
00:22:38 verbose #17137 > > "child pedaling then coasting", "time (s)", "", ;[[ "force on bike (N)", x, y ]]
00:22:39 verbose #17138 > >
00:22:39 verbose #17139 > > ╭─[ 969.03ms - return value ]──────────────────────────────────────────────────╮
00:22:39 verbose #17140 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:39 verbose #17141 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:39 verbose #17142 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:39 verbose #17143 > > │ stroke="none"/> │
00:22:39 verbose #17144 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:39 verbose #17145 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:39 verbose #17146 > > │ fill="#FFFFFF"> │
00:22:39 verbose #17147 > > │ child pedaling then coasting │
00:22:39 verbose #17148 > > │ </text> │
00:22:39 verbose #17149 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:22:39 verbose #17150 > > │ y2="75"/> │
00:22:39 verbose #17151 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:39 verbose #17152 > > │ y2="75"/> │
00:22:39 verbose #17153 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:22:39 verbose #17154 > > │ y2="75"/> │
00:22:39 verbose #17155 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:22:39 verbose #17156 > > │ y2="75"/> │
00:22:39 verbose #17157 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:22:39 verbose #17158 > > │ y2="75"/> │
00:22:39 verbose #17159 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:22:39 verbose #17160 > > │ x2="109" y2="75"/> │
00:22:39 verbose #17161 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:39 verbose #17162 > > │ x2="119" y2="75"/> │
00:22:39 verbose #17163 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:22:39 verbose #17164 > > │ x2="129" y2="75"/> │
00:22:39 verbose #17165 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:22:39 verbose #17166 > > │ x2="139" y2="75"/> │
00:22:39 verbose #17167 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:22:39 verbose #17168 > > │ x2="149" y2="75"/> │
00:22:39 verbose #17169 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:22:39 verbose #17170 > > │ x2="159" y2="75"/> │
00:22:39 verbose #17171 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:22:39 verbose #17172 > > │ x2="169" y2="75"/> │
00:22:39 verbose #17173 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:22:39 verbose #17174 > > │ x2="179" y2="75"/> │
00:22:39 verbose #17175 > > │ <line...421,415 422,415 423,415 424,415 425,415 426,415 427,415 428,415 │
00:22:39 verbose #17176 > > │ 429,415 430,415 431,415 432,415 433,415 434,415 435,415 436,415 437,415 │
00:22:39 verbose #17177 > > │ 438,415 439,415 440,415 441,415 442,415 443,415 444,415 445,415 446,415 │
00:22:39 verbose #17178 > > │ 447,415 448,415 449,415 450,415 451,415 452,415 453,415 454,415 455,415 │
00:22:39 verbose #17179 > > │ 456,415 457,415 458,415 459,415 460,415 461,415 462,415 463,415 464,415 │
00:22:39 verbose #17180 > > │ 465,415 466,415 467,415 468,415 469,415 470,415 471,415 472,415 473,415 │
00:22:39 verbose #17181 > > │ 474,415 475,415 476,415 477,415 478,415 479,415 480,415 481,415 482,415 │
00:22:39 verbose #17182 > > │ 483,415 484,415 485,415 486,415 487,415 488,415 489,415 490,415 491,415 │
00:22:39 verbose #17183 > > │ 492,415 493,415 494,415 495,415 496,415 497,415 498,415 499,415 500,415 │
00:22:39 verbose #17184 > > │ 501,415 502,415 503,415 504,415 505,415 506,415 507,415 508,415 509,415 │
00:22:39 verbose #17185 > > │ 510,415 511,415 512,415 513,415 514,415 515,415 516,415 517,415 518,415 │
00:22:39 verbose #17186 > > │ 519,415 520,85 521,85 522,85 523,85 524,85 525,85 526,85 527,85 528,85 │
00:22:39 verbose #17187 > > │ 529,85 530,85 531,85 532,85 533,85 534,85 535,85 536,85 537,85 538,85 539,85 │
00:22:39 verbose #17188 > > │ 540,85 541,85 542,85 543,85 544,85 545,85 546,85 547,85 548,85 549,85 550,85 │
00:22:39 verbose #17189 > > │ 551,85 552,85 553,85 554,85 555,85 556,85 557,85 558,85 559,85 560,85 561,85 │
00:22:39 verbose #17190 > > │ 562,85 563,85 564,85 565,85 566,85 567,85 568,85 569,85 "/> │
00:22:39 verbose #17191 > > │ <rect x="437" y="235" width="143" height="30" opacity="1" fill="none" │
00:22:39 verbose #17192 > > │ stroke="#FFFFFF"/> │
00:22:39 verbose #17193 > > │ <text x="477" y="245" dy="0.76em" text-anchor="start" │
00:22:39 verbose #17194 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:39 verbose #17195 > > │ fill="#FFFFFF"> │
00:22:39 verbose #17196 > > │ force on bike (N) │
00:22:39 verbose #17197 > > │ </text> │
00:22:39 verbose #17198 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:39 verbose #17199 > > │ points="447,250 467,250 "/> │
00:22:39 verbose #17200 > > │ </svg> │
00:22:39 verbose #17201 > > │ │
00:22:39 verbose #17202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:39 verbose #17203 > >
00:22:39 verbose #17204 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:39 verbose #17205 > > //// test
00:22:39 verbose #17206 > >
00:22:39 verbose #17207 > > inl x = am'.init_series -5 45 1
00:22:39 verbose #17208 > > inl y = x |> am.map (position_ft 0.1f64 20 0 0 [[ pedal_coast ]])
00:22:39 verbose #17209 > > "child pedaling then coasting", "time (s)", "", ;[[ "position of bike (m)", x, y
00:22:39 verbose #17210 > > ]]
00:22:40 verbose #17211 > >
00:22:40 verbose #17212 > > ╭─[ 1.36s - return value ]─────────────────────────────────────────────────────╮
00:22:40 verbose #17213 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:40 verbose #17214 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:40 verbose #17215 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:40 verbose #17216 > > │ stroke="none"/> │
00:22:40 verbose #17217 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:40 verbose #17218 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:40 verbose #17219 > > │ fill="#FFFFFF"> │
00:22:40 verbose #17220 > > │ child pedaling then coasting │
00:22:40 verbose #17221 > > │ </text> │
00:22:40 verbose #17222 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:22:40 verbose #17223 > > │ y2="75"/> │
00:22:40 verbose #17224 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:40 verbose #17225 > > │ y2="75"/> │
00:22:40 verbose #17226 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:22:40 verbose #17227 > > │ y2="75"/> │
00:22:40 verbose #17228 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:22:40 verbose #17229 > > │ y2="75"/> │
00:22:40 verbose #17230 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:22:40 verbose #17231 > > │ y2="75"/> │
00:22:40 verbose #17232 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:22:40 verbose #17233 > > │ x2="109" y2="75"/> │
00:22:40 verbose #17234 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:40 verbose #17235 > > │ x2="119" y2="75"/> │
00:22:40 verbose #17236 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:22:40 verbose #17237 > > │ x2="129" y2="75"/> │
00:22:40 verbose #17238 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:22:40 verbose #17239 > > │ x2="139" y2="75"/> │
00:22:40 verbose #17240 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:22:40 verbose #17241 > > │ x2="149" y2="75"/> │
00:22:40 verbose #17242 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:22:40 verbose #17243 > > │ x2="159" y2="75"/> │
00:22:40 verbose #17244 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:22:40 verbose #17245 > > │ x2="169" y2="75"/> │
00:22:40 verbose #17246 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:22:40 verbose #17247 > > │ x2="179" y2="75"/> │
00:22:40 verbose #17248 > > │ <line...serif" font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:22:40 verbose #17249 > > │ 200.0 │
00:22:40 verbose #17250 > > │ </text> │
00:22:40 verbose #17251 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:22:40 verbose #17252 > > │ points="585,201 590,201 "/> │
00:22:40 verbose #17253 > > │ <text x="595" y="147" dy="0.5ex" text-anchor="start" │
00:22:40 verbose #17254 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:40 verbose #17255 > > │ fill="#FFFFFF"> │
00:22:40 verbose #17256 > > │ 250.0 │
00:22:40 verbose #17257 > > │ </text> │
00:22:40 verbose #17258 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:22:40 verbose #17259 > > │ points="585,147 590,147 "/> │
00:22:40 verbose #17260 > > │ <text x="595" y="94" dy="0.5ex" text-anchor="start" font-family="sans-serif" │
00:22:40 verbose #17261 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:22:40 verbose #17262 > > │ 300.0 │
00:22:40 verbose #17263 > > │ </text> │
00:22:40 verbose #17264 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:22:40 verbose #17265 > > │ points="585,94 590,94 "/> │
00:22:40 verbose #17266 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:40 verbose #17267 > > │ points="69,415 79,415 89,415 99,415 109,415 119,415 129,414 139,413 149,412 │
00:22:40 verbose #17268 > > │ 159,410 169,408 179,405 189,401 199,397 209,393 219,388 229,382 239,377 │
00:22:40 verbose #17269 > > │ 249,372 259,366 269,361 279,356 289,350 299,345 309,340 319,334 329,329 │
00:22:40 verbose #17270 > > │ 339,322 349,316 359,308 369,301 379,292 389,284 399,274 409,264 419,254 │
00:22:40 verbose #17271 > > │ 429,243 439,232 449,221 459,210 469,199 479,189 489,178 499,167 509,157 │
00:22:40 verbose #17272 > > │ 519,146 529,135 539,123 549,111 559,99 569,85 "/> │
00:22:40 verbose #17273 > > │ <rect x="421" y="235" width="159" height="30" opacity="1" fill="none" │
00:22:40 verbose #17274 > > │ stroke="#FFFFFF"/> │
00:22:40 verbose #17275 > > │ <text x="461" y="245" dy="0.76em" text-anchor="start" │
00:22:40 verbose #17276 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:40 verbose #17277 > > │ fill="#FFFFFF"> │
00:22:40 verbose #17278 > > │ position of bike (m) │
00:22:40 verbose #17279 > > │ </text> │
00:22:40 verbose #17280 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:40 verbose #17281 > > │ points="431,250 451,250 "/> │
00:22:40 verbose #17282 > > │ </svg> │
00:22:40 verbose #17283 > > │ │
00:22:40 verbose #17284 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:40 verbose #17285 > >
00:22:40 verbose #17286 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:40 verbose #17287 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:40 verbose #17288 > > │ ### velocity_fv │
00:22:40 verbose #17289 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:40 verbose #17290 > >
00:22:40 verbose #17291 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:40 verbose #17292 > > inl newton_second_v m fs v0 =
00:22:40 verbose #17293 > > fs |> listm.map (fun f => f v0) |> listm'.sum |> fun x => x / m
00:22:40 verbose #17294 > >
00:22:40 verbose #17295 > > inl update_velocity dt m fs v0 =
00:22:40 verbose #17296 > > v0 + newton_second_v m fs v0 * dt
00:22:40 verbose #17297 > >
00:22:40 verbose #17298 > > inl velocity_fv dt m v0 fs t =
00:22:40 verbose #17299 > > stream.iterate (update_velocity dt m fs) v0
00:22:40 verbose #17300 > > |> stream.try_item (t / dt |> math.round |> abs)
00:22:40 verbose #17301 > > |> optionm'.default_value 0
00:22:41 verbose #17302 > >
00:22:41 verbose #17303 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:41 verbose #17304 > > inl f_air drag rho area v =
00:22:41 verbose #17305 > > -drag * rho * area * abs v * v / 2
00:22:42 verbose #17306 > >
00:22:42 verbose #17307 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:42 verbose #17308 > > //// test
00:22:42 verbose #17309 > >
00:22:42 verbose #17310 > > inl x = am'.init_series 0 60 0.5
00:22:42 verbose #17311 > > inl y = x |> am.map (velocity_fv 1 70 0f64 [[ fun _ => 100; f_air 2 1.225 0.6
00:22:42 verbose #17312 > > ]])
00:22:42 verbose #17313 > > "bike velocity", "time (s)", "", ;[[ "velocity of bike (m/s)", x, y ]]
00:22:43 verbose #17314 > >
00:22:43 verbose #17315 > > ╭─[ 1.09s - return value ]─────────────────────────────────────────────────────╮
00:22:43 verbose #17316 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:43 verbose #17317 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:43 verbose #17318 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:43 verbose #17319 > > │ stroke="none"/> │
00:22:43 verbose #17320 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:43 verbose #17321 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:43 verbose #17322 > > │ fill="#FFFFFF"> │
00:22:43 verbose #17323 > > │ bike velocity │
00:22:43 verbose #17324 > > │ </text> │
00:22:43 verbose #17325 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:22:43 verbose #17326 > > │ y2="75"/> │
00:22:43 verbose #17327 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:43 verbose #17328 > > │ y2="75"/> │
00:22:43 verbose #17329 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:22:43 verbose #17330 > > │ y2="75"/> │
00:22:43 verbose #17331 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:22:43 verbose #17332 > > │ y2="75"/> │
00:22:43 verbose #17333 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:22:43 verbose #17334 > > │ y2="75"/> │
00:22:43 verbose #17335 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:22:43 verbose #17336 > > │ x2="103" y2="75"/> │
00:22:43 verbose #17337 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:22:43 verbose #17338 > > │ x2="111" y2="75"/> │
00:22:43 verbose #17339 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:43 verbose #17340 > > │ x2="119" y2="75"/> │
00:22:43 verbose #17341 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:22:43 verbose #17342 > > │ x2="128" y2="75"/> │
00:22:43 verbose #17343 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:22:43 verbose #17344 > > │ x2="136" y2="75"/> │
00:22:43 verbose #17345 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:22:43 verbose #17346 > > │ x2="144" y2="75"/> │
00:22:43 verbose #17347 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:22:43 verbose #17348 > > │ x2="153" y2="75"/> │
00:22:43 verbose #17349 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:22:43 verbose #17350 > > │ x2="161" y2="75"/> │
00:22:43 verbose #17351 > > │ <line opacity="1" st...t" font-family="sans-serif" │
00:22:43 verbose #17352 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:22:43 verbose #17353 > > │ 12.0 │
00:22:43 verbose #17354 > > │ </text> │
00:22:43 verbose #17355 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:22:43 verbose #17356 > > │ points="585,76 590,76 "/> │
00:22:43 verbose #17357 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:43 verbose #17358 > > │ points="69,415 74,415 78,374 82,335 86,335 90,335 94,297 99,261 103,261 │
00:22:43 verbose #17359 > > │ 107,261 111,230 115,202 119,202 124,202 128,179 132,159 136,159 140,159 │
00:22:43 verbose #17360 > > │ 144,143 148,130 153,130 157,130 161,120 165,112 169,112 173,112 178,106 │
00:22:43 verbose #17361 > > │ 182,101 186,101 190,101 194,97 198,94 203,94 207,94 211,92 215,91 219,91 │
00:22:43 verbose #17362 > > │ 223,91 228,89 232,88 236,88 240,88 244,88 248,87 252,87 257,87 261,87 265,86 │
00:22:43 verbose #17363 > > │ 269,86 273,86 277,86 282,86 286,86 290,86 294,86 298,86 302,86 307,86 311,86 │
00:22:43 verbose #17364 > > │ 315,86 319,86 323,86 327,86 331,85 336,85 340,85 344,85 348,85 352,85 356,85 │
00:22:43 verbose #17365 > > │ 361,85 365,85 369,85 373,85 377,85 381,85 386,85 390,85 394,85 398,85 402,85 │
00:22:43 verbose #17366 > > │ 406,85 410,85 415,85 419,85 423,85 427,85 431,85 435,85 440,85 444,85 448,85 │
00:22:43 verbose #17367 > > │ 452,85 456,85 460,85 465,85 469,85 473,85 477,85 481,85 485,85 490,85 494,85 │
00:22:43 verbose #17368 > > │ 498,85 502,85 506,85 510,85 514,85 519,85 523,85 527,85 531,85 535,85 539,85 │
00:22:43 verbose #17369 > > │ 544,85 548,85 552,85 556,85 560,85 564,85 569,85 "/> │
00:22:43 verbose #17370 > > │ <rect x="410" y="235" width="170" height="30" opacity="1" fill="none" │
00:22:43 verbose #17371 > > │ stroke="#FFFFFF"/> │
00:22:43 verbose #17372 > > │ <text x="450" y="245" dy="0.76em" text-anchor="start" │
00:22:43 verbose #17373 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:43 verbose #17374 > > │ fill="#FFFFFF"> │
00:22:43 verbose #17375 > > │ velocity of bike (m/s) │
00:22:43 verbose #17376 > > │ </text> │
00:22:43 verbose #17377 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:43 verbose #17378 > > │ points="420,250 440,250 "/> │
00:22:43 verbose #17379 > > │ </svg> │
00:22:43 verbose #17380 > > │ │
00:22:43 verbose #17381 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:43 verbose #17382 > >
00:22:43 verbose #17383 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:43 verbose #17384 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:43 verbose #17385 > > │ ### velocity_ftv │
00:22:43 verbose #17386 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:43 verbose #17387 > >
00:22:43 verbose #17388 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:43 verbose #17389 > > inl newton_second_tv m fs (t, v0) =
00:22:43 verbose #17390 > > inl f_net = fs |> listm.map (fun f => f (t, v0)) |> listm'.sum
00:22:43 verbose #17391 > > inl acc = f_net / m
00:22:43 verbose #17392 > > 1, acc
00:22:43 verbose #17393 > >
00:22:43 verbose #17394 > > inl update_tv dt m fs (t, v0) =
00:22:43 verbose #17395 > > inl dtdt, dvdt = newton_second_tv m fs (t, v0)
00:22:43 verbose #17396 > > t + dtdt * dt, v0 + dvdt * dt
00:22:43 verbose #17397 > >
00:22:43 verbose #17398 > > inl velocity_ftv dt m tv0 fs t =
00:22:43 verbose #17399 > > stream.iterate (join update_tv dt m fs) tv0
00:22:43 verbose #17400 > > |> stream.try_item (t / dt |> math.round |> abs)
00:22:43 verbose #17401 > > |> optionm.map snd
00:22:43 verbose #17402 > > |> optionm'.default_value 0
00:22:43 verbose #17403 > >
00:22:43 verbose #17404 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:43 verbose #17405 > > //// test
00:22:43 verbose #17406 > >
00:22:43 verbose #17407 > > inl x = am'.init_series 0 100 0.1
00:22:43 verbose #17408 > > inl y =
00:22:43 verbose #17409 > > x
00:22:43 verbose #17410 > > |> am.map (
00:22:43 verbose #17411 > > velocity_ftv 0.1 20 (dyn (0, 0)) [[ fun (t, _) => pedal_coast t; fun (_,
00:22:43 verbose #17412 > > v) => f_air 2 1.225 0.5 v ]]
00:22:43 verbose #17413 > > )
00:22:43 verbose #17414 > > "pedaling and coasting with air", "time (s)", "", ;[[ "velocity of bike (m/s)",
00:22:43 verbose #17415 > > x, y ]]
00:22:45 verbose #17416 > >
00:22:45 verbose #17417 > > ╭─[ 1.54s - return value ]─────────────────────────────────────────────────────╮
00:22:45 verbose #17418 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:45 verbose #17419 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:45 verbose #17420 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:45 verbose #17421 > > │ stroke="none"/> │
00:22:45 verbose #17422 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:45 verbose #17423 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:45 verbose #17424 > > │ fill="#FFFFFF"> │
00:22:45 verbose #17425 > > │ pedaling and coasting with air │
00:22:45 verbose #17426 > > │ </text> │
00:22:45 verbose #17427 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:22:45 verbose #17428 > > │ y2="75"/> │
00:22:45 verbose #17429 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:45 verbose #17430 > > │ y2="75"/> │
00:22:45 verbose #17431 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:22:45 verbose #17432 > > │ y2="75"/> │
00:22:45 verbose #17433 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:22:45 verbose #17434 > > │ y2="75"/> │
00:22:45 verbose #17435 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:22:45 verbose #17436 > > │ y2="75"/> │
00:22:45 verbose #17437 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:22:45 verbose #17438 > > │ x2="109" y2="75"/> │
00:22:45 verbose #17439 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:45 verbose #17440 > > │ x2="119" y2="75"/> │
00:22:45 verbose #17441 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:22:45 verbose #17442 > > │ x2="129" y2="75"/> │
00:22:45 verbose #17443 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:22:45 verbose #17444 > > │ x2="139" y2="75"/> │
00:22:45 verbose #17445 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:22:45 verbose #17446 > > │ x2="149" y2="75"/> │
00:22:45 verbose #17447 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:22:45 verbose #17448 > > │ x2="159" y2="75"/> │
00:22:45 verbose #17449 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:22:45 verbose #17450 > > │ x2="169" y2="75"/> │
00:22:45 verbose #17451 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:22:45 verbose #17452 > > │ x2="179" y2="75"/> │
00:22:45 verbose #17453 > > │ <li... 497,128 497,126 498,125 498,123 499,122 499,121 500,119 500,118 │
00:22:45 verbose #17454 > > │ 501,117 501,116 502,114 502,113 503,112 503,111 504,110 504,109 505,108 │
00:22:45 verbose #17455 > > │ 505,107 506,106 506,105 507,104 507,103 508,102 508,101 509,100 509,99 │
00:22:45 verbose #17456 > > │ 510,98 510,98 511,97 511,96 512,95 512,94 513,94 513,93 514,92 514,92 515,91 │
00:22:45 verbose #17457 > > │ 515,90 516,90 516,89 517,88 517,88 518,87 518,87 519,86 519,85 520,89 520,93 │
00:22:45 verbose #17458 > > │ 521,97 521,100 522,104 522,107 523,110 523,114 524,117 524,120 525,123 │
00:22:45 verbose #17459 > > │ 525,126 526,129 526,132 527,135 527,137 528,140 528,143 529,145 529,148 │
00:22:45 verbose #17460 > > │ 530,150 530,153 531,155 531,158 532,160 532,162 533,165 533,167 534,169 │
00:22:45 verbose #17461 > > │ 534,171 535,173 535,175 536,177 536,179 537,181 537,183 538,185 538,187 │
00:22:45 verbose #17462 > > │ 539,189 539,190 540,192 540,194 541,196 541,197 542,199 542,201 543,202 │
00:22:45 verbose #17463 > > │ 543,204 544,205 544,207 545,208 545,210 546,211 546,213 547,214 547,216 │
00:22:45 verbose #17464 > > │ 548,217 548,219 549,220 549,221 550,223 550,224 551,225 551,226 552,228 │
00:22:45 verbose #17465 > > │ 552,229 553,230 553,231 554,232 554,234 555,235 555,236 556,237 556,238 │
00:22:45 verbose #17466 > > │ 557,239 557,240 558,241 558,242 559,243 559,245 560,246 560,247 561,248 │
00:22:45 verbose #17467 > > │ 561,249 562,249 562,250 563,251 563,252 564,253 564,254 565,255 565,256 │
00:22:45 verbose #17468 > > │ 566,257 566,258 567,259 567,259 568,260 568,261 569,262 "/> │
00:22:45 verbose #17469 > > │ <rect x="410" y="235" width="170" height="30" opacity="1" fill="none" │
00:22:45 verbose #17470 > > │ stroke="#FFFFFF"/> │
00:22:45 verbose #17471 > > │ <text x="450" y="245" dy="0.76em" text-anchor="start" │
00:22:45 verbose #17472 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:45 verbose #17473 > > │ fill="#FFFFFF"> │
00:22:45 verbose #17474 > > │ velocity of bike (m/s) │
00:22:45 verbose #17475 > > │ </text> │
00:22:45 verbose #17476 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:45 verbose #17477 > > │ points="420,250 440,250 "/> │
00:22:45 verbose #17478 > > │ </svg> │
00:22:45 verbose #17479 > > │ │
00:22:45 verbose #17480 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:45 verbose #17481 > >
00:22:45 verbose #17482 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:45 verbose #17483 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:45 verbose #17484 > > │ ### velocity_ftxv │
00:22:45 verbose #17485 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:45 verbose #17486 > >
00:22:45 verbose #17487 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:45 verbose #17488 > > nominal state_1d = time * position * velocity
00:22:45 verbose #17489 > > nominal rrr = f64 * f64 * f64
00:22:45 verbose #17490 > >
00:22:45 verbose #17491 > > inl newton_second_1d m fs (state_1d (t, x0, v0)) =
00:22:45 verbose #17492 > > inl f_net = fs |> listm.map (fun f => f (state_1d (t, x0, v0))) |>
00:22:45 verbose #17493 > > listm'.sum
00:22:45 verbose #17494 > > inl acc = f_net / m
00:22:45 verbose #17495 > > rrr (1f64, v0, acc)
00:22:45 verbose #17496 > >
00:22:45 verbose #17497 > > inl euler_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:22:45 verbose #17498 > > inl (rrr (_, _, dvdt)) = deriv t
00:22:45 verbose #17499 > > inl t1 = t0 + dt
00:22:45 verbose #17500 > > inl x1 = x0 + v0 * dt
00:22:45 verbose #17501 > > inl v1 = v0 + dvdt * dt
00:22:45 verbose #17502 > > state_1d (t1, x1, v1)
00:22:45 verbose #17503 > >
00:22:45 verbose #17504 > > inl update_txv dt m fs =
00:22:45 verbose #17505 > > newton_second_1d m fs |> euler_1d dt
00:22:45 verbose #17506 > >
00:22:45 verbose #17507 > > inl states_txv dt m txv0 fs =
00:22:45 verbose #17508 > > seq.iterate_ (update_txv dt m fs) txv0
00:22:45 verbose #17509 > >
00:22:45 verbose #17510 > > inl velocity_1d sts t =
00:22:45 verbose #17511 > > inl (state_1d (t0, _, _)) = sts 0
00:22:45 verbose #17512 > > inl (state_1d (t1, _, _)) = sts 1
00:22:45 verbose #17513 > > inl dt = t1 - t0
00:22:45 verbose #17514 > > inl num_steps = t / dt |> math.round |> abs
00:22:45 verbose #17515 > > inl (state_1d (_, _, v0)) = sts num_steps
00:22:45 verbose #17516 > > v0
00:22:45 verbose #17517 > >
00:22:45 verbose #17518 > > inl velocity_ftxv dt m txv0 fs =
00:22:45 verbose #17519 > > states_txv dt m txv0 fs |> velocity_1d
00:22:45 verbose #17520 > >
00:22:45 verbose #17521 > > inl position_1d sts t =
00:22:45 verbose #17522 > > inl (state_1d (t0, _, _)) = sts 0
00:22:45 verbose #17523 > > inl (state_1d (t1, _, _)) = sts 1
00:22:45 verbose #17524 > > inl dt = t1 - t0
00:22:45 verbose #17525 > > inl num_steps = t / dt |> math.round |> abs
00:22:45 verbose #17526 > > inl (state_1d (_, x0, _)) = sts num_steps
00:22:45 verbose #17527 > > x0
00:22:45 verbose #17528 > >
00:22:45 verbose #17529 > > inl position_ftxv dt m txv0 fs =
00:22:45 verbose #17530 > > states_txv dt m txv0 fs |> position_1d
00:22:45 verbose #17531 > >
00:22:45 verbose #17532 > > inl spring_force k (state_1d (_, x0, _)) =
00:22:45 verbose #17533 > > -k * x0
00:22:46 verbose #17534 > >
00:22:46 verbose #17535 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:46 verbose #17536 > > //// test
00:22:46 verbose #17537 > >
00:22:46 verbose #17538 > > inl damped_ho_forces () =
00:22:46 verbose #17539 > > [[
00:22:46 verbose #17540 > > spring_force 0.8
00:22:46 verbose #17541 > > fun (state_1d (_, _, v0)) => f_air 2 1.225 (pi * math.square 0.02) v0
00:22:46 verbose #17542 > > fun _ => -0.0027 * 9.80665
00:22:46 verbose #17543 > > ]]
00:22:46 verbose #17544 > >
00:22:46 verbose #17545 > > inl damped_ho_states () =
00:22:46 verbose #17546 > > states_txv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ())
00:22:46 verbose #17547 > >
00:22:46 verbose #17548 > > inl pingpong_position t =
00:22:46 verbose #17549 > > position_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:22:46 verbose #17550 > >
00:22:46 verbose #17551 > > inl x : a _ f64 = am'.init_series 0 3 0.01
00:22:46 verbose #17552 > > inl y = x |> am.map pingpong_position
00:22:46 verbose #17553 > > "ping pong ball on a slinky", "time (s)", "", ;[[ "position (m)", x, y ]]
00:22:46 verbose #17554 > >
00:22:46 verbose #17555 > > ╭─[ 889.14ms - return value ]──────────────────────────────────────────────────╮
00:22:46 verbose #17556 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:46 verbose #17557 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:46 verbose #17558 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:46 verbose #17559 > > │ stroke="none"/> │
00:22:46 verbose #17560 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:46 verbose #17561 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:46 verbose #17562 > > │ fill="#FFFFFF"> │
00:22:46 verbose #17563 > > │ ping pong ball on a slinky │
00:22:46 verbose #17564 > > │ </text> │
00:22:46 verbose #17565 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:22:46 verbose #17566 > > │ y2="75"/> │
00:22:46 verbose #17567 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:46 verbose #17568 > > │ y2="75"/> │
00:22:46 verbose #17569 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:22:46 verbose #17570 > > │ y2="75"/> │
00:22:46 verbose #17571 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:22:46 verbose #17572 > > │ y2="75"/> │
00:22:46 verbose #17573 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:22:46 verbose #17574 > > │ y2="75"/> │
00:22:46 verbose #17575 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:22:46 verbose #17576 > > │ x2="103" y2="75"/> │
00:22:46 verbose #17577 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:22:46 verbose #17578 > > │ x2="111" y2="75"/> │
00:22:46 verbose #17579 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:46 verbose #17580 > > │ x2="119" y2="75"/> │
00:22:46 verbose #17581 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:22:46 verbose #17582 > > │ x2="128" y2="75"/> │
00:22:46 verbose #17583 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:22:46 verbose #17584 > > │ x2="136" y2="75"/> │
00:22:46 verbose #17585 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:22:46 verbose #17586 > > │ x2="144" y2="75"/> │
00:22:46 verbose #17587 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:22:46 verbose #17588 > > │ x2="153" y2="75"/> │
00:22:46 verbose #17589 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:22:46 verbose #17590 > > │ x2="161" y2="75"/> │
00:22:46 verbose #17591 > > │ <line o...88 332,305 334,321 336,334 337,346 339,354 341,360 342,363 344,362 │
00:22:46 verbose #17592 > > │ 346,359 347,352 349,342 351,330 352,316 354,300 356,283 357,265 359,247 │
00:22:46 verbose #17593 > > │ 361,229 362,212 364,197 366,183 367,172 369,163 371,156 372,153 374,153 │
00:22:46 verbose #17594 > > │ 376,156 377,161 379,170 381,181 382,194 384,209 386,226 387,243 389,260 │
00:22:46 verbose #17595 > > │ 391,277 392,294 394,309 396,323 397,335 399,344 401,351 402,355 404,356 │
00:22:46 verbose #17596 > > │ 406,354 407,349 409,341 410,331 412,319 414,305 415,289 417,273 419,256 │
00:22:46 verbose #17597 > > │ 420,239 422,223 424,208 425,194 427,182 429,172 430,165 432,161 434,159 │
00:22:46 verbose #17598 > > │ 435,160 437,164 439,171 440,180 442,192 444,205 445,220 447,235 449,252 │
00:22:46 verbose #17599 > > │ 450,268 452,284 454,299 455,313 457,325 459,335 460,342 462,347 464,350 │
00:22:46 verbose #17600 > > │ 465,349 467,346 469,340 470,332 472,321 474,309 475,295 477,280 479,264 │
00:22:46 verbose #17601 > > │ 480,248 482,232 484,217 485,204 487,192 489,181 490,173 492,168 494,165 │
00:22:46 verbose #17602 > > │ 495,165 497,167 499,172 500,180 502,189 504,201 505,215 507,229 509,244 │
00:22:46 verbose #17603 > > │ 510,260 512,275 514,290 515,303 517,316 519,326 520,335 522,341 524,344 │
00:22:46 verbose #17604 > > │ 525,345 527,343 529,339 530,332 532,323 534,312 535,300 537,286 539,271 │
00:22:46 verbose #17605 > > │ 540,256 542,241 544,226 545,213 547,200 549,190 550,181 552,175 554,171 │
00:22:46 verbose #17606 > > │ 555,169 557,170 559,174 560,180 562,188 564,198 565,210 567,223 569,238 "/> │
00:22:46 verbose #17607 > > │ <rect x="464" y="235" width="116" height="30" opacity="1" fill="none" │
00:22:46 verbose #17608 > > │ stroke="#FFFFFF"/> │
00:22:46 verbose #17609 > > │ <text x="504" y="245" dy="0.76em" text-anchor="start" │
00:22:46 verbose #17610 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:46 verbose #17611 > > │ fill="#FFFFFF"> │
00:22:46 verbose #17612 > > │ position (m) │
00:22:46 verbose #17613 > > │ </text> │
00:22:46 verbose #17614 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:46 verbose #17615 > > │ points="474,250 494,250 "/> │
00:22:46 verbose #17616 > > │ </svg> │
00:22:46 verbose #17617 > > │ │
00:22:46 verbose #17618 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:46 verbose #17619 > >
00:22:46 verbose #17620 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:46 verbose #17621 > > //// test
00:22:46 verbose #17622 > >
00:22:46 verbose #17623 > > inl pingpong_velocity t =
00:22:46 verbose #17624 > > velocity_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:22:46 verbose #17625 > >
00:22:46 verbose #17626 > > inl x = am'.init_series 0 3 0.01
00:22:46 verbose #17627 > > inl y = x |> am.map pingpong_velocity
00:22:46 verbose #17628 > > "ping pong ball on a slinky", "time (s)", "", ;[[ "velocity (m/s)", x, y ]]
00:22:47 verbose #17629 > >
00:22:47 verbose #17630 > > ╭─[ 821.12ms - return value ]──────────────────────────────────────────────────╮
00:22:47 verbose #17631 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:22:47 verbose #17632 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:22:47 verbose #17633 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:22:47 verbose #17634 > > │ stroke="none"/> │
00:22:47 verbose #17635 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:22:47 verbose #17636 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:47 verbose #17637 > > │ fill="#FFFFFF"> │
00:22:47 verbose #17638 > > │ ping pong ball on a slinky │
00:22:47 verbose #17639 > > │ </text> │
00:22:47 verbose #17640 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:22:47 verbose #17641 > > │ y2="75"/> │
00:22:47 verbose #17642 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:22:47 verbose #17643 > > │ y2="75"/> │
00:22:47 verbose #17644 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:22:47 verbose #17645 > > │ y2="75"/> │
00:22:47 verbose #17646 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:22:47 verbose #17647 > > │ y2="75"/> │
00:22:47 verbose #17648 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:22:47 verbose #17649 > > │ y2="75"/> │
00:22:47 verbose #17650 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:22:47 verbose #17651 > > │ x2="103" y2="75"/> │
00:22:47 verbose #17652 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:22:47 verbose #17653 > > │ x2="111" y2="75"/> │
00:22:47 verbose #17654 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:22:47 verbose #17655 > > │ x2="119" y2="75"/> │
00:22:47 verbose #17656 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:22:47 verbose #17657 > > │ x2="128" y2="75"/> │
00:22:47 verbose #17658 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:22:47 verbose #17659 > > │ x2="136" y2="75"/> │
00:22:47 verbose #17660 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:22:47 verbose #17661 > > │ x2="144" y2="75"/> │
00:22:47 verbose #17662 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:22:47 verbose #17663 > > │ x2="153" y2="75"/> │
00:22:47 verbose #17664 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:22:47 verbose #17665 > > │ x2="161" y2="75"/> │
00:22:47 verbose #17666 > > │ <line o... 332,343 334,332 336,319 337,304 339,287 341,269 342,250 344,231 │
00:22:47 verbose #17667 > > │ 346,212 347,195 349,178 351,164 352,153 354,144 356,138 357,136 359,136 │
00:22:47 verbose #17668 > > │ 361,140 362,147 364,157 366,169 367,183 369,199 371,216 372,234 374,253 │
00:22:47 verbose #17669 > > │ 376,271 377,288 379,304 381,318 382,330 384,339 386,346 387,349 389,349 │
00:22:47 verbose #17670 > > │ 391,346 392,340 394,332 396,321 397,307 399,292 401,276 402,258 404,241 │
00:22:47 verbose #17671 > > │ 406,223 407,206 409,190 410,176 412,164 414,154 415,148 417,144 419,143 │
00:22:47 verbose #17672 > > │ 420,145 422,150 424,158 425,168 427,180 429,194 430,210 432,227 434,244 │
00:22:47 verbose #17673 > > │ 435,261 437,278 439,293 440,307 442,320 444,330 445,337 447,341 449,343 │
00:22:47 verbose #17674 > > │ 450,342 452,338 454,331 455,322 457,310 459,297 460,282 462,266 464,249 │
00:22:47 verbose #17675 > > │ 465,233 467,216 469,201 470,187 472,174 474,164 475,156 477,151 479,149 │
00:22:47 verbose #17676 > > │ 480,149 482,153 484,159 485,167 487,178 489,190 490,204 492,220 494,236 │
00:22:47 verbose #17677 > > │ 495,252 497,268 499,283 500,297 502,310 504,320 505,329 507,334 509,337 │
00:22:47 verbose #17678 > > │ 510,337 512,335 514,330 515,322 517,312 519,300 520,287 522,272 524,257 │
00:22:47 verbose #17679 > > │ 525,241 527,226 529,210 530,196 532,184 534,173 535,164 537,158 539,154 │
00:22:47 verbose #17680 > > │ 540,154 542,155 544,160 545,167 547,176 549,187 550,199 552,213 554,228 │
00:22:47 verbose #17681 > > │ 555,244 557,259 559,274 560,288 562,301 564,312 565,321 567,327 569,332 "/> │
00:22:47 verbose #17682 > > │ <rect x="454" y="235" width="126" height="30" opacity="1" fill="none" │
00:22:47 verbose #17683 > > │ stroke="#FFFFFF"/> │
00:22:47 verbose #17684 > > │ <text x="494" y="245" dy="0.76em" text-anchor="start" │
00:22:47 verbose #17685 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:22:47 verbose #17686 > > │ fill="#FFFFFF"> │
00:22:47 verbose #17687 > > │ velocity (m/s) │
00:22:47 verbose #17688 > > │ </text> │
00:22:47 verbose #17689 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:22:47 verbose #17690 > > │ points="464,250 484,250 "/> │
00:22:47 verbose #17691 > > │ </svg> │
00:22:47 verbose #17692 > > │ │
00:22:47 verbose #17693 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:47 verbose #17694 > >
00:22:47 verbose #17695 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:47 verbose #17696 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:47 verbose #17697 > > │ ### shift │
00:22:47 verbose #17698 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:47 verbose #17699 > >
00:22:47 verbose #17700 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:47 verbose #17701 > > type update_function s = s -> s
00:22:47 verbose #17702 > >
00:22:47 verbose #17703 > > type differential_equation s ds = s -> ds
00:22:47 verbose #17704 > >
00:22:47 verbose #17705 > > type numerical_method s ds = differential_equation s ds -> update_function s
00:22:47 verbose #17706 > >
00:22:47 verbose #17707 > >
00:22:47 verbose #17708 > > inl solver method =
00:22:47 verbose #17709 > > method >> seq.iterate
00:22:47 verbose #17710 > > inl solver' method =
00:22:47 verbose #17711 > > method >> seq.iterate'
00:22:47 verbose #17712 > > inl solver_ method =
00:22:47 verbose #17713 > > method >> seq.iterate_
00:22:47 verbose #17714 > >
00:22:47 verbose #17715 > >
00:22:47 verbose #17716 > > inl euler_cromer_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:22:47 verbose #17717 > > inl (rrr (_, _, dvdt)) = deriv t
00:22:47 verbose #17718 > > inl t1 = t0 + dt
00:22:47 verbose #17719 > > inl v1 = v0 + dvdt * dt
00:22:47 verbose #17720 > > inl x1 = x0 + v1 * dt
00:22:47 verbose #17721 > > state_1d (t1, x1, v1)
00:22:47 verbose #17722 > >
00:22:47 verbose #17723 > > inl update_txv_ec dt m fs =
00:22:47 verbose #17724 > > euler_cromer_1d dt (newton_second_1d m fs)
00:22:47 verbose #17725 > >
00:22:47 verbose #17726 > > prototype (+++) ds : ds -> ds -> ds
00:22:47 verbose #17727 > > prototype scale ds : f64 -> ds -> ds
00:22:47 verbose #17728 > >
00:22:47 verbose #17729 > > instance (+++) rrr = fun (rrr (dtdt0, dxdt0, dvdt0)) (rrr (dtdt1, dxdt1, dvdt1))
00:22:47 verbose #17730 > > =>
00:22:47 verbose #17731 > > rrr (dtdt0 + dtdt1, dxdt0 + dxdt1, dvdt0 + dvdt1)
00:22:47 verbose #17732 > >
00:22:47 verbose #17733 > > instance scale rrr = fun w (rrr (dtdt0, dxdt0, dvdt0)) =>
00:22:47 verbose #17734 > > rrr (w * dtdt0, w * dxdt0, w * dvdt0)
00:22:47 verbose #17735 > >
00:22:47 verbose #17736 > > prototype shift s : forall ds. f64 -> ds -> s -> s
00:22:47 verbose #17737 > >
00:22:47 verbose #17738 > > instance shift state_1d = fun dt ds (state_1d (t, x, v)) =>
00:22:47 verbose #17739 > > inl dtdt, dxdt, dvdt =
00:22:47 verbose #17740 > > real
00:22:47 verbose #17741 > > match ds with
00:22:47 verbose #17742 > > | rrr x => x
00:22:47 verbose #17743 > > | state_1d x => x
00:22:47 verbose #17744 > > state_1d (t + dtdt * dt, x + dxdt * dt, v + dvdt * dt)
00:22:47 verbose #17745 > >
00:22:47 verbose #17746 > > inl euler dt deriv st0 =
00:22:47 verbose #17747 > > shift dt (deriv st0) st0
00:22:47 verbose #17748 > >
00:22:47 verbose #17749 > > inl runge_kutta_4 dt deriv st0 =
00:22:47 verbose #17750 > > inl m0 = deriv st0
00:22:47 verbose #17751 > > inl m1 = deriv (shift (dt / 2) m0 st0)
00:22:47 verbose #17752 > > inl m2 = deriv (shift (dt / 2) m1 st0)
00:22:47 verbose #17753 > > inl m3 = deriv (shift dt m2 st0)
00:22:47 verbose #17754 > > shift (dt / 6) (m0 +++ m1 +++ m1 +++ m2 +++ m2 +++ m3) st0
00:22:47 verbose #17755 > >
00:22:47 verbose #17756 > > inl exponential (_, x0, v0) =
00:22:47 verbose #17757 > > 1f64, v0, x0
00:22:47 verbose #17758 > >
00:22:47 verbose #17759 > > inl of_state_1d (state_1d (t, x, v)) =
00:22:47 verbose #17760 > > t, x, v
00:22:48 verbose #17761 > >
00:22:48 verbose #17762 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:48 verbose #17763 > > //// test
00:22:48 verbose #17764 > >
00:22:48 verbose #17765 > > solver (euler 0.01) (of_state_1d >> exponential >> state_1d) (state_1d (0, 1,
00:22:48 verbose #17766 > > 1)) 800i32
00:22:48 verbose #17767 > > |> _assert_eq (state_1d (7.999999999999874, 2864.8311229272326,
00:22:48 verbose #17768 > > 2864.8311229272326))
00:22:48 verbose #17769 > >
00:22:48 verbose #17770 > > solver (euler_cromer_1d 0.1) (of_state_1d >> exponential >> rrr) (state_1d (0,
00:22:48 verbose #17771 > > 1, 1)) 80i32
00:22:48 verbose #17772 > > |> _assert_eq (state_1d (7.999999999999988, 3043.379244966009,
00:22:48 verbose #17773 > > 2895.0121485099035))
00:22:48 verbose #17774 > >
00:22:48 verbose #17775 > > solver (runge_kutta_4 1) (of_state_1d >> exponential >> rrr) (state_1d (0, 1,
00:22:48 verbose #17776 > > 1)) 8i32
00:22:48 verbose #17777 > > |> _assert_eq (state_1d (8.0, 2894.789038540849, 2894.789038540849))
00:22:49 verbose #17778 > >
00:22:49 verbose #17779 > > ╭─[ 974.53ms - stdout ]────────────────────────────────────────────────────────╮
00:22:49 verbose #17780 > > │ assert_eq / actual: struct (8.0, 2864.831123, 2864.831123) / expected: │
00:22:49 verbose #17781 > > │ struct (8.0, 2864.831123, 2864.831123) │
00:22:49 verbose #17782 > > │ assert_eq / actual: struct (8.0, 3043.379245, 2895.012149) / expected: │
00:22:49 verbose #17783 > > │ struct (8.0, 3043.379245, 2895.012149) │
00:22:49 verbose #17784 > > │ assert_eq / actual: struct (8.0, 2894.789039, 2894.789039) / expected: │
00:22:49 verbose #17785 > > │ struct (8.0, 2894.789039, 2894.789039) │
00:22:49 verbose #17786 > > │ │
00:22:49 verbose #17787 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:49 verbose #17788 > >
00:22:49 verbose #17789 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:49 verbose #17790 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:49 verbose #17791 > > │ ### vec │
00:22:49 verbose #17792 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:49 verbose #17793 > >
00:22:49 verbose #17794 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:49 verbose #17795 > > type vec =
00:22:49 verbose #17796 > > {
00:22:49 verbose #17797 > > x : f64
00:22:49 verbose #17798 > > y : f64
00:22:49 verbose #17799 > > z : f64
00:22:49 verbose #17800 > > }
00:22:49 verbose #17801 > >
00:22:49 verbose #17802 > > inl vec x y z : vec =
00:22:49 verbose #17803 > > { x y z }
00:22:50 verbose #17804 > >
00:22:50 verbose #17805 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:50 verbose #17806 > > //// test
00:22:50 verbose #17807 > >
00:22:50 verbose #17808 > > vec 1 2 3 .z
00:22:50 verbose #17809 > > |> _assert_eq 3
00:22:51 verbose #17810 > >
00:22:51 verbose #17811 > > ╭─[ 1.09s - stdout ]───────────────────────────────────────────────────────────╮
00:22:51 verbose #17812 > > │ assert_eq / actual: 3.0 / expected: 3.0 │
00:22:51 verbose #17813 > > │ │
00:22:51 verbose #17814 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:51 verbose #17815 > >
00:22:51 verbose #17816 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:51 verbose #17817 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:51 verbose #17818 > > │ #### consts │
00:22:51 verbose #17819 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:51 verbose #17820 > >
00:22:51 verbose #17821 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:51 verbose #17822 > > inl i_hat () = vec 1 0 0
00:22:51 verbose #17823 > > inl j_hat () = vec 0 1 0
00:22:51 verbose #17824 > > inl k_hat () = vec 0 0 1
00:22:51 verbose #17825 > > inl zero_vec () = vec 0 0 0
00:22:53 verbose #17826 > >
00:22:53 verbose #17827 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:53 verbose #17828 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:53 verbose #17829 > > │ #### ^+^ │
00:22:53 verbose #17830 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:53 verbose #17831 > >
00:22:53 verbose #17832 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:53 verbose #17833 > > inl (^+^) (a : vec) (b : vec) =
00:22:53 verbose #17834 > > vec (a.x + b.x) (a.y + b.y) (a.z + b.z)
00:22:54 verbose #17835 > >
00:22:54 verbose #17836 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:54 verbose #17837 > > //// test
00:22:54 verbose #17838 > >
00:22:54 verbose #17839 > > vec 1 2 3 ^+^ vec 4 5 6
00:22:54 verbose #17840 > > |> _assert_eq (vec 5 7 9)
00:22:54 verbose #17841 > >
00:22:54 verbose #17842 > > ╭─[ 852.73ms - stdout ]────────────────────────────────────────────────────────╮
00:22:54 verbose #17843 > > │ assert_eq / actual: struct (5.0, 7.0, 9.0) / expected: struct (5.0, 7.0, │
00:22:54 verbose #17844 > > │ 9.0) │
00:22:54 verbose #17845 > > │ │
00:22:54 verbose #17846 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:54 verbose #17847 > >
00:22:54 verbose #17848 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:54 verbose #17849 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:54 verbose #17850 > > │ #### sum_vec │
00:22:54 verbose #17851 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:54 verbose #17852 > >
00:22:54 verbose #17853 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:54 verbose #17854 > > inl sum_vec vs =
00:22:54 verbose #17855 > > vs |> listm.fold (^+^) (zero_vec ())
00:22:55 verbose #17856 > >
00:22:55 verbose #17857 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:55 verbose #17858 > > //// test
00:22:55 verbose #17859 > >
00:22:55 verbose #17860 > > [[ vec 1 2 3; vec 4 5 6 ]]
00:22:55 verbose #17861 > > |> sum_vec
00:22:55 verbose #17862 > > |> _assert_eq (vec 5 7 9)
00:22:56 verbose #17863 > >
00:22:56 verbose #17864 > > ╭─[ 1.08s - stdout ]───────────────────────────────────────────────────────────╮
00:22:56 verbose #17865 > > │ assert_eq / actual: struct (5.0, 7.0, 9.0) / expected: struct (5.0, 7.0, │
00:22:56 verbose #17866 > > │ 9.0) │
00:22:56 verbose #17867 > > │ │
00:22:56 verbose #17868 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:56 verbose #17869 > >
00:22:56 verbose #17870 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:56 verbose #17871 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:56 verbose #17872 > > │ #### *^ │
00:22:56 verbose #17873 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:56 verbose #17874 > >
00:22:56 verbose #17875 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:56 verbose #17876 > > inl (*^) c { x y z } =
00:22:56 verbose #17877 > > vec (c * x) (c * y) (c * z)
00:22:57 verbose #17878 > >
00:22:57 verbose #17879 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:57 verbose #17880 > > //// test
00:22:57 verbose #17881 > >
00:22:57 verbose #17882 > > 5 *^ vec 1 2 3
00:22:57 verbose #17883 > > |> _assert_eq (vec 5 10 15)
00:22:58 verbose #17884 > >
00:22:58 verbose #17885 > > ╭─[ 791.01ms - stdout ]────────────────────────────────────────────────────────╮
00:22:58 verbose #17886 > > │ assert_eq / actual: struct (5.0, 10.0, 15.0) / expected: struct (5.0, 10.0, │
00:22:58 verbose #17887 > > │ 15.0) │
00:22:58 verbose #17888 > > │ │
00:22:58 verbose #17889 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:58 verbose #17890 > >
00:22:58 verbose #17891 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:58 verbose #17892 > > //// test
00:22:58 verbose #17893 > >
00:22:58 verbose #17894 > > 3 *^ i_hat () ^+^ 4 *^ k_hat ()
00:22:58 verbose #17895 > > |> _assert_eq (vec 3 0 4)
00:22:59 verbose #17896 > >
00:22:59 verbose #17897 > > ╭─[ 800.75ms - stdout ]────────────────────────────────────────────────────────╮
00:22:59 verbose #17898 > > │ assert_eq / actual: struct (3.0, 0.0, 4.0) / expected: struct (3.0, 0.0, │
00:22:59 verbose #17899 > > │ 4.0) │
00:22:59 verbose #17900 > > │ │
00:22:59 verbose #17901 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:59 verbose #17902 > >
00:22:59 verbose #17903 > > ── markdown ────────────────────────────────────────────────────────────────────
00:22:59 verbose #17904 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:22:59 verbose #17905 > > │ #### ^* │
00:22:59 verbose #17906 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:22:59 verbose #17907 > >
00:22:59 verbose #17908 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:22:59 verbose #17909 > > inl (^*) v c =
00:22:59 verbose #17910 > > (*^) c v
00:23:00 verbose #17911 > >
00:23:00 verbose #17912 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:00 verbose #17913 > > //// test
00:23:00 verbose #17914 > >
00:23:00 verbose #17915 > > vec 1 2 3 ^* 5
00:23:00 verbose #17916 > > |> _assert_eq (vec 5 10 15)
00:23:00 verbose #17917 > >
00:23:00 verbose #17918 > > ╭─[ 768.51ms - stdout ]────────────────────────────────────────────────────────╮
00:23:00 verbose #17919 > > │ assert_eq / actual: struct (5.0, 10.0, 15.0) / expected: struct (5.0, 10.0, │
00:23:00 verbose #17920 > > │ 15.0) │
00:23:00 verbose #17921 > > │ │
00:23:00 verbose #17922 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:00 verbose #17923 > >
00:23:00 verbose #17924 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:00 verbose #17925 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:00 verbose #17926 > > │ #### ^/ │
00:23:00 verbose #17927 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:00 verbose #17928 > >
00:23:00 verbose #17929 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:00 verbose #17930 > > inl (^/) { x y z } c =
00:23:00 verbose #17931 > > vec (x / c) (y / c) (z / c)
00:23:01 verbose #17932 > >
00:23:01 verbose #17933 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:01 verbose #17934 > > //// test
00:23:01 verbose #17935 > >
00:23:01 verbose #17936 > > vec 1 2 3 ^/ 5
00:23:01 verbose #17937 > > |> _assert_eq (vec 0.2 0.4 0.6)
00:23:02 verbose #17938 > >
00:23:02 verbose #17939 > > ╭─[ 725.45ms - stdout ]────────────────────────────────────────────────────────╮
00:23:02 verbose #17940 > > │ assert_eq / actual: struct (0.2, 0.4, 0.6) / expected: struct (0.2, 0.4, │
00:23:02 verbose #17941 > > │ 0.6) │
00:23:02 verbose #17942 > > │ │
00:23:02 verbose #17943 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:02 verbose #17944 > >
00:23:02 verbose #17945 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:02 verbose #17946 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:02 verbose #17947 > > │ #### negate_vec │
00:23:02 verbose #17948 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:02 verbose #17949 > >
00:23:02 verbose #17950 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:02 verbose #17951 > > inl negate_vec v =
00:23:02 verbose #17952 > > v ^* -1
00:23:03 verbose #17953 > >
00:23:03 verbose #17954 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:03 verbose #17955 > > //// test
00:23:03 verbose #17956 > >
00:23:03 verbose #17957 > > vec 1 2 3
00:23:03 verbose #17958 > > |> negate_vec
00:23:03 verbose #17959 > > |> _assert_eq (vec -1 -2 -3)
00:23:03 verbose #17960 > >
00:23:03 verbose #17961 > > ╭─[ 845.62ms - stdout ]────────────────────────────────────────────────────────╮
00:23:03 verbose #17962 > > │ assert_eq / actual: struct (-1.0, -2.0, -3.0) / expected: struct (-1.0, │
00:23:03 verbose #17963 > > │ -2.0, -3.0) │
00:23:03 verbose #17964 > > │ │
00:23:03 verbose #17965 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:03 verbose #17966 > >
00:23:03 verbose #17967 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:03 verbose #17968 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:03 verbose #17969 > > │ #### ^-^ │
00:23:03 verbose #17970 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:03 verbose #17971 > >
00:23:03 verbose #17972 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:03 verbose #17973 > > inl (^-^) a b =
00:23:03 verbose #17974 > > a ^+^ (negate_vec b)
00:23:04 verbose #17975 > >
00:23:04 verbose #17976 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:04 verbose #17977 > > //// test
00:23:04 verbose #17978 > >
00:23:04 verbose #17979 > > vec 1 2 3 ^-^ vec 4 5 6
00:23:04 verbose #17980 > > |> _assert_eq (vec -3 -3 -3)
00:23:05 verbose #17981 > >
00:23:05 verbose #17982 > > ╭─[ 765.65ms - stdout ]────────────────────────────────────────────────────────╮
00:23:05 verbose #17983 > > │ assert_eq / actual: struct (-3.0, -3.0, -3.0) / expected: struct (-3.0, │
00:23:05 verbose #17984 > > │ -3.0, -3.0) │
00:23:05 verbose #17985 > > │ │
00:23:05 verbose #17986 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:05 verbose #17987 > >
00:23:05 verbose #17988 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:05 verbose #17989 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:05 verbose #17990 > > │ #### <.> │
00:23:05 verbose #17991 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:05 verbose #17992 > >
00:23:05 verbose #17993 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:05 verbose #17994 > > inl (<.>) { x = ax y = ay z = az } { x = bx y = by z = bz } =
00:23:05 verbose #17995 > > ax * bx + ay * by + az * bz
00:23:06 verbose #17996 > >
00:23:06 verbose #17997 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:06 verbose #17998 > > //// test
00:23:06 verbose #17999 > >
00:23:06 verbose #18000 > > vec 1 2 3 <.> vec 4 5 6
00:23:06 verbose #18001 > > |> _assert_eq 32
00:23:06 verbose #18002 > >
00:23:06 verbose #18003 > > ╭─[ 747.41ms - stdout ]────────────────────────────────────────────────────────╮
00:23:06 verbose #18004 > > │ assert_eq / actual: 32.0 / expected: 32.0 │
00:23:06 verbose #18005 > > │ │
00:23:06 verbose #18006 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:06 verbose #18007 > >
00:23:06 verbose #18008 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:06 verbose #18009 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:06 verbose #18010 > > │ #### \>\< │
00:23:06 verbose #18011 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:06 verbose #18012 > >
00:23:06 verbose #18013 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:06 verbose #18014 > > inl (><) (a : vec) (b : vec) =
00:23:06 verbose #18015 > > vec
00:23:06 verbose #18016 > > (a.y * b.z - a.z * b.y)
00:23:06 verbose #18017 > > (a.z * b.x - a.x * b.z)
00:23:06 verbose #18018 > > (a.x * b.y - a.y * b.x)
00:23:07 verbose #18019 > >
00:23:07 verbose #18020 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:07 verbose #18021 > > //// test
00:23:07 verbose #18022 > >
00:23:07 verbose #18023 > > vec 1 2 3 >< vec 4 5 6
00:23:07 verbose #18024 > > |> _assert_eq (vec -3 6 -3)
00:23:08 verbose #18025 > >
00:23:08 verbose #18026 > > ╭─[ 800.46ms - stdout ]────────────────────────────────────────────────────────╮
00:23:08 verbose #18027 > > │ assert_eq / actual: struct (-3.0, 6.0, -3.0) / expected: struct (-3.0, 6.0, │
00:23:08 verbose #18028 > > │ -3.0) │
00:23:08 verbose #18029 > > │ │
00:23:08 verbose #18030 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:08 verbose #18031 > >
00:23:08 verbose #18032 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:08 verbose #18033 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:08 verbose #18034 > > │ #### magnitude │
00:23:08 verbose #18035 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:08 verbose #18036 > >
00:23:08 verbose #18037 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:08 verbose #18038 > > inl magnitude v =
00:23:08 verbose #18039 > > v <.> v |> sqrt
00:23:09 verbose #18040 > >
00:23:09 verbose #18041 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:09 verbose #18042 > > //// test
00:23:09 verbose #18043 > >
00:23:09 verbose #18044 > > vec 1 2 3
00:23:09 verbose #18045 > > |> magnitude
00:23:09 verbose #18046 > > |> _assert_approx_eq None 3.7416573867739413
00:23:09 verbose #18047 > >
00:23:09 verbose #18048 > > ╭─[ 743.59ms - stdout ]────────────────────────────────────────────────────────╮
00:23:09 verbose #18049 > > │ assert_approx_eq / actual: 3.741657387 / expected: 3.741657387 │
00:23:09 verbose #18050 > > │ │
00:23:09 verbose #18051 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:09 verbose #18052 > >
00:23:09 verbose #18053 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:09 verbose #18054 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:09 verbose #18055 > > │ #### v1 │
00:23:09 verbose #18056 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:09 verbose #18057 > >
00:23:09 verbose #18058 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:09 verbose #18059 > > inl v1 t =
00:23:09 verbose #18060 > > 2 *^ (t ** 2 *^ i_hat () ^+^ 3 *^ (t ** 3 *^ j_hat () ^+^ t ** 4 *^ k_hat
00:23:09 verbose #18061 > > ()))
00:23:10 verbose #18062 > >
00:23:10 verbose #18063 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:10 verbose #18064 > > //// test
00:23:10 verbose #18065 > >
00:23:10 verbose #18066 > > v1 1
00:23:10 verbose #18067 > > |> _assert_eq (vec 2 6 6)
00:23:11 verbose #18068 > >
00:23:11 verbose #18069 > > ╭─[ 683.81ms - stdout ]────────────────────────────────────────────────────────╮
00:23:11 verbose #18070 > > │ assert_eq / actual: struct (2.0, 6.0, 6.0) / expected: struct (2.0, 6.0, │
00:23:11 verbose #18071 > > │ 6.0) │
00:23:11 verbose #18072 > > │ │
00:23:11 verbose #18073 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:11 verbose #18074 > >
00:23:11 verbose #18075 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:11 verbose #18076 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:11 verbose #18077 > > │ #### vec_derivative │
00:23:11 verbose #18078 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:11 verbose #18079 > >
00:23:11 verbose #18080 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:11 verbose #18081 > > type vec_derivative = (f64 -> vec) -> f64 -> vec
00:23:11 verbose #18082 > >
00:23:11 verbose #18083 > > inl vec_derivative dt : vec_derivative =
00:23:11 verbose #18084 > > fun v t =>
00:23:11 verbose #18085 > > (v (t + dt / 2) ^-^ v (t - dt / 2)) ^/ dt
00:23:11 verbose #18086 > >
00:23:11 verbose #18087 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:11 verbose #18088 > > //// test
00:23:11 verbose #18089 > >
00:23:11 verbose #18090 > > vec_derivative 0.01 v1 3 .x
00:23:11 verbose #18091 > > |> _assert_approx_eq None (derivative 0.01 (v1 >> fun v => v.x) 3)
00:23:12 verbose #18092 > >
00:23:12 verbose #18093 > > ╭─[ 694.35ms - stdout ]────────────────────────────────────────────────────────╮
00:23:12 verbose #18094 > > │ assert_approx_eq / actual: 12.0 / expected: 12.0 │
00:23:12 verbose #18095 > > │ │
00:23:12 verbose #18096 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:12 verbose #18097 > >
00:23:12 verbose #18098 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:12 verbose #18099 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:12 verbose #18100 > > │ ### states_ps │
00:23:12 verbose #18101 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:12 verbose #18102 > >
00:23:12 verbose #18103 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:12 verbose #18104 > > nominal particle_state =
00:23:12 verbose #18105 > > {
00:23:12 verbose #18106 > > mass : f64
00:23:12 verbose #18107 > > charge : f64
00:23:12 verbose #18108 > > time : f64
00:23:12 verbose #18109 > > pos_vec : vec
00:23:12 verbose #18110 > > velocity : vec
00:23:12 verbose #18111 > > }
00:23:12 verbose #18112 > >
00:23:12 verbose #18113 > > inl default_particle_state () : particle_state =
00:23:12 verbose #18114 > > particle_state {
00:23:12 verbose #18115 > > mass = 1
00:23:12 verbose #18116 > > charge = 0
00:23:12 verbose #18117 > > time = 0
00:23:12 verbose #18118 > > pos_vec = zero_vec ()
00:23:12 verbose #18119 > > velocity = zero_vec ()
00:23:12 verbose #18120 > > }
00:23:12 verbose #18121 > >
00:23:12 verbose #18122 > > type one_body_force = particle_state -> vec
00:23:12 verbose #18123 > >
00:23:12 verbose #18124 > > nominal d_particle_state =
00:23:12 verbose #18125 > > {
00:23:12 verbose #18126 > > dmdt : f64
00:23:12 verbose #18127 > > dqdt : f64
00:23:12 verbose #18128 > > dtdt : f64
00:23:12 verbose #18129 > > drdt : vec
00:23:12 verbose #18130 > > dvdt : vec
00:23:12 verbose #18131 > > }
00:23:12 verbose #18132 > >
00:23:12 verbose #18133 > > inl newton_second_ps (fs : list one_body_force) (st : particle_state) :
00:23:12 verbose #18134 > > d_particle_state =
00:23:12 verbose #18135 > > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:23:12 verbose #18136 > > d_particle_state {
00:23:12 verbose #18137 > > dmdt = 0
00:23:12 verbose #18138 > > dqdt = 0
00:23:12 verbose #18139 > > dtdt = 1
00:23:12 verbose #18140 > > drdt = st.velocity
00:23:12 verbose #18141 > > dvdt = f_net ^/ st.mass
00:23:12 verbose #18142 > > }
00:23:12 verbose #18143 > >
00:23:12 verbose #18144 > > inl earth_surface_gravity (st : particle_state) =
00:23:12 verbose #18145 > > inl g = 9.80665
00:23:12 verbose #18146 > > -st.mass * g *^ k_hat ()
00:23:12 verbose #18147 > >
00:23:12 verbose #18148 > > inl air_resistance drag rho area (st : particle_state) =
00:23:12 verbose #18149 > > -0.5 * drag * rho * area * magnitude st.velocity *^ st.velocity
00:23:12 verbose #18150 > >
00:23:12 verbose #18151 > > inl euler_cromer_ps dt (deriv : particle_state -> d_particle_state)
00:23:12 verbose #18152 > > (particle_state st) =
00:23:12 verbose #18153 > > inl dst : d_particle_state = deriv (particle_state st)
00:23:12 verbose #18154 > > inl v' = st.velocity ^+^ dst.dvdt ^* dt
00:23:12 verbose #18155 > > particle_state { st with
00:23:12 verbose #18156 > > time = st.time + dt
00:23:12 verbose #18157 > > pos_vec = st.pos_vec ^+^ v' ^* dt
00:23:12 verbose #18158 > > velocity = st.velocity ^+^ dst.dvdt ^* dt
00:23:12 verbose #18159 > > }
00:23:12 verbose #18160 > >
00:23:12 verbose #18161 > > instance (+++) d_particle_state = fun (dps : d_particle_state) (dps' :
00:23:12 verbose #18162 > > d_particle_state) =>
00:23:12 verbose #18163 > > d_particle_state {
00:23:12 verbose #18164 > > dmdt = dps.dmdt + dps'.dmdt
00:23:12 verbose #18165 > > dqdt = dps.dqdt + dps'.dqdt
00:23:12 verbose #18166 > > dtdt = dps.dtdt + dps'.dtdt
00:23:12 verbose #18167 > > drdt = dps.drdt ^+^ dps'.drdt
00:23:12 verbose #18168 > > dvdt = dps.dvdt ^+^ dps'.dvdt
00:23:12 verbose #18169 > > }
00:23:12 verbose #18170 > >
00:23:12 verbose #18171 > > instance scale d_particle_state = fun w (dps : d_particle_state) =>
00:23:12 verbose #18172 > > d_particle_state {
00:23:12 verbose #18173 > > dmdt = w * dps.dmdt
00:23:12 verbose #18174 > > dqdt = w * dps.dqdt
00:23:12 verbose #18175 > > dtdt = w * dps.dtdt
00:23:12 verbose #18176 > > drdt = w *^ dps.drdt
00:23:12 verbose #18177 > > dvdt = w *^ dps.dvdt
00:23:12 verbose #18178 > > }
00:23:12 verbose #18179 > >
00:23:12 verbose #18180 > > instance shift particle_state = fun dt dps (particle_state st) =>
00:23:12 verbose #18181 > > inl (d_particle_state dps) =
00:23:12 verbose #18182 > > real
00:23:12 verbose #18183 > > match dps with
00:23:12 verbose #18184 > > | d_particle_state _ => dps
00:23:12 verbose #18185 > > particle_state { st with
00:23:12 verbose #18186 > > time = st.time + dps.dtdt * dt
00:23:12 verbose #18187 > > pos_vec = st.pos_vec ^+^ dps.drdt ^* dt
00:23:12 verbose #18188 > > velocity = st.velocity ^+^ dps.dvdt ^* dt
00:23:12 verbose #18189 > > }
00:23:12 verbose #18190 > >
00:23:12 verbose #18191 > > inl states_ps (method : numerical_method particle_state d_particle_state) : _ ->
00:23:12 verbose #18192 > > _ -> i32 -> particle_state =
00:23:12 verbose #18193 > > newton_second_ps >> method >> seq.iterate_
00:23:12 verbose #18194 > >
00:23:12 verbose #18195 > > inl z_ge0 sts =
00:23:12 verbose #18196 > > sts
00:23:12 verbose #18197 > > |> seq.take_while_ (fun (particle_state st) _ => st.pos_vec.z >= 0)
00:23:12 verbose #18198 > >
00:23:12 verbose #18199 > > inl trajectory sts =
00:23:12 verbose #18200 > > sts |> listm.map (fun (particle_state st) => st.pos_vec.y, st.pos_vec.z)
00:23:13 verbose #18201 > >
00:23:13 verbose #18202 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:13 verbose #18203 > > //// test
00:23:13 verbose #18204 > >
00:23:13 verbose #18205 > > inl update_ps (method : numerical_method particle_state d_particle_state) =
00:23:13 verbose #18206 > > newton_second_ps >> method
00:23:13 verbose #18207 > >
00:23:13 verbose #18208 > > inl position_ps (method : numerical_method particle_state d_particle_state) fs
00:23:13 verbose #18209 > > st t =
00:23:13 verbose #18210 > > inl states : i32 -> particle_state = states_ps method fs st
00:23:13 verbose #18211 > > inl dt = (states 1).time - (states 0).time
00:23:13 verbose #18212 > > inl num_steps = t / dt |> math.round |> abs
00:23:13 verbose #18213 > > inl st1 = solver' method (newton_second_ps fs) st num_steps
00:23:13 verbose #18214 > > st1.pos_vec
00:23:13 verbose #18215 > >
00:23:13 verbose #18216 > > inl sun_gravity (st : particle_state) : vec =
00:23:13 verbose #18217 > > inl big_g = 0.0000000000667408
00:23:13 verbose #18218 > > inl sun_mass = 1988480000000000000000000000000
00:23:13 verbose #18219 > > -big_g * sun_mass * st.mass *^ st.pos_vec ^/ magnitude st.pos_vec ** 3
00:23:13 verbose #18220 > >
00:23:13 verbose #18221 > > inl wind_force v_wind drag rho area (st : particle_state) =
00:23:13 verbose #18222 > > inl v_rel = st.velocity ^-^ v_wind
00:23:13 verbose #18223 > > -0.5 * drag * rho * area * magnitude v_rel *^ v_rel
00:23:13 verbose #18224 > >
00:23:13 verbose #18225 > > inl rock_state () =
00:23:13 verbose #18226 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:13 verbose #18227 > > particle_state { default_particle_state' with
00:23:13 verbose #18228 > > mass = 2
00:23:13 verbose #18229 > > velocity = vec 3 0 4
00:23:13 verbose #18230 > > }
00:23:13 verbose #18231 > >
00:23:13 verbose #18232 > > inl halley_update dt =
00:23:13 verbose #18233 > > update_ps (euler_cromer_ps dt) [[ sun_gravity ]]
00:23:13 verbose #18234 > >
00:23:13 verbose #18235 > > inl halley_initial () =
00:23:13 verbose #18236 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:13 verbose #18237 > > particle_state { default_particle_state' with
00:23:13 verbose #18238 > > mass = 220000000000000
00:23:13 verbose #18239 > > pos_vec = 87660000000 *^ i_hat ()
00:23:13 verbose #18240 > > velocity = 54569 *^ j_hat ()
00:23:13 verbose #18241 > > }
00:23:14 verbose #18242 > >
00:23:14 verbose #18243 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:14 verbose #18244 > > //// test
00:23:14 verbose #18245 > >
00:23:14 verbose #18246 > > inl baseball_forces () =
00:23:14 verbose #18247 > > inl area = pi * (0.074 / 2) ** 2
00:23:14 verbose #18248 > > [[
00:23:14 verbose #18249 > > earth_surface_gravity
00:23:14 verbose #18250 > > air_resistance 0.3 1.225 area
00:23:14 verbose #18251 > > ]]
00:23:14 verbose #18252 > >
00:23:14 verbose #18253 > > inl baseball_trajectory dt v0 theta_deg =
00:23:14 verbose #18254 > > inl theta_rad = theta_deg * pi / 180
00:23:14 verbose #18255 > > inl vy0 = v0 * cos theta_rad
00:23:14 verbose #18256 > > inl vz0 = v0 * sin theta_rad
00:23:14 verbose #18257 > > inl initial_state =
00:23:14 verbose #18258 > > particle_state {
00:23:14 verbose #18259 > > mass = 0.145
00:23:14 verbose #18260 > > charge = 0
00:23:14 verbose #18261 > > time = 0
00:23:14 verbose #18262 > > pos_vec = zero_vec ()
00:23:14 verbose #18263 > > velocity = vec 0 vy0 vz0
00:23:14 verbose #18264 > > }
00:23:14 verbose #18265 > > states_ps (euler_cromer_ps dt) (baseball_forces ()) initial_state
00:23:14 verbose #18266 > > >> Some
00:23:14 verbose #18267 > > |> z_ge0
00:23:14 verbose #18268 > > |> trajectory
00:23:14 verbose #18269 > >
00:23:14 verbose #18270 > > inl baseball_range dt v0 theta_deg =
00:23:14 verbose #18271 > > baseball_trajectory dt v0 theta_deg
00:23:14 verbose #18272 > > |> listm.fold (fun _ (y, _) => y) 0
00:23:14 verbose #18273 > >
00:23:14 verbose #18274 > > inl x : a _ f64 = am'.init_series 10 80 1
00:23:14 verbose #18275 > > inl y = x |> am.map (baseball_range 0.01 45)
00:23:14 verbose #18276 > > "range for a baseball hit at 45 m/s",
00:23:14 verbose #18277 > > "angle above horizontal (degrees)",
00:23:14 verbose #18278 > > "",
00:23:14 verbose #18279 > > ;[[ "horizontal range (m)", x, y ]]
00:23:15 verbose #18280 > >
00:23:15 verbose #18281 > > ╭─[ 1.19s - return value ]─────────────────────────────────────────────────────╮
00:23:15 verbose #18282 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:23:15 verbose #18283 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:23:15 verbose #18284 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:23:15 verbose #18285 > > │ stroke="none"/> │
00:23:15 verbose #18286 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:23:15 verbose #18287 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:15 verbose #18288 > > │ fill="#FFFFFF"> │
00:23:15 verbose #18289 > > │ range for a baseball hit at 45 m/s │
00:23:15 verbose #18290 > > │ </text> │
00:23:15 verbose #18291 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="55" y1="424" x2="55" │
00:23:15 verbose #18292 > > │ y2="75"/> │
00:23:15 verbose #18293 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:23:15 verbose #18294 > > │ y2="75"/> │
00:23:15 verbose #18295 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:23:15 verbose #18296 > > │ y2="75"/> │
00:23:15 verbose #18297 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:23:15 verbose #18298 > > │ y2="75"/> │
00:23:15 verbose #18299 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="84" y1="424" x2="84" │
00:23:15 verbose #18300 > > │ y2="75"/> │
00:23:15 verbose #18301 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="91" y1="424" x2="91" │
00:23:15 verbose #18302 > > │ y2="75"/> │
00:23:15 verbose #18303 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="98" y1="424" x2="98" │
00:23:15 verbose #18304 > > │ y2="75"/> │
00:23:15 verbose #18305 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="105" y1="424" │
00:23:15 verbose #18306 > > │ x2="105" y2="75"/> │
00:23:15 verbose #18307 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="112" y1="424" │
00:23:15 verbose #18308 > > │ x2="112" y2="75"/> │
00:23:15 verbose #18309 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:23:15 verbose #18310 > > │ x2="119" y2="75"/> │
00:23:15 verbose #18311 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="127" y1="424" │
00:23:15 verbose #18312 > > │ x2="127" y2="75"/> │
00:23:15 verbose #18313 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="134" y1="424" │
00:23:15 verbose #18314 > > │ x2="134" y2="75"/> │
00:23:15 verbose #18315 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="141" y1="424" │
00:23:15 verbose #18316 > > │ x2="141" y2="75"/> │
00:23:15 verbose #18317 > > │ <li...nts="585,199 590,199 "/> │
00:23:15 verbose #18318 > > │ <text x="595" y="156" dy="0.5ex" text-anchor="start" │
00:23:15 verbose #18319 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:15 verbose #18320 > > │ fill="#FFFFFF"> │
00:23:15 verbose #18321 > > │ 100.0 │
00:23:15 verbose #18322 > > │ </text> │
00:23:15 verbose #18323 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:23:15 verbose #18324 > > │ points="585,156 590,156 "/> │
00:23:15 verbose #18325 > > │ <text x="595" y="114" dy="0.5ex" text-anchor="start" │
00:23:15 verbose #18326 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:15 verbose #18327 > > │ fill="#FFFFFF"> │
00:23:15 verbose #18328 > > │ 110.0 │
00:23:15 verbose #18329 > > │ </text> │
00:23:15 verbose #18330 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:23:15 verbose #18331 > > │ points="585,114 590,114 "/> │
00:23:15 verbose #18332 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:15 verbose #18333 > > │ points="69,343 77,325 84,307 91,290 98,275 105,259 112,245 119,231 127,219 │
00:23:15 verbose #18334 > > │ 134,207 141,196 148,184 155,174 162,164 169,155 176,147 184,139 191,132 │
00:23:15 verbose #18335 > > │ 198,126 205,119 212,114 219,109 226,104 233,100 241,96 248,93 255,91 262,89 │
00:23:15 verbose #18336 > > │ 269,88 276,86 283,86 290,85 298,86 305,87 312,88 319,90 326,92 333,95 340,98 │
00:23:15 verbose #18337 > > │ 348,102 355,106 362,110 369,115 376,120 383,126 390,132 397,139 405,146 │
00:23:15 verbose #18338 > > │ 412,153 419,161 426,169 433,178 440,187 447,197 454,207 462,217 469,228 │
00:23:15 verbose #18339 > > │ 476,239 483,250 490,262 497,274 504,287 511,300 519,313 526,326 533,340 │
00:23:15 verbose #18340 > > │ 540,355 547,369 554,384 561,399 569,415 "/> │
00:23:15 verbose #18341 > > │ <rect x="421" y="235" width="159" height="30" opacity="1" fill="none" │
00:23:15 verbose #18342 > > │ stroke="#FFFFFF"/> │
00:23:15 verbose #18343 > > │ <text x="461" y="245" dy="0.76em" text-anchor="start" │
00:23:15 verbose #18344 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:15 verbose #18345 > > │ fill="#FFFFFF"> │
00:23:15 verbose #18346 > > │ horizontal range (m) │
00:23:15 verbose #18347 > > │ </text> │
00:23:15 verbose #18348 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:15 verbose #18349 > > │ points="431,250 451,250 "/> │
00:23:15 verbose #18350 > > │ </svg> │
00:23:15 verbose #18351 > > │ │
00:23:15 verbose #18352 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:15 verbose #18353 > >
00:23:15 verbose #18354 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:15 verbose #18355 > > //// test
00:23:15 verbose #18356 > >
00:23:15 verbose #18357 > > inl best_angle (min, max) =
00:23:15 verbose #18358 > > let rec loop theta_deg (best_range, best_theta_deg) =
00:23:15 verbose #18359 > > if theta_deg > max
00:23:15 verbose #18360 > > then best_range, best_theta_deg
00:23:15 verbose #18361 > > else
00:23:15 verbose #18362 > > inl range = baseball_range 0.01 45 theta_deg
00:23:15 verbose #18363 > > loop
00:23:15 verbose #18364 > > (theta_deg + 1)
00:23:15 verbose #18365 > > (if range > best_range
00:23:15 verbose #18366 > > then range, theta_deg
00:23:15 verbose #18367 > > else best_range, best_theta_deg)
00:23:15 verbose #18368 > > loop min (0f64, min)
00:23:15 verbose #18369 > >
00:23:15 verbose #18370 > > best_angle (30f64, 60f64)
00:23:15 verbose #18371 > > |> _assert_eq (116.77499158246208, 41)
00:23:16 verbose #18372 > >
00:23:16 verbose #18373 > > ╭─[ 1.08s - stdout ]───────────────────────────────────────────────────────────╮
00:23:16 verbose #18374 > > │ assert_eq / actual: struct (116.7749916, 41.0) / expected: struct │
00:23:16 verbose #18375 > > │ (116.7749916, 41.0) │
00:23:16 verbose #18376 > > │ │
00:23:16 verbose #18377 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:16 verbose #18378 > >
00:23:16 verbose #18379 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:16 verbose #18380 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:16 verbose #18381 > > │ ### relativity_ps │
00:23:16 verbose #18382 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:16 verbose #18383 > >
00:23:16 verbose #18384 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:16 verbose #18385 > > inl relativity_ps fs (st : particle_state) =
00:23:16 verbose #18386 > > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:23:16 verbose #18387 > > inl c = 299792458
00:23:16 verbose #18388 > > inl u = st.velocity ^/ c
00:23:16 verbose #18389 > > inl acc = sqrt (1 - (u <.> u)) *^ (f_net ^-^ (f_net <.> u) *^ u) ^/ st.mass
00:23:16 verbose #18390 > > d_particle_state {
00:23:16 verbose #18391 > > dmdt = 0
00:23:16 verbose #18392 > > dqdt = 0
00:23:16 verbose #18393 > > dtdt = 1
00:23:16 verbose #18394 > > drdt = st.velocity
00:23:16 verbose #18395 > > dvdt = acc
00:23:16 verbose #18396 > > }
00:23:17 verbose #18397 > >
00:23:17 verbose #18398 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:17 verbose #18399 > > //// test
00:23:17 verbose #18400 > >
00:23:17 verbose #18401 > > inl year = 365.25 * 24 * 60 * 60
00:23:17 verbose #18402 > > inl c = 299792458
00:23:17 verbose #18403 > > inl ~method = runge_kutta_4 100000
00:23:17 verbose #18404 > > inl forces = [[ fun _ => 10 *^ i_hat () ]]
00:23:17 verbose #18405 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:17 verbose #18406 > > inl initial_state =
00:23:17 verbose #18407 > > particle_state { default_particle_state' with
00:23:17 verbose #18408 > > mass = 1
00:23:17 verbose #18409 > > }
00:23:17 verbose #18410 > >
00:23:17 verbose #18411 > > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:23:17 verbose #18412 > > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:23:17 verbose #18413 > >
00:23:17 verbose #18414 > > inl newton_x, newton_y =
00:23:17 verbose #18415 > > newton_states
00:23:17 verbose #18416 > > >> Some
00:23:17 verbose #18417 > > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:23:17 verbose #18418 > > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:23:17 verbose #18419 > > |> listm'.unzip
00:23:17 verbose #18420 > >
00:23:17 verbose #18421 > > inl _, relativity_y =
00:23:17 verbose #18422 > > relativity_states
00:23:17 verbose #18423 > > >> Some
00:23:17 verbose #18424 > > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:23:17 verbose #18425 > > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:23:17 verbose #18426 > > |> listm'.unzip
00:23:17 verbose #18427 > >
00:23:17 verbose #18428 > > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:23:17 verbose #18429 > > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:23:17 verbose #18430 > > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:23:17 verbose #18431 > >
00:23:17 verbose #18432 > > "response to a constant force",
00:23:17 verbose #18433 > > "time (years)",
00:23:17 verbose #18434 > > "velocity (multiples of c)",
00:23:17 verbose #18435 > > ;[[
00:23:17 verbose #18436 > > "newtonian", newton_x, newton_y
00:23:17 verbose #18437 > > "relativistic", newton_x, relativity_y
00:23:17 verbose #18438 > > ]]
00:23:18 verbose #18439 > >
00:23:18 verbose #18440 > > ╭─[ 982.99ms - return value ]──────────────────────────────────────────────────╮
00:23:18 verbose #18441 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:23:18 verbose #18442 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:23:18 verbose #18443 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:23:18 verbose #18444 > > │ stroke="none"/> │
00:23:18 verbose #18445 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:23:18 verbose #18446 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:18 verbose #18447 > > │ fill="#FFFFFF"> │
00:23:18 verbose #18448 > > │ response to a constant force │
00:23:18 verbose #18449 > > │ </text> │
00:23:18 verbose #18450 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:23:18 verbose #18451 > > │ y2="75"/> │
00:23:18 verbose #18452 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:23:18 verbose #18453 > > │ y2="75"/> │
00:23:18 verbose #18454 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:23:18 verbose #18455 > > │ y2="75"/> │
00:23:18 verbose #18456 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:23:18 verbose #18457 > > │ y2="75"/> │
00:23:18 verbose #18458 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:23:18 verbose #18459 > > │ y2="75"/> │
00:23:18 verbose #18460 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:23:18 verbose #18461 > > │ x2="109" y2="75"/> │
00:23:18 verbose #18462 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:23:18 verbose #18463 > > │ x2="119" y2="75"/> │
00:23:18 verbose #18464 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:23:18 verbose #18465 > > │ x2="129" y2="75"/> │
00:23:18 verbose #18466 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:23:18 verbose #18467 > > │ x2="139" y2="75"/> │
00:23:18 verbose #18468 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:23:18 verbose #18469 > > │ x2="149" y2="75"/> │
00:23:18 verbose #18470 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:23:18 verbose #18471 > > │ x2="159" y2="75"/> │
00:23:18 verbose #18472 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:23:18 verbose #18473 > > │ x2="169" y2="75"/> │
00:23:18 verbose #18474 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:23:18 verbose #18475 > > │ x2="179" y2="75"/> │
00:23:18 verbose #18476 > > │ <line... 393,238 394,238 396,237 397,237 399,236 401,235 402,235 404,234 │
00:23:18 verbose #18477 > > │ 405,234 407,233 409,233 410,232 412,231 413,231 415,230 416,230 418,229 │
00:23:18 verbose #18478 > > │ 420,229 421,228 423,228 424,227 426,227 428,226 429,225 431,225 432,224 │
00:23:18 verbose #18479 > > │ 434,224 435,223 437,223 439,222 440,222 442,221 443,221 445,220 447,220 │
00:23:18 verbose #18480 > > │ 448,219 450,219 451,218 453,218 454,217 456,217 458,216 459,216 461,215 │
00:23:18 verbose #18481 > > │ 462,215 464,214 466,214 467,213 469,213 470,213 472,212 473,212 475,211 │
00:23:18 verbose #18482 > > │ 477,211 478,210 480,210 481,209 483,209 485,208 486,208 488,208 489,207 │
00:23:18 verbose #18483 > > │ 491,207 492,206 494,206 496,205 497,205 499,204 500,204 502,204 504,203 │
00:23:18 verbose #18484 > > │ 505,203 507,202 508,202 510,202 511,201 513,201 515,200 516,200 518,200 │
00:23:18 verbose #18485 > > │ 519,199 521,199 523,198 524,198 526,198 527,197 529,197 531,196 532,196 │
00:23:18 verbose #18486 > > │ 534,196 535,195 537,195 538,194 540,194 542,194 543,193 545,193 546,193 │
00:23:18 verbose #18487 > > │ 548,192 550,192 551,192 553,191 554,191 556,190 557,190 559,190 561,189 │
00:23:18 verbose #18488 > > │ 562,189 564,189 565,188 567,188 569,188 "/> │
00:23:18 verbose #18489 > > │ <rect x="464" y="227" width="116" height="45" opacity="1" fill="none" │
00:23:18 verbose #18490 > > │ stroke="#FFFFFF"/> │
00:23:18 verbose #18491 > > │ <text x="504" y="237" dy="0.76em" text-anchor="start" │
00:23:18 verbose #18492 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:18 verbose #18493 > > │ fill="#FFFFFF"> │
00:23:18 verbose #18494 > > │ newtonian │
00:23:18 verbose #18495 > > │ </text> │
00:23:18 verbose #18496 > > │ <text x="504" y="252" dy="0.76em" text-anchor="start" │
00:23:18 verbose #18497 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:18 verbose #18498 > > │ fill="#FFFFFF"> │
00:23:18 verbose #18499 > > │ relativistic │
00:23:18 verbose #18500 > > │ </text> │
00:23:18 verbose #18501 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:18 verbose #18502 > > │ points="474,242 494,242 "/> │
00:23:18 verbose #18503 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:23:18 verbose #18504 > > │ points="474,257 494,257 "/> │
00:23:18 verbose #18505 > > │ </svg> │
00:23:18 verbose #18506 > > │ │
00:23:18 verbose #18507 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:18 verbose #18508 > >
00:23:18 verbose #18509 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:18 verbose #18510 > > inl uniform_lorentz_force v_e v_b (st : particle_state) =
00:23:18 verbose #18511 > > st.charge *^ (v_e ^+^ st.velocity >< v_b)
00:23:18 verbose #18512 > >
00:23:18 verbose #18513 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:18 verbose #18514 > > //// test
00:23:18 verbose #18515 > >
00:23:18 verbose #18516 > > inl c : f64 = 299792458
00:23:18 verbose #18517 > > inl ~method = runge_kutta_4 0.000000001
00:23:18 verbose #18518 > > inl forces = [[ uniform_lorentz_force (zero_vec ()) (k_hat ()) ]]
00:23:18 verbose #18519 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:18 verbose #18520 > > inl initial_state =
00:23:18 verbose #18521 > > particle_state { default_particle_state' with
00:23:18 verbose #18522 > > mass = 0.000000000000000000000000001672621898
00:23:18 verbose #18523 > > charge = 0.0000000000000000001602176621
00:23:18 verbose #18524 > > velocity = 0.8 *^ (c *^ j_hat ())
00:23:18 verbose #18525 > > }
00:23:18 verbose #18526 > >
00:23:18 verbose #18527 > > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:23:18 verbose #18528 > > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:23:18 verbose #18529 > >
00:23:18 verbose #18530 > > inl newton_x, newton_y =
00:23:18 verbose #18531 > > newton_states
00:23:18 verbose #18532 > > >> Some
00:23:18 verbose #18533 > > |> seq.take_while_ (fun (particle_state st) i => i < 100i32)
00:23:18 verbose #18534 > > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:23:18 verbose #18535 > > |> listm'.unzip
00:23:18 verbose #18536 > >
00:23:18 verbose #18537 > > inl relativity_x, relativity_y =
00:23:18 verbose #18538 > > relativity_states
00:23:18 verbose #18539 > > >> Some
00:23:18 verbose #18540 > > |> seq.take_while_ (fun (particle_state st) i => i < 165i32)
00:23:18 verbose #18541 > > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:23:18 verbose #18542 > > |> listm'.unzip
00:23:18 verbose #18543 > >
00:23:18 verbose #18544 > > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:23:18 verbose #18545 > > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:23:18 verbose #18546 > >
00:23:18 verbose #18547 > > inl relativity_x : a i32 _ = relativity_x |> listm.toArray
00:23:18 verbose #18548 > > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:23:18 verbose #18549 > >
00:23:18 verbose #18550 > > "proton in a 1-t magnetic field",
00:23:18 verbose #18551 > > "x (m)",
00:23:18 verbose #18552 > > "y (m)",
00:23:18 verbose #18553 > > ;[[
00:23:18 verbose #18554 > > "newtonian", newton_x, newton_y
00:23:18 verbose #18555 > > "relativistic", relativity_x, relativity_y
00:23:18 verbose #18556 > > ]]
00:23:19 verbose #18557 > >
00:23:19 verbose #18558 > > ╭─[ 1.03s - return value ]─────────────────────────────────────────────────────╮
00:23:19 verbose #18559 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:23:19 verbose #18560 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:23:19 verbose #18561 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:23:19 verbose #18562 > > │ stroke="none"/> │
00:23:19 verbose #18563 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:23:19 verbose #18564 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:19 verbose #18565 > > │ fill="#FFFFFF"> │
00:23:19 verbose #18566 > > │ proton in a 1-t magnetic field │
00:23:19 verbose #18567 > > │ </text> │
00:23:19 verbose #18568 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="58" y1="424" x2="58" │
00:23:19 verbose #18569 > > │ y2="75"/> │
00:23:19 verbose #18570 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:23:19 verbose #18571 > > │ y2="75"/> │
00:23:19 verbose #18572 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="81" y1="424" x2="81" │
00:23:19 verbose #18573 > > │ y2="75"/> │
00:23:19 verbose #18574 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:23:19 verbose #18575 > > │ y2="75"/> │
00:23:19 verbose #18576 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="105" y1="424" │
00:23:19 verbose #18577 > > │ x2="105" y2="75"/> │
00:23:19 verbose #18578 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="117" y1="424" │
00:23:19 verbose #18579 > > │ x2="117" y2="75"/> │
00:23:19 verbose #18580 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:23:19 verbose #18581 > > │ x2="129" y2="75"/> │
00:23:19 verbose #18582 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="141" y1="424" │
00:23:19 verbose #18583 > > │ x2="141" y2="75"/> │
00:23:19 verbose #18584 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:23:19 verbose #18585 > > │ x2="153" y2="75"/> │
00:23:19 verbose #18586 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="165" y1="424" │
00:23:19 verbose #18587 > > │ x2="165" y2="75"/> │
00:23:19 verbose #18588 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="177" y1="424" │
00:23:19 verbose #18589 > > │ x2="177" y2="75"/> │
00:23:19 verbose #18590 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="189" y1="424" │
00:23:19 verbose #18591 > > │ x2="189" y2="75"/> │
00:23:19 verbose #18592 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="201" y1="424" │
00:23:19 verbose #18593 > > │ x2="201" y2="75"/> │
00:23:19 verbose #18594 > > │ <...555,197 560,206 563,216 566,225 567,234 568,244 568,253 568,263 566,272 │
00:23:19 verbose #18595 > > │ 564,281 561,291 557,300 552,309 547,317 540,326 533,334 526,342 517,350 │
00:23:19 verbose #18596 > > │ 508,357 499,364 488,371 478,377 466,383 455,388 442,393 430,398 417,402 │
00:23:19 verbose #18597 > > │ 403,405 390,408 376,410 362,412 348,414 333,414 319,415 305,414 290,414 │
00:23:19 verbose #18598 > > │ 276,412 262,410 248,408 235,405 221,401 208,397 196,393 183,388 171,383 │
00:23:19 verbose #18599 > > │ 160,377 149,371 139,364 129,357 120,350 112,342 104,334 97,326 91,317 86,309 │
00:23:19 verbose #18600 > > │ 81,300 77,290 74,281 72,272 70,263 70,253 70,244 71,234 72,225 75,215 78,206 │
00:23:19 verbose #18601 > > │ 83,197 88,188 93,180 100,171 107,163 115,155 124,148 133,140 143,133 153,127 │
00:23:19 verbose #18602 > > │ 164,121 176,115 188,110 200,105 213,101 226,97 239,94 253,91 267,89 281,87 │
00:23:19 verbose #18603 > > │ 295,86 310,85 324,85 338,86 353,87 367,88 381,90 394,93 408,96 421,100 │
00:23:19 verbose #18604 > > │ 434,104 447,109 459,114 470,119 482,125 492,131 502,138 512,145 520,153 │
00:23:19 verbose #18605 > > │ 529,161 536,169 543,177 549,186 554,194 558,203 562,213 565,222 567,231 │
00:23:19 verbose #18606 > > │ 568,241 569,250 "/> │
00:23:19 verbose #18607 > > │ <rect x="464" y="227" width="116" height="45" opacity="1" fill="none" │
00:23:19 verbose #18608 > > │ stroke="#FFFFFF"/> │
00:23:19 verbose #18609 > > │ <text x="504" y="237" dy="0.76em" text-anchor="start" │
00:23:19 verbose #18610 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:19 verbose #18611 > > │ fill="#FFFFFF"> │
00:23:19 verbose #18612 > > │ newtonian │
00:23:19 verbose #18613 > > │ </text> │
00:23:19 verbose #18614 > > │ <text x="504" y="252" dy="0.76em" text-anchor="start" │
00:23:19 verbose #18615 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:19 verbose #18616 > > │ fill="#FFFFFF"> │
00:23:19 verbose #18617 > > │ relativistic │
00:23:19 verbose #18618 > > │ </text> │
00:23:19 verbose #18619 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:19 verbose #18620 > > │ points="474,242 494,242 "/> │
00:23:19 verbose #18621 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:23:19 verbose #18622 > > │ points="474,257 494,257 "/> │
00:23:19 verbose #18623 > > │ </svg> │
00:23:19 verbose #18624 > > │ │
00:23:19 verbose #18625 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:19 verbose #18626 > >
00:23:19 verbose #18627 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:19 verbose #18628 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:19 verbose #18629 > > │ #### system kinetic energy versus time 1 │
00:23:19 verbose #18630 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:19 verbose #18631 > >
00:23:19 verbose #18632 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:19 verbose #18633 > > //// test
00:23:19 verbose #18634 > >
00:23:19 verbose #18635 > > inl central_force f (particle_state st1) (particle_state st2) =
00:23:19 verbose #18636 > > inl r1 = st1.pos_vec
00:23:19 verbose #18637 > > inl r2 = st2.pos_vec
00:23:19 verbose #18638 > > inl r21 = r2 ^-^ r1
00:23:19 verbose #18639 > > inl r21mag = magnitude r21
00:23:19 verbose #18640 > > f r21mag *^ r21 ^/ r21mag
00:23:19 verbose #18641 > >
00:23:19 verbose #18642 > > inl billiard_force k re =
00:23:19 verbose #18643 > > inl f r =
00:23:19 verbose #18644 > > if r >= re
00:23:19 verbose #18645 > > then 0
00:23:19 verbose #18646 > > else -k * (r - re)
00:23:19 verbose #18647 > > central_force f
00:23:19 verbose #18648 > >
00:23:19 verbose #18649 > > type force_vector = vec
00:23:19 verbose #18650 > > type two_body_force = particle_state -> particle_state -> force_vector
00:23:19 verbose #18651 > >
00:23:19 verbose #18652 > > union force =
00:23:19 verbose #18653 > > | ExternalForce : i32 * one_body_force
00:23:19 verbose #18654 > > | InternalForce : i32 * i32 * two_body_force
00:23:19 verbose #18655 > >
00:23:19 verbose #18656 > > nominal multi_particle_state = list particle_state
00:23:19 verbose #18657 > >
00:23:19 verbose #18658 > > nominal d_multi_particle_state = list d_particle_state
00:23:19 verbose #18659 > >
00:23:19 verbose #18660 > > inl force_on n sts force =
00:23:19 verbose #18661 > > match force with
00:23:19 verbose #18662 > > | ExternalForce (n0, f_one_body) =>
00:23:19 verbose #18663 > > if n = n0
00:23:19 verbose #18664 > > then f_one_body
00:23:19 verbose #18665 > > else fun _ => zero_vec ()
00:23:19 verbose #18666 > > | InternalForce (n0, n1, f_two_body) =>
00:23:19 verbose #18667 > > if n = n0
00:23:19 verbose #18668 > > then f_two_body (sts |> listm'.item n1)
00:23:19 verbose #18669 > > elif n = n1
00:23:19 verbose #18670 > > then f_two_body (sts |> listm'.item n0)
00:23:19 verbose #18671 > > else fun _ => zero_vec ()
00:23:19 verbose #18672 > >
00:23:19 verbose #18673 > > inl forces_on n (multi_particle_state sts) fs =
00:23:19 verbose #18674 > > fs |> listm.map (force_on n sts)
00:23:19 verbose #18675 > >
00:23:19 verbose #18676 > > inl newton_second_mps fs (multi_particle_state sts) : d_multi_particle_state =
00:23:19 verbose #18677 > > inl deriv (n, st) =
00:23:19 verbose #18678 > > newton_second_ps (forces_on n (multi_particle_state sts) fs) st
00:23:19 verbose #18679 > > sts |> listm'.indexed |> listm.map deriv |> d_multi_particle_state
00:23:19 verbose #18680 > >
00:23:19 verbose #18681 > > instance (+++) d_multi_particle_state = fun (d_multi_particle_state dsts1)
00:23:19 verbose #18682 > > (d_multi_particle_state dsts2) =>
00:23:19 verbose #18683 > > d_multi_particle_state (listm'.zip_with_ (+++) dsts1 dsts2)
00:23:19 verbose #18684 > >
00:23:19 verbose #18685 > > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:23:19 verbose #18686 > > d_multi_particle_state (dsts |> listm.map (scale w))
00:23:19 verbose #18687 > >
00:23:19 verbose #18688 > > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:23:19 verbose #18689 > > inl (d_multi_particle_state dsts) =
00:23:19 verbose #18690 > > real
00:23:19 verbose #18691 > > match dsts with
00:23:19 verbose #18692 > > | d_multi_particle_state _ => dsts
00:23:19 verbose #18693 > > listm'.zip_with_ (shift dt) dsts sts |> multi_particle_state
00:23:19 verbose #18694 > >
00:23:19 verbose #18695 > > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:23:19 verbose #18696 > > d_multi_particle_state =
00:23:19 verbose #18697 > > fun deriv mpst0 =>
00:23:19 verbose #18698 > > inl mpst1 = euler dt deriv mpst0
00:23:19 verbose #18699 > > inl (multi_particle_state sts0) = mpst0
00:23:19 verbose #18700 > > inl (multi_particle_state sts1) = mpst1
00:23:19 verbose #18701 > > sts1
00:23:19 verbose #18702 > > |> listm'.zip_ sts0
00:23:19 verbose #18703 > > |> listm.map (fun ((particle_state st0), (particle_state st1)) =>
00:23:19 verbose #18704 > > particle_state {
00:23:19 verbose #18705 > > st1 with
00:23:19 verbose #18706 > > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:23:19 verbose #18707 > > }
00:23:19 verbose #18708 > > )
00:23:19 verbose #18709 > > |> multi_particle_state
00:23:19 verbose #18710 > >
00:23:19 verbose #18711 > > inl update_mps (method : numerical_method multi_particle_state
00:23:19 verbose #18712 > > d_multi_particle_state) =
00:23:19 verbose #18713 > > newton_second_mps >> method
00:23:19 verbose #18714 > >
00:23:19 verbose #18715 > > inl states_mps (method : numerical_method multi_particle_state
00:23:19 verbose #18716 > > d_multi_particle_state) =
00:23:19 verbose #18717 > > newton_second_mps >> method >> seq.iterate_
00:23:19 verbose #18718 > >
00:23:19 verbose #18719 > >
00:23:19 verbose #18720 > > inl kinetic_energy (particle_state st) =
00:23:19 verbose #18721 > > inl m = st.mass
00:23:19 verbose #18722 > > inl v = magnitude st.velocity
00:23:19 verbose #18723 > > 0.5 * m * v ** 2
00:23:19 verbose #18724 > >
00:23:19 verbose #18725 > > inl system_ke (multi_particle_state sts) =
00:23:19 verbose #18726 > > sts |> listm.map kinetic_energy |> listm'.sum
00:23:19 verbose #18727 > >
00:23:19 verbose #18728 > > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:23:19 verbose #18729 > > inl r1 = st1.pos_vec
00:23:19 verbose #18730 > > inl r2 = st2.pos_vec
00:23:19 verbose #18731 > > inl r21 = r2 ^-^ r1
00:23:19 verbose #18732 > > inl r21mag = magnitude r21
00:23:19 verbose #18733 > > k * (r21mag - re) ** 2 / 2
00:23:19 verbose #18734 > >
00:23:19 verbose #18735 > > inl earth_surface_gravity_pe (particle_state st) =
00:23:19 verbose #18736 > > inl g = 9.80665
00:23:19 verbose #18737 > > inl m = st.mass
00:23:19 verbose #18738 > > inl z = st.pos_vec.z
00:23:19 verbose #18739 > > m * g * z
00:23:19 verbose #18740 > >
00:23:19 verbose #18741 > > inl two_springs_pe (multi_particle_state sts) =
00:23:19 verbose #18742 > > inl st0 = sts |> listm'.item 0i32
00:23:19 verbose #18743 > > inl st1 = sts |> listm'.item 1i32
00:23:19 verbose #18744 > > linear_spring_pe 100 0.5 (default_particle_state ()) st0
00:23:19 verbose #18745 > > + linear_spring_pe 100 0.5 st0 st1
00:23:19 verbose #18746 > > + earth_surface_gravity_pe st0
00:23:19 verbose #18747 > > + earth_surface_gravity_pe st1
00:23:19 verbose #18748 > >
00:23:19 verbose #18749 > > inl two_springs_me mpst =
00:23:19 verbose #18750 > > system_ke mpst + two_springs_pe mpst
00:23:19 verbose #18751 > >
00:23:19 verbose #18752 > > inl ball_radius () = 0.03
00:23:19 verbose #18753 > >
00:23:19 verbose #18754 > > inl billiard_forces k =
00:23:19 verbose #18755 > > [[ InternalForce (0, 1, billiard_force k (2 * ball_radius ())) ]]
00:23:19 verbose #18756 > >
00:23:19 verbose #18757 > > inl billiard_update n_method k dt =
00:23:19 verbose #18758 > > update_mps (n_method dt) (billiard_forces k)
00:23:19 verbose #18759 > >
00:23:19 verbose #18760 > > inl billiard_initial () =
00:23:19 verbose #18761 > > inl ball_mass = 0.160
00:23:19 verbose #18762 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:19 verbose #18763 > > multi_particle_state [[
00:23:19 verbose #18764 > > particle_state {
00:23:19 verbose #18765 > > default_particle_state' with
00:23:19 verbose #18766 > > mass = ball_mass
00:23:19 verbose #18767 > > pos_vec = zero_vec ()
00:23:19 verbose #18768 > > velocity = 0.2 *^ i_hat ()
00:23:19 verbose #18769 > > }
00:23:19 verbose #18770 > > particle_state {
00:23:19 verbose #18771 > > default_particle_state' with
00:23:19 verbose #18772 > > mass = ball_mass
00:23:19 verbose #18773 > > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:23:19 verbose #18774 > > velocity = zero_vec ()
00:23:19 verbose #18775 > > }
00:23:19 verbose #18776 > > ]]
00:23:19 verbose #18777 > >
00:23:19 verbose #18778 > > inl billiard_states ~n_method k dt =
00:23:19 verbose #18779 > > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:23:19 verbose #18780 > >
00:23:19 verbose #18781 > > inl billiard_states_finite n_method k dt =
00:23:19 verbose #18782 > > billiard_states n_method k dt
00:23:19 verbose #18783 > > >> Some
00:23:19 verbose #18784 > > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:23:19 verbose #18785 > > (mpst |> listm'.item 0i32).time <= 10
00:23:19 verbose #18786 > > )
00:23:19 verbose #18787 > >
00:23:19 verbose #18788 > > inl momentum (particle_state st) =
00:23:19 verbose #18789 > > inl m = st.mass
00:23:19 verbose #18790 > > inl v = st.velocity
00:23:19 verbose #18791 > > m *^ v
00:23:19 verbose #18792 > >
00:23:19 verbose #18793 > > inl system_p (multi_particle_state sts) =
00:23:19 verbose #18794 > > sts |> listm.map momentum |> sum_vec
00:23:19 verbose #18795 > >
00:23:19 verbose #18796 > >
00:23:19 verbose #18797 > > inl time_ke_ec_x, time_ke_ec_y =
00:23:19 verbose #18798 > > billiard_states_finite euler_cromer_mps 30 0.03
00:23:19 verbose #18799 > > |> listm.map (fun (multi_particle_state mpst) =>
00:23:19 verbose #18800 > > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:23:19 verbose #18801 > > )
00:23:19 verbose #18802 > > |> listm'.unzip
00:23:19 verbose #18803 > >
00:23:19 verbose #18804 > > inl time_ke_rk4_x, time_ke_rk4_y =
00:23:19 verbose #18805 > > billiard_states_finite runge_kutta_4 30 0.03
00:23:19 verbose #18806 > > |> listm.map (fun (multi_particle_state mpst) =>
00:23:19 verbose #18807 > > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:23:19 verbose #18808 > > )
00:23:19 verbose #18809 > > |> listm'.unzip
00:23:19 verbose #18810 > >
00:23:19 verbose #18811 > > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:23:19 verbose #18812 > > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:23:19 verbose #18813 > >
00:23:19 verbose #18814 > > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:23:19 verbose #18815 > > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:23:19 verbose #18816 > >
00:23:19 verbose #18817 > > "system kinetic energy versus time",
00:23:19 verbose #18818 > > "time (s)",
00:23:19 verbose #18819 > > "system kinetic energy (j)",
00:23:19 verbose #18820 > > ;[[
00:23:19 verbose #18821 > > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:23:19 verbose #18822 > > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:23:19 verbose #18823 > > ]]
00:23:21 verbose #18824 > >
00:23:21 verbose #18825 > > ╭─[ 1.90s - return value ]─────────────────────────────────────────────────────╮
00:23:21 verbose #18826 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:23:21 verbose #18827 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:23:21 verbose #18828 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:23:21 verbose #18829 > > │ stroke="none"/> │
00:23:21 verbose #18830 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:23:21 verbose #18831 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:21 verbose #18832 > > │ fill="#FFFFFF"> │
00:23:21 verbose #18833 > > │ system kinetic energy versus time │
00:23:21 verbose #18834 > > │ </text> │
00:23:21 verbose #18835 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:23:21 verbose #18836 > > │ y2="75"/> │
00:23:21 verbose #18837 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:23:21 verbose #18838 > > │ y2="75"/> │
00:23:21 verbose #18839 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:23:21 verbose #18840 > > │ y2="75"/> │
00:23:21 verbose #18841 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:23:21 verbose #18842 > > │ y2="75"/> │
00:23:21 verbose #18843 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:23:21 verbose #18844 > > │ y2="75"/> │
00:23:21 verbose #18845 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:23:21 verbose #18846 > > │ x2="109" y2="75"/> │
00:23:21 verbose #18847 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:23:21 verbose #18848 > > │ x2="119" y2="75"/> │
00:23:21 verbose #18849 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:23:21 verbose #18850 > > │ x2="129" y2="75"/> │
00:23:21 verbose #18851 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:23:21 verbose #18852 > > │ x2="139" y2="75"/> │
00:23:21 verbose #18853 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:23:21 verbose #18854 > > │ x2="149" y2="75"/> │
00:23:21 verbose #18855 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:23:21 verbose #18856 > > │ x2="159" y2="75"/> │
00:23:21 verbose #18857 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:23:21 verbose #18858 > > │ x2="169" y2="75"/> │
00:23:21 verbose #18859 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:23:21 verbose #18860 > > │ x2="179" y2="75"/> │
00:23:21 verbose #18861 > > │ ...,104 404,104 405,104 407,104 408,104 410,104 411,104 413,104 414,104 │
00:23:21 verbose #18862 > > │ 416,104 417,104 419,104 420,104 422,104 423,104 425,104 426,104 428,104 │
00:23:21 verbose #18863 > > │ 429,104 431,104 432,104 434,104 435,104 437,104 438,104 440,104 441,104 │
00:23:21 verbose #18864 > > │ 443,104 444,104 446,104 447,104 449,104 450,104 452,104 453,104 455,104 │
00:23:21 verbose #18865 > > │ 456,104 458,104 459,104 461,104 462,104 464,104 465,104 467,104 468,104 │
00:23:21 verbose #18866 > > │ 470,104 471,104 473,104 474,104 476,104 477,104 479,104 480,104 482,104 │
00:23:21 verbose #18867 > > │ 483,104 485,104 486,104 488,104 489,104 491,104 492,104 494,104 495,104 │
00:23:21 verbose #18868 > > │ 497,104 498,104 500,104 501,104 503,104 504,104 506,104 507,104 509,104 │
00:23:21 verbose #18869 > > │ 510,104 512,104 513,104 515,104 516,104 518,104 519,104 521,104 522,104 │
00:23:21 verbose #18870 > > │ 524,104 525,104 527,104 528,104 530,104 531,104 533,104 534,104 536,104 │
00:23:21 verbose #18871 > > │ 537,104 539,104 540,104 542,104 543,104 545,104 546,104 548,104 549,104 │
00:23:21 verbose #18872 > > │ 551,104 552,104 554,104 555,104 557,104 558,104 560,104 561,104 563,104 │
00:23:21 verbose #18873 > > │ 564,104 566,104 567,104 569,104 "/> │
00:23:21 verbose #18874 > > │ <rect x="459" y="227" width="121" height="45" opacity="1" fill="none" │
00:23:21 verbose #18875 > > │ stroke="#FFFFFF"/> │
00:23:21 verbose #18876 > > │ <text x="499" y="237" dy="0.76em" text-anchor="start" │
00:23:21 verbose #18877 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:21 verbose #18878 > > │ fill="#FFFFFF"> │
00:23:21 verbose #18879 > > │ euler-cromer │
00:23:21 verbose #18880 > > │ </text> │
00:23:21 verbose #18881 > > │ <text x="499" y="252" dy="0.76em" text-anchor="start" │
00:23:21 verbose #18882 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:21 verbose #18883 > > │ fill="#FFFFFF"> │
00:23:21 verbose #18884 > > │ runge-kutta 4 │
00:23:21 verbose #18885 > > │ </text> │
00:23:21 verbose #18886 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:21 verbose #18887 > > │ points="469,242 489,242 "/> │
00:23:21 verbose #18888 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:23:21 verbose #18889 > > │ points="469,257 489,257 "/> │
00:23:21 verbose #18890 > > │ </svg> │
00:23:21 verbose #18891 > > │ │
00:23:21 verbose #18892 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:21 verbose #18893 > >
00:23:21 verbose #18894 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:21 verbose #18895 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:21 verbose #18896 > > │ #### wave 1 │
00:23:21 verbose #18897 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:21 verbose #18898 > >
00:23:21 verbose #18899 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:21 verbose #18900 > > //// test
00:23:21 verbose #18901 > >
00:23:21 verbose #18902 > > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:23:21 verbose #18903 > > inl r1 = st1.pos_vec
00:23:21 verbose #18904 > > inl r2 = st2.pos_vec
00:23:21 verbose #18905 > > inl r21 = r2 ^-^ r1
00:23:21 verbose #18906 > > inl r21mag = magnitude r21
00:23:21 verbose #18907 > > -k * (r21mag - re) *^ r21 ^/ r21mag
00:23:21 verbose #18908 > >
00:23:21 verbose #18909 > > inl fixed_linear_spring k re r1 =
00:23:21 verbose #18910 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:21 verbose #18911 > > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:23:21 verbose #18912 > > r1 })
00:23:21 verbose #18913 > >
00:23:21 verbose #18914 > > inl forces_string () =
00:23:21 verbose #18915 > > [[
00:23:21 verbose #18916 > > ExternalForce (0, fixed_linear_spring 5384 0 (zero_vec ()))
00:23:21 verbose #18917 > > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:23:21 verbose #18918 > > ]] ++ (
00:23:21 verbose #18919 > > listm'.init_series 0 59 1
00:23:21 verbose #18920 > > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:23:21 verbose #18921 > > )
00:23:21 verbose #18922 > >
00:23:21 verbose #18923 > > inl string_update dt =
00:23:21 verbose #18924 > > update_mps (runge_kutta_4 dt) (forces_string ())
00:23:21 verbose #18925 > >
00:23:21 verbose #18926 > > inl string_initial_overtone n =
00:23:21 verbose #18927 > > inl ball_mass = 0.0008293 * 0.65 / 64
00:23:21 verbose #18928 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:21 verbose #18929 > > listm'.init_series 0.01 0.64 0.01
00:23:21 verbose #18930 > > |> listm.map (fun x =>
00:23:21 verbose #18931 > > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:23:21 verbose #18932 > > particle_state {
00:23:21 verbose #18933 > > default_particle_state' with
00:23:21 verbose #18934 > > mass = ball_mass
00:23:21 verbose #18935 > > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:23:21 verbose #18936 > > velocity = zero_vec ()
00:23:21 verbose #18937 > > }
00:23:21 verbose #18938 > > )
00:23:21 verbose #18939 > > |> multi_particle_state
00:23:21 verbose #18940 > >
00:23:21 verbose #18941 > > inl string_initial_pluck () =
00:23:21 verbose #18942 > > inl ball_mass = 0.0008293 * 0.65 / 64
00:23:21 verbose #18943 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:21 verbose #18944 > > listm'.init_series 0.01 0.64 0.01
00:23:21 verbose #18945 > > |> listm.map (fun x =>
00:23:21 verbose #18946 > > inl y =
00:23:21 verbose #18947 > > inl n = if x <= 0.51 then 0 else 0.65
00:23:21 verbose #18948 > > 0.005 / (0.51 - n) * (x - n)
00:23:21 verbose #18949 > > particle_state {
00:23:21 verbose #18950 > > default_particle_state' with
00:23:21 verbose #18951 > > mass = ball_mass
00:23:21 verbose #18952 > > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:23:21 verbose #18953 > > velocity = zero_vec ()
00:23:21 verbose #18954 > > }
00:23:21 verbose #18955 > > )
00:23:21 verbose #18956 > > |> multi_particle_state
00:23:21 verbose #18957 > >
00:23:21 verbose #18958 > > let main () =
00:23:21 verbose #18959 > > inl ~frames = listm'.init_series 0 9 1f64
00:23:21 verbose #18960 > > inl initial_state = string_initial_overtone 3i32
00:23:21 verbose #18961 > > inl frames =
00:23:21 verbose #18962 > > frames
00:23:21 verbose #18963 > > |> listm.map (fun n =>
00:23:21 verbose #18964 > > inl (multi_particle_state sts) =
00:23:21 verbose #18965 > > seq.iterate' (string_update 0.000025) initial_state |> fun f =>
00:23:21 verbose #18966 > > f 0f64
00:23:21 verbose #18967 > > inl rs =
00:23:21 verbose #18968 > > [[ zero_vec () ]]
00:23:21 verbose #18969 > > ++ (sts |> listm.map (fun (particle_state st) => st.pos_vec))
00:23:21 verbose #18970 > > ++ [[ 0.65 *^ i_hat () ]]
00:23:21 verbose #18971 > > inl x, y =
00:23:21 verbose #18972 > > rs
00:23:21 verbose #18973 > > |> listm.map (fun r => r.x, r.y)
00:23:21 verbose #18974 > > |> listm'.unzip
00:23:21 verbose #18975 > > inl x : a i32 _ = x |> listm.toArray
00:23:21 verbose #18976 > > inl y : a i32 _ = y |> listm.toArray
00:23:21 verbose #18977 > > x, y
00:23:21 verbose #18978 > > )
00:23:21 verbose #18979 > > |> listm.toArray : a i32 _
00:23:21 verbose #18980 > >
00:23:21 verbose #18981 > > inl n = 0i32
00:23:21 verbose #18982 > >
00:23:21 verbose #18983 > > inl x, y = index frames n
00:23:21 verbose #18984 > >
00:23:21 verbose #18985 > > "wave",
00:23:21 verbose #18986 > > "position (m)",
00:23:21 verbose #18987 > > "displacement (m)",
00:23:21 verbose #18988 > > ;[[
00:23:21 verbose #18989 > > ($'$"{!n}"' : string), x, y
00:23:21 verbose #18990 > > ]]
00:23:22 verbose #18991 > >
00:23:22 verbose #18992 > > ╭─[ 878.58ms - return value ]──────────────────────────────────────────────────╮
00:23:22 verbose #18993 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:23:22 verbose #18994 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:23:22 verbose #18995 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:23:22 verbose #18996 > > │ stroke="none"/> │
00:23:22 verbose #18997 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:23:22 verbose #18998 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:22 verbose #18999 > > │ fill="#FFFFFF"> │
00:23:22 verbose #19000 > > │ wave │
00:23:22 verbose #19001 > > │ </text> │
00:23:22 verbose #19002 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:23:22 verbose #19003 > > │ y2="75"/> │
00:23:22 verbose #19004 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:23:22 verbose #19005 > > │ y2="75"/> │
00:23:22 verbose #19006 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:23:22 verbose #19007 > > │ y2="75"/> │
00:23:22 verbose #19008 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" x2="85" │
00:23:22 verbose #19009 > > │ y2="75"/> │
00:23:22 verbose #19010 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:23:22 verbose #19011 > > │ y2="75"/> │
00:23:22 verbose #19012 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="100" y1="424" │
00:23:22 verbose #19013 > > │ x2="100" y2="75"/> │
00:23:22 verbose #19014 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="108" y1="424" │
00:23:22 verbose #19015 > > │ x2="108" y2="75"/> │
00:23:22 verbose #19016 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="116" y1="424" │
00:23:22 verbose #19017 > > │ x2="116" y2="75"/> │
00:23:22 verbose #19018 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="123" y1="424" │
00:23:22 verbose #19019 > > │ x2="123" y2="75"/> │
00:23:22 verbose #19020 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="131" y1="424" │
00:23:22 verbose #19021 > > │ x2="131" y2="75"/> │
00:23:22 verbose #19022 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:23:22 verbose #19023 > > │ x2="139" y2="75"/> │
00:23:22 verbose #19024 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="146" y1="424" │
00:23:22 verbose #19025 > > │ x2="146" y2="75"/> │
00:23:22 verbose #19026 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="154" y1="424" │
00:23:22 verbose #19027 > > │ x2="154" y2="75"/> │
00:23:22 verbose #19028 > > │ <line opacity="1" stroke="#32...ne fill="none" opacity="1" stroke="#FFFFFF" │
00:23:22 verbose #19029 > > │ stroke-width="1" points="585,250 590,250 "/> │
00:23:22 verbose #19030 > > │ <text x="617" y="184" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:23:22 verbose #19031 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:23:22 verbose #19032 > > │ 0.0 │
00:23:22 verbose #19033 > > │ </text> │
00:23:22 verbose #19034 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:23:22 verbose #19035 > > │ points="585,184 590,184 "/> │
00:23:22 verbose #19036 > > │ <text x="617" y="118" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:23:22 verbose #19037 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:23:22 verbose #19038 > > │ 0.0 │
00:23:22 verbose #19039 > > │ </text> │
00:23:22 verbose #19040 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:23:22 verbose #19041 > > │ points="585,118 590,118 "/> │
00:23:22 verbose #19042 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:22 verbose #19043 > > │ points="69,250 77,226 85,203 93,181 100,160 108,141 116,124 123,110 131,99 │
00:23:22 verbose #19044 > > │ 139,91 146,87 154,85 162,88 169,93 177,102 185,115 192,129 200,147 208,167 │
00:23:22 verbose #19045 > > │ 215,188 223,211 231,234 238,258 246,282 254,305 261,327 269,347 277,365 │
00:23:22 verbose #19046 > > │ 284,381 292,394 300,404 307,411 315,415 323,415 331,411 338,404 346,394 │
00:23:22 verbose #19047 > > │ 354,381 361,365 369,347 377,327 384,305 392,282 400,258 407,234 415,211 │
00:23:22 verbose #19048 > > │ 423,188 430,167 438,147 446,129 453,115 461,102 469,93 476,88 484,85 492,87 │
00:23:22 verbose #19049 > > │ 499,91 507,99 515,110 522,124 530,141 538,160 545,181 553,203 561,226 │
00:23:22 verbose #19050 > > │ 569,250 "/> │
00:23:22 verbose #19051 > > │ <rect x="525" y="235" width="55" height="30" opacity="1" fill="none" │
00:23:22 verbose #19052 > > │ stroke="#FFFFFF"/> │
00:23:22 verbose #19053 > > │ <text x="565" y="245" dy="0.76em" text-anchor="start" │
00:23:22 verbose #19054 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:22 verbose #19055 > > │ fill="#FFFFFF"> │
00:23:22 verbose #19056 > > │ 0 │
00:23:22 verbose #19057 > > │ </text> │
00:23:22 verbose #19058 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:22 verbose #19059 > > │ points="535,250 555,250 "/> │
00:23:22 verbose #19060 > > │ </svg> │
00:23:22 verbose #19061 > > │ │
00:23:22 verbose #19062 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:22 verbose #19063 > >
00:23:22 verbose #19064 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:22 verbose #19065 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:22 verbose #19066 > > │ #### system kinetic energy versus time 2 │
00:23:22 verbose #19067 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:22 verbose #19068 > >
00:23:22 verbose #19069 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:22 verbose #19070 > > //// test
00:23:22 verbose #19071 > >
00:23:22 verbose #19072 > > inl central_force f (particle_state st1) (particle_state st2) =
00:23:22 verbose #19073 > > inl r1 = st1.pos_vec
00:23:22 verbose #19074 > > inl r2 = st2.pos_vec
00:23:22 verbose #19075 > > inl r21 = r2 ^-^ r1
00:23:22 verbose #19076 > > inl r21mag = magnitude r21
00:23:22 verbose #19077 > > f r21mag *^ r21 ^/ r21mag
00:23:22 verbose #19078 > >
00:23:22 verbose #19079 > > inl billiard_force k re =
00:23:22 verbose #19080 > > inl f r =
00:23:22 verbose #19081 > > if r >= re
00:23:22 verbose #19082 > > then 0
00:23:22 verbose #19083 > > else -k * (r - re)
00:23:22 verbose #19084 > > central_force f
00:23:22 verbose #19085 > >
00:23:22 verbose #19086 > > type force_vector = vec
00:23:22 verbose #19087 > > type two_body_force = particle_state -> particle_state -> force_vector
00:23:22 verbose #19088 > >
00:23:22 verbose #19089 > > union force t =
00:23:22 verbose #19090 > > | ExternalForce : t * one_body_force
00:23:22 verbose #19091 > > | InternalForce : t * t * two_body_force
00:23:22 verbose #19092 > >
00:23:22 verbose #19093 > > nominal multi_particle_state = stream.stream particle_state
00:23:22 verbose #19094 > >
00:23:22 verbose #19095 > > nominal d_multi_particle_state = stream.stream d_particle_state
00:23:22 verbose #19096 > >
00:23:22 verbose #19097 > > inl force_on n s force =
00:23:22 verbose #19098 > > match force with
00:23:22 verbose #19099 > > | ExternalForce (n0, f_one_body) =>
00:23:22 verbose #19100 > > if n = n0
00:23:22 verbose #19101 > > then f_one_body
00:23:22 verbose #19102 > > else fun _ => zero_vec ()
00:23:22 verbose #19103 > > | InternalForce (n0, n1, f_two_body) =>
00:23:22 verbose #19104 > > if n = n0
00:23:22 verbose #19105 > > then s |> stream.try_item n1 |> optionm.map f_two_body
00:23:22 verbose #19106 > > elif n = n1
00:23:22 verbose #19107 > > then s |> stream.try_item n0 |> optionm.map f_two_body
00:23:22 verbose #19108 > > else None
00:23:22 verbose #19109 > > |> optionm'.default_value (fun _ => zero_vec ())
00:23:22 verbose #19110 > >
00:23:22 verbose #19111 > > inl forces_on n (multi_particle_state sts) fs =
00:23:22 verbose #19112 > > fs
00:23:22 verbose #19113 > > |> listm.map (force_on n sts)
00:23:22 verbose #19114 > >
00:23:22 verbose #19115 > > inl newton_second_mps fs ((multi_particle_state sts) as mpst) =
00:23:22 verbose #19116 > > inl deriv (n, st) =
00:23:22 verbose #19117 > > newton_second_ps (forces_on n mpst fs) st
00:23:22 verbose #19118 > > sts |> stream.indexed |> stream.map deriv |> d_multi_particle_state
00:23:22 verbose #19119 > >
00:23:22 verbose #19120 > > instance (+++) d_multi_particle_state =
00:23:22 verbose #19121 > > fun (d_multi_particle_state dsts1) (d_multi_particle_state dsts2) =>
00:23:22 verbose #19122 > > (dsts1, dsts2)
00:23:22 verbose #19123 > > ||> stream.zip_with (+++)
00:23:22 verbose #19124 > > |> d_multi_particle_state
00:23:22 verbose #19125 > >
00:23:22 verbose #19126 > > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:23:22 verbose #19127 > > dsts
00:23:22 verbose #19128 > > |> stream.map (scale w)
00:23:22 verbose #19129 > > |> d_multi_particle_state
00:23:22 verbose #19130 > >
00:23:22 verbose #19131 > > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:23:22 verbose #19132 > > inl (d_multi_particle_state dsts) =
00:23:22 verbose #19133 > > real
00:23:22 verbose #19134 > > match dsts with
00:23:22 verbose #19135 > > | d_multi_particle_state _ => dsts
00:23:22 verbose #19136 > > (dsts, sts)
00:23:22 verbose #19137 > > ||> stream.zip_with (shift dt)
00:23:22 verbose #19138 > > |> stream.memoize
00:23:22 verbose #19139 > > |> fun x => x ()
00:23:22 verbose #19140 > > |> multi_particle_state
00:23:22 verbose #19141 > >
00:23:22 verbose #19142 > > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:23:22 verbose #19143 > > d_multi_particle_state =
00:23:22 verbose #19144 > > fun deriv ((multi_particle_state sts0) as mpst0) =>
00:23:22 verbose #19145 > > inl (multi_particle_state sts1) = euler dt deriv mpst0
00:23:22 verbose #19146 > > (sts0, sts1)
00:23:22 verbose #19147 > > ||> stream.zip
00:23:22 verbose #19148 > > |> stream.map (fun ((particle_state st0), (particle_state st1)) =>
00:23:22 verbose #19149 > > particle_state {
00:23:22 verbose #19150 > > st1 with
00:23:22 verbose #19151 > > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:23:22 verbose #19152 > > }
00:23:22 verbose #19153 > > )
00:23:22 verbose #19154 > > |> multi_particle_state
00:23:22 verbose #19155 > >
00:23:22 verbose #19156 > > inl update_mps (method : numerical_method multi_particle_state
00:23:22 verbose #19157 > > d_multi_particle_state) =
00:23:22 verbose #19158 > > newton_second_mps >> method
00:23:22 verbose #19159 > >
00:23:22 verbose #19160 > > inl states_mps (method : numerical_method multi_particle_state
00:23:22 verbose #19161 > > d_multi_particle_state) =
00:23:22 verbose #19162 > > newton_second_mps
00:23:22 verbose #19163 > > >> method
00:23:22 verbose #19164 > > >> (fun x (multi_particle_state y) =>
00:23:22 verbose #19165 > > y
00:23:22 verbose #19166 > > |> stream.memoize
00:23:22 verbose #19167 > > |> (fun x => x ())
00:23:22 verbose #19168 > > |> multi_particle_state |> x
00:23:22 verbose #19169 > > )
00:23:22 verbose #19170 > > // >> stream.iterate
00:23:22 verbose #19171 > > >> seq.iterate'
00:23:22 verbose #19172 > >
00:23:22 verbose #19173 > > inl kinetic_energy (particle_state st) =
00:23:22 verbose #19174 > > inl m = st.mass
00:23:22 verbose #19175 > > inl v = magnitude st.velocity
00:23:22 verbose #19176 > > 0.5 * m * v ** 2
00:23:22 verbose #19177 > >
00:23:22 verbose #19178 > > inl system_ke (multi_particle_state sts) =
00:23:22 verbose #19179 > > sts
00:23:22 verbose #19180 > > |> stream.map kinetic_energy
00:23:22 verbose #19181 > > |> stream.sum
00:23:22 verbose #19182 > >
00:23:22 verbose #19183 > > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:23:22 verbose #19184 > > inl r1 = st1.pos_vec
00:23:22 verbose #19185 > > inl r2 = st2.pos_vec
00:23:22 verbose #19186 > > inl r21 = r2 ^-^ r1
00:23:22 verbose #19187 > > inl r21mag = magnitude r21
00:23:22 verbose #19188 > > k * (r21mag - re) ** 2 / 2
00:23:22 verbose #19189 > >
00:23:22 verbose #19190 > > inl earth_surface_gravity_pe (particle_state st) =
00:23:22 verbose #19191 > > inl g = 9.80665
00:23:22 verbose #19192 > > inl m = st.mass
00:23:22 verbose #19193 > > inl z = st.pos_vec.z
00:23:22 verbose #19194 > > m * g * z
00:23:22 verbose #19195 > >
00:23:22 verbose #19196 > > inl ball_radius () = 0.03
00:23:22 verbose #19197 > >
00:23:22 verbose #19198 > > inl billiard_forces k =
00:23:22 verbose #19199 > > [[ InternalForce (0i32, 1, billiard_force k (2 * ball_radius ())) ]]
00:23:22 verbose #19200 > >
00:23:22 verbose #19201 > > inl billiard_initial () =
00:23:22 verbose #19202 > > inl ball_mass = 0.160
00:23:22 verbose #19203 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:22 verbose #19204 > > [[
00:23:22 verbose #19205 > > particle_state {
00:23:22 verbose #19206 > > default_particle_state' with
00:23:22 verbose #19207 > > mass = ball_mass
00:23:22 verbose #19208 > > pos_vec = zero_vec ()
00:23:22 verbose #19209 > > velocity = 0.2 *^ i_hat ()
00:23:22 verbose #19210 > > }
00:23:22 verbose #19211 > > particle_state {
00:23:22 verbose #19212 > > default_particle_state' with
00:23:22 verbose #19213 > > mass = ball_mass
00:23:22 verbose #19214 > > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:23:22 verbose #19215 > > velocity = zero_vec ()
00:23:22 verbose #19216 > > }
00:23:22 verbose #19217 > > ]]
00:23:22 verbose #19218 > > |> stream.from_list
00:23:22 verbose #19219 > > |> multi_particle_state
00:23:22 verbose #19220 > >
00:23:22 verbose #19221 > > inl billiard_states ~n_method k dt =
00:23:22 verbose #19222 > > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:23:22 verbose #19223 > >
00:23:22 verbose #19224 > > inl billiard_states_finite n_method k dt =
00:23:22 verbose #19225 > > billiard_states n_method k dt
00:23:22 verbose #19226 > > >> Some
00:23:22 verbose #19227 > > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:23:22 verbose #19228 > > match mpst |> stream.try_item 0i32 with
00:23:22 verbose #19229 > > | Some st =>
00:23:22 verbose #19230 > > st.time <= 10
00:23:22 verbose #19231 > > | None => false
00:23:22 verbose #19232 > > )
00:23:22 verbose #19233 > >
00:23:22 verbose #19234 > > inl momentum (particle_state st) =
00:23:22 verbose #19235 > > inl m = st.mass
00:23:22 verbose #19236 > > inl v = st.velocity
00:23:22 verbose #19237 > > m *^ v
00:23:22 verbose #19238 > >
00:23:22 verbose #19239 > > inl system_p (multi_particle_state sts) =
00:23:22 verbose #19240 > > sts
00:23:22 verbose #19241 > > |> stream.map momentum
00:23:22 verbose #19242 > > |> stream.fold (^+^) (zero_vec ())
00:23:22 verbose #19243 > >
00:23:22 verbose #19244 > > inl time_ke_ec_x, time_ke_ec_y =
00:23:22 verbose #19245 > > billiard_states_finite euler_cromer_mps 30 0.03
00:23:22 verbose #19246 > > |> listm.map (fun (multi_particle_state mpst) =>
00:23:22 verbose #19247 > > mpst |> stream.try_item 0i32
00:23:22 verbose #19248 > > |> optionm.map (fun st =>
00:23:22 verbose #19249 > > st.time, system_ke (multi_particle_state mpst)
00:23:22 verbose #19250 > > )
00:23:22 verbose #19251 > > )
00:23:22 verbose #19252 > > // |> stream.to_list
00:23:22 verbose #19253 > > |> listm'.choose id
00:23:22 verbose #19254 > > |> listm'.unzip
00:23:22 verbose #19255 > >
00:23:22 verbose #19256 > > inl time_ke_rk4_x, time_ke_rk4_y =
00:23:22 verbose #19257 > > billiard_states_finite runge_kutta_4 30 0.03
00:23:22 verbose #19258 > > |> listm.map (fun (multi_particle_state mpst) =>
00:23:22 verbose #19259 > > mpst |> stream.try_item 0i32
00:23:22 verbose #19260 > > |> optionm.map (fun st =>
00:23:22 verbose #19261 > > st.time, system_ke (multi_particle_state mpst)
00:23:22 verbose #19262 > > )
00:23:22 verbose #19263 > > )
00:23:22 verbose #19264 > > // |> stream.to_list
00:23:22 verbose #19265 > > |> listm'.choose id
00:23:22 verbose #19266 > > |> listm'.unzip
00:23:22 verbose #19267 > >
00:23:22 verbose #19268 > > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:23:22 verbose #19269 > > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:23:22 verbose #19270 > >
00:23:22 verbose #19271 > > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:23:22 verbose #19272 > > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:23:22 verbose #19273 > >
00:23:22 verbose #19274 > > "system kinetic energy versus time",
00:23:22 verbose #19275 > > "time (s)",
00:23:22 verbose #19276 > > "system kinetic energy (j)",
00:23:22 verbose #19277 > > ;[[
00:23:22 verbose #19278 > > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:23:22 verbose #19279 > > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:23:22 verbose #19280 > > ]]
00:23:26 verbose #19281 > >
00:23:26 verbose #19282 > > ╭─[ 3.75s - return value ]─────────────────────────────────────────────────────╮
00:23:26 verbose #19283 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:23:26 verbose #19284 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:23:26 verbose #19285 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:23:26 verbose #19286 > > │ stroke="none"/> │
00:23:26 verbose #19287 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:23:26 verbose #19288 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:26 verbose #19289 > > │ fill="#FFFFFF"> │
00:23:26 verbose #19290 > > │ system kinetic energy versus time │
00:23:26 verbose #19291 > > │ </text> │
00:23:26 verbose #19292 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:23:26 verbose #19293 > > │ y2="75"/> │
00:23:26 verbose #19294 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:23:26 verbose #19295 > > │ y2="75"/> │
00:23:26 verbose #19296 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:23:26 verbose #19297 > > │ y2="75"/> │
00:23:26 verbose #19298 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:23:26 verbose #19299 > > │ y2="75"/> │
00:23:26 verbose #19300 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:23:26 verbose #19301 > > │ y2="75"/> │
00:23:26 verbose #19302 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:23:26 verbose #19303 > > │ x2="109" y2="75"/> │
00:23:26 verbose #19304 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:23:26 verbose #19305 > > │ x2="119" y2="75"/> │
00:23:26 verbose #19306 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:23:26 verbose #19307 > > │ x2="129" y2="75"/> │
00:23:26 verbose #19308 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:23:26 verbose #19309 > > │ x2="139" y2="75"/> │
00:23:26 verbose #19310 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:23:26 verbose #19311 > > │ x2="149" y2="75"/> │
00:23:26 verbose #19312 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:23:26 verbose #19313 > > │ x2="159" y2="75"/> │
00:23:26 verbose #19314 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:23:26 verbose #19315 > > │ x2="169" y2="75"/> │
00:23:26 verbose #19316 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:23:26 verbose #19317 > > │ x2="179" y2="75"/> │
00:23:26 verbose #19318 > > │ ...,104 404,104 405,104 407,104 408,104 410,104 411,104 413,104 414,104 │
00:23:26 verbose #19319 > > │ 416,104 417,104 419,104 420,104 422,104 423,104 425,104 426,104 428,104 │
00:23:26 verbose #19320 > > │ 429,104 431,104 432,104 434,104 435,104 437,104 438,104 440,104 441,104 │
00:23:26 verbose #19321 > > │ 443,104 444,104 446,104 447,104 449,104 450,104 452,104 453,104 455,104 │
00:23:26 verbose #19322 > > │ 456,104 458,104 459,104 461,104 462,104 464,104 465,104 467,104 468,104 │
00:23:26 verbose #19323 > > │ 470,104 471,104 473,104 474,104 476,104 477,104 479,104 480,104 482,104 │
00:23:26 verbose #19324 > > │ 483,104 485,104 486,104 488,104 489,104 491,104 492,104 494,104 495,104 │
00:23:26 verbose #19325 > > │ 497,104 498,104 500,104 501,104 503,104 504,104 506,104 507,104 509,104 │
00:23:26 verbose #19326 > > │ 510,104 512,104 513,104 515,104 516,104 518,104 519,104 521,104 522,104 │
00:23:26 verbose #19327 > > │ 524,104 525,104 527,104 528,104 530,104 531,104 533,104 534,104 536,104 │
00:23:26 verbose #19328 > > │ 537,104 539,104 540,104 542,104 543,104 545,104 546,104 548,104 549,104 │
00:23:26 verbose #19329 > > │ 551,104 552,104 554,104 555,104 557,104 558,104 560,104 561,104 563,104 │
00:23:26 verbose #19330 > > │ 564,104 566,104 567,104 569,104 "/> │
00:23:26 verbose #19331 > > │ <rect x="459" y="227" width="121" height="45" opacity="1" fill="none" │
00:23:26 verbose #19332 > > │ stroke="#FFFFFF"/> │
00:23:26 verbose #19333 > > │ <text x="499" y="237" dy="0.76em" text-anchor="start" │
00:23:26 verbose #19334 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:26 verbose #19335 > > │ fill="#FFFFFF"> │
00:23:26 verbose #19336 > > │ euler-cromer │
00:23:26 verbose #19337 > > │ </text> │
00:23:26 verbose #19338 > > │ <text x="499" y="252" dy="0.76em" text-anchor="start" │
00:23:26 verbose #19339 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:26 verbose #19340 > > │ fill="#FFFFFF"> │
00:23:26 verbose #19341 > > │ runge-kutta 4 │
00:23:26 verbose #19342 > > │ </text> │
00:23:26 verbose #19343 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:26 verbose #19344 > > │ points="469,242 489,242 "/> │
00:23:26 verbose #19345 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:23:26 verbose #19346 > > │ points="469,257 489,257 "/> │
00:23:26 verbose #19347 > > │ </svg> │
00:23:26 verbose #19348 > > │ │
00:23:26 verbose #19349 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:26 verbose #19350 > >
00:23:26 verbose #19351 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:26 verbose #19352 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:26 verbose #19353 > > │ #### wave 2 │
00:23:26 verbose #19354 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:26 verbose #19355 > >
00:23:26 verbose #19356 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:26 verbose #19357 > > //// test
00:23:26 verbose #19358 > >
00:23:26 verbose #19359 > > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:23:26 verbose #19360 > > inl r1 = st1.pos_vec
00:23:26 verbose #19361 > > inl r2 = st2.pos_vec
00:23:26 verbose #19362 > > inl r21 = r2 ^-^ r1
00:23:26 verbose #19363 > > inl r21mag = magnitude r21
00:23:26 verbose #19364 > > -k * (r21mag - re) *^ r21 ^/ r21mag
00:23:26 verbose #19365 > >
00:23:26 verbose #19366 > > inl fixed_linear_spring k re r1 =
00:23:26 verbose #19367 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:26 verbose #19368 > > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:23:26 verbose #19369 > > r1 })
00:23:26 verbose #19370 > >
00:23:26 verbose #19371 > > inl forces_string () =
00:23:26 verbose #19372 > > [[
00:23:26 verbose #19373 > > ExternalForce (0i32, fixed_linear_spring 5384 0 (zero_vec ()))
00:23:26 verbose #19374 > > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:23:26 verbose #19375 > > ]] ++ (
00:23:26 verbose #19376 > > listm'.init_series 0 59 1
00:23:26 verbose #19377 > > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:23:26 verbose #19378 > > )
00:23:26 verbose #19379 > >
00:23:26 verbose #19380 > > inl string_update dt =
00:23:26 verbose #19381 > > update_mps (join runge_kutta_4 dt) (join forces_string ())
00:23:26 verbose #19382 > >
00:23:26 verbose #19383 > > inl string_initial_overtone n =
00:23:26 verbose #19384 > > inl ball_mass = 0.0008293 * 0.65 / 64
00:23:26 verbose #19385 > > inl (particle_state default_particle_state') = default_particle_state ()
00:23:26 verbose #19386 > > listm'.init_series 0.01 0.64 0.01
00:23:26 verbose #19387 > > |> listm.map (fun x =>
00:23:26 verbose #19388 > > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:23:26 verbose #19389 > > particle_state {
00:23:26 verbose #19390 > > default_particle_state' with
00:23:26 verbose #19391 > > mass = ball_mass
00:23:26 verbose #19392 > > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:23:26 verbose #19393 > > velocity = zero_vec ()
00:23:26 verbose #19394 > > }
00:23:26 verbose #19395 > > )
00:23:26 verbose #19396 > > |> stream.from_list
00:23:26 verbose #19397 > > |> multi_particle_state
00:23:26 verbose #19398 > >
00:23:26 verbose #19399 > > let main () =
00:23:26 verbose #19400 > > inl ~frames = listm'.init_series 0 65 1f64 |> stream.from_list
00:23:26 verbose #19401 > > inl ~initial_state = string_initial_overtone 3i32
00:23:26 verbose #19402 > > inl frames =
00:23:26 verbose #19403 > > frames
00:23:26 verbose #19404 > > |> stream.map (fun n =>
00:23:26 verbose #19405 > > inl (multi_particle_state sts) =
00:23:26 verbose #19406 > > stream.iterate (string_update 0.000025) initial_state |>
00:23:26 verbose #19407 > > stream.item n
00:23:26 verbose #19408 > > inl x, y =
00:23:26 verbose #19409 > > [[ zero_vec () ]]
00:23:26 verbose #19410 > > ++ (sts |> stream.map (fun (particle_state st) => st.pos_vec) |>
00:23:26 verbose #19411 > > stream.to_list)
00:23:26 verbose #19412 > > ++ [[ 0.65 *^ i_hat () ]]
00:23:26 verbose #19413 > > |> listm.map (fun r => r.x, r.y)
00:23:26 verbose #19414 > > |> stream.from_list
00:23:26 verbose #19415 > > |> stream.unzip
00:23:26 verbose #19416 > > inl x : a i32 _ = x |> stream.to_list |> listm.toArray
00:23:26 verbose #19417 > > inl y : a i32 _ = y |> stream.to_list |> listm.toArray
00:23:26 verbose #19418 > > x, y
00:23:26 verbose #19419 > > )
00:23:26 verbose #19420 > >
00:23:26 verbose #19421 > > inl plots =
00:23:26 verbose #19422 > > frames
00:23:26 verbose #19423 > > |> stream.indexed
00:23:26 verbose #19424 > > |> stream.map (fun ((n : i32), (x, y)) =>
00:23:26 verbose #19425 > > "wave",
00:23:26 verbose #19426 > > "position (m)",
00:23:26 verbose #19427 > > "displacement (m)",
00:23:26 verbose #19428 > > ;[[
00:23:26 verbose #19429 > > ($'$"{!n}"' : string), x, y
00:23:26 verbose #19430 > > ]]
00:23:26 verbose #19431 > > )
00:23:26 verbose #19432 > >
00:23:26 verbose #19433 > > plots |> stream.to_list |> listm.toArray : a i32 _
00:23:36 verbose #19434 > >
00:23:36 verbose #19435 > > ╭─[ 10.43s - return value ]────────────────────────────────────────────────────╮
00:23:36 verbose #19436 > > │ <table><thead><tr><th><i>index</i></th><th>value</th></tr></thead><tbody><tr │
00:23:36 verbose #19437 > > │ ><td>0</td><td><svg width="640" height="480" viewBox="0 0 640 480" │
00:23:36 verbose #19438 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:23:36 verbose #19439 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:23:36 verbose #19440 > > │ stroke="none"/> │
00:23:36 verbose #19441 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:23:36 verbose #19442 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:36 verbose #19443 > > │ fill="#FFFFFF"> │
00:23:36 verbose #19444 > > │ wave │
00:23:36 verbose #19445 > > │ </text> │
00:23:36 verbose #19446 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:23:36 verbose #19447 > > │ y2="75"/> │
00:23:36 verbose #19448 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:23:36 verbose #19449 > > │ y2="75"/> │
00:23:36 verbose #19450 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:23:36 verbose #19451 > > │ y2="75"/> │
00:23:36 verbose #19452 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" x2="85" │
00:23:36 verbose #19453 > > │ y2="75"/> │
00:23:36 verbose #19454 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:23:36 verbose #19455 > > │ y2="75"/> │
00:23:36 verbose #19456 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="100" y1="424" │
00:23:36 verbose #19457 > > │ x2="100" y2="75"/> │
00:23:36 verbose #19458 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="108" y1="424" │
00:23:36 verbose #19459 > > │ x2="108" y2="75"/> │
00:23:36 verbose #19460 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="116" y1="424" │
00:23:36 verbose #19461 > > │ x2="116" y2="75"/> │
00:23:36 verbose #19462 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="123" y1="424" │
00:23:36 verbose #19463 > > │ x2="123" y2="75"/> │
00:23:36 verbose #19464 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="131" y1="424" │
00:23:36 verbose #19465 > > │ x2="131" y2="75"/> │
00:23:36 verbose #19466 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:23:36 verbose #19467 > > │ x2="139" y2="75"/> │
00:23:36 verbose #19468 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="146" y1="424" │
00:23:36 verbose #19469 > > │ x2="146" y2="75"/> │
00:23:36 verbose #19470 > > │ <line opacity="1" stroke="#...28 590,128 "/> │
00:23:36 verbose #19471 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:36 verbose #19472 > > │ points="69,363 77,322 85,283 92,246 100,211 107,179 115,151 122,127 130,108 │
00:23:36 verbose #19473 > > │ 138,95 145,87 153,85 160,89 168,99 175,114 183,134 190,159 198,188 205,220 │
00:23:36 verbose #19474 > > │ 212,253 218,284 223,311 226,329 227,337 226,337 224,333 223,334 223,344 │
00:23:36 verbose #19475 > > │ 224,357 225,367 224,370 223,374 224,383 224,393 224,397 224,400 224,406 │
00:23:36 verbose #19476 > > │ 224,411 224,412 224,413 224,415 224,413 224,411 224,409 224,405 224,400 │
00:23:36 verbose #19477 > > │ 224,395 224,388 224,382 224,375 224,367 224,360 224,353 224,346 224,339 │
00:23:36 verbose #19478 > > │ 224,332 224,327 224,322 224,318 224,314 224,312 224,311 539,239 546,279 │
00:23:36 verbose #19479 > > │ 569,403 561,363 "/> │
00:23:36 verbose #19480 > > │ <rect x="519" y="235" width="61" height="30" opacity="1" fill="none" │
00:23:36 verbose #19481 > > │ stroke="#FFFFFF"/> │
00:23:36 verbose #19482 > > │ <text x="559" y="245" dy="0.76em" text-anchor="start" │
00:23:36 verbose #19483 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:23:36 verbose #19484 > > │ fill="#FFFFFF"> │
00:23:36 verbose #19485 > > │ 65 │
00:23:36 verbose #19486 > > │ </text> │
00:23:36 verbose #19487 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:23:36 verbose #19488 > > │ points="529,250 549,250 "/> │
00:23:36 verbose #19489 > > │ </svg> │
00:23:36 verbose #19490 > > │ </td></tr></tbody></table><style> │
00:23:36 verbose #19491 > > │ .dni-code-hint { │
00:23:36 verbose #19492 > > │ font-style: italic; │
00:23:36 verbose #19493 > > │ overflow: hidden; │
00:23:36 verbose #19494 > > │ white-space: nowrap; │
00:23:36 verbose #19495 > > │ } │
00:23:36 verbose #19496 > > │ .dni-treeview { │
00:23:36 verbose #19497 > > │ white-space: nowrap; │
00:23:36 verbose #19498 > > │ } │
00:23:36 verbose #19499 > > │ .dni-treeview td { │
00:23:36 verbose #19500 > > │ vertical-align: top; │
00:23:36 verbose #19501 > > │ text-align: start; │
00:23:36 verbose #19502 > > │ } │
00:23:36 verbose #19503 > > │ details.dni-treeview { │
00:23:36 verbose #19504 > > │ padding-left: 1em; │
00:23:36 verbose #19505 > > │ } │
00:23:36 verbose #19506 > > │ table td { │
00:23:36 verbose #19507 > > │ text-align: start; │
00:23:36 verbose #19508 > > │ } │
00:23:36 verbose #19509 > > │ table tr { │
00:23:36 verbose #19510 > > │ vertical-align: top; │
00:23:36 verbose #19511 > > │ margin: 0em 0px; │
00:23:36 verbose #19512 > > │ } │
00:23:36 verbose #19513 > > │ table tr td pre │
00:23:36 verbose #19514 > > │ { │
00:23:36 verbose #19515 > > │ vertical-align: top !important; │
00:23:36 verbose #19516 > > │ margin: 0em 0px !important; │
00:23:36 verbose #19517 > > │ } │
00:23:36 verbose #19518 > > │ table th { │
00:23:36 verbose #19519 > > │ text-align: start; │
00:23:36 verbose #19520 > > │ } │
00:23:36 verbose #19521 > > │ </style> │
00:23:36 verbose #19522 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:36 verbose #19523 > >
00:23:36 verbose #19524 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:36 verbose #19525 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:36 verbose #19526 > > │ ## end │
00:23:36 verbose #19527 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:37 verbose #19528 > 00:02:17 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 209295
00:23:37 verbose #19529 > 00:02:17 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:23:39 verbose #19530 > 00:02:19 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/physics.dib.ipynb to html
00:23:39 verbose #19531 > 00:02:19 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:23:39 verbose #19532 > 00:02:19 verbose #7 ! validate(nb)
00:23:45 verbose #19533 > 00:02:25 verbose #8 ! [NbConvertApp] Writing 2510600 bytes to c:\home\git\polyglot\lib\spiral\physics.dib.html
00:23:45 verbose #19534 > 00:02:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 646
00:23:45 verbose #19535 > 00:02:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 646
00:23:45 verbose #19536 > 00:02:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/physics.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/physics.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:23:47 verbose #19537 > 00:02:27 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:23:47 verbose #19538 > 00:02:27 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:23:47 verbose #19539 > 00:02:28 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 210000
00:23:47 debug #19540 runtime.execute_with_options_async / exit_code: 0 / output.Length: 221440
00:23:47 debug #25 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path physics.dib --retries 3
00:23:47 debug #19541 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path seq.dib --retries 3",
[||], None, None, true, None)
00:23:48 verbose #19542 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "seq.dib", "--retries", "3"])
00:23:48 verbose #19543 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/seq.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/seq.dib" --output-path "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:23:50 verbose #19544 > >
00:23:50 verbose #19545 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:50 verbose #19546 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:50 verbose #19547 > > │ # seq │
00:23:50 verbose #19548 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:50 verbose #19549 > >
00:23:50 verbose #19550 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:50 verbose #19551 > > //// test
00:23:50 verbose #19552 > >
00:23:50 verbose #19553 > > open testing
00:23:50 verbose #19554 > >
00:23:50 verbose #19555 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:23:50 verbose #19556 > > #r
00:23:50 verbose #19557 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:23:50 verbose #19558 > > otNet.Interactive.Spiral.dll"
00:23:50 verbose #19559 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:23:50 verbose #19560 > > #r
00:23:50 verbose #19561 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:23:50 verbose #19562 > > otNet.Interactive.dll"
00:23:50 verbose #19563 > > open type Microsoft.DotNet.Interactive.Kernel
00:23:56 verbose #19564 > >
00:23:56 verbose #19565 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:56 verbose #19566 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:56 verbose #19567 > > │ ## types │
00:23:56 verbose #19568 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:56 verbose #19569 > >
00:23:56 verbose #19570 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:56 verbose #19571 > > inl types () =
00:23:56 verbose #19572 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:23:56 verbose #19573 > > Fable.Core.Emit(\"core::iter::Fuse<$0>\")>]]\n#endif\ntype core_iter_Fuse<'T> =
00:23:56 verbose #19574 > > class end"
00:23:57 verbose #19575 > >
00:23:57 verbose #19576 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:57 verbose #19577 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:57 verbose #19578 > > │ ## seq │
00:23:57 verbose #19579 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:57 verbose #19580 > >
00:23:57 verbose #19581 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:57 verbose #19582 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:57 verbose #19583 > > │ ### seq │
00:23:57 verbose #19584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:57 verbose #19585 > >
00:23:57 verbose #19586 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:57 verbose #19587 > > type seq dim el = dim -> option el
00:23:58 verbose #19588 > >
00:23:58 verbose #19589 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:58 verbose #19590 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:58 verbose #19591 > > │ ### try_item │
00:23:58 verbose #19592 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:58 verbose #19593 > >
00:23:58 verbose #19594 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:58 verbose #19595 > > inl try_item n s =
00:23:58 verbose #19596 > > n |> s
00:23:58 verbose #19597 > >
00:23:58 verbose #19598 > > ── markdown ────────────────────────────────────────────────────────────────────
00:23:58 verbose #19599 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:23:58 verbose #19600 > > │ ### from_list │
00:23:58 verbose #19601 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:23:58 verbose #19602 > >
00:23:58 verbose #19603 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:58 verbose #19604 > > inl from_list list =
00:23:58 verbose #19605 > > fun n =>
00:23:58 verbose #19606 > > list
00:23:58 verbose #19607 > > |> listm'.try_item n
00:23:59 verbose #19608 > >
00:23:59 verbose #19609 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:23:59 verbose #19610 > > //// test
00:23:59 verbose #19611 > >
00:23:59 verbose #19612 > > listm.init 10i32 print_and_return
00:23:59 verbose #19613 > > |> from_list
00:23:59 verbose #19614 > > |> try_item 5i32
00:23:59 verbose #19615 > > |> _assert_eq (Some 5i32)
00:24:04 verbose #19616 > >
00:24:04 verbose #19617 > > ╭─[ 4.99s - stdout ]───────────────────────────────────────────────────────────╮
00:24:04 verbose #19618 > > │ print_and_return / x: 0 │
00:24:04 verbose #19619 > > │ print_and_return / x: 1 │
00:24:04 verbose #19620 > > │ print_and_return / x: 2 │
00:24:04 verbose #19621 > > │ print_and_return / x: 3 │
00:24:04 verbose #19622 > > │ print_and_return / x: 4 │
00:24:04 verbose #19623 > > │ print_and_return / x: 5 │
00:24:04 verbose #19624 > > │ print_and_return / x: 6 │
00:24:04 verbose #19625 > > │ print_and_return / x: 7 │
00:24:04 verbose #19626 > > │ print_and_return / x: 8 │
00:24:04 verbose #19627 > > │ print_and_return / x: 9 │
00:24:04 verbose #19628 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:24:04 verbose #19629 > > │ │
00:24:04 verbose #19630 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:04 verbose #19631 > >
00:24:04 verbose #19632 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:04 verbose #19633 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:04 verbose #19634 > > │ ### map │
00:24:04 verbose #19635 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:04 verbose #19636 > >
00:24:04 verbose #19637 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:04 verbose #19638 > > inl map fn s =
00:24:04 verbose #19639 > > fun n =>
00:24:04 verbose #19640 > > n
00:24:04 verbose #19641 > > |> s
00:24:04 verbose #19642 > > |> optionm.map fn
00:24:05 verbose #19643 > >
00:24:05 verbose #19644 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:05 verbose #19645 > > //// test
00:24:05 verbose #19646 > >
00:24:05 verbose #19647 > > listm.init 10i32 id
00:24:05 verbose #19648 > > |> from_list
00:24:05 verbose #19649 > > |> map ((*) 2)
00:24:05 verbose #19650 > > |> try_item 5i32
00:24:05 verbose #19651 > > |> _assert_eq (Some 10i32)
00:24:07 verbose #19652 > >
00:24:07 verbose #19653 > > ╭─[ 1.36s - stdout ]───────────────────────────────────────────────────────────╮
00:24:07 verbose #19654 > > │ assert_eq / actual: US0_0 10 / expected: US0_0 10 │
00:24:07 verbose #19655 > > │ │
00:24:07 verbose #19656 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:07 verbose #19657 > >
00:24:07 verbose #19658 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:07 verbose #19659 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:07 verbose #19660 > > │ ### mapi │
00:24:07 verbose #19661 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:07 verbose #19662 > >
00:24:07 verbose #19663 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:07 verbose #19664 > > inl mapi fn s =
00:24:07 verbose #19665 > > fun n =>
00:24:07 verbose #19666 > > n
00:24:07 verbose #19667 > > |> s
00:24:07 verbose #19668 > > |> optionm.map (fn n)
00:24:08 verbose #19669 > >
00:24:08 verbose #19670 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:08 verbose #19671 > > //// test
00:24:08 verbose #19672 > >
00:24:08 verbose #19673 > > listm.init 10i32 print_and_return
00:24:08 verbose #19674 > > |> from_list
00:24:08 verbose #19675 > > |> mapi fun i x => i + x
00:24:08 verbose #19676 > > |> try_item 5i32
00:24:08 verbose #19677 > > |> _assert_eq (Some 10i32)
00:24:09 verbose #19678 > >
00:24:09 verbose #19679 > > ╭─[ 1.36s - stdout ]───────────────────────────────────────────────────────────╮
00:24:09 verbose #19680 > > │ print_and_return / x: 0 │
00:24:09 verbose #19681 > > │ print_and_return / x: 1 │
00:24:09 verbose #19682 > > │ print_and_return / x: 2 │
00:24:09 verbose #19683 > > │ print_and_return / x: 3 │
00:24:09 verbose #19684 > > │ print_and_return / x: 4 │
00:24:09 verbose #19685 > > │ print_and_return / x: 5 │
00:24:09 verbose #19686 > > │ print_and_return / x: 6 │
00:24:09 verbose #19687 > > │ print_and_return / x: 7 │
00:24:09 verbose #19688 > > │ print_and_return / x: 8 │
00:24:09 verbose #19689 > > │ print_and_return / x: 9 │
00:24:09 verbose #19690 > > │ assert_eq / actual: US0_0 10 / expected: US0_0 10 │
00:24:09 verbose #19691 > > │ │
00:24:09 verbose #19692 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:09 verbose #19693 > >
00:24:09 verbose #19694 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:09 verbose #19695 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:09 verbose #19696 > > │ ### choose │
00:24:09 verbose #19697 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:09 verbose #19698 > >
00:24:09 verbose #19699 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:09 verbose #19700 > > inl choose forall dim {number} t u. (fn : t -> option u) (s : seq dim t) : seq
00:24:09 verbose #19701 > > dim u =
00:24:09 verbose #19702 > > fun n =>
00:24:09 verbose #19703 > > inl rec body fn s i i' =
00:24:09 verbose #19704 > > match i |> s with
00:24:09 verbose #19705 > > | None => None
00:24:09 verbose #19706 > > | Some x =>
00:24:09 verbose #19707 > > match x |> fn with
00:24:09 verbose #19708 > > | Some x when n = i' => Some x
00:24:09 verbose #19709 > > | Some _ => loop (i + 1) (i' + 1)
00:24:09 verbose #19710 > > | _ => loop (i + 1) i'
00:24:09 verbose #19711 > > and inl loop i i' =
00:24:09 verbose #19712 > > if n |> var_is |> not
00:24:09 verbose #19713 > > then body fn s i i'
00:24:09 verbose #19714 > > else
00:24:09 verbose #19715 > > inl fn = join fn
00:24:09 verbose #19716 > > inl s = join s
00:24:09 verbose #19717 > > join body fn s i i'
00:24:09 verbose #19718 > > loop 0 0
00:24:11 verbose #19719 > >
00:24:11 verbose #19720 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:11 verbose #19721 > > //// test
00:24:11 verbose #19722 > >
00:24:11 verbose #19723 > > listm.init 10i32 print_and_return
00:24:11 verbose #19724 > > |> from_list
00:24:11 verbose #19725 > > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:24:11 verbose #19726 > > |> try_item 1i32
00:24:11 verbose #19727 > > |> _assert_eq (Some 2i32)
00:24:12 verbose #19728 > >
00:24:12 verbose #19729 > > ╭─[ 1.46s - stdout ]───────────────────────────────────────────────────────────╮
00:24:12 verbose #19730 > > │ print_and_return / x: 0 │
00:24:12 verbose #19731 > > │ print_and_return / x: 1 │
00:24:12 verbose #19732 > > │ print_and_return / x: 2 │
00:24:12 verbose #19733 > > │ print_and_return / x: 3 │
00:24:12 verbose #19734 > > │ print_and_return / x: 4 │
00:24:12 verbose #19735 > > │ print_and_return / x: 5 │
00:24:12 verbose #19736 > > │ print_and_return / x: 6 │
00:24:12 verbose #19737 > > │ print_and_return / x: 7 │
00:24:12 verbose #19738 > > │ print_and_return / x: 8 │
00:24:12 verbose #19739 > > │ print_and_return / x: 9 │
00:24:12 verbose #19740 > > │ assert_eq / actual: US0_0 2 / expected: US0_0 2 │
00:24:12 verbose #19741 > > │ │
00:24:12 verbose #19742 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:12 verbose #19743 > >
00:24:12 verbose #19744 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:12 verbose #19745 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:12 verbose #19746 > > │ ### indexed │
00:24:12 verbose #19747 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:12 verbose #19748 > >
00:24:12 verbose #19749 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:12 verbose #19750 > > inl indexed s =
00:24:12 verbose #19751 > > s
00:24:12 verbose #19752 > > |> mapi fun i x =>
00:24:12 verbose #19753 > > i, x
00:24:13 verbose #19754 > >
00:24:13 verbose #19755 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:13 verbose #19756 > > //// test
00:24:13 verbose #19757 > >
00:24:13 verbose #19758 > > listm.init 10i32 ((*) 2)
00:24:13 verbose #19759 > > |> from_list
00:24:13 verbose #19760 > > |> indexed
00:24:13 verbose #19761 > > |> try_item 5i32
00:24:13 verbose #19762 > > |> _assert_eq (Some (5i32, 10i32))
00:24:15 verbose #19763 > >
00:24:15 verbose #19764 > > ╭─[ 1.87s - stdout ]───────────────────────────────────────────────────────────╮
00:24:15 verbose #19765 > > │ assert_eq / actual: US0_0 (5, 10) / expected: US0_0 (5, 10) │
00:24:15 verbose #19766 > > │ │
00:24:15 verbose #19767 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:15 verbose #19768 > >
00:24:15 verbose #19769 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:15 verbose #19770 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:15 verbose #19771 > > │ ### zip │
00:24:15 verbose #19772 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:15 verbose #19773 > >
00:24:15 verbose #19774 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:15 verbose #19775 > > inl zip n seq1 seq2 =
00:24:15 verbose #19776 > > seq1 n, seq2 n
00:24:17 verbose #19777 > >
00:24:17 verbose #19778 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:17 verbose #19779 > > //// test
00:24:17 verbose #19780 > >
00:24:17 verbose #19781 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:24:17 verbose #19782 > > ||> zip 5i32
00:24:17 verbose #19783 > > |> _assert_eq (Some 5, Some 10)
00:24:18 verbose #19784 > >
00:24:18 verbose #19785 > > ╭─[ 1.63s - stdout ]───────────────────────────────────────────────────────────╮
00:24:18 verbose #19786 > > │ assert_eq / actual: struct (US0_0 5, US0_0 10) / expected: struct (US0_0 5, │
00:24:18 verbose #19787 > > │ US0_0 10) │
00:24:18 verbose #19788 > > │ │
00:24:18 verbose #19789 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:18 verbose #19790 > >
00:24:18 verbose #19791 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:18 verbose #19792 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:18 verbose #19793 > > │ ### zip_with │
00:24:18 verbose #19794 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:18 verbose #19795 > >
00:24:18 verbose #19796 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:18 verbose #19797 > > inl zip_with fn seq1 seq2 =
00:24:18 verbose #19798 > > fun n =>
00:24:18 verbose #19799 > > fn (seq1 n) (seq2 n)
00:24:20 verbose #19800 > >
00:24:20 verbose #19801 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:20 verbose #19802 > > //// test
00:24:20 verbose #19803 > >
00:24:20 verbose #19804 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:24:20 verbose #19805 > > ||> zip_with (optionm'.choose (+))
00:24:20 verbose #19806 > > |> try_item 2i32
00:24:20 verbose #19807 > > |> _assert_eq (Some 6)
00:24:21 verbose #19808 > >
00:24:21 verbose #19809 > > ╭─[ 1.57s - stdout ]───────────────────────────────────────────────────────────╮
00:24:21 verbose #19810 > > │ assert_eq / actual: US0_0 6 / expected: US0_0 6 │
00:24:21 verbose #19811 > > │ │
00:24:21 verbose #19812 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:21 verbose #19813 > >
00:24:21 verbose #19814 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:21 verbose #19815 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:21 verbose #19816 > > │ ### fold │
00:24:21 verbose #19817 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:21 verbose #19818 > >
00:24:21 verbose #19819 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:21 verbose #19820 > > inl fold fn init seq =
00:24:21 verbose #19821 > > inl rec loop acc n =
00:24:21 verbose #19822 > > match seq n with
00:24:21 verbose #19823 > > | Some x => loop (fn acc x) (n + 1)
00:24:21 verbose #19824 > > | None => acc
00:24:21 verbose #19825 > > loop init 0
00:24:21 verbose #19826 > >
00:24:21 verbose #19827 > > inl fold_ fn init seq =
00:24:21 verbose #19828 > > let rec loop acc n =
00:24:21 verbose #19829 > > match seq n with
00:24:21 verbose #19830 > > | Some x => loop (fn acc x) (n + 1)
00:24:21 verbose #19831 > > | None => acc
00:24:21 verbose #19832 > > loop init 0
00:24:23 verbose #19833 > >
00:24:23 verbose #19834 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:23 verbose #19835 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:23 verbose #19836 > > │ ### sum │
00:24:23 verbose #19837 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:23 verbose #19838 > >
00:24:23 verbose #19839 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:23 verbose #19840 > > inl sum seq =
00:24:23 verbose #19841 > > seq |> fold (+) 0
00:24:23 verbose #19842 > >
00:24:23 verbose #19843 > > inl sum_ seq =
00:24:23 verbose #19844 > > seq |> fold_ (+) 0
00:24:24 verbose #19845 > >
00:24:24 verbose #19846 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:24 verbose #19847 > > //// test
00:24:24 verbose #19848 > >
00:24:24 verbose #19849 > > listm.init 10i32 id
00:24:24 verbose #19850 > > |> from_list
00:24:24 verbose #19851 > > |> fun f (n : i32) => f n
00:24:24 verbose #19852 > > |> sum
00:24:24 verbose #19853 > > |> _assert_eq 45
00:24:26 verbose #19854 > >
00:24:26 verbose #19855 > > ╭─[ 1.46s - stdout ]───────────────────────────────────────────────────────────╮
00:24:26 verbose #19856 > > │ assert_eq / actual: 45 / expected: 45 │
00:24:26 verbose #19857 > > │ │
00:24:26 verbose #19858 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:26 verbose #19859 > >
00:24:26 verbose #19860 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:26 verbose #19861 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:26 verbose #19862 > > │ ### to_list │
00:24:26 verbose #19863 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:26 verbose #19864 > >
00:24:26 verbose #19865 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:26 verbose #19866 > > inl to_list seq =
00:24:26 verbose #19867 > > seq
00:24:26 verbose #19868 > > |> fold (fun acc x => x :: acc) [[]]
00:24:26 verbose #19869 > > |> listm.rev
00:24:26 verbose #19870 > >
00:24:26 verbose #19871 > > inl to_list_ seq =
00:24:26 verbose #19872 > > seq
00:24:26 verbose #19873 > > |> fold_ (fun acc x => x :: acc) [[]]
00:24:26 verbose #19874 > > |> listm.rev
00:24:27 verbose #19875 > >
00:24:27 verbose #19876 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:27 verbose #19877 > > //// test
00:24:27 verbose #19878 > >
00:24:27 verbose #19879 > > listm.init 10i32 id
00:24:27 verbose #19880 > > |> from_list
00:24:27 verbose #19881 > > |> fun f (n : i32) => f n
00:24:27 verbose #19882 > > |> to_list
00:24:27 verbose #19883 > > |> _assert_eq (listm.init 10i32 id)
00:24:29 verbose #19884 > >
00:24:29 verbose #19885 > > ╭─[ 2.14s - stdout ]───────────────────────────────────────────────────────────╮
00:24:29 verbose #19886 > > │ assert_eq / actual: UH0_1 │
00:24:29 verbose #19887 > > │ (0, │
00:24:29 verbose #19888 > > │ UH0_1 │
00:24:29 verbose #19889 > > │ (1, │
00:24:29 verbose #19890 > > │ UH0_1 │
00:24:29 verbose #19891 > > │ (2, │
00:24:29 verbose #19892 > > │ UH0_1 │
00:24:29 verbose #19893 > > │ (3, │
00:24:29 verbose #19894 > > │ UH0_1 │
00:24:29 verbose #19895 > > │ (4, UH0_1 (5, UH0_1 (6, UH0_1 (7, UH0_1 (8, UH0_1 (9, │
00:24:29 verbose #19896 > > │ UH0_0)))))))))) / expected: UH0_1 │
00:24:29 verbose #19897 > > │ (0, │
00:24:29 verbose #19898 > > │ UH0_1 │
00:24:29 verbose #19899 > > │ (1, │
00:24:29 verbose #19900 > > │ UH0_1 │
00:24:29 verbose #19901 > > │ (2, │
00:24:29 verbose #19902 > > │ UH0_1 │
00:24:29 verbose #19903 > > │ (3, │
00:24:29 verbose #19904 > > │ UH0_1 │
00:24:29 verbose #19905 > > │ (4, UH0_1 (5, UH0_1 (6, UH0_1 (7, UH0_1 (8, UH0_1 (9, │
00:24:29 verbose #19906 > > │ UH0_0)))))))))) │
00:24:29 verbose #19907 > > │ │
00:24:29 verbose #19908 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:29 verbose #19909 > >
00:24:29 verbose #19910 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:29 verbose #19911 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:29 verbose #19912 > > │ ### from_array │
00:24:29 verbose #19913 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:29 verbose #19914 > >
00:24:29 verbose #19915 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:29 verbose #19916 > > inl from_array forall dim {number; int} el. (array : a dim el) : seq dim el =
00:24:29 verbose #19917 > > fun n =>
00:24:29 verbose #19918 > > if n >= length array
00:24:29 verbose #19919 > > then None
00:24:29 verbose #19920 > > else index array n |> Some
00:24:31 verbose #19921 > >
00:24:31 verbose #19922 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:31 verbose #19923 > > //// test
00:24:31 verbose #19924 > >
00:24:31 verbose #19925 > > a ;[[ 1; 2; 3 ]]
00:24:31 verbose #19926 > > |> from_array
00:24:31 verbose #19927 > > |> try_item 1i32
00:24:31 verbose #19928 > > |> _assert_eq (Some 2i32)
00:24:34 verbose #19929 > >
00:24:34 verbose #19930 > > ╭─[ 3.02s - stdout ]───────────────────────────────────────────────────────────╮
00:24:34 verbose #19931 > > │ assert_eq / actual: US0_0 2 / expected: US0_0 2 │
00:24:34 verbose #19932 > > │ │
00:24:34 verbose #19933 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:34 verbose #19934 > >
00:24:34 verbose #19935 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:34 verbose #19936 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:34 verbose #19937 > > │ ### to_array │
00:24:34 verbose #19938 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:34 verbose #19939 > >
00:24:34 verbose #19940 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:34 verbose #19941 > > inl to_array seq =
00:24:34 verbose #19942 > > inl ar = a ;[[]] |> mut
00:24:34 verbose #19943 > > ((), seq)
00:24:34 verbose #19944 > > ||> fold fun _ x =>
00:24:34 verbose #19945 > > ar <- *ar ++ a ;[[x]]
00:24:34 verbose #19946 > > *ar
00:24:34 verbose #19947 > >
00:24:34 verbose #19948 > > inl to_array_ seq =
00:24:34 verbose #19949 > > inl ar = a ;[[]] |> mut
00:24:34 verbose #19950 > > ((), seq)
00:24:34 verbose #19951 > > ||> fold_ fun _ x =>
00:24:34 verbose #19952 > > ar <- *ar ++ a ;[[x]]
00:24:34 verbose #19953 > > *ar
00:24:36 verbose #19954 > >
00:24:36 verbose #19955 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:36 verbose #19956 > > //// test
00:24:36 verbose #19957 > >
00:24:36 verbose #19958 > > listm.init 10i32 id
00:24:36 verbose #19959 > > |> from_list
00:24:36 verbose #19960 > > |> fun (x : i32 -> _) => x
00:24:36 verbose #19961 > > |> to_array
00:24:36 verbose #19962 > > |> _assert_eq (a ;[[ 0; 1; 2; 3; 4; 5; 6; 7; 8; 9 ]] : _ i32 _)
00:24:44 verbose #19963 > >
00:24:44 verbose #19964 > > ╭─[ 8.59s - stdout ]───────────────────────────────────────────────────────────╮
00:24:44 verbose #19965 > > │ assert_eq / actual: [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] / expected: [|0; 1; 2; │
00:24:44 verbose #19966 > > │ 3; 4; 5; 6; 7; 8; 9|] │
00:24:44 verbose #19967 > > │ │
00:24:44 verbose #19968 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:44 verbose #19969 > >
00:24:44 verbose #19970 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:44 verbose #19971 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:44 verbose #19972 > > │ ### take_while │
00:24:44 verbose #19973 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:44 verbose #19974 > >
00:24:44 verbose #19975 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:44 verbose #19976 > > inl take_while cond seq =
00:24:44 verbose #19977 > > inl rec loop acc i =
00:24:44 verbose #19978 > > match seq i with
00:24:44 verbose #19979 > > | Some st when cond st i => loop (st :: acc) (i + 1)
00:24:44 verbose #19980 > > | _ => acc |> listm.rev
00:24:44 verbose #19981 > > loop [[]] 0
00:24:46 verbose #19982 > >
00:24:46 verbose #19983 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:46 verbose #19984 > > //// test
00:24:46 verbose #19985 > >
00:24:46 verbose #19986 > > listm.init 10i32 id
00:24:46 verbose #19987 > > |> from_list
00:24:46 verbose #19988 > > |> take_while (fun n (_ : i32) => n < 5)
00:24:46 verbose #19989 > > |> listm'.sum
00:24:46 verbose #19990 > > |> _assert_eq 10
00:24:47 verbose #19991 > >
00:24:47 verbose #19992 > > ╭─[ 1.75s - stdout ]───────────────────────────────────────────────────────────╮
00:24:47 verbose #19993 > > │ assert_eq / actual: 10 / expected: 10 │
00:24:47 verbose #19994 > > │ │
00:24:47 verbose #19995 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:47 verbose #19996 > >
00:24:47 verbose #19997 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:47 verbose #19998 > > //// test
00:24:47 verbose #19999 > >
00:24:47 verbose #20000 > > stream.new_finite_stream print_and_return 10i32
00:24:47 verbose #20001 > > |> flip stream.try_item
00:24:47 verbose #20002 > > |> take_while (fun n (_ : i32) => n < 5)
00:24:47 verbose #20003 > > |> listm'.sum
00:24:47 verbose #20004 > > |> _assert_eq 10
00:24:49 verbose #20005 > >
00:24:49 verbose #20006 > > ╭─[ 1.60s - stdout ]───────────────────────────────────────────────────────────╮
00:24:49 verbose #20007 > > │ print_and_return / x: 0 │
00:24:49 verbose #20008 > > │ print_and_return / x: 1 │
00:24:49 verbose #20009 > > │ print_and_return / x: 1 │
00:24:49 verbose #20010 > > │ print_and_return / x: 2 │
00:24:49 verbose #20011 > > │ print_and_return / x: 1 │
00:24:49 verbose #20012 > > │ print_and_return / x: 2 │
00:24:49 verbose #20013 > > │ print_and_return / x: 3 │
00:24:49 verbose #20014 > > │ print_and_return / x: 1 │
00:24:49 verbose #20015 > > │ print_and_return / x: 2 │
00:24:49 verbose #20016 > > │ print_and_return / x: 3 │
00:24:49 verbose #20017 > > │ print_and_return / x: 4 │
00:24:49 verbose #20018 > > │ print_and_return / x: 1 │
00:24:49 verbose #20019 > > │ print_and_return / x: 2 │
00:24:49 verbose #20020 > > │ print_and_return / x: 3 │
00:24:49 verbose #20021 > > │ print_and_return / x: 4 │
00:24:49 verbose #20022 > > │ print_and_return / x: 5 │
00:24:49 verbose #20023 > > │ assert_eq / actual: 10 / expected: 10 │
00:24:49 verbose #20024 > > │ │
00:24:49 verbose #20025 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:49 verbose #20026 > >
00:24:49 verbose #20027 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:49 verbose #20028 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:49 verbose #20029 > > │ ### take_while_ │
00:24:49 verbose #20030 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:49 verbose #20031 > >
00:24:49 verbose #20032 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:49 verbose #20033 > > inl take_while_ cond seq =
00:24:49 verbose #20034 > > let rec loop acc i =
00:24:49 verbose #20035 > > match seq i with
00:24:49 verbose #20036 > > | Some st when cond st i => loop (st :: acc) (i + 1)
00:24:49 verbose #20037 > > | _ => acc |> listm.rev
00:24:49 verbose #20038 > > loop [[]] 0
00:24:50 verbose #20039 > >
00:24:50 verbose #20040 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:50 verbose #20041 > > //// test
00:24:50 verbose #20042 > >
00:24:50 verbose #20043 > > stream.new_infinite_stream_ print_and_return
00:24:50 verbose #20044 > > |> flip stream.try_item
00:24:50 verbose #20045 > > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:24:50 verbose #20046 > > |> listm'.sum
00:24:50 verbose #20047 > > |> _assert_eq 10
00:24:52 verbose #20048 > >
00:24:52 verbose #20049 > > ╭─[ 1.61s - stdout ]───────────────────────────────────────────────────────────╮
00:24:52 verbose #20050 > > │ print_and_return / x: 0 │
00:24:52 verbose #20051 > > │ print_and_return / x: 1 │
00:24:52 verbose #20052 > > │ print_and_return / x: 1 │
00:24:52 verbose #20053 > > │ print_and_return / x: 2 │
00:24:52 verbose #20054 > > │ print_and_return / x: 1 │
00:24:52 verbose #20055 > > │ print_and_return / x: 2 │
00:24:52 verbose #20056 > > │ print_and_return / x: 3 │
00:24:52 verbose #20057 > > │ print_and_return / x: 1 │
00:24:52 verbose #20058 > > │ print_and_return / x: 2 │
00:24:52 verbose #20059 > > │ print_and_return / x: 3 │
00:24:52 verbose #20060 > > │ print_and_return / x: 4 │
00:24:52 verbose #20061 > > │ print_and_return / x: 1 │
00:24:52 verbose #20062 > > │ print_and_return / x: 2 │
00:24:52 verbose #20063 > > │ print_and_return / x: 3 │
00:24:52 verbose #20064 > > │ print_and_return / x: 4 │
00:24:52 verbose #20065 > > │ print_and_return / x: 5 │
00:24:52 verbose #20066 > > │ assert_eq / actual: 10 / expected: 10 │
00:24:52 verbose #20067 > > │ │
00:24:52 verbose #20068 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:52 verbose #20069 > >
00:24:52 verbose #20070 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:52 verbose #20071 > > //// test
00:24:52 verbose #20072 > >
00:24:52 verbose #20073 > > stream.new_infinite_stream_ print_and_return
00:24:52 verbose #20074 > > |> stream.memoize
00:24:52 verbose #20075 > > |> fun list =>
00:24:52 verbose #20076 > > inl list = list ()
00:24:52 verbose #20077 > > fun n =>
00:24:52 verbose #20078 > > list |> stream.try_item n
00:24:52 verbose #20079 > > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:24:52 verbose #20080 > > |> listm'.sum
00:24:52 verbose #20081 > > |> _assert_eq 10
00:24:53 verbose #20082 > >
00:24:53 verbose #20083 > > ╭─[ 1.58s - stdout ]───────────────────────────────────────────────────────────╮
00:24:53 verbose #20084 > > │ print_and_return / x: 0 │
00:24:53 verbose #20085 > > │ print_and_return / x: 1 │
00:24:53 verbose #20086 > > │ print_and_return / x: 2 │
00:24:53 verbose #20087 > > │ print_and_return / x: 3 │
00:24:53 verbose #20088 > > │ print_and_return / x: 4 │
00:24:53 verbose #20089 > > │ print_and_return / x: 5 │
00:24:53 verbose #20090 > > │ assert_eq / actual: 10 / expected: 10 │
00:24:53 verbose #20091 > > │ │
00:24:53 verbose #20092 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:54 verbose #20093 > >
00:24:54 verbose #20094 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:54 verbose #20095 > > //// test
00:24:54 verbose #20096 > >
00:24:54 verbose #20097 > > stream.new_finite_stream print_and_return 10i32
00:24:54 verbose #20098 > > |> stream.memoize
00:24:54 verbose #20099 > > |> fun list =>
00:24:54 verbose #20100 > > inl list = list ()
00:24:54 verbose #20101 > > fun n =>
00:24:54 verbose #20102 > > list |> stream.try_item n
00:24:54 verbose #20103 > > |> take_while_ (fun n (_ : i32) => n < 5)
00:24:54 verbose #20104 > > |> listm'.sum
00:24:54 verbose #20105 > > |> _assert_eq 10
00:24:55 verbose #20106 > >
00:24:55 verbose #20107 > > ╭─[ 2.01s - stdout ]───────────────────────────────────────────────────────────╮
00:24:55 verbose #20108 > > │ print_and_return / x: 0 │
00:24:55 verbose #20109 > > │ print_and_return / x: 1 │
00:24:55 verbose #20110 > > │ print_and_return / x: 2 │
00:24:55 verbose #20111 > > │ print_and_return / x: 3 │
00:24:55 verbose #20112 > > │ print_and_return / x: 4 │
00:24:55 verbose #20113 > > │ print_and_return / x: 5 │
00:24:55 verbose #20114 > > │ assert_eq / actual: 10 / expected: 10 │
00:24:55 verbose #20115 > > │ │
00:24:55 verbose #20116 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:55 verbose #20117 > >
00:24:55 verbose #20118 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:55 verbose #20119 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:55 verbose #20120 > > │ ### memoize │
00:24:55 verbose #20121 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:55 verbose #20122 > >
00:24:55 verbose #20123 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:55 verbose #20124 > > inl memoize seq =
00:24:55 verbose #20125 > > inl state = mut [[]]
00:24:55 verbose #20126 > > fun n =>
00:24:55 verbose #20127 > > match *state |> listm'.try_find (fun (n', _) => n' = n) with
00:24:55 verbose #20128 > > | Some (_, v) => v
00:24:55 verbose #20129 > > | None =>
00:24:55 verbose #20130 > > inl new_state = seq n
00:24:55 verbose #20131 > > state <- (n, new_state) :: *state
00:24:55 verbose #20132 > > new_state
00:24:55 verbose #20133 > >
00:24:55 verbose #20134 > > inl memoize_ seq =
00:24:55 verbose #20135 > > inl state = mut [[]]
00:24:55 verbose #20136 > > fun n =>
00:24:55 verbose #20137 > > match *state |> listm'.try_find_ (fun (n', _) => n' = n) with
00:24:55 verbose #20138 > > | Some (_, v) => v
00:24:55 verbose #20139 > > | None =>
00:24:55 verbose #20140 > > inl new_state = seq n
00:24:55 verbose #20141 > > state <- (n, new_state) :: *state
00:24:55 verbose #20142 > > new_state
00:24:57 verbose #20143 > >
00:24:57 verbose #20144 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:57 verbose #20145 > > //// test
00:24:57 verbose #20146 > >
00:24:57 verbose #20147 > > inl seq =
00:24:57 verbose #20148 > > fun n =>
00:24:57 verbose #20149 > > n |> print_and_return |> Some
00:24:57 verbose #20150 > > |> memoize_
00:24:57 verbose #20151 > >
00:24:57 verbose #20152 > > seq
00:24:57 verbose #20153 > > |> take_while_ (fun n (_ : i32) => n < 5)
00:24:57 verbose #20154 > > |> listm'.sum
00:24:57 verbose #20155 > > |> _assert_eq 10
00:24:57 verbose #20156 > >
00:24:57 verbose #20157 > > seq
00:24:57 verbose #20158 > > |> take_while_ (fun n _ => n < 5)
00:24:57 verbose #20159 > > |> listm'.sum
00:24:57 verbose #20160 > > |> _assert_eq 10
00:24:59 verbose #20161 > >
00:24:59 verbose #20162 > > ╭─[ 2.20s - stdout ]───────────────────────────────────────────────────────────╮
00:24:59 verbose #20163 > > │ print_and_return / x: 0 │
00:24:59 verbose #20164 > > │ print_and_return / x: 1 │
00:24:59 verbose #20165 > > │ print_and_return / x: 2 │
00:24:59 verbose #20166 > > │ print_and_return / x: 3 │
00:24:59 verbose #20167 > > │ print_and_return / x: 4 │
00:24:59 verbose #20168 > > │ print_and_return / x: 5 │
00:24:59 verbose #20169 > > │ assert_eq / actual: 10 / expected: 10 │
00:24:59 verbose #20170 > > │ assert_eq / actual: 10 / expected: 10 │
00:24:59 verbose #20171 > > │ │
00:24:59 verbose #20172 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:59 verbose #20173 > >
00:24:59 verbose #20174 > > ── markdown ────────────────────────────────────────────────────────────────────
00:24:59 verbose #20175 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:24:59 verbose #20176 > > │ ### iterate │
00:24:59 verbose #20177 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:24:59 verbose #20178 > >
00:24:59 verbose #20179 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:24:59 verbose #20180 > > inl iterate f x0 num_steps =
00:24:59 verbose #20181 > > inl rec loop x n =
00:24:59 verbose #20182 > > if n <= 0
00:24:59 verbose #20183 > > then x
00:24:59 verbose #20184 > > else loop (f x) (n - 1)
00:24:59 verbose #20185 > > loop x0 num_steps
00:25:01 verbose #20186 > >
00:25:01 verbose #20187 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:01 verbose #20188 > > //// test
00:25:01 verbose #20189 > >
00:25:01 verbose #20190 > > 10i32 |> iterate ((*) 2) 1i32
00:25:01 verbose #20191 > > |> _assert_eq 1024
00:25:02 verbose #20192 > >
00:25:02 verbose #20193 > > ╭─[ 1.12s - stdout ]───────────────────────────────────────────────────────────╮
00:25:02 verbose #20194 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:25:02 verbose #20195 > > │ │
00:25:02 verbose #20196 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:02 verbose #20197 > >
00:25:02 verbose #20198 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:02 verbose #20199 > > inl iterate_ f x0 num_steps =
00:25:02 verbose #20200 > > let rec loop x n =
00:25:02 verbose #20201 > > if n <= 0
00:25:02 verbose #20202 > > then x
00:25:02 verbose #20203 > > else loop (f x) (n - 1)
00:25:02 verbose #20204 > > loop x0 num_steps
00:25:03 verbose #20205 > >
00:25:03 verbose #20206 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:03 verbose #20207 > > //// test
00:25:03 verbose #20208 > >
00:25:03 verbose #20209 > > 10i32 |> iterate_ ((*) 2) 1i32
00:25:03 verbose #20210 > > |> _assert_eq 1024
00:25:04 verbose #20211 > >
00:25:04 verbose #20212 > > ╭─[ 1.13s - stdout ]───────────────────────────────────────────────────────────╮
00:25:04 verbose #20213 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:25:04 verbose #20214 > > │ │
00:25:04 verbose #20215 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:04 verbose #20216 > >
00:25:04 verbose #20217 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:04 verbose #20218 > > inl iterate' f x0 num_steps =
00:25:04 verbose #20219 > > listm.init num_steps id
00:25:04 verbose #20220 > > |> listm.fold (fun x _ => f x) x0
00:25:05 verbose #20221 > >
00:25:05 verbose #20222 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:05 verbose #20223 > > //// test
00:25:05 verbose #20224 > >
00:25:05 verbose #20225 > > 10i32 |> iterate' ((*) 2) 1i32
00:25:05 verbose #20226 > > |> _assert_eq 1024
00:25:06 verbose #20227 > >
00:25:06 verbose #20228 > > ╭─[ 947.76ms - stdout ]────────────────────────────────────────────────────────╮
00:25:06 verbose #20229 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:25:06 verbose #20230 > > │ │
00:25:06 verbose #20231 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:06 verbose #20232 > >
00:25:06 verbose #20233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:06 verbose #20234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:06 verbose #20235 > > │ ### find_last │
00:25:06 verbose #20236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:06 verbose #20237 > >
00:25:06 verbose #20238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:06 verbose #20239 > > inl find_last forall item result. fold_fn fn target : option result =
00:25:06 verbose #20240 > > fold_fn (fun (item : item) (result : option result) =>
00:25:06 verbose #20241 > > match result with
00:25:06 verbose #20242 > > | None => fn item
00:25:06 verbose #20243 > > | result => result
00:25:06 verbose #20244 > > ) target (None : option result)
00:25:06 verbose #20245 > >
00:25:06 verbose #20246 > > inl array_find_last forall item result. (fn : item -> option result) (target : a
00:25:06 verbose #20247 > > i32 item) : option result =
00:25:06 verbose #20248 > > find_last am.foldBack fn target
00:25:06 verbose #20249 > >
00:25:06 verbose #20250 > > inl list_find_last forall item result. (fn : item -> option result) (target :
00:25:06 verbose #20251 > > list item) : option result =
00:25:06 verbose #20252 > > find_last listm.foldBack fn target
00:25:07 verbose #20253 > >
00:25:07 verbose #20254 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:07 verbose #20255 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:07 verbose #20256 > > │ ## fsharp │
00:25:07 verbose #20257 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:07 verbose #20258 > >
00:25:07 verbose #20259 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:07 verbose #20260 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:07 verbose #20261 > > │ ### seq' │
00:25:07 verbose #20262 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:07 verbose #20263 > >
00:25:07 verbose #20264 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:07 verbose #20265 > > nominal seq' t = $'`t seq'
00:25:08 verbose #20266 > >
00:25:08 verbose #20267 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:08 verbose #20268 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:08 verbose #20269 > > │ ### of_array' │
00:25:08 verbose #20270 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:08 verbose #20271 > >
00:25:08 verbose #20272 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:08 verbose #20273 > > inl of_array' forall dim t. (items : a dim t) : seq' t =
00:25:08 verbose #20274 > > $'seq { for i = 0 to !items.Length - 1 do yield !items.[[i]] }'
00:25:09 verbose #20275 > >
00:25:09 verbose #20276 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:09 verbose #20277 > > //// test
00:25:09 verbose #20278 > >
00:25:09 verbose #20279 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:25:09 verbose #20280 > > |> of_array'
00:25:11 verbose #20281 > >
00:25:11 verbose #20282 > > ╭─[ 1.57s - return value ]─────────────────────────────────────────────────────╮
00:25:11 verbose #20283 > > │ <details open="open" class="dni-treeview"><summary><span │
00:25:11 verbose #20284 > > │ class="dni-code-hint"><code>[ a, b │
00:25:11 verbose #20285 > > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:25:11 verbose #20286 > > │ CheckClose</td><td><div │
00:25:11 verbose #20287 > > │ class="dni-plaintext"><pre>False</pre></div></td></tr><tr><td>LastGenerated< │
00:25:11 verbose #20288 > > │ /td><td><div │
00:25:11 verbose #20289 > > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>v2</td> │
00:25:11 verbose #20290 > > │ <td><div class="dni-plaintext"><pre>[ a, b │
00:25:11 verbose #20291 > > │ ]</pre></div></td></tr><tr><td>enum</td><td><div │
00:25:11 verbose #20292 > > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>pc</td> │
00:25:11 verbose #20293 > > │ <td><div │
00:25:11 verbose #20294 > > │ class="dni-plaintext"><pre>0</pre></div></td></tr><tr><td>current</td><td><d │
00:25:11 verbose #20295 > > │ iv │
00:25:11 verbose #20296 > > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td><i>(val │
00:25:11 verbose #20297 > > │ ues)</i></td><td><div class="dni-plaintext"><pre>[ a, b │
00:25:11 verbose #20298 > > │ ]</pre></div></td></tr></tbody></table></div></details><style> │
00:25:11 verbose #20299 > > │ .dni-code-hint { │
00:25:11 verbose #20300 > > │ font-style: italic; │
00:25:11 verbose #20301 > > │ overflow: hidden; │
00:25:11 verbose #20302 > > │ white-space: nowrap; │
00:25:11 verbose #20303 > > │ } │
00:25:11 verbose #20304 > > │ .dni-treeview { │
00:25:11 verbose #20305 > > │ white-space: nowrap; │
00:25:11 verbose #20306 > > │ } │
00:25:11 verbose #20307 > > │ .dni-treeview td { │
00:25:11 verbose #20308 > > │ vertical-align: top; │
00:25:11 verbose #20309 > > │ text-align: start; │
00:25:11 verbose #20310 > > │ } │
00:25:11 verbose #20311 > > │ details.dni-treeview { │
00:25:11 verbose #20312 > > │ padding-left: 1em; │
00:25:11 verbose #20313 > > │ } │
00:25:11 verbose #20314 > > │ table td { │
00:25:11 verbose #20315 > > │ text-align: start; │
00:25:11 verbose #20316 > > │ } │
00:25:11 verbose #20317 > > │ table tr { │
00:25:11 verbose #20318 > > │ vertical-align: top; │
00:25:11 verbose #20319 > > │ margin: 0em 0px; │
00:25:11 verbose #20320 > > │ } │
00:25:11 verbose #20321 > > │ table tr td pre │
00:25:11 verbose #20322 > > │ { │
00:25:11 verbose #20323 > > │ vertical-align: top !important; │
00:25:11 verbose #20324 > > │ margin: 0em 0px !important; │
00:25:11 verbose #20325 > > │ } │
00:25:11 verbose #20326 > > │ table th { │
00:25:11 verbose #20327 > > │ text-align: start; │
00:25:11 verbose #20328 > > │ } │
00:25:11 verbose #20329 > > │ </style> │
00:25:11 verbose #20330 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:11 verbose #20331 > >
00:25:11 verbose #20332 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:11 verbose #20333 > > inl of_array forall dim t. (items : a dim t) : seq' t =
00:25:11 verbose #20334 > > items |> $'Seq.ofArray'
00:25:12 verbose #20335 > >
00:25:12 verbose #20336 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:12 verbose #20337 > > //// test
00:25:12 verbose #20338 > >
00:25:12 verbose #20339 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:25:12 verbose #20340 > > |> of_array
00:25:13 verbose #20341 > >
00:25:13 verbose #20342 > > ╭─[ 1.05s - return value ]─────────────────────────────────────────────────────╮
00:25:13 verbose #20343 > > │ <details open="open" class="dni-treeview"><summary><span │
00:25:13 verbose #20344 > > │ class="dni-code-hint"><code>[ a, b │
00:25:13 verbose #20345 > > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:25:13 verbose #20346 > > │ f</td><td><details class="dni-treeview"><summary><span │
00:25:13 verbose #20347 > > │ class="dni-code-hint"><code>Microsoft.FSharp.Collections.SeqModule+OfArray@1 │
00:25:13 verbose #20348 > > │ 010[ │
00:25:13 verbose #20349 > > │ System.String]</code></span></summary><div><table><thead><tr></tr></thead><t │
00:25:13 verbose #20350 > > │ body><tr><td>source</td><td><div class="dni-plaintext"><pre>[ a, b │
00:25:13 verbose #20351 > > │ ]</pre></div></td></tr></tbody></table></div></details></td></tr><tr><td><i> │
00:25:13 verbose #20352 > > │ (values)</i></td><td><div class="dni-plaintext"><pre>[ a, b │
00:25:13 verbose #20353 > > │ ]</pre></div></td></tr></tbody></table></div></details><style> │
00:25:13 verbose #20354 > > │ .dni-code-hint { │
00:25:13 verbose #20355 > > │ font-style: italic; │
00:25:13 verbose #20356 > > │ overflow: hidden; │
00:25:13 verbose #20357 > > │ white-space: nowrap; │
00:25:13 verbose #20358 > > │ } │
00:25:13 verbose #20359 > > │ .dni-treeview { │
00:25:13 verbose #20360 > > │ white-space: nowrap; │
00:25:13 verbose #20361 > > │ } │
00:25:13 verbose #20362 > > │ .dni-treeview td { │
00:25:13 verbose #20363 > > │ vertical-align: top; │
00:25:13 verbose #20364 > > │ text-align: start; │
00:25:13 verbose #20365 > > │ } │
00:25:13 verbose #20366 > > │ details.dni-treeview { │
00:25:13 verbose #20367 > > │ padding-left: 1em; │
00:25:13 verbose #20368 > > │ } │
00:25:13 verbose #20369 > > │ table td { │
00:25:13 verbose #20370 > > │ text-align: start; │
00:25:13 verbose #20371 > > │ } │
00:25:13 verbose #20372 > > │ table tr { │
00:25:13 verbose #20373 > > │ vertical-align: top; │
00:25:13 verbose #20374 > > │ margin: 0em 0px; │
00:25:13 verbose #20375 > > │ } │
00:25:13 verbose #20376 > > │ table tr td pre │
00:25:13 verbose #20377 > > │ { │
00:25:13 verbose #20378 > > │ vertical-align: top !important; │
00:25:13 verbose #20379 > > │ margin: 0em 0px !important; │
00:25:13 verbose #20380 > > │ } │
00:25:13 verbose #20381 > > │ table th { │
00:25:13 verbose #20382 > > │ text-align: start; │
00:25:13 verbose #20383 > > │ } │
00:25:13 verbose #20384 > > │ </style> │
00:25:13 verbose #20385 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:13 verbose #20386 > >
00:25:13 verbose #20387 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:13 verbose #20388 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:13 verbose #20389 > > │ ### to_array' │
00:25:13 verbose #20390 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:13 verbose #20391 > >
00:25:13 verbose #20392 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:13 verbose #20393 > > inl to_array' forall dim t. (items : seq' t) : a dim t =
00:25:13 verbose #20394 > > items |> $'Seq.toArray'
00:25:14 verbose #20395 > >
00:25:14 verbose #20396 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:14 verbose #20397 > > //// test
00:25:14 verbose #20398 > >
00:25:14 verbose #20399 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:25:14 verbose #20400 > > |> of_array'
00:25:14 verbose #20401 > > |> to_array'
00:25:14 verbose #20402 > > |> _assert_eq (a ;[[ "a"; "b" ]] : _ i32 _)
00:25:16 verbose #20403 > >
00:25:16 verbose #20404 > > ╭─[ 1.50s - stdout ]───────────────────────────────────────────────────────────╮
00:25:16 verbose #20405 > > │ assert_eq / actual: [|"a"; "b"|] / expected: [|"a"; "b"|] │
00:25:16 verbose #20406 > > │ │
00:25:16 verbose #20407 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:16 verbose #20408 > >
00:25:16 verbose #20409 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:16 verbose #20410 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:16 verbose #20411 > > │ ### of_list' │
00:25:16 verbose #20412 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:16 verbose #20413 > >
00:25:16 verbose #20414 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:16 verbose #20415 > > inl of_list' forall t. (items : listm'.list' t) : seq' t =
00:25:16 verbose #20416 > > $'seq { for i = 0 to !items.Length - 1 do yield !items.[[i]] }'
00:25:17 verbose #20417 > >
00:25:17 verbose #20418 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:17 verbose #20419 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:17 verbose #20420 > > │ ### to_list' │
00:25:17 verbose #20421 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:17 verbose #20422 > >
00:25:17 verbose #20423 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:17 verbose #20424 > > inl to_list' forall t. (items : seq' t) : listm'.list' t =
00:25:17 verbose #20425 > > items |> $'Seq.toList'
00:25:18 verbose #20426 > >
00:25:18 verbose #20427 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:18 verbose #20428 > > //// test
00:25:18 verbose #20429 > >
00:25:18 verbose #20430 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:25:18 verbose #20431 > > |> of_array
00:25:18 verbose #20432 > > |> to_list'
00:25:18 verbose #20433 > > |> listm'.unbox
00:25:18 verbose #20434 > > |> _assert_eq ([[ "a"; "b" ]])
00:25:19 verbose #20435 > >
00:25:19 verbose #20436 > > ╭─[ 1.21s - stdout ]───────────────────────────────────────────────────────────╮
00:25:19 verbose #20437 > > │ assert_eq / actual: UH0_1 ("a", UH0_1 ("b", UH0_0)) / expected: UH0_1 ("a", │
00:25:19 verbose #20438 > > │ UH0_1 ("b", UH0_0)) │
00:25:19 verbose #20439 > > │ │
00:25:19 verbose #20440 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:19 verbose #20441 > >
00:25:19 verbose #20442 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:19 verbose #20443 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:19 verbose #20444 > > │ ### rev' │
00:25:19 verbose #20445 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:19 verbose #20446 > >
00:25:19 verbose #20447 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:19 verbose #20448 > > inl rev'' forall t u. (items : t) : seq' u =
00:25:19 verbose #20449 > > items |> $'Seq.rev'
00:25:20 verbose #20450 > >
00:25:20 verbose #20451 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:20 verbose #20452 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:20 verbose #20453 > > │ ## rust │
00:25:20 verbose #20454 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:20 verbose #20455 > >
00:25:20 verbose #20456 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:20 verbose #20457 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:20 verbose #20458 > > │ ### fuse │
00:25:20 verbose #20459 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:20 verbose #20460 > >
00:25:20 verbose #20461 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:20 verbose #20462 > > nominal fuse t = $'core_iter_Fuse<`t>'
00:25:21 verbose #20463 > 00:01:33 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 45812
00:25:21 verbose #20464 > 00:01:33 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:25:29 verbose #20465 > 00:01:41 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/seq.dib.ipynb to html
00:25:29 verbose #20466 > 00:01:41 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:25:29 verbose #20467 > 00:01:41 verbose #7 ! validate(nb)
00:25:35 verbose #20468 > 00:01:47 verbose #8 ! [NbConvertApp] Writing 378560 bytes to c:\home\git\polyglot\lib\spiral\seq.dib.html
00:25:36 verbose #20469 > 00:01:48 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:25:36 verbose #20470 > 00:01:48 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:25:36 verbose #20471 > 00:01:48 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/seq.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/seq.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:25:40 verbose #20472 > 00:01:52 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:25:40 verbose #20473 > 00:01:52 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:25:41 verbose #20474 > 00:01:52 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 46508
00:25:41 debug #20475 runtime.execute_with_options_async / exit_code: 0 / output.Length: 50576
00:25:41 debug #26 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path seq.dib --retries 3
00:25:41 debug #20476 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path env.dib --retries 3",
[||], None, None, true, None)
00:25:41 verbose #20477 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "env.dib", "--retries", "3"])
00:25:41 verbose #20478 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/env.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/env.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/env.dib" --output-path "c:/home/git/polyglot/lib/spiral/env.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:25:47 verbose #20479 > >
00:25:47 verbose #20480 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:47 verbose #20481 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:47 verbose #20482 > > │ # env │
00:25:47 verbose #20483 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:47 verbose #20484 > >
00:25:47 verbose #20485 > > ── markdown ────────────────────────────────────────────────────────────────────
00:25:47 verbose #20486 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:25:47 verbose #20487 > > │ ## types │
00:25:47 verbose #20488 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:25:48 verbose #20489 > >
00:25:48 verbose #20490 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:25:48 verbose #20491 > > inl types () =
00:25:48 verbose #20492 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:25:48 verbose #20493 > > Fable.Core.Emit(\"std::env::VarError\")>]]\n#endif\ntype std_env_VarError =
00:25:48 verbose #20494 > > class end"
00:25:48 verbose #20495 > >
00:25:48 verbose #20496 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:25:48 verbose #20497 > > #r
00:25:48 verbose #20498 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:25:48 verbose #20499 > > otNet.Interactive.Spiral.dll"
00:25:48 verbose #20500 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:25:48 verbose #20501 > > #r
00:25:48 verbose #20502 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:25:48 verbose #20503 > > otNet.Interactive.dll"
00:25:48 verbose #20504 > > open type Microsoft.DotNet.Interactive.Kernel
00:26:02 verbose #20505 > >
00:26:02 verbose #20506 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:02 verbose #20507 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:02 verbose #20508 > > │ ## rust │
00:26:02 verbose #20509 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:02 verbose #20510 > >
00:26:02 verbose #20511 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:02 verbose #20512 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:02 verbose #20513 > > │ ### var_error │
00:26:02 verbose #20514 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:02 verbose #20515 > >
00:26:02 verbose #20516 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:02 verbose #20517 > > nominal var_error = $'std_env_VarError'
00:26:03 verbose #20518 > >
00:26:03 verbose #20519 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:03 verbose #20520 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:03 verbose #20521 > > │ ### get_environment_variable_comptime │
00:26:03 verbose #20522 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:03 verbose #20523 > >
00:26:03 verbose #20524 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:03 verbose #20525 > > inl get_environment_variable_comptime (var : string) : string =
00:26:03 verbose #20526 > > run_target function
00:26:03 verbose #20527 > > | Rust (Native) => fun () =>
00:26:03 verbose #20528 > > open rust_operators
00:26:03 verbose #20529 > > !\($'"env\!(\\\"" + !var + "\\\")"')
00:26:03 verbose #20530 > > |> sm'.from_std_string
00:26:03 verbose #20531 > > | target => fun () => null ()
00:26:05 verbose #20532 > >
00:26:05 verbose #20533 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:05 verbose #20534 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:05 verbose #20535 > > │ ## python │
00:26:05 verbose #20536 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:05 verbose #20537 > >
00:26:05 verbose #20538 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:05 verbose #20539 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:05 verbose #20540 > > │ ### os_environ │
00:26:05 verbose #20541 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:05 verbose #20542 > >
00:26:05 verbose #20543 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:05 verbose #20544 > > nominal os_environ = any
00:26:06 verbose #20545 > >
00:26:06 verbose #20546 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:06 verbose #20547 > > inl os_environ () : os_environ =
00:26:06 verbose #20548 > > open python_operators
00:26:06 verbose #20549 > > global "type IOsEnviron = abstract environ: x: unit -> obj"
00:26:06 verbose #20550 > > inl os : $'IOsEnviron' = python.import_all "os"
00:26:06 verbose #20551 > > !\($'"!os.environ"')
00:26:07 verbose #20552 > >
00:26:07 verbose #20553 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:07 verbose #20554 > > inl environ_get (key : string) (os_environ : os_environ) : string =
00:26:07 verbose #20555 > > open python_operators
00:26:07 verbose #20556 > > !\\(key, $'"!os_environ.get($0)"')
00:26:08 verbose #20557 > >
00:26:08 verbose #20558 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:08 verbose #20559 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:08 verbose #20560 > > │ ## env │
00:26:08 verbose #20561 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:08 verbose #20562 > >
00:26:08 verbose #20563 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:08 verbose #20564 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:08 verbose #20565 > > │ ### get_environment_variable │
00:26:08 verbose #20566 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:08 verbose #20567 > >
00:26:08 verbose #20568 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:08 verbose #20569 > > let get_environment_variable (var : string) : string =
00:26:08 verbose #20570 > > run_target function
00:26:08 verbose #20571 > > | Rust _ => fun () =>
00:26:08 verbose #20572 > > open rust_operators
00:26:08 verbose #20573 > > !\\(var, $'"std::env::var(&*$0)"')
00:26:08 verbose #20574 > > |> fun x => x : resultm.result' sm'.std_string var_error
00:26:08 verbose #20575 > > |> resultm.map' sm'.from_std_string
00:26:08 verbose #20576 > > |> resultm.unwrap_or' (join "")
00:26:08 verbose #20577 > > | Fsharp _ => fun () =>
00:26:08 verbose #20578 > > var
00:26:08 verbose #20579 > > |> $'System.Environment.GetEnvironmentVariable'
00:26:08 verbose #20580 > > |> optionm'.of_obj
00:26:08 verbose #20581 > > |> optionm'.unbox
00:26:08 verbose #20582 > > |> optionm'.default_value ""
00:26:08 verbose #20583 > > | TypeScript _ => fun () =>
00:26:08 verbose #20584 > > open typescript_operators
00:26:08 verbose #20585 > > !\\(var, $'"process.env[[$0]] ?? \\\"\\\""')
00:26:08 verbose #20586 > > | Python _ => fun () =>
00:26:08 verbose #20587 > > os_environ ()
00:26:08 verbose #20588 > > |> environ_get var
00:26:08 verbose #20589 > > | target => fun () => failwith $'$"env.get_environment_variable
00:26:08 verbose #20590 > > target: {!target} / var: {!var}"'
00:26:09 verbose #20591 > >
00:26:09 verbose #20592 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:09 verbose #20593 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:09 verbose #20594 > > │ ### get_entry_assembly_name │
00:26:09 verbose #20595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:09 verbose #20596 > >
00:26:09 verbose #20597 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:09 verbose #20598 > > let get_entry_assembly_name () : string =
00:26:09 verbose #20599 > > run_target function
00:26:09 verbose #20600 > > | Rust _ => fun () =>
00:26:09 verbose #20601 > > (join "CARGO_PKG_NAME") |> get_environment_variable
00:26:09 verbose #20602 > > | Fsharp _ => fun () =>
00:26:09 verbose #20603 > > $'System.Reflection.Assembly.GetEntryAssembly().GetName().Name'
00:26:09 verbose #20604 > > | target => fun () => failwith $'$"env.get_entry_assembly_name / target:
00:26:09 verbose #20605 > > {!target}"'
00:26:10 verbose #20606 > >
00:26:10 verbose #20607 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:10 verbose #20608 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:10 verbose #20609 > > │ ### append_path │
00:26:10 verbose #20610 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:10 verbose #20611 > >
00:26:10 verbose #20612 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:10 verbose #20613 > > inl append_path (path : string) : option string =
00:26:10 verbose #20614 > > inl env_path = "PATH" |> get_environment_variable
00:26:10 verbose #20615 > > if env_path = ""
00:26:10 verbose #20616 > > then None
00:26:10 verbose #20617 > > else
00:26:10 verbose #20618 > > inl env_sep =
00:26:10 verbose #20619 > > if platform.is_windows ()
00:26:10 verbose #20620 > > then ";"
00:26:10 verbose #20621 > > else ":"
00:26:10 verbose #20622 > > Some $'$"{!path}{!env_sep}{!env_path}"'
00:26:11 verbose #20623 > 00:00:29 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 7105
00:26:11 verbose #20624 > 00:00:29 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/env.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/env.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:26:14 verbose #20625 > 00:00:33 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/env.dib.ipynb to html
00:26:14 verbose #20626 > 00:00:33 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:26:14 verbose #20627 > 00:00:33 verbose #7 ! validate(nb)
00:26:15 verbose #20628 > 00:00:34 verbose #8 ! [NbConvertApp] Writing 289868 bytes to c:\home\git\polyglot\lib\spiral\env.dib.html
00:26:16 verbose #20629 > 00:00:34 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:26:16 verbose #20630 > 00:00:34 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:26:16 verbose #20631 > 00:00:34 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/env.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/env.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:26:17 verbose #20632 > 00:00:36 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:26:17 verbose #20633 > 00:00:36 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:26:18 verbose #20634 > 00:00:37 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 7801
00:26:18 debug #20635 runtime.execute_with_options_async / exit_code: 0 / output.Length: 10317
00:26:18 debug #27 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path env.dib --retries 3
00:26:18 debug #20636 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path python.dib --retries 3",
[||], None, None, true, None)
00:26:18 verbose #20637 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "python.dib", "--retries", "3"])
00:26:18 verbose #20638 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/python.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/python.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/python.dib" --output-path "c:/home/git/polyglot/lib/spiral/python.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:26:22 verbose #20639 > >
00:26:22 verbose #20640 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:22 verbose #20641 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:22 verbose #20642 > > │ # python │
00:26:22 verbose #20643 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:22 verbose #20644 > >
00:26:22 verbose #20645 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:22 verbose #20646 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:22 verbose #20647 > > │ ### emit_expr │
00:26:22 verbose #20648 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:22 verbose #20649 > >
00:26:22 verbose #20650 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:22 verbose #20651 > > inl emit_expr forall a t. (args : a) (code : string) : t =
00:26:22 verbose #20652 > > real
00:26:22 verbose #20653 > > $'Fable.Core.PyInterop.emitPyExpr !args !code ' : t
00:26:22 verbose #20654 > >
00:26:22 verbose #20655 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:26:22 verbose #20656 > > #r
00:26:22 verbose #20657 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:26:22 verbose #20658 > > otNet.Interactive.Spiral.dll"
00:26:22 verbose #20659 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:26:22 verbose #20660 > > #r
00:26:22 verbose #20661 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:26:22 verbose #20662 > > otNet.Interactive.dll"
00:26:22 verbose #20663 > > open type Microsoft.DotNet.Interactive.Kernel
00:26:31 verbose #20664 > >
00:26:31 verbose #20665 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:31 verbose #20666 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:31 verbose #20667 > > │ ### │
00:26:31 verbose #20668 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:31 verbose #20669 > >
00:26:31 verbose #20670 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:31 verbose #20671 > > inl (~!\) forall t. (code : string) : t =
00:26:31 verbose #20672 > > emit_expr () code
00:26:31 verbose #20673 > >
00:26:31 verbose #20674 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:31 verbose #20675 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:31 verbose #20676 > > │ ### │
00:26:31 verbose #20677 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:31 verbose #20678 > >
00:26:31 verbose #20679 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:31 verbose #20680 > > inl (~!\\) forall t u. ((args : t), (code : string)) : u =
00:26:31 verbose #20681 > > emit_expr args code
00:26:32 verbose #20682 > >
00:26:32 verbose #20683 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:32 verbose #20684 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:32 verbose #20685 > > │ ### │
00:26:32 verbose #20686 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:32 verbose #20687 > >
00:26:32 verbose #20688 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:32 verbose #20689 > > inl import_all forall t. (file : string) : t =
00:26:32 verbose #20690 > > real
00:26:32 verbose #20691 > > $'Fable.Core.PyInterop.importAll !file ' : t
00:26:33 verbose #20692 > >
00:26:33 verbose #20693 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:33 verbose #20694 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:33 verbose #20695 > > │ ### │
00:26:33 verbose #20696 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:33 verbose #20697 > >
00:26:33 verbose #20698 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:33 verbose #20699 > > inl import forall t. (name : string) (file : string) : t =
00:26:33 verbose #20700 > > real
00:26:33 verbose #20701 > > $'Fable.Core.PyInterop.import !name !file ' : t
00:26:34 verbose #20702 > 00:00:15 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 3279
00:26:34 verbose #20703 > 00:00:15 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/python.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/python.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:26:37 verbose #20704 > 00:00:19 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/python.dib.ipynb to html
00:26:37 verbose #20705 > 00:00:19 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:26:37 verbose #20706 > 00:00:19 verbose #7 ! validate(nb)
00:26:39 verbose #20707 > 00:00:20 verbose #8 ! [NbConvertApp] Writing 278637 bytes to c:\home\git\polyglot\lib\spiral\python.dib.html
00:26:39 verbose #20708 > 00:00:21 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:26:39 verbose #20709 > 00:00:21 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:26:39 verbose #20710 > 00:00:21 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/python.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/python.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:26:40 verbose #20711 > 00:00:22 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:26:40 verbose #20712 > 00:00:22 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:26:41 verbose #20713 > 00:00:23 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 3981
00:26:41 debug #20714 runtime.execute_with_options_async / exit_code: 0 / output.Length: 6362
00:26:41 debug #28 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path python.dib --retries 3
00:26:41 debug #20715 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path typescript.dib --retries 3",
[||], None, None, true, None)
00:26:41 verbose #20716 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "typescript.dib", "--retries", "3"])
00:26:41 verbose #20717 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/typescript.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/typescript.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/typescript.dib" --output-path "c:/home/git/polyglot/lib/spiral/typescript.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:26:46 verbose #20718 > >
00:26:46 verbose #20719 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:46 verbose #20720 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:46 verbose #20721 > > │ # typescript │
00:26:46 verbose #20722 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:46 verbose #20723 > >
00:26:46 verbose #20724 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:46 verbose #20725 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:46 verbose #20726 > > │ ### emit_expr │
00:26:46 verbose #20727 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:46 verbose #20728 > >
00:26:46 verbose #20729 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:46 verbose #20730 > > inl emit_expr forall a t. (args : a) (code : string) : t =
00:26:46 verbose #20731 > > real
00:26:46 verbose #20732 > > $'Fable.Core.JsInterop.emitJsExpr !args !code ' : t
00:26:46 verbose #20733 > >
00:26:46 verbose #20734 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:26:46 verbose #20735 > > #r
00:26:46 verbose #20736 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:26:46 verbose #20737 > > otNet.Interactive.Spiral.dll"
00:26:46 verbose #20738 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:26:46 verbose #20739 > > #r
00:26:46 verbose #20740 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:26:46 verbose #20741 > > otNet.Interactive.dll"
00:26:46 verbose #20742 > > open type Microsoft.DotNet.Interactive.Kernel
00:26:53 verbose #20743 > >
00:26:53 verbose #20744 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:53 verbose #20745 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:53 verbose #20746 > > │ ### │
00:26:53 verbose #20747 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:53 verbose #20748 > >
00:26:53 verbose #20749 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:53 verbose #20750 > > inl (~!\) forall t. (code : string) : t =
00:26:53 verbose #20751 > > emit_expr () code
00:26:53 verbose #20752 > >
00:26:53 verbose #20753 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:53 verbose #20754 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:53 verbose #20755 > > │ ### │
00:26:53 verbose #20756 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:53 verbose #20757 > >
00:26:53 verbose #20758 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:53 verbose #20759 > > inl (~!\\) forall t u. ((args : t), (code : string)) : u =
00:26:53 verbose #20760 > > emit_expr args code
00:26:54 verbose #20761 > >
00:26:54 verbose #20762 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:54 verbose #20763 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:54 verbose #20764 > > │ ### │
00:26:54 verbose #20765 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:54 verbose #20766 > >
00:26:54 verbose #20767 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:54 verbose #20768 > > inl import_all forall t. (file : string) : t =
00:26:54 verbose #20769 > > real
00:26:54 verbose #20770 > > $'Fable.Core.JsInterop.importAll !file ' : t
00:26:55 verbose #20771 > >
00:26:55 verbose #20772 > > ── markdown ────────────────────────────────────────────────────────────────────
00:26:55 verbose #20773 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:26:55 verbose #20774 > > │ ### │
00:26:55 verbose #20775 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:26:55 verbose #20776 > >
00:26:55 verbose #20777 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:26:55 verbose #20778 > > inl import forall t. (name : string) (file : string) : t =
00:26:55 verbose #20779 > > real
00:26:55 verbose #20780 > > $'Fable.Core.JsInterop.import !name !file ' : t
00:26:56 verbose #20781 > 00:00:14 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 3279
00:26:56 verbose #20782 > 00:00:14 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/typescript.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/typescript.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:26:58 verbose #20783 > 00:00:16 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/typescript.dib.ipynb to html
00:26:58 verbose #20784 > 00:00:16 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:26:58 verbose #20785 > 00:00:16 verbose #7 ! validate(nb)
00:27:00 verbose #20786 > 00:00:18 verbose #8 ! [NbConvertApp] Writing 278653 bytes to c:\home\git\polyglot\lib\spiral\typescript.dib.html
00:27:00 verbose #20787 > 00:00:18 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651
00:27:00 verbose #20788 > 00:00:18 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651
00:27:00 verbose #20789 > 00:00:18 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/typescript.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/typescript.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:27:01 verbose #20790 > 00:00:19 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:27:01 verbose #20791 > 00:00:19 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:27:02 verbose #20792 > 00:00:20 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 3989
00:27:02 debug #20793 runtime.execute_with_options_async / exit_code: 0 / output.Length: 6406
00:27:02 debug #29 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path typescript.dib --retries 3
00:27:02 debug #20794 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path file_system.dib --retries 3",
[||], None, None, true, None)
00:27:02 verbose #20795 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "file_system.dib", "--retries", "3"])
00:27:02 verbose #20796 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/file_system.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/file_system.dib" --output-path "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:27:05 verbose #20797 > >
00:27:05 verbose #20798 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:05 verbose #20799 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:05 verbose #20800 > > │ # file_system │
00:27:05 verbose #20801 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:06 verbose #20802 > >
00:27:06 verbose #20803 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:06 verbose #20804 > > open sm'_operators
00:27:06 verbose #20805 > > open rust_operators
00:27:06 verbose #20806 > >
00:27:06 verbose #20807 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:27:06 verbose #20808 > > #r
00:27:06 verbose #20809 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:27:06 verbose #20810 > > otNet.Interactive.Spiral.dll"
00:27:06 verbose #20811 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:27:06 verbose #20812 > > #r
00:27:06 verbose #20813 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:27:06 verbose #20814 > > otNet.Interactive.dll"
00:27:06 verbose #20815 > > open type Microsoft.DotNet.Interactive.Kernel
00:27:15 verbose #20816 > >
00:27:15 verbose #20817 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:15 verbose #20818 > > //// test
00:27:15 verbose #20819 > >
00:27:15 verbose #20820 > > open testing
00:27:15 verbose #20821 > >
00:27:15 verbose #20822 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:15 verbose #20823 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:15 verbose #20824 > > │ ## types │
00:27:15 verbose #20825 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:15 verbose #20826 > >
00:27:15 verbose #20827 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:15 verbose #20828 > > inl types () =
00:27:15 verbose #20829 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20830 > > Fable.Core.Emit(\"std::fs::File\")>]]\n#endif\ntype std_fs_File = class end"
00:27:15 verbose #20831 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20832 > > Fable.Core.Emit(\"std::fs::FileType\")>]]\n#endif\ntype std_fs_FileType = class
00:27:15 verbose #20833 > > end"
00:27:15 verbose #20834 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20835 > > Fable.Core.Emit(\"std::path::Display\")>]]\n#endif\ntype std_path_Display =
00:27:15 verbose #20836 > > class end"
00:27:15 verbose #20837 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20838 > > Fable.Core.Emit(\"std::path::Path\")>]]\n#endif\ntype std_path_Path = class end"
00:27:15 verbose #20839 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20840 > > Fable.Core.Emit(\"std::path::PathBuf\")>]]\n#endif\ntype std_path_PathBuf =
00:27:15 verbose #20841 > > class end"
00:27:15 verbose #20842 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20843 > > Fable.Core.Emit(\"async_walkdir::DirEntry\")>]]\n#endif\ntype
00:27:15 verbose #20844 > > async_walkdir_DirEntry = class end"
00:27:15 verbose #20845 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20846 > > Fable.Core.Emit(\"async_walkdir::Filtering\")>]]\n#endif\ntype
00:27:15 verbose #20847 > > async_walkdir_Filtering = class end"
00:27:15 verbose #20848 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:27:15 verbose #20849 > > Fable.Core.Emit(\"async_walkdir::WalkDir\")>]]\n#endif\ntype
00:27:15 verbose #20850 > > async_walkdir_WalkDir = class end"
00:27:16 verbose #20851 > >
00:27:16 verbose #20852 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:16 verbose #20853 > > inl types () =
00:27:16 verbose #20854 > > types ()
00:27:16 verbose #20855 > > date_time.types ()
00:27:16 verbose #20856 > > env.types ()
00:27:16 verbose #20857 > > rust.types ()
00:27:16 verbose #20858 > > sm'.types ()
00:27:16 verbose #20859 > > stream.types ()
00:27:16 verbose #20860 > > threading.types ()
00:27:17 verbose #20861 > >
00:27:17 verbose #20862 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:17 verbose #20863 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:17 verbose #20864 > > │ ## fsharp │
00:27:17 verbose #20865 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:17 verbose #20866 > >
00:27:17 verbose #20867 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:17 verbose #20868 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:17 verbose #20869 > > │ ### file_mode │
00:27:17 verbose #20870 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:17 verbose #20871 > >
00:27:17 verbose #20872 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:17 verbose #20873 > > nominal file_mode' = $'System.IO.FileMode'
00:27:17 verbose #20874 > >
00:27:17 verbose #20875 > > union file_mode =
00:27:17 verbose #20876 > > | ModeCreateNew
00:27:17 verbose #20877 > > | ModeCreate
00:27:17 verbose #20878 > > | ModeOpen
00:27:17 verbose #20879 > > | ModeOpenOrCreate
00:27:17 verbose #20880 > > | Truncate
00:27:17 verbose #20881 > > | Append
00:27:17 verbose #20882 > >
00:27:17 verbose #20883 > > inl file_mode = function
00:27:17 verbose #20884 > > | ModeCreateNew => $'System.IO.FileMode.CreateNew' : file_mode'
00:27:17 verbose #20885 > > | ModeCreate => $'System.IO.FileMode.Create' : file_mode'
00:27:17 verbose #20886 > > | ModeOpen => $'System.IO.FileMode.Open' : file_mode'
00:27:17 verbose #20887 > > | ModeOpenOrCreate => $'System.IO.FileMode.OpenOrCreate' : file_mode'
00:27:17 verbose #20888 > > | Truncate => $'System.IO.FileMode.Truncate' : file_mode'
00:27:17 verbose #20889 > > | Append => $'System.IO.FileMode.Append' : file_mode'
00:27:17 verbose #20890 > >
00:27:17 verbose #20891 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:17 verbose #20892 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:17 verbose #20893 > > │ ### file_access │
00:27:17 verbose #20894 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:17 verbose #20895 > >
00:27:17 verbose #20896 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:17 verbose #20897 > > nominal file_access' = $'System.IO.FileAccess'
00:27:17 verbose #20898 > >
00:27:17 verbose #20899 > > union file_access =
00:27:17 verbose #20900 > > | AccessRead
00:27:17 verbose #20901 > > | AccessWrite
00:27:17 verbose #20902 > > | AccessReadWrite
00:27:17 verbose #20903 > >
00:27:17 verbose #20904 > > inl file_access = function
00:27:17 verbose #20905 > > | AccessRead => $'System.IO.FileAccess.Read' : file_access'
00:27:17 verbose #20906 > > | AccessWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:27:17 verbose #20907 > > | AccessReadWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:27:18 verbose #20908 > >
00:27:18 verbose #20909 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:18 verbose #20910 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:18 verbose #20911 > > │ ### file_share │
00:27:18 verbose #20912 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:18 verbose #20913 > >
00:27:18 verbose #20914 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:18 verbose #20915 > > nominal file_share' = $'System.IO.FileShare'
00:27:18 verbose #20916 > >
00:27:18 verbose #20917 > > union file_share =
00:27:18 verbose #20918 > > | ShareNone
00:27:18 verbose #20919 > > | ShareRead
00:27:18 verbose #20920 > > | ShareWrite
00:27:18 verbose #20921 > > | ShareReadWrite
00:27:18 verbose #20922 > > | ShareDelete
00:27:18 verbose #20923 > >
00:27:18 verbose #20924 > > inl file_share = function
00:27:18 verbose #20925 > > | ShareNone => $'System.IO.FileShare.None' : file_share'
00:27:18 verbose #20926 > > | ShareRead => $'System.IO.FileShare.Read' : file_share'
00:27:18 verbose #20927 > > | ShareWrite => $'System.IO.FileShare.Write' : file_share'
00:27:18 verbose #20928 > > | ShareReadWrite => $'System.IO.FileShare.ReadWrite' : file_share'
00:27:18 verbose #20929 > > | ShareDelete => $'System.IO.FileShare.Delete' : file_share'
00:27:19 verbose #20930 > >
00:27:19 verbose #20931 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:19 verbose #20932 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:19 verbose #20933 > > │ ### file_stream │
00:27:19 verbose #20934 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:19 verbose #20935 > >
00:27:19 verbose #20936 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:19 verbose #20937 > > nominal file_stream' = $'System.IO.FileStream'
00:27:19 verbose #20938 > >
00:27:19 verbose #20939 > > inl file_stream (path : string) mode access share : file_stream' =
00:27:19 verbose #20940 > > run_target function
00:27:19 verbose #20941 > > | Fsharp (Native) => fun () =>
00:27:19 verbose #20942 > > inl mode = mode |> file_mode
00:27:19 verbose #20943 > > inl access = access |> file_access
00:27:19 verbose #20944 > > inl share = share |> file_share
00:27:19 verbose #20945 > > $'new System.IO.FileStream (!path, !mode, !access, !share)'
00:27:19 verbose #20946 > > | _ => fun () => null ()
00:27:19 verbose #20947 > >
00:27:19 verbose #20948 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:19 verbose #20949 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:19 verbose #20950 > > │ ### directory_info │
00:27:19 verbose #20951 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:19 verbose #20952 > >
00:27:19 verbose #20953 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:19 verbose #20954 > > nominal directory_info = $'System.IO.DirectoryInfo'
00:27:19 verbose #20955 > >
00:27:19 verbose #20956 > > inl directory_info (path : string) : directory_info =
00:27:19 verbose #20957 > > path |> $'`directory_info '
00:27:20 verbose #20958 > >
00:27:20 verbose #20959 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:20 verbose #20960 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:20 verbose #20961 > > │ ### directory_info_exists │
00:27:20 verbose #20962 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:20 verbose #20963 > >
00:27:20 verbose #20964 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:20 verbose #20965 > > inl directory_info_exists (info : directory_info) : bool =
00:27:20 verbose #20966 > > run_target function
00:27:20 verbose #20967 > > | Fsharp (Native) => fun () =>
00:27:20 verbose #20968 > > $'!info.Exists'
00:27:20 verbose #20969 > > | _ => fun () => null ()
00:27:21 verbose #20970 > >
00:27:21 verbose #20971 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:21 verbose #20972 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:21 verbose #20973 > > │ ### directory_info_creation_time │
00:27:21 verbose #20974 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:21 verbose #20975 > >
00:27:21 verbose #20976 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:21 verbose #20977 > > inl directory_info_creation_time (info : directory_info) : date_time.date_time =
00:27:21 verbose #20978 > > run_target function
00:27:21 verbose #20979 > > | Fsharp (Native) => fun () =>
00:27:21 verbose #20980 > > $'!info.CreationTime'
00:27:21 verbose #20981 > > | _ => fun () => null ()
00:27:22 verbose #20982 > >
00:27:22 verbose #20983 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:22 verbose #20984 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:22 verbose #20985 > > │ ### directory_info_name │
00:27:22 verbose #20986 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:22 verbose #20987 > >
00:27:22 verbose #20988 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:22 verbose #20989 > > inl directory_info_name (info : directory_info) : string =
00:27:22 verbose #20990 > > run_target function
00:27:22 verbose #20991 > > | Fsharp (Native) => fun () =>
00:27:22 verbose #20992 > > $'!info.Name'
00:27:22 verbose #20993 > > | _ => fun () => null ()
00:27:23 verbose #20994 > >
00:27:23 verbose #20995 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:23 verbose #20996 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:23 verbose #20997 > > │ ### directory_info_full_name │
00:27:23 verbose #20998 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:23 verbose #20999 > >
00:27:23 verbose #21000 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:23 verbose #21001 > > inl directory_info_full_name (info : directory_info) : string =
00:27:23 verbose #21002 > > run_target function
00:27:23 verbose #21003 > > | Fsharp (Native) => fun () =>
00:27:23 verbose #21004 > > $'!info.FullName'
00:27:23 verbose #21005 > > | _ => fun () => null ()
00:27:23 verbose #21006 > >
00:27:23 verbose #21007 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:23 verbose #21008 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:23 verbose #21009 > > │ ### create_directory │
00:27:23 verbose #21010 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:23 verbose #21011 > >
00:27:23 verbose #21012 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:23 verbose #21013 > > inl create_directory (path : string) : directory_info =
00:27:23 verbose #21014 > > run_target function
00:27:23 verbose #21015 > > | Fsharp (Native) => fun () =>
00:27:23 verbose #21016 > > path |> $'System.IO.Directory.CreateDirectory'
00:27:23 verbose #21017 > > | _ => fun () => null ()
00:27:24 verbose #21018 > >
00:27:24 verbose #21019 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:24 verbose #21020 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:24 verbose #21021 > > │ ### directory_get_files │
00:27:24 verbose #21022 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:24 verbose #21023 > >
00:27:24 verbose #21024 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:24 verbose #21025 > > inl directory_get_files (path : string) : array_base string =
00:27:24 verbose #21026 > > run_target function
00:27:24 verbose #21027 > > | Fsharp (Native) => fun () =>
00:27:24 verbose #21028 > > path |> $'System.IO.Directory.GetFiles'
00:27:24 verbose #21029 > > | _ => fun () => null ()
00:27:25 verbose #21030 > >
00:27:25 verbose #21031 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:25 verbose #21032 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:25 verbose #21033 > > │ ### file_move │
00:27:25 verbose #21034 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:25 verbose #21035 > >
00:27:25 verbose #21036 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:25 verbose #21037 > > inl file_move (new_path : string) (old_path : string) : () =
00:27:25 verbose #21038 > > run_target function
00:27:25 verbose #21039 > > | Fsharp (Native) => fun () =>
00:27:25 verbose #21040 > > $'System.IO.File.Move (!old_path, !new_path)'
00:27:25 verbose #21041 > > | _ => fun () => null ()
00:27:26 verbose #21042 > >
00:27:26 verbose #21043 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:26 verbose #21044 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:26 verbose #21045 > > │ ### read_all_text_async │
00:27:26 verbose #21046 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:26 verbose #21047 > >
00:27:26 verbose #21048 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:26 verbose #21049 > > inl read_all_text_async (path : string) : _ string =
00:27:26 verbose #21050 > > run_target function
00:27:26 verbose #21051 > > | Fsharp (Native) => fun () =>
00:27:26 verbose #21052 > > path |> $'System.IO.File.ReadAllTextAsync' |> async.await_task
00:27:26 verbose #21053 > > | _ => fun () => null ()
00:27:26 verbose #21054 > >
00:27:26 verbose #21055 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:26 verbose #21056 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:26 verbose #21057 > > │ ### write_all_text_async │
00:27:26 verbose #21058 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:26 verbose #21059 > >
00:27:26 verbose #21060 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:26 verbose #21061 > > inl write_all_text_async (path : string) (text : string) : _ () =
00:27:26 verbose #21062 > > run_target function
00:27:26 verbose #21063 > > | Fsharp (Native) => fun () =>
00:27:26 verbose #21064 > > $'System.IO.File.WriteAllTextAsync (!path, !text)' |>
00:27:26 verbose #21065 > > async.await_task
00:27:26 verbose #21066 > > | _ => fun () => null ()
00:27:27 verbose #21067 > >
00:27:27 verbose #21068 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:27 verbose #21069 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:27 verbose #21070 > > │ ### file_system_info │
00:27:27 verbose #21071 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:27 verbose #21072 > >
00:27:27 verbose #21073 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:27 verbose #21074 > > nominal file_system_info = $'System.IO.FileSystemInfo'
00:27:28 verbose #21075 > >
00:27:28 verbose #21076 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:28 verbose #21077 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:28 verbose #21078 > > │ ### get_source_directory │
00:27:28 verbose #21079 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:28 verbose #21080 > >
00:27:28 verbose #21081 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:28 verbose #21082 > > inl get_source_directory () =
00:27:28 verbose #21083 > > $'__SOURCE_DIRECTORY__' : string
00:27:29 verbose #21084 > >
00:27:29 verbose #21085 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:29 verbose #21086 > > //// test
00:27:29 verbose #21087 > >
00:27:29 verbose #21088 > > get_source_directory ()
00:27:29 verbose #21089 > > |> directory_info
00:27:29 verbose #21090 > > |> directory_info_name
00:27:29 verbose #21091 > > |> _assert_eq "spiral"
00:27:31 verbose #21092 > >
00:27:31 verbose #21093 > > ╭─[ 1.90s - stdout ]───────────────────────────────────────────────────────────╮
00:27:31 verbose #21094 > > │ assert_eq / actual: "spiral" / expected: "spiral" │
00:27:31 verbose #21095 > > │ │
00:27:31 verbose #21096 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:31 verbose #21097 > >
00:27:31 verbose #21098 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:31 verbose #21099 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:31 verbose #21100 > > │ ## rust │
00:27:31 verbose #21101 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:31 verbose #21102 > >
00:27:31 verbose #21103 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:31 verbose #21104 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:31 verbose #21105 > > │ ### display │
00:27:31 verbose #21106 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:31 verbose #21107 > >
00:27:31 verbose #21108 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:31 verbose #21109 > > nominal display = $'std_path_Display'
00:27:31 verbose #21110 > >
00:27:31 verbose #21111 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:31 verbose #21112 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:31 verbose #21113 > > │ ### path │
00:27:31 verbose #21114 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:31 verbose #21115 > >
00:27:31 verbose #21116 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:31 verbose #21117 > > nominal path = $'std_path_Path'
00:27:31 verbose #21118 > > nominal path = $'std_path_Path'
00:27:31 verbose #21119 > > nominal path_buf = $'std_path_PathBuf'
00:27:32 verbose #21120 > >
00:27:32 verbose #21121 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:32 verbose #21122 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:32 verbose #21123 > > │ ### new_path_buf │
00:27:32 verbose #21124 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:32 verbose #21125 > >
00:27:32 verbose #21126 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:32 verbose #21127 > > inl new_path_buf (path : sm'.std_string) : path_buf =
00:27:32 verbose #21128 > > open rust_operators
00:27:32 verbose #21129 > > !\\(path, $'"std::path::PathBuf::from($0)"')
00:27:33 verbose #21130 > >
00:27:33 verbose #21131 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:33 verbose #21132 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:33 verbose #21133 > > │ ### path_buf_from │
00:27:33 verbose #21134 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:33 verbose #21135 > >
00:27:33 verbose #21136 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:33 verbose #21137 > > inl path_buf_from (path : rust.box path) : path_buf =
00:27:33 verbose #21138 > > open rust_operators
00:27:33 verbose #21139 > > !\\(path, $'"std::path::PathBuf::from($0)"')
00:27:33 verbose #21140 > >
00:27:33 verbose #21141 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:33 verbose #21142 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:33 verbose #21143 > > │ ### path_buf_join │
00:27:33 verbose #21144 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:34 verbose #21145 > >
00:27:34 verbose #21146 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:34 verbose #21147 > > inl path_buf_join (s : string) (path_buf : path_buf) : path_buf =
00:27:34 verbose #21148 > > open rust_operators
00:27:34 verbose #21149 > > !\\((path_buf, s |> sm'.to_std_string), $'"$0.join($1)"')
00:27:34 verbose #21150 > >
00:27:34 verbose #21151 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:34 verbose #21152 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:34 verbose #21153 > > │ ### path_buf_strip_prefix │
00:27:34 verbose #21154 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:34 verbose #21155 > >
00:27:34 verbose #21156 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:34 verbose #21157 > > inl path_buf_strip_prefix (s : string) (path_buf : path_buf) : path_buf =
00:27:34 verbose #21158 > > open rust_operators
00:27:34 verbose #21159 > > !\\((path_buf, s |> sm'.to_std_string),
00:27:34 verbose #21160 > > $'"$0.strip_prefix($1).unwrap().to_path_buf()"')
00:27:35 verbose #21161 > >
00:27:35 verbose #21162 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:35 verbose #21163 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:35 verbose #21164 > > │ ### path_display │
00:27:35 verbose #21165 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:35 verbose #21166 > >
00:27:35 verbose #21167 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:35 verbose #21168 > > inl path_display (path : rust.ref' path) : display =
00:27:35 verbose #21169 > > open rust_operators
00:27:35 verbose #21170 > > !\\(path, $'"$0.display()"')
00:27:36 verbose #21171 > >
00:27:36 verbose #21172 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:36 verbose #21173 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:36 verbose #21174 > > │ ### path_buf_display │
00:27:36 verbose #21175 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:36 verbose #21176 > >
00:27:36 verbose #21177 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:36 verbose #21178 > > inl path_buf_display (path_buf : path_buf) : display =
00:27:36 verbose #21179 > > open rust_operators
00:27:36 verbose #21180 > > !\\(path_buf, $'"$0.display()"')
00:27:37 verbose #21181 > >
00:27:37 verbose #21182 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:37 verbose #21183 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:37 verbose #21184 > > │ ### path_buf_file_name │
00:27:37 verbose #21185 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:37 verbose #21186 > >
00:27:37 verbose #21187 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:37 verbose #21188 > > inl path_buf_file_name (path : path_buf) : optionm'.option' (rust.ref'
00:27:37 verbose #21189 > > sm'.os_str) =
00:27:37 verbose #21190 > > open rust_operators
00:27:37 verbose #21191 > > !\($'"!path.file_name()"')
00:27:38 verbose #21192 > >
00:27:38 verbose #21193 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:38 verbose #21194 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:38 verbose #21195 > > │ ### path_buf_exists │
00:27:38 verbose #21196 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:38 verbose #21197 > >
00:27:38 verbose #21198 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:38 verbose #21199 > > inl path_buf_exists (path_buf : path_buf) : bool =
00:27:38 verbose #21200 > > open rust_operators
00:27:38 verbose #21201 > > !\\(path_buf, $'"$0.exists()"')
00:27:39 verbose #21202 > >
00:27:39 verbose #21203 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:39 verbose #21204 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:39 verbose #21205 > > │ ### path_buf_is_dir │
00:27:39 verbose #21206 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:39 verbose #21207 > >
00:27:39 verbose #21208 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:39 verbose #21209 > > inl path_buf_is_dir (path_buf : path_buf) : bool =
00:27:39 verbose #21210 > > open rust_operators
00:27:39 verbose #21211 > > !\\(path_buf, $'"$0.is_dir()"')
00:27:39 verbose #21212 > >
00:27:39 verbose #21213 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:39 verbose #21214 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:39 verbose #21215 > > │ ### path_buf_is_file │
00:27:39 verbose #21216 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:39 verbose #21217 > >
00:27:39 verbose #21218 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:39 verbose #21219 > > inl path_buf_is_file (path_buf : path_buf) : bool =
00:27:39 verbose #21220 > > open rust_operators
00:27:39 verbose #21221 > > !\\(path_buf, $'"$0.is_file()"')
00:27:40 verbose #21222 > >
00:27:40 verbose #21223 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:40 verbose #21224 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:40 verbose #21225 > > │ ### path_buf_is_symlink │
00:27:40 verbose #21226 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:40 verbose #21227 > >
00:27:40 verbose #21228 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:40 verbose #21229 > > inl path_buf_is_symlink (path_buf : path_buf) : bool =
00:27:40 verbose #21230 > > open rust_operators
00:27:40 verbose #21231 > > !\\(path_buf, $'"$0.is_symlink()"')
00:27:41 verbose #21232 > >
00:27:41 verbose #21233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:41 verbose #21234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:41 verbose #21235 > > │ ### path_buf_parent │
00:27:41 verbose #21236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:41 verbose #21237 > >
00:27:41 verbose #21238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:41 verbose #21239 > > inl path_buf_parent (path_buf : path_buf) : optionm'.option' path_buf =
00:27:41 verbose #21240 > > open rust_operators
00:27:41 verbose #21241 > > !\\(path_buf, $'"$0.parent().map(std::path::PathBuf::from)"')
00:27:42 verbose #21242 > >
00:27:42 verbose #21243 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:42 verbose #21244 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:42 verbose #21245 > > │ ### dir_entry │
00:27:42 verbose #21246 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:42 verbose #21247 > >
00:27:42 verbose #21248 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:42 verbose #21249 > > nominal dir_entry = $'async_walkdir_DirEntry'
00:27:42 verbose #21250 > >
00:27:42 verbose #21251 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:42 verbose #21252 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:42 verbose #21253 > > │ ### walk_dir │
00:27:42 verbose #21254 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:42 verbose #21255 > >
00:27:42 verbose #21256 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:42 verbose #21257 > > nominal walk_dir = $'async_walkdir_WalkDir'
00:27:43 verbose #21258 > >
00:27:43 verbose #21259 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:43 verbose #21260 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:43 verbose #21261 > > │ ### async_walkdir_filtering │
00:27:43 verbose #21262 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:43 verbose #21263 > >
00:27:43 verbose #21264 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:43 verbose #21265 > > nominal async_walkdir_filtering = $'async_walkdir_Filtering'
00:27:44 verbose #21266 > >
00:27:44 verbose #21267 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:44 verbose #21268 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:44 verbose #21269 > > │ ### filtering │
00:27:44 verbose #21270 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:44 verbose #21271 > >
00:27:44 verbose #21272 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:44 verbose #21273 > > union filtering =
00:27:44 verbose #21274 > > | Ignore
00:27:44 verbose #21275 > > | IgnoreDir
00:27:44 verbose #21276 > > | Continue
00:27:45 verbose #21277 > >
00:27:45 verbose #21278 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:45 verbose #21279 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:45 verbose #21280 > > │ ### stream_filter_map │
00:27:45 verbose #21281 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:45 verbose #21282 > >
00:27:45 verbose #21283 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:45 verbose #21284 > > inl stream_filter_map forall t.
00:27:45 verbose #21285 > > (fn : resultm.result' dir_entry stream.io_error -> optionm'.option' t)
00:27:45 verbose #21286 > > (stream : walk_dir)
00:27:45 verbose #21287 > > : am'.vec t =
00:27:45 verbose #21288 > >
00:27:45 verbose #21289 > > inl fn = join fn
00:27:45 verbose #21290 > > inl result : am'.vec t =
00:27:45 verbose #21291 > >
00:27:45 verbose #21292 > > !\($'"tokio_stream::StreamExt::collect(tokio_stream::StreamExt::filter_map(!stre
00:27:45 verbose #21293 > > am, |x| !fn(x))).await"')
00:27:45 verbose #21294 > > result
00:27:46 verbose #21295 > >
00:27:46 verbose #21296 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:46 verbose #21297 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:46 verbose #21298 > > │ ### new_walk_dir │
00:27:46 verbose #21299 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:46 verbose #21300 > >
00:27:46 verbose #21301 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:46 verbose #21302 > > inl new_walk_dir (dir : string) : walk_dir =
00:27:46 verbose #21303 > > !\\(dir, $'"async_walkdir::WalkDir::new(&*$0)"')
00:27:46 verbose #21304 > > // inl walk_dir : walk_dir = walk_dir |> rust.to_mut
00:27:46 verbose #21305 > > // (!\($'"true; let mut !walk_dir = !walk_dir"') : bool) |> ignore
00:27:46 verbose #21306 > >
00:27:46 verbose #21307 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:46 verbose #21308 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:46 verbose #21309 > > │ ### walk_dir_filter │
00:27:46 verbose #21310 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:46 verbose #21311 > >
00:27:46 verbose #21312 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:46 verbose #21313 > > inl walk_dir_filter (fn : dir_entry -> async.future_pin_send filtering)
00:27:46 verbose #21314 > > (walk_dir : walk_dir) : walk_dir =
00:27:46 verbose #21315 > > inl fn entry = async.future_init_send (2, 1) 0 fun () =>
00:27:46 verbose #21316 > > inl result = fn entry |> async.await_send
00:27:46 verbose #21317 > > inl filtering : async_walkdir_filtering =
00:27:46 verbose #21318 > > match result with
00:27:46 verbose #21319 > > | Ignore => !\($'"async_walkdir::Filtering::Ignore"')
00:27:46 verbose #21320 > > | IgnoreDir => !\($'"async_walkdir::Filtering::IgnoreDir"')
00:27:46 verbose #21321 > > | Continue => !\($'"async_walkdir::Filtering::Continue"')
00:27:46 verbose #21322 > > filtering
00:27:46 verbose #21323 > > !\\((walk_dir, fn), $'"async_walkdir::WalkDir::filter($0, |x| $1(x))"')
00:27:47 verbose #21324 > >
00:27:47 verbose #21325 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:47 verbose #21326 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:47 verbose #21327 > > │ ### file_type │
00:27:47 verbose #21328 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:47 verbose #21329 > >
00:27:47 verbose #21330 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:47 verbose #21331 > > nominal file_type = $'std_fs_FileType'
00:27:48 verbose #21332 > >
00:27:48 verbose #21333 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:48 verbose #21334 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:48 verbose #21335 > > │ ### dir_entry_file_type │
00:27:48 verbose #21336 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:48 verbose #21337 > >
00:27:48 verbose #21338 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:48 verbose #21339 > > inl dir_entry_file_type (dir_entry : dir_entry) : async.future_pin_send
00:27:48 verbose #21340 > > (resultm.result' file_type stream.io_error) =
00:27:48 verbose #21341 > > inl dir_entry = join dir_entry
00:27:48 verbose #21342 > > !\($'"Box::pin(async_walkdir::DirEntry::file_type(&!dir_entry))"')
00:27:49 verbose #21343 > >
00:27:49 verbose #21344 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:49 verbose #21345 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:49 verbose #21346 > > │ ### file_type_is_dir │
00:27:49 verbose #21347 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:49 verbose #21348 > >
00:27:49 verbose #21349 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:49 verbose #21350 > > inl file_type_is_dir (file_type : file_type) : bool =
00:27:49 verbose #21351 > > inl file_type = join file_type
00:27:49 verbose #21352 > > !\($'"std::fs::FileType::is_dir(&!file_type)"')
00:27:49 verbose #21353 > >
00:27:49 verbose #21354 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:49 verbose #21355 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:49 verbose #21356 > > │ ### file │
00:27:49 verbose #21357 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:49 verbose #21358 > >
00:27:49 verbose #21359 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:49 verbose #21360 > > nominal file = $'std_fs_File'
00:27:50 verbose #21361 > >
00:27:50 verbose #21362 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:50 verbose #21363 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:50 verbose #21364 > > │ ### file_open │
00:27:50 verbose #21365 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:50 verbose #21366 > >
00:27:50 verbose #21367 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:50 verbose #21368 > > inl file_open (path : string) : resultm.result' file stream.io_error =
00:27:50 verbose #21369 > > !\($'"std::fs::File::open(&*!path)"')
00:27:51 verbose #21370 > >
00:27:51 verbose #21371 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:51 verbose #21372 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:51 verbose #21373 > > │ ### dir_entry_path │
00:27:51 verbose #21374 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:51 verbose #21375 > >
00:27:51 verbose #21376 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:51 verbose #21377 > > inl dir_entry_path (dir_entry : dir_entry) : path_buf =
00:27:51 verbose #21378 > > !\\(dir_entry, $'"async_walkdir::DirEntry::path(&$0)"')
00:27:52 verbose #21379 > >
00:27:52 verbose #21380 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:52 verbose #21381 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:52 verbose #21382 > > │ ### create_dir_all │
00:27:52 verbose #21383 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:52 verbose #21384 > >
00:27:52 verbose #21385 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:52 verbose #21386 > > inl create_dir_all (path : string) : resultm.result' () stream.io_error =
00:27:52 verbose #21387 > > !\\(path, $'"std::fs::create_dir_all(&*$0)"')
00:27:52 verbose #21388 > >
00:27:52 verbose #21389 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:52 verbose #21390 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:52 verbose #21391 > > │ ### read_link │
00:27:52 verbose #21392 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:52 verbose #21393 > >
00:27:52 verbose #21394 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:52 verbose #21395 > > inl read_link (path : string) : resultm.result' path_buf stream.io_error =
00:27:52 verbose #21396 > > open rust_operators
00:27:52 verbose #21397 > > !\\(path, $'"std::fs::read_link(&*$0)"')
00:27:53 verbose #21398 > >
00:27:53 verbose #21399 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:53 verbose #21400 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:53 verbose #21401 > > │ ## typescript │
00:27:53 verbose #21402 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:53 verbose #21403 > >
00:27:53 verbose #21404 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:53 verbose #21405 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:53 verbose #21406 > > │ ### ts_path_join │
00:27:53 verbose #21407 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:53 verbose #21408 > >
00:27:53 verbose #21409 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:53 verbose #21410 > > inl ts_path_join (b : string) (a : string) : string =
00:27:53 verbose #21411 > > open typescript_operators
00:27:53 verbose #21412 > > global "type IPathJoin = abstract join: [[<System.ParamArray>]] paths:
00:27:53 verbose #21413 > > string[[]] -> string"
00:27:53 verbose #21414 > > inl path : $'IPathJoin' = typescript.import_all "path"
00:27:53 verbose #21415 > > !\\((join a, join b), $'"!path.join($0, $1)"')
00:27:54 verbose #21416 > >
00:27:54 verbose #21417 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:54 verbose #21418 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:54 verbose #21419 > > │ ## file_system │
00:27:54 verbose #21420 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:54 verbose #21421 > >
00:27:54 verbose #21422 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:54 verbose #21423 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:54 verbose #21424 > > │ ### (< />) │
00:27:54 verbose #21425 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:54 verbose #21426 > >
00:27:54 verbose #21427 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:54 verbose #21428 > > let (</>) (a : string) (b : string) : string =
00:27:54 verbose #21429 > > run_target function
00:27:54 verbose #21430 > > | Rust (Contract) => fun () => null ()
00:27:54 verbose #21431 > > | Rust (Native) => fun () =>
00:27:54 verbose #21432 > > a
00:27:54 verbose #21433 > > |> sm'.to_std_string
00:27:54 verbose #21434 > > |> new_path_buf
00:27:54 verbose #21435 > > |> path_buf_join b
00:27:54 verbose #21436 > > |> path_buf_display
00:27:54 verbose #21437 > > |> sm'.format'
00:27:54 verbose #21438 > > |> sm'.from_std_string
00:27:54 verbose #21439 > > | TypeScript (Native) => fun () =>
00:27:54 verbose #21440 > > a |> ts_path_join b
00:27:54 verbose #21441 > > | Fsharp (Native) => fun () =>
00:27:54 verbose #21442 > > $'System.IO.Path.Combine (!a, !b)'
00:27:54 verbose #21443 > > | target => fun () => failwith $'$"file_system.(</>) / target: {!target}
00:27:54 verbose #21444 > > / a: {!a} / b: {!b}"'
00:27:55 verbose #21445 > >
00:27:55 verbose #21446 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:55 verbose #21447 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:55 verbose #21448 > > │ ### get_temp_path │
00:27:55 verbose #21449 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:55 verbose #21450 > >
00:27:55 verbose #21451 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:55 verbose #21452 > > let get_temp_path () : string =
00:27:55 verbose #21453 > > run_target function
00:27:55 verbose #21454 > > | Rust (Contract) => fun () => null ()
00:27:55 verbose #21455 > > | Rust (Native) => fun () =>
00:27:55 verbose #21456 > > open rust_operators
00:27:55 verbose #21457 > > !\($'"std::env::temp_dir()"')
00:27:55 verbose #21458 > > |> path_buf_display
00:27:55 verbose #21459 > > |> sm'.format'
00:27:55 verbose #21460 > > |> sm'.from_std_string
00:27:55 verbose #21461 > > | Fsharp (Native) => fun () =>
00:27:55 verbose #21462 > > $'System.IO.Path.GetTempPath' ()
00:27:55 verbose #21463 > > | target => fun () => failwith $'$"file_system.get_temp_path / target:
00:27:55 verbose #21464 > > {!target}"'
00:27:56 verbose #21465 > >
00:27:56 verbose #21466 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:56 verbose #21467 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:56 verbose #21468 > > │ ### get_file_name │
00:27:56 verbose #21469 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:56 verbose #21470 > >
00:27:56 verbose #21471 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:56 verbose #21472 > > let get_file_name (path : string) : string =
00:27:56 verbose #21473 > > run_target function
00:27:56 verbose #21474 > > | Rust (Contract) => fun () => null ()
00:27:56 verbose #21475 > > | Rust (Native) => fun () =>
00:27:56 verbose #21476 > > open rust_operators
00:27:56 verbose #21477 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:27:56 verbose #21478 > > !\\(path_buf, $'"$0.file_name()"')
00:27:56 verbose #21479 > > |> optionm'.unwrap
00:27:56 verbose #21480 > > |> sm'.from_os_str_ref
00:27:56 verbose #21481 > > | Fsharp (Native) => fun () =>
00:27:56 verbose #21482 > > path |> $'System.IO.Path.GetFileName'
00:27:56 verbose #21483 > > | target => fun () => failwith $'$"file_system.get_file_name / target:
00:27:56 verbose #21484 > > {!target} / path: {!path}"'
00:27:57 verbose #21485 > >
00:27:57 verbose #21486 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:57 verbose #21487 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:57 verbose #21488 > > │ ### get_file_name_without_extension │
00:27:57 verbose #21489 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:57 verbose #21490 > >
00:27:57 verbose #21491 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:57 verbose #21492 > > let get_file_name_without_extension (path : string) : string =
00:27:57 verbose #21493 > > run_target function
00:27:57 verbose #21494 > > | Rust (Contract) => fun () => null ()
00:27:57 verbose #21495 > > | Rust (Native) => fun () =>
00:27:57 verbose #21496 > > open rust_operators
00:27:57 verbose #21497 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:27:57 verbose #21498 > > !\\(path_buf, $'"$0.file_stem()"')
00:27:57 verbose #21499 > > |> optionm'.unwrap
00:27:57 verbose #21500 > > |> sm'.from_os_str_ref
00:27:57 verbose #21501 > > | _ => fun () =>
00:27:57 verbose #21502 > > path |> $'System.IO.Path.GetFileNameWithoutExtension'
00:27:57 verbose #21503 > >
00:27:57 verbose #21504 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:57 verbose #21505 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:57 verbose #21506 > > │ ### get_directory_name │
00:27:57 verbose #21507 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:57 verbose #21508 > >
00:27:57 verbose #21509 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:57 verbose #21510 > > let get_directory_name (path : string) : string =
00:27:57 verbose #21511 > > run_target function
00:27:57 verbose #21512 > > | Rust (Contract) => fun () => null ()
00:27:57 verbose #21513 > > | Rust (Native) => fun () =>
00:27:57 verbose #21514 > > open rust_operators
00:27:57 verbose #21515 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:27:57 verbose #21516 > > !\\(path_buf, $'"$0.parent()"')
00:27:57 verbose #21517 > > |> optionm'.unwrap
00:27:57 verbose #21518 > > |> path_display
00:27:57 verbose #21519 > > |> sm'.format'
00:27:57 verbose #21520 > > |> sm'.from_std_string
00:27:57 verbose #21521 > > | _ => fun () =>
00:27:57 verbose #21522 > > path |> $'System.IO.Path.GetDirectoryName'
00:27:58 verbose #21523 > >
00:27:58 verbose #21524 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:58 verbose #21525 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:58 verbose #21526 > > │ ### get_extension │
00:27:58 verbose #21527 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:58 verbose #21528 > >
00:27:58 verbose #21529 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:58 verbose #21530 > > let get_extension (path : string) : string =
00:27:58 verbose #21531 > > run_target function
00:27:58 verbose #21532 > > | Rust (Contract) => fun () => null ()
00:27:58 verbose #21533 > > | Rust (Native) => fun () =>
00:27:58 verbose #21534 > > open rust_operators
00:27:58 verbose #21535 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:27:58 verbose #21536 > > !\\(path_buf, $'"$0.extension()"')
00:27:58 verbose #21537 > > |> optionm'.unwrap
00:27:58 verbose #21538 > > |> sm'.from_os_str_ref
00:27:58 verbose #21539 > > | _ => fun () =>
00:27:58 verbose #21540 > > path |> $'System.IO.Path.GetExtension'
00:27:59 verbose #21541 > >
00:27:59 verbose #21542 > > ── markdown ────────────────────────────────────────────────────────────────────
00:27:59 verbose #21543 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:27:59 verbose #21544 > > │ ### directory_separator_char │
00:27:59 verbose #21545 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:27:59 verbose #21546 > >
00:27:59 verbose #21547 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:27:59 verbose #21548 > > let directory_separator_char () : char =
00:27:59 verbose #21549 > > run_target function
00:27:59 verbose #21550 > > | Rust (Native) => fun () =>
00:27:59 verbose #21551 > > open rust_operators
00:27:59 verbose #21552 > > !\($'"std::path::MAIN_SEPARATOR"')
00:27:59 verbose #21553 > > | _ => fun () =>
00:27:59 verbose #21554 > > $'System.IO.Path.DirectorySeparatorChar'
00:28:00 verbose #21555 > >
00:28:00 verbose #21556 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:00 verbose #21557 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:00 verbose #21558 > > │ ### get_current_directory │
00:28:00 verbose #21559 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:00 verbose #21560 > >
00:28:00 verbose #21561 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:00 verbose #21562 > > let get_current_directory () : string =
00:28:00 verbose #21563 > > run_target function
00:28:00 verbose #21564 > > | Rust (Contract | Wasm) => fun () => null ()
00:28:00 verbose #21565 > > | Rust (Native) => fun () =>
00:28:00 verbose #21566 > > open rust_operators
00:28:00 verbose #21567 > > inl current_dir = !\($'"std::env::current_dir()"') : resultm.result'
00:28:00 verbose #21568 > > path_buf stream.io_error
00:28:00 verbose #21569 > > current_dir
00:28:00 verbose #21570 > > |> resultm.unwrap'
00:28:00 verbose #21571 > > |> path_buf_display
00:28:00 verbose #21572 > > |> sm'.format'
00:28:00 verbose #21573 > > |> sm'.from_std_string
00:28:00 verbose #21574 > > | Fsharp (Native) => fun () =>
00:28:00 verbose #21575 > > $'System.IO.Directory.GetCurrentDirectory' ()
00:28:00 verbose #21576 > > | _ => fun () => null ()
00:28:00 verbose #21577 > >
00:28:00 verbose #21578 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:00 verbose #21579 > > //// test
00:28:00 verbose #21580 > >
00:28:00 verbose #21581 > > get_current_directory ()
00:28:00 verbose #21582 > > |> _assert_contains (directory_separator_char ())
00:28:02 verbose #21583 > >
00:28:02 verbose #21584 > > ╭─[ 1.43s - stdout ]───────────────────────────────────────────────────────────╮
00:28:02 verbose #21585 > > │ assert_contains / actual: "C:\home\git\polyglot\lib\spiral" / expected: '\\' │
00:28:02 verbose #21586 > > │ │
00:28:02 verbose #21587 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:02 verbose #21588 > >
00:28:02 verbose #21589 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:02 verbose #21590 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:02 verbose #21591 > > │ ### normalize_path │
00:28:02 verbose #21592 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:02 verbose #21593 > >
00:28:02 verbose #21594 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:02 verbose #21595 > > let normalize_path (path : string) : string =
00:28:02 verbose #21596 > > inl path = path |> sm'.replace_regex @"^\\\\\?\\" ""
00:28:02 verbose #21597 > > $'$"{!path.[[0]] |> string |> _.ToLower()}{!path.[[1..]]}"' |> sm'.replace
00:28:02 verbose #21598 > > "\\" "/"
00:28:03 verbose #21599 > >
00:28:03 verbose #21600 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:03 verbose #21601 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:03 verbose #21602 > > │ ### get_full_path │
00:28:03 verbose #21603 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:03 verbose #21604 > >
00:28:03 verbose #21605 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:03 verbose #21606 > > let get_full_path (path : string) : string =
00:28:03 verbose #21607 > > run_target function
00:28:03 verbose #21608 > > | Fsharp (Native) => fun () =>
00:28:03 verbose #21609 > > inl path = join path
00:28:03 verbose #21610 > > path |> $'System.IO.Path.GetFullPath'
00:28:03 verbose #21611 > > | Rust (Native) => fun () =>
00:28:03 verbose #21612 > > inl path = join path
00:28:03 verbose #21613 > > open rust_operators
00:28:03 verbose #21614 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:28:03 verbose #21615 > > if path_buf |> path_buf_exists |> not then
00:28:03 verbose #21616 > > inl current_dir = get_current_directory ()
00:28:03 verbose #21617 > > current_dir </> path
00:28:03 verbose #21618 > > |> normalize_path
00:28:03 verbose #21619 > > |> sm'.split "/"
00:28:03 verbose #21620 > > |> fun x =>
00:28:03 verbose #21621 > > ((a x : _ i32 _), (0i32, (a ;[[]] : _ i32 _)))
00:28:03 verbose #21622 > > ||> am.foldBack fun x level, acc =>
00:28:03 verbose #21623 > > match x, level with
00:28:03 verbose #21624 > > | "..", _ => level + 1, acc
00:28:03 verbose #21625 > > | ".", _ => level, acc
00:28:03 verbose #21626 > > | _, 0 when x |> sm'.ends_with ":" => 0, a ;[[
00:28:03 verbose #21627 > > $'$"{!current_dir.[[0]]}:"' ]] ++ acc
00:28:03 verbose #21628 > > | _, 0 => 0, a ;[[ x ]] ++ acc
00:28:03 verbose #21629 > > | _ => level - 1, acc
00:28:03 verbose #21630 > > |> snd
00:28:03 verbose #21631 > > |> seq.of_array'
00:28:03 verbose #21632 > > |> sm'.concat (directory_separator_char () |> sm'.obj_to_string)
00:28:03 verbose #21633 > > else
00:28:03 verbose #21634 > > inl path = !\\(path, $'"std::fs::canonicalize(&*$0)"') :
00:28:03 verbose #21635 > > resultm.result' path_buf stream.io_error
00:28:03 verbose #21636 > > path
00:28:03 verbose #21637 > > |> resultm.unwrap'
00:28:03 verbose #21638 > > |> path_buf_display
00:28:03 verbose #21639 > > |> sm'.format'
00:28:03 verbose #21640 > > |> sm'.from_std_string
00:28:03 verbose #21641 > > | _ => fun () => null ()
00:28:03 verbose #21642 > >
00:28:03 verbose #21643 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:03 verbose #21644 > > //// test
00:28:03 verbose #21645 > >
00:28:03 verbose #21646 > > "."
00:28:03 verbose #21647 > > |> get_full_path
00:28:03 verbose #21648 > > |> directory_info
00:28:03 verbose #21649 > > |> directory_info_name
00:28:03 verbose #21650 > > |> _assert_eq "spiral"
00:28:05 verbose #21651 > >
00:28:05 verbose #21652 > > ╭─[ 1.12s - stdout ]───────────────────────────────────────────────────────────╮
00:28:05 verbose #21653 > > │ assert_eq / actual: "spiral" / expected: "spiral" │
00:28:05 verbose #21654 > > │ │
00:28:05 verbose #21655 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:05 verbose #21656 > >
00:28:05 verbose #21657 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:05 verbose #21658 > > //// test
00:28:05 verbose #21659 > >
00:28:05 verbose #21660 > > "dir/.././._file"
00:28:05 verbose #21661 > > |> get_full_path
00:28:05 verbose #21662 > > |> _assert_eq (get_current_directory () </> "._file")
00:28:06 verbose #21663 > >
00:28:06 verbose #21664 > > ╭─[ 963.65ms - stdout ]────────────────────────────────────────────────────────╮
00:28:06 verbose #21665 > > │ assert_eq / actual: "C:\home\git\polyglot\lib\spiral\._file" / expected: │
00:28:06 verbose #21666 > > │ "C:\home\git\polyglot\lib\spiral\._file" │
00:28:06 verbose #21667 > > │ │
00:28:06 verbose #21668 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:06 verbose #21669 > >
00:28:06 verbose #21670 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:06 verbose #21671 > > //// test
00:28:06 verbose #21672 > > ///! rust -d regex
00:28:06 verbose #21673 > >
00:28:06 verbose #21674 > > types ()
00:28:06 verbose #21675 > > "."
00:28:06 verbose #21676 > > |> get_full_path
00:28:06 verbose #21677 > > |> sm'.to_std_string
00:28:06 verbose #21678 > > |> new_path_buf
00:28:06 verbose #21679 > > |> path_buf_file_name
00:28:06 verbose #21680 > > |> optionm'.unwrap
00:28:06 verbose #21681 > > |> sm'.from_os_str_ref
00:28:06 verbose #21682 > > |> _assert_eq "spiral"
00:28:16 verbose #21683 > >
00:28:16 verbose #21684 > > ╭─[ 10.69s - return value ]────────────────────────────────────────────────────╮
00:28:16 verbose #21685 > > │ assert_eq / actual: "spiral" / expected: "spiral" │
00:28:16 verbose #21686 > > │ │
00:28:16 verbose #21687 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:16 verbose #21688 > >
00:28:16 verbose #21689 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:16 verbose #21690 > > //// test
00:28:16 verbose #21691 > > ///! rust -d regex
00:28:16 verbose #21692 > >
00:28:16 verbose #21693 > > types ()
00:28:16 verbose #21694 > > "dir/.././._file"
00:28:16 verbose #21695 > > |> get_full_path
00:28:16 verbose #21696 > > |> _assert_eq (get_current_directory () </> "._file")
00:28:29 verbose #21697 > >
00:28:29 verbose #21698 > > ╭─[ 12.51s - return value ]────────────────────────────────────────────────────╮
00:28:29 verbose #21699 > > │ assert_eq / actual: "C:\home\git\polyglot\lib\spiral\._file" / expected: │
00:28:29 verbose #21700 > > │ "C:\home\git\polyglot\lib\spiral\._file" │
00:28:29 verbose #21701 > > │ │
00:28:29 verbose #21702 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:29 verbose #21703 > >
00:28:29 verbose #21704 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:29 verbose #21705 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:29 verbose #21706 > > │ ### create_temp_path' │
00:28:29 verbose #21707 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:29 verbose #21708 > >
00:28:29 verbose #21709 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:29 verbose #21710 > > let create_temp_path' (guid : guid.guid) =
00:28:29 verbose #21711 > > run_target function
00:28:29 verbose #21712 > > | Rust (Contract) => fun () => null ()
00:28:29 verbose #21713 > > | _ => fun () =>
00:28:29 verbose #21714 > > get_temp_path ()
00:28:29 verbose #21715 > > </> (join "!create_temp_path_")
00:28:29 verbose #21716 > > </> (env.get_entry_assembly_name ())
00:28:29 verbose #21717 > > </> (guid |> sm'.obj_to_string)
00:28:30 verbose #21718 > >
00:28:30 verbose #21719 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:30 verbose #21720 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:30 verbose #21721 > > │ ### create_temp_path │
00:28:30 verbose #21722 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:30 verbose #21723 > >
00:28:30 verbose #21724 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:30 verbose #21725 > > let create_temp_path () =
00:28:30 verbose #21726 > > run_target function
00:28:30 verbose #21727 > > | Rust (Contract) => fun () => null ()
00:28:30 verbose #21728 > > | _ => fun () =>
00:28:30 verbose #21729 > > date_time.now ()
00:28:30 verbose #21730 > > |> date_time.new_guid_from_date_time
00:28:30 verbose #21731 > > |> create_temp_path'
00:28:31 verbose #21732 > >
00:28:31 verbose #21733 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:31 verbose #21734 > > //// test
00:28:31 verbose #21735 > > ///! fsharp
00:28:31 verbose #21736 > > ///! rust -d chrono
00:28:31 verbose #21737 > >
00:28:31 verbose #21738 > > types ()
00:28:31 verbose #21739 > > create_temp_path ()
00:28:31 verbose #21740 > > |> _assert_contains (directory_separator_char ())
00:28:37 verbose #21741 > >
00:28:37 verbose #21742 > > ╭─[ 6.20s - return value ]─────────────────────────────────────────────────────╮
00:28:37 verbose #21743 > > │ .rs output: │
00:28:37 verbose #21744 > > │ assert_contains / actual: │
00:28:37 verbose #21745 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_40b9719 │
00:28:37 verbose #21746 > > │ 7de9408f1f6aa71c856c642373eda8d0dd6ca3ca61d4c0ad2a3bbb416\20240608-2353-2835 │
00:28:37 verbose #21747 > > │ -1373-000000120956" / expected: '\\' │
00:28:37 verbose #21748 > > │ │
00:28:37 verbose #21749 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:37 verbose #21750 > >
00:28:37 verbose #21751 > > ╭─[ 6.21s - stdout ]───────────────────────────────────────────────────────────╮
00:28:37 verbose #21752 > > │ .fsx output: │
00:28:37 verbose #21753 > > │ assert_contains / actual: │
00:28:37 verbose #21754 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\20240608-2 │
00:28:37 verbose #21755 > > │ 353-2895-9546-900400fa3e80" / expected: '\\' │
00:28:37 verbose #21756 > > │ │
00:28:37 verbose #21757 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:37 verbose #21758 > >
00:28:37 verbose #21759 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:37 verbose #21760 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:37 verbose #21761 > > │ ### directory_exists │
00:28:37 verbose #21762 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:37 verbose #21763 > >
00:28:37 verbose #21764 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:37 verbose #21765 > > let directory_exists (path : string) : bool =
00:28:37 verbose #21766 > > run_target function
00:28:37 verbose #21767 > > | Fsharp (Native) => fun () =>
00:28:37 verbose #21768 > > path |> $'System.IO.Directory.Exists'
00:28:37 verbose #21769 > > | Rust (Native) => fun () =>
00:28:37 verbose #21770 > > inl path = path |> sm'.to_std_string |> new_path_buf
00:28:37 verbose #21771 > > path_buf_exists path || path_buf_is_dir path || path_buf_is_symlink
00:28:37 verbose #21772 > > path
00:28:37 verbose #21773 > > | TypeScript (Native) => fun () =>
00:28:37 verbose #21774 > > global "type IFsExistsSync = abstract existsSync: path: string ->
00:28:37 verbose #21775 > > bool"
00:28:37 verbose #21776 > > open typescript_operators
00:28:37 verbose #21777 > > inl fs : $'IFsExistsSync' = typescript.import_all "fs"
00:28:37 verbose #21778 > > !\\((fs, path), $'"$0.existsSync($1)"')
00:28:37 verbose #21779 > > | _ => fun () => null ()
00:28:38 verbose #21780 > >
00:28:38 verbose #21781 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:38 verbose #21782 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:38 verbose #21783 > > │ ### directory_get_parent │
00:28:38 verbose #21784 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:38 verbose #21785 > >
00:28:38 verbose #21786 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:38 verbose #21787 > > let directory_get_parent (path : string) : optionm'.option' string =
00:28:38 verbose #21788 > > run_target function
00:28:38 verbose #21789 > > | Fsharp (Native) => fun () =>
00:28:38 verbose #21790 > > inl parent : directory_info = path |>
00:28:38 verbose #21791 > > $'System.IO.Directory.GetParent'
00:28:38 verbose #21792 > > if parent =. null ()
00:28:38 verbose #21793 > > then None
00:28:38 verbose #21794 > > else parent |> directory_info_full_name |> Some
00:28:38 verbose #21795 > > | Rust (Native) => fun () =>
00:28:38 verbose #21796 > > path
00:28:38 verbose #21797 > > |> sm'.to_std_string
00:28:38 verbose #21798 > > |> new_path_buf
00:28:38 verbose #21799 > > |> path_buf_parent
00:28:38 verbose #21800 > > |> optionm'.try'
00:28:38 verbose #21801 > > |> path_buf_display
00:28:38 verbose #21802 > > |> sm'.format'
00:28:38 verbose #21803 > > |> sm'.from_std_string
00:28:38 verbose #21804 > > |> Some
00:28:38 verbose #21805 > > | TypeScript _ => fun () =>
00:28:38 verbose #21806 > > open typescript_operators
00:28:38 verbose #21807 > > global "type IPathDirname = abstract dirname: path: string ->
00:28:38 verbose #21808 > > string"
00:28:38 verbose #21809 > > inl fs : $'IPathDirname' = typescript.import_all "path"
00:28:38 verbose #21810 > > !\\(path, $'"!fs.dirname($0)"') |> Some
00:28:38 verbose #21811 > > | _ => fun () => null ()
00:28:38 verbose #21812 > > |> optionm'.box
00:28:38 verbose #21813 > >
00:28:38 verbose #21814 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:38 verbose #21815 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:38 verbose #21816 > > │ ### file_copy │
00:28:38 verbose #21817 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:38 verbose #21818 > >
00:28:38 verbose #21819 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:38 verbose #21820 > > let file_copy (new_path : string) (old_path : string) : () =
00:28:38 verbose #21821 > > run_target function
00:28:38 verbose #21822 > > | Fsharp (Native) => fun () =>
00:28:38 verbose #21823 > > $'System.IO.File.Copy (!old_path, !new_path, true)'
00:28:38 verbose #21824 > > | Rust (Native) => fun () =>
00:28:38 verbose #21825 > > open rust_operators
00:28:38 verbose #21826 > > inl new_path = join new_path
00:28:38 verbose #21827 > > !\\(old_path, $'"std::fs::copy(&*$0, &*!new_path)"')
00:28:38 verbose #21828 > > |> fun x => x : _ u64 stream.io_error
00:28:38 verbose #21829 > > |> resultm.unwrap'
00:28:38 verbose #21830 > > |> ignore
00:28:38 verbose #21831 > > | _ => fun () => null ()
00:28:39 verbose #21832 > >
00:28:39 verbose #21833 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:39 verbose #21834 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:39 verbose #21835 > > │ ### file_exists │
00:28:39 verbose #21836 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:39 verbose #21837 > >
00:28:39 verbose #21838 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:39 verbose #21839 > > let file_exists (path : string) : bool =
00:28:39 verbose #21840 > > run_target function
00:28:39 verbose #21841 > > | Fsharp (Native) => fun () =>
00:28:39 verbose #21842 > > path |> $'System.IO.File.Exists'
00:28:39 verbose #21843 > > | Rust (Native) => fun () =>
00:28:39 verbose #21844 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:28:39 verbose #21845 > > path_buf_exists path_buf && path_buf_is_file path_buf
00:28:39 verbose #21846 > > | TypeScript (Native) => fun () =>
00:28:39 verbose #21847 > > open typescript_operators
00:28:39 verbose #21848 > > global "type IFsExistsSync = abstract existsSync: path: string ->
00:28:39 verbose #21849 > > bool"
00:28:39 verbose #21850 > > inl fs : $'IFsExistsSync' = typescript.import_all "fs"
00:28:39 verbose #21851 > > !\\((fs, path), $'"$0.existsSync($1)"')
00:28:39 verbose #21852 > > | _ => fun () => null ()
00:28:40 verbose #21853 > >
00:28:40 verbose #21854 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:40 verbose #21855 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:40 verbose #21856 > > │ ### directory_delete │
00:28:40 verbose #21857 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:40 verbose #21858 > >
00:28:40 verbose #21859 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:40 verbose #21860 > > let directory_delete recursive (path : string) : () =
00:28:40 verbose #21861 > > run_target function
00:28:40 verbose #21862 > > | Fsharp (Native) => fun () =>
00:28:40 verbose #21863 > > $'System.IO.Directory.Delete (!path, !recursive)'
00:28:40 verbose #21864 > > | Rust (Native) => fun () =>
00:28:40 verbose #21865 > > inl path = join path
00:28:40 verbose #21866 > > if path |> directory_exists then
00:28:40 verbose #21867 > > open rust_operators
00:28:40 verbose #21868 > > if recursive
00:28:40 verbose #21869 > > then !\\(path, $'"std::fs::remove_dir_all(&*$0).unwrap()"')
00:28:40 verbose #21870 > > else !\\(path, $'"std::fs::remove_dir(&*$0).unwrap()"')
00:28:40 verbose #21871 > > | _ => fun () => null ()
00:28:41 verbose #21872 > >
00:28:41 verbose #21873 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:41 verbose #21874 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:41 verbose #21875 > > │ ### write_all_text │
00:28:41 verbose #21876 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:41 verbose #21877 > >
00:28:41 verbose #21878 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:41 verbose #21879 > > inl write_all_text (path : string) (text : string) : () =
00:28:41 verbose #21880 > > run_target function
00:28:41 verbose #21881 > > | Fsharp (Native) => fun () =>
00:28:41 verbose #21882 > > inl text = join text
00:28:41 verbose #21883 > > $'System.IO.File.WriteAllText (!path, !text)'
00:28:41 verbose #21884 > > | Rust (Native) => fun () =>
00:28:41 verbose #21885 > > open rust_operators
00:28:41 verbose #21886 > > !\\((path, text), $'"std::fs::write(&*$0, &*$1).unwrap()"')
00:28:41 verbose #21887 > > | _ => fun () => null ()
00:28:42 verbose #21888 > >
00:28:42 verbose #21889 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:42 verbose #21890 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:42 verbose #21891 > > │ ### read_all_bytes │
00:28:42 verbose #21892 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:42 verbose #21893 > >
00:28:42 verbose #21894 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:42 verbose #21895 > > inl read_all_bytes (path : string) : am'.vec u8 =
00:28:42 verbose #21896 > > run_target function
00:28:42 verbose #21897 > > | Fsharp (Native) => fun () =>
00:28:42 verbose #21898 > > $'!path |> System.IO.File.ReadAllBytes'
00:28:42 verbose #21899 > > |> am'.to_vec
00:28:42 verbose #21900 > > | Rust (Native) => fun () =>
00:28:42 verbose #21901 > > open rust_operators
00:28:42 verbose #21902 > > !\\(path, $'"std::fs::read(&*$0).unwrap()"')
00:28:42 verbose #21903 > > | _ => fun () => null ()
00:28:42 verbose #21904 > >
00:28:42 verbose #21905 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:42 verbose #21906 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:42 verbose #21907 > > │ ### read_all_text │
00:28:42 verbose #21908 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:42 verbose #21909 > >
00:28:42 verbose #21910 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:42 verbose #21911 > > inl read_all_text (path : string) : string =
00:28:42 verbose #21912 > > run_target function
00:28:42 verbose #21913 > > | Fsharp (Native) => fun () =>
00:28:42 verbose #21914 > > $'!path |> System.IO.File.ReadAllText'
00:28:42 verbose #21915 > > | Rust (Native) => fun () =>
00:28:42 verbose #21916 > > path
00:28:42 verbose #21917 > > |> read_all_bytes
00:28:42 verbose #21918 > > |> sm'.string_from_utf8
00:28:42 verbose #21919 > > |> resultm.unwrap'
00:28:42 verbose #21920 > > |> sm'.from_std_string
00:28:42 verbose #21921 > > | _ => fun () => null ()
00:28:43 verbose #21922 > >
00:28:43 verbose #21923 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:43 verbose #21924 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:43 verbose #21925 > > │ ### directory_create_symbolic_link │
00:28:43 verbose #21926 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:43 verbose #21927 > >
00:28:43 verbose #21928 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:43 verbose #21929 > > inl directory_create_symbolic_link (target : string) (path : string) : () =
00:28:43 verbose #21930 > > run_target function
00:28:43 verbose #21931 > > | Fsharp (Native) => fun () =>
00:28:43 verbose #21932 > > ($'System.IO.Directory.CreateSymbolicLink (!path, !target)' :
00:28:43 verbose #21933 > > file_system_info)
00:28:43 verbose #21934 > > |> ignore
00:28:43 verbose #21935 > > | Rust (Native) => fun () =>
00:28:43 verbose #21936 > > open rust_operators
00:28:43 verbose #21937 > > platform.run_platform function
00:28:43 verbose #21938 > > | Windows => fun () => !\\((target, path),
00:28:43 verbose #21939 > > $'"std::os::windows::fs::symlink_dir(&*$0, &*$1).unwrap()"')
00:28:43 verbose #21940 > > | _ => fun () => !\\((target, path),
00:28:43 verbose #21941 > > $'"std::os::unix::fs::symlink(&*$0, &*$1).unwrap()"')
00:28:43 verbose #21942 > > | _ => fun () => null ()
00:28:44 verbose #21943 > >
00:28:44 verbose #21944 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:44 verbose #21945 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:44 verbose #21946 > > │ ### find_parent │
00:28:44 verbose #21947 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:44 verbose #21948 > >
00:28:44 verbose #21949 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:44 verbose #21950 > > inl find_parent name is_file root_dir =
00:28:44 verbose #21951 > > let rec loop dir =
00:28:44 verbose #21952 > > if dir </> name |> (if is_file then file_exists else directory_exists)
00:28:44 verbose #21953 > > then dir |> Ok
00:28:44 verbose #21954 > > else
00:28:44 verbose #21955 > > inl result = dir |> (join directory_get_parent)
00:28:44 verbose #21956 > > match result |> optionm'.unbox with
00:28:44 verbose #21957 > > | Some parent => parent |> loop
00:28:44 verbose #21958 > > | None => ($'$"""No parent for {if !is_file then "file" else "dir"}
00:28:44 verbose #21959 > > \'{!name}\' at \'{!root_dir}\' (until \'{!dir}\')"""' : string) |> Error
00:28:44 verbose #21960 > > loop root_dir
00:28:45 verbose #21961 > >
00:28:45 verbose #21962 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:45 verbose #21963 > > //// test
00:28:45 verbose #21964 > >
00:28:45 verbose #21965 > > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:28:45 verbose #21966 > > |> am.map fun (file, is_file) =>
00:28:45 verbose #21967 > > get_source_directory ()
00:28:45 verbose #21968 > > |> find_parent file is_file
00:28:45 verbose #21969 > > |> resultm.get
00:28:45 verbose #21970 > > |> directory_info
00:28:45 verbose #21971 > > |> directory_info_name
00:28:45 verbose #21972 > > |> am'.distinct
00:28:45 verbose #21973 > > |> _assert_eq (a ;[[ "polyglot" ]] : _ i32 _)
00:28:46 verbose #21974 > >
00:28:46 verbose #21975 > > ╭─[ 1.11s - stdout ]───────────────────────────────────────────────────────────╮
00:28:46 verbose #21976 > > │ assert_eq / actual: [|"polyglot"|] / expected: [|"polyglot"|] │
00:28:46 verbose #21977 > > │ │
00:28:46 verbose #21978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:46 verbose #21979 > >
00:28:46 verbose #21980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:46 verbose #21981 > > //// test
00:28:46 verbose #21982 > > ///! rust
00:28:46 verbose #21983 > >
00:28:46 verbose #21984 > > types ()
00:28:46 verbose #21985 > > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:28:46 verbose #21986 > > |> am.map fun (file, is_file) =>
00:28:46 verbose #21987 > > fun () =>
00:28:46 verbose #21988 > > join
00:28:46 verbose #21989 > > get_source_directory ()
00:28:46 verbose #21990 > > |> find_parent file is_file
00:28:46 verbose #21991 > > |> resultm.get
00:28:46 verbose #21992 > > |> sm'.to_std_string
00:28:46 verbose #21993 > > |> new_path_buf
00:28:46 verbose #21994 > > |> path_buf_file_name
00:28:46 verbose #21995 > > |> optionm'.try'
00:28:46 verbose #21996 > > |> sm'.from_os_str_ref
00:28:46 verbose #21997 > > |> Some
00:28:46 verbose #21998 > > |> optionm'.box
00:28:46 verbose #21999 > > |> fun x => x () |> optionm'.unbox
00:28:46 verbose #22000 > > |> optionm'.default_value ""
00:28:46 verbose #22001 > > |> am'.distinct
00:28:46 verbose #22002 > > |> fun result =>
00:28:46 verbose #22003 > > result |> am'.length |> _assert_eq 1i32
00:28:46 verbose #22004 > > index result 0i32 |> _assert_eq "polyglot"
00:28:52 verbose #22005 > >
00:28:52 verbose #22006 > > ╭─[ 6.21s - return value ]─────────────────────────────────────────────────────╮
00:28:52 verbose #22007 > > │ assert_eq / actual: 1 / expected: 1 │
00:28:52 verbose #22008 > > │ assert_eq / actual: "polyglot" / expected: "polyglot" │
00:28:52 verbose #22009 > > │ │
00:28:52 verbose #22010 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:52 verbose #22011 > >
00:28:52 verbose #22012 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:52 verbose #22013 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:52 verbose #22014 > > │ ### get_workspace_root │
00:28:52 verbose #22015 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:52 verbose #22016 > >
00:28:52 verbose #22017 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:52 verbose #22018 > > inl get_workspace_root () =
00:28:52 verbose #22019 > > (None, [[ get_source_directory; get_current_directory ]])
00:28:52 verbose #22020 > > ||> listm.fold fun acc path =>
00:28:52 verbose #22021 > > match acc with
00:28:52 verbose #22022 > > | Some path => Some path
00:28:52 verbose #22023 > > | None =>
00:28:52 verbose #22024 > > path ()
00:28:52 verbose #22025 > > |> find_parent ("polyglot" </> ".paket") false
00:28:52 verbose #22026 > > |> function
00:28:52 verbose #22027 > > | Ok path => Some path
00:28:52 verbose #22028 > > | Error error =>
00:28:52 verbose #22029 > > trace Warning
00:28:52 verbose #22030 > > fun () => "file_system.get_workspace_root"
00:28:52 verbose #22031 > > fun () => $'$"error: {!error} / {!_locals ()}"'
00:28:52 verbose #22032 > > None
00:28:52 verbose #22033 > > |> optionm.value
00:28:52 verbose #22034 > > |> fun root => root </> "polyglot"
00:28:53 verbose #22035 > >
00:28:53 verbose #22036 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:53 verbose #22037 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:53 verbose #22038 > > │ ### get_workspace_root_external │
00:28:53 verbose #22039 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:53 verbose #22040 > >
00:28:53 verbose #22041 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:53 verbose #22042 > > inl get_workspace_root_external () =
00:28:53 verbose #22043 > > inl workspace_root = get_workspace_root ()
00:28:53 verbose #22044 > > inl current_dir = get_current_directory () |> sm'.to_lower
00:28:53 verbose #22045 > > inl workspace_root = workspace_root |> sm'.to_lower
00:28:53 verbose #22046 > > if current_dir |> sm'.starts_with workspace_root
00:28:53 verbose #22047 > > then Error workspace_root
00:28:53 verbose #22048 > > else Ok workspace_root
00:28:54 verbose #22049 > >
00:28:54 verbose #22050 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:54 verbose #22051 > > //// test
00:28:54 verbose #22052 > >
00:28:54 verbose #22053 > > get_workspace_root_external ()
00:28:54 verbose #22054 > > |> resultm.unwrap_err
00:28:54 verbose #22055 > > |> get_file_name
00:28:54 verbose #22056 > > |> _assert_eq "polyglot"
00:28:56 verbose #22057 > >
00:28:56 verbose #22058 > > ╭─[ 1.98s - stdout ]───────────────────────────────────────────────────────────╮
00:28:56 verbose #22059 > > │ assert_eq / actual: "polyglot" / expected: "polyglot" │
00:28:56 verbose #22060 > > │ │
00:28:56 verbose #22061 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:56 verbose #22062 > >
00:28:56 verbose #22063 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:56 verbose #22064 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:56 verbose #22065 > > │ ### standardize_path │
00:28:56 verbose #22066 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:56 verbose #22067 > >
00:28:56 verbose #22068 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:56 verbose #22069 > > let standardize_path path =
00:28:56 verbose #22070 > > path |> get_full_path |> normalize_path
00:28:57 verbose #22071 > >
00:28:57 verbose #22072 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:57 verbose #22073 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:57 verbose #22074 > > │ ### absolute_path │
00:28:57 verbose #22075 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:57 verbose #22076 > >
00:28:57 verbose #22077 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:57 verbose #22078 > > let absolute_path path =
00:28:57 verbose #22079 > > inl current_dir = get_current_directory ()
00:28:57 verbose #22080 > > current_dir </> path |> standardize_path
00:28:58 verbose #22081 > >
00:28:58 verbose #22082 > > ── markdown ────────────────────────────────────────────────────────────────────
00:28:58 verbose #22083 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:28:58 verbose #22084 > > │ ### new_file_uri │
00:28:58 verbose #22085 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:58 verbose #22086 > >
00:28:58 verbose #22087 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:58 verbose #22088 > > inl new_file_uri (path : string) : string =
00:28:58 verbose #22089 > > inl path = path |> sm'.trim_start ;[[ '/' ]]
00:28:58 verbose #22090 > > $'$"file:///{!path}"'
00:28:58 verbose #22091 > >
00:28:58 verbose #22092 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:58 verbose #22093 > > //// test
00:28:58 verbose #22094 > >
00:28:58 verbose #22095 > > @"\\?\C:\test"
00:28:58 verbose #22096 > > |> normalize_path
00:28:58 verbose #22097 > > |> new_file_uri
00:28:58 verbose #22098 > > |> _assert_eq "file:///c:/test"
00:28:59 verbose #22099 > >
00:28:59 verbose #22100 > > ╭─[ 784.34ms - stdout ]────────────────────────────────────────────────────────╮
00:28:59 verbose #22101 > > │ assert_eq / actual: "file:///c:/test" / expected: "file:///c:/test" │
00:28:59 verbose #22102 > > │ │
00:28:59 verbose #22103 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:28:59 verbose #22104 > >
00:28:59 verbose #22105 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:28:59 verbose #22106 > > //// test
00:28:59 verbose #22107 > > ///! rust -d regex
00:28:59 verbose #22108 > >
00:28:59 verbose #22109 > > types ()
00:28:59 verbose #22110 > > @"\\?\C:\test"
00:28:59 verbose #22111 > > |> normalize_path
00:28:59 verbose #22112 > > |> new_file_uri
00:28:59 verbose #22113 > > |> _assert_eq "file:///c:/test"
00:29:05 verbose #22114 > >
00:29:05 verbose #22115 > > ╭─[ 5.49s - return value ]─────────────────────────────────────────────────────╮
00:29:05 verbose #22116 > > │ assert_eq / actual: "file:///c:/test" / expected: "file:///c:/test" │
00:29:05 verbose #22117 > > │ │
00:29:05 verbose #22118 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:05 verbose #22119 > >
00:29:05 verbose #22120 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:05 verbose #22121 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:05 verbose #22122 > > │ ### file_delete │
00:29:05 verbose #22123 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:05 verbose #22124 > >
00:29:05 verbose #22125 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:05 verbose #22126 > > inl file_delete (path : string) : () =
00:29:05 verbose #22127 > > run_target function
00:29:05 verbose #22128 > > | Fsharp (Native) => fun () =>
00:29:05 verbose #22129 > > path |> $'System.IO.File.Delete'
00:29:05 verbose #22130 > > | Rust (Native) => fun () =>
00:29:05 verbose #22131 > > open rust_operators
00:29:05 verbose #22132 > > !\\(path, $'"std::fs::remove_file(&*$0).unwrap()"')
00:29:05 verbose #22133 > > | _ => fun () => null ()
00:29:06 verbose #22134 > >
00:29:06 verbose #22135 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:06 verbose #22136 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:06 verbose #22137 > > │ ## rust │
00:29:06 verbose #22138 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:06 verbose #22139 > >
00:29:06 verbose #22140 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:06 verbose #22141 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:06 verbose #22142 > > │ ### file_exists_content │
00:29:06 verbose #22143 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:06 verbose #22144 > >
00:29:06 verbose #22145 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:06 verbose #22146 > > let file_exists_content path content : bool =
00:29:06 verbose #22147 > > run_target function
00:29:06 verbose #22148 > > | Rust (Native) => fun () =>
00:29:06 verbose #22149 > > if path |> file_exists |> not
00:29:06 verbose #22150 > > then false
00:29:06 verbose #22151 > > else
00:29:06 verbose #22152 > > inl existing_content = path |> read_all_text
00:29:06 verbose #22153 > > content = existing_content
00:29:06 verbose #22154 > > | _ => fun () => null ()
00:29:06 verbose #22155 > >
00:29:06 verbose #22156 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:06 verbose #22157 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:06 verbose #22158 > > │ ### write_all_text_exists │
00:29:06 verbose #22159 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:06 verbose #22160 > >
00:29:06 verbose #22161 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:06 verbose #22162 > > let write_all_text_exists path contents =
00:29:06 verbose #22163 > > inl exists' = contents |> file_exists_content path
00:29:06 verbose #22164 > > if not exists'
00:29:06 verbose #22165 > > then contents |> write_all_text path
00:29:07 verbose #22166 > >
00:29:07 verbose #22167 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:07 verbose #22168 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:07 verbose #22169 > > │ ## fsharp │
00:29:07 verbose #22170 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:07 verbose #22171 > >
00:29:07 verbose #22172 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:07 verbose #22173 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:07 verbose #22174 > > │ ### file_exists_content_async │
00:29:07 verbose #22175 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:07 verbose #22176 > >
00:29:07 verbose #22177 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:07 verbose #22178 > > inl file_exists_content_async path content : async.async bool =
00:29:07 verbose #22179 > > run_target function
00:29:07 verbose #22180 > > | Fsharp (Native) => fun () =>
00:29:07 verbose #22181 > > fun () =>
00:29:07 verbose #22182 > > fix_condition
00:29:07 verbose #22183 > > fun () => path |> file_exists |> not
00:29:07 verbose #22184 > > fun () => false |> return
00:29:07 verbose #22185 > > fun () =>
00:29:07 verbose #22186 > > inl existing_content = path |> read_all_text_async |>
00:29:07 verbose #22187 > > async.let'
00:29:07 verbose #22188 > > content = existing_content |> return
00:29:07 verbose #22189 > > |> async.new_async_unit
00:29:07 verbose #22190 > > | _ => fun () => null ()
00:29:08 verbose #22191 > >
00:29:08 verbose #22192 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:08 verbose #22193 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:08 verbose #22194 > > │ ### write_all_text_exists_async │
00:29:08 verbose #22195 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:08 verbose #22196 > >
00:29:08 verbose #22197 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:08 verbose #22198 > > inl write_all_text_exists_async path contents =
00:29:08 verbose #22199 > > fun () =>
00:29:08 verbose #22200 > > inl exists' = contents |> file_exists_content_async path |> async.let'
00:29:08 verbose #22201 > > if not exists'
00:29:08 verbose #22202 > > then contents |> write_all_text_async path |> async.do
00:29:08 verbose #22203 > > |> async.new_async
00:29:09 verbose #22204 > >
00:29:09 verbose #22205 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:09 verbose #22206 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:09 verbose #22207 > > │ ### delete_directory_async │
00:29:09 verbose #22208 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:09 verbose #22209 > >
00:29:09 verbose #22210 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:09 verbose #22211 > > inl delete_directory_async path : _ i64 =
00:29:09 verbose #22212 > > run_target function
00:29:09 verbose #22213 > > | Fsharp (Native) => fun () =>
00:29:09 verbose #22214 > > let rec loop (retry : i64) =
00:29:09 verbose #22215 > > fun () =>
00:29:09 verbose #22216 > > try_unit
00:29:09 verbose #22217 > > fun () =>
00:29:09 verbose #22218 > > path |> directory_delete true
00:29:09 verbose #22219 > > retry |> return
00:29:09 verbose #22220 > > fun ex =>
00:29:09 verbose #22221 > > if retry % 100i64 = 0 then
00:29:09 verbose #22222 > > inl ex = ex |> sm'.format_exception
00:29:09 verbose #22223 > > trace Debug
00:29:09 verbose #22224 > > fun () =>
00:29:09 verbose #22225 > > "file_system.delete_directory_async"
00:29:09 verbose #22226 > > fun () => $'$"path: {!path |>
00:29:09 verbose #22227 > > !get_file_name} / ex: {!ex} / {!_locals ()}"'
00:29:09 verbose #22228 > > async.sleep 10i32 |> async.do
00:29:09 verbose #22229 > > loop (retry + 1) |> async.return_await
00:29:09 verbose #22230 > > |> async.new_async
00:29:09 verbose #22231 > > loop 0
00:29:09 verbose #22232 > > | _ => fun () => null ()
00:29:09 verbose #22233 > >
00:29:09 verbose #22234 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:09 verbose #22235 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:09 verbose #22236 > > │ ### trace_file │
00:29:09 verbose #22237 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:09 verbose #22238 > >
00:29:09 verbose #22239 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:09 verbose #22240 > > let rec trace_file text =
00:29:09 verbose #22241 > > run_target function
00:29:09 verbose #22242 > > | Fsharp (Native) => fun () =>
00:29:09 verbose #22243 > > try_unit
00:29:09 verbose #22244 > > fun () =>
00:29:09 verbose #22245 > > inl assembly_name = env.get_entry_assembly_name ()
00:29:09 verbose #22246 > > inl guid = date_time.now () |> date_time.new_guid_from_date_time
00:29:09 verbose #22247 > > inl file_name = $'$"{!assembly_name}_{!guid}.txt"'
00:29:09 verbose #22248 > >
00:29:09 verbose #22249 > > inl workspace_root = get_workspace_root ()
00:29:09 verbose #22250 > > inl trace_dir = workspace_root </> "target/trace"
00:29:09 verbose #22251 > > trace_dir |> create_directory |> ignore
00:29:09 verbose #22252 > > inl path = trace_dir </> file_name
00:29:09 verbose #22253 > > text |> write_all_text_async path |> async.run_synchronously
00:29:09 verbose #22254 > > fun ex =>
00:29:09 verbose #22255 > > trace_file $'$"file_system.trace_file / ex: %A{!ex}"'
00:29:09 verbose #22256 > > | _ => fun () => ()
00:29:10 verbose #22257 > >
00:29:10 verbose #22258 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:10 verbose #22259 > > //// test
00:29:10 verbose #22260 > >
00:29:10 verbose #22261 > > inl get_count dir : i64 =
00:29:10 verbose #22262 > > inl files = dir |> directory_get_files
00:29:10 verbose #22263 > > a files |> am'.length
00:29:10 verbose #22264 > >
00:29:10 verbose #22265 > > types ()
00:29:10 verbose #22266 > > inl trace_dir = get_workspace_root () </> "target/trace"
00:29:10 verbose #22267 > > trace_dir |> create_directory |> ignore
00:29:10 verbose #22268 > >
00:29:10 verbose #22269 > > inl count = get_count trace_dir
00:29:10 verbose #22270 > >
00:29:10 verbose #22271 > > trace_file "test"
00:29:10 verbose #22272 > >
00:29:10 verbose #22273 > > get_count trace_dir
00:29:10 verbose #22274 > > |> _assert_eq (count + 1)
00:29:12 verbose #22275 > >
00:29:12 verbose #22276 > > ╭─[ 1.50s - stdout ]───────────────────────────────────────────────────────────╮
00:29:12 verbose #22277 > > │ assert_eq / actual: 15L / expected: 15L │
00:29:12 verbose #22278 > > │ │
00:29:12 verbose #22279 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:12 verbose #22280 > >
00:29:12 verbose #22281 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:12 verbose #22282 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:12 verbose #22283 > > │ ### init_trace_file │
00:29:12 verbose #22284 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:12 verbose #22285 > >
00:29:12 verbose #22286 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:12 verbose #22287 > > inl init_trace_file enabled =
00:29:12 verbose #22288 > > inl state_trace_file = get_trace_state_or_init None .trace_file
00:29:12 verbose #22289 > > state_trace_file <- if enabled then trace_file else ignore
00:29:12 verbose #22290 > >
00:29:12 verbose #22291 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:12 verbose #22292 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:12 verbose #22293 > > │ ## file_system │
00:29:12 verbose #22294 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:12 verbose #22295 > >
00:29:12 verbose #22296 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:12 verbose #22297 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:12 verbose #22298 > > │ ### create_dir │
00:29:12 verbose #22299 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:12 verbose #22300 > >
00:29:12 verbose #22301 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:12 verbose #22302 > > let create_dir dir =
00:29:12 verbose #22303 > > run_target function
00:29:12 verbose #22304 > > | Rust (Contract | Wasm) => fun () => null ()
00:29:12 verbose #22305 > > | Rust (Native) => fun () =>
00:29:12 verbose #22306 > > inl dir = join dir
00:29:12 verbose #22307 > > match dir |> create_dir_all |> resultm.map_error' sm'.format' |>
00:29:12 verbose #22308 > > resultm.unbox with
00:29:12 verbose #22309 > > | Ok () =>
00:29:12 verbose #22310 > > trace Verbose
00:29:12 verbose #22311 > > fun () => "file_system.create_dir"
00:29:12 verbose #22312 > > fun () => $'$"dir: {!dir} / {!_locals ()}"'
00:29:12 verbose #22313 > > | Error error =>
00:29:12 verbose #22314 > > trace Critical
00:29:12 verbose #22315 > > fun () => "file_system.create_dir"
00:29:12 verbose #22316 > > fun () => $'$"dir: {!dir} / error: {!error} / {!_locals
00:29:12 verbose #22317 > > ()}"'
00:29:12 verbose #22318 > > inl disposable : _ () = new_disposable fun () =>
00:29:12 verbose #22319 > > dir
00:29:12 verbose #22320 > > |> directory_delete true
00:29:12 verbose #22321 > > disposable
00:29:12 verbose #22322 > > | _ => fun () =>
00:29:12 verbose #22323 > > inl directory_info = dir |> create_directory
00:29:12 verbose #22324 > > inl exists' = directory_info |> directory_info_exists
00:29:12 verbose #22325 > > if not exists' then
00:29:12 verbose #22326 > > inl creation_time = directory_info |>
00:29:12 verbose #22327 > > directory_info_creation_time
00:29:12 verbose #22328 > > inl result = ($'{| Exists = !exists'; CreationTime =
00:29:12 verbose #22329 > > !creation_time |}' : any) |> sm'.format_debug
00:29:12 verbose #22330 > > trace Debug
00:29:12 verbose #22331 > > fun () => "file_system.create_dir"
00:29:12 verbose #22332 > > fun () => $'$"dir: {!dir} / result: {!result} {!_locals
00:29:12 verbose #22333 > > ()}"'
00:29:12 verbose #22334 > > inl disposable : _ () = new_disposable fun () =>
00:29:12 verbose #22335 > > dir
00:29:12 verbose #22336 > > |> delete_directory_async
00:29:12 verbose #22337 > > |> async.ignore
00:29:12 verbose #22338 > > |> async.run_synchronously
00:29:12 verbose #22339 > > disposable
00:29:13 verbose #22340 > >
00:29:13 verbose #22341 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:13 verbose #22342 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:13 verbose #22343 > > │ ### create_temp_dir │
00:29:13 verbose #22344 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:13 verbose #22345 > >
00:29:13 verbose #22346 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:13 verbose #22347 > > inl create_temp_dir () =
00:29:13 verbose #22348 > > inl dir = create_temp_path ()
00:29:13 verbose #22349 > > dir, dir |> create_dir
00:29:14 verbose #22350 > >
00:29:14 verbose #22351 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:14 verbose #22352 > > //// test
00:29:14 verbose #22353 > >
00:29:14 verbose #22354 > > types ()
00:29:14 verbose #22355 > > inl path, disposable = create_temp_dir ()
00:29:14 verbose #22356 > > disposable |> use |> ignore
00:29:14 verbose #22357 > > path
00:29:14 verbose #22358 > > |> directory_exists
00:29:14 verbose #22359 > > |> _assert_eq true
00:29:16 verbose #22360 > >
00:29:16 verbose #22361 > > ╭─[ 1.67s - stdout ]───────────────────────────────────────────────────────────╮
00:29:16 verbose #22362 > > │ assert_eq / actual: true / expected: true │
00:29:16 verbose #22363 > > │ │
00:29:16 verbose #22364 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:16 verbose #22365 > >
00:29:16 verbose #22366 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:16 verbose #22367 > > //// test
00:29:16 verbose #22368 > > ///! rust -d chrono
00:29:16 verbose #22369 > >
00:29:16 verbose #22370 > > types ()
00:29:16 verbose #22371 > > inl path, disposable = create_temp_dir ()
00:29:16 verbose #22372 > > path
00:29:16 verbose #22373 > > |> directory_exists
00:29:16 verbose #22374 > > |> _assert_eq true
00:29:16 verbose #22375 > > disposable |> use |> ignore
00:29:16 verbose #22376 > > path
00:29:16 verbose #22377 > > |> directory_exists
00:29:16 verbose #22378 > > |> _assert_eq false
00:29:22 verbose #22379 > >
00:29:22 verbose #22380 > > ╭─[ 6.00s - return value ]─────────────────────────────────────────────────────╮
00:29:22 verbose #22381 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:29:22 verbose #22382 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_0268effe │
00:29:22 verbose #22383 > > │ 1ca4cc09bfe89eb750333423e2707072971d95d82bde56e87a135eb5\20240608-2354-1374- │
00:29:22 verbose #22384 > > │ 2446-0000005713fa │
00:29:22 verbose #22385 > > │ assert_eq / actual: true / expected: true │
00:29:22 verbose #22386 > > │ assert_eq / actual: false / expected: false │
00:29:22 verbose #22387 > > │ │
00:29:22 verbose #22388 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:22 verbose #22389 > >
00:29:22 verbose #22390 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:22 verbose #22391 > > //// test
00:29:22 verbose #22392 > >
00:29:22 verbose #22393 > > inl lock_directory path =
00:29:22 verbose #22394 > > fun () =>
00:29:22 verbose #22395 > > trace Debug (fun () => "_1") _locals
00:29:22 verbose #22396 > > "0" |> write_all_text_async (path </> "test.txt") |> async.do
00:29:22 verbose #22397 > > file_stream
00:29:22 verbose #22398 > > (path </> "test.txt")
00:29:22 verbose #22399 > > ModeOpen
00:29:22 verbose #22400 > > AccessReadWrite
00:29:22 verbose #22401 > > ShareNone
00:29:22 verbose #22402 > > |> use
00:29:22 verbose #22403 > > |> ignore
00:29:22 verbose #22404 > > trace Debug (fun () => "_2") _locals
00:29:22 verbose #22405 > > async.sleep 2000 |> async.do
00:29:22 verbose #22406 > > trace Debug (fun () => "_3") _locals
00:29:22 verbose #22407 > > () |> return
00:29:22 verbose #22408 > > |> async.new_async
00:29:22 verbose #22409 > >
00:29:22 verbose #22410 > > types ()
00:29:22 verbose #22411 > > inl temp_dir, disposable = create_temp_dir ()
00:29:22 verbose #22412 > > disposable |> use |> ignore
00:29:22 verbose #22413 > > inl path = temp_dir </> "test"
00:29:22 verbose #22414 > >
00:29:22 verbose #22415 > > fun () =>
00:29:22 verbose #22416 > > trace Debug (fun () => "1") _locals
00:29:22 verbose #22417 > > path |> create_directory |> ignore
00:29:22 verbose #22418 > > trace Debug (fun () => "2") _locals
00:29:22 verbose #22419 > > inl child = path |> lock_directory |> async.start_child |> async.let'
00:29:22 verbose #22420 > > trace Debug (fun () => "3") _locals
00:29:22 verbose #22421 > > async.sleep 60 |> async.do
00:29:22 verbose #22422 > > trace Debug (fun () => "4") _locals
00:29:22 verbose #22423 > > inl retries = path |> delete_directory_async |> async.let'
00:29:22 verbose #22424 > > trace Debug (fun () => "5") _locals
00:29:22 verbose #22425 > > child |> async.do
00:29:22 verbose #22426 > > trace Debug (fun () => "6") _locals
00:29:22 verbose #22427 > > retries |> return
00:29:22 verbose #22428 > > |> async.new_async_unit
00:29:22 verbose #22429 > > |> async.run_with_timeout 3000
00:29:22 verbose #22430 > > |> fun x => x : _ i64
00:29:22 verbose #22431 > > |> function
00:29:22 verbose #22432 > > | Some (retries : i64) =>
00:29:22 verbose #22433 > > retries
00:29:22 verbose #22434 > > |> _assert_between
00:29:22 verbose #22435 > > (if platform.is_windows () then 50 else 0)
00:29:22 verbose #22436 > > (if platform.is_windows () then 180 else 0)
00:29:22 verbose #22437 > >
00:29:22 verbose #22438 > > true
00:29:22 verbose #22439 > > | _ => false
00:29:22 verbose #22440 > > |> _assert_eq true
00:29:26 verbose #22441 > >
00:29:26 verbose #22442 > > ╭─[ 4.05s - stdout ]───────────────────────────────────────────────────────────╮
00:29:26 verbose #22443 > > │ 00:00:00 debug #1 1 │
00:29:26 verbose #22444 > > │ 00:00:00 debug #2 2 │
00:29:26 verbose #22445 > > │ 00:00:00 debug #3 3 │
00:29:26 verbose #22446 > > │ 00:00:00 debug #4 _1 │
00:29:26 verbose #22447 > > │ 00:00:00 debug #5 _2 │
00:29:26 verbose #22448 > > │ 00:00:00 debug #6 4 │
00:29:26 verbose #22449 > > │ 00:00:00 debug #7 file_system.delete_directory_async / path: test / ex: │
00:29:26 verbose #22450 > > │ System.IO.IOException: The process cannot access the file 'test.txt' because │
00:29:26 verbose #22451 > > │ it is being used by another process. │
00:29:26 verbose #22452 > > │ 00:00:01 debug #8 file_system.delete_directory_async / path: test / ex: │
00:29:26 verbose #22453 > > │ System.IO.IOException: The process cannot access the file 'test.txt' because │
00:29:26 verbose #22454 > > │ it is being used by another process. │
00:29:26 verbose #22455 > > │ 00:00:02 debug #9 _3 │
00:29:26 verbose #22456 > > │ 00:00:02 debug #10 5 │
00:29:26 verbose #22457 > > │ 00:00:02 debug #11 6 │
00:29:26 verbose #22458 > > │ assert_between / actual: 125L / expected: struct (50L, 180L) │
00:29:26 verbose #22459 > > │ assert_eq / actual: true / expected: true │
00:29:26 verbose #22460 > > │ │
00:29:26 verbose #22461 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:26 verbose #22462 > >
00:29:26 verbose #22463 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:26 verbose #22464 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:26 verbose #22465 > > │ ### create_temp_dir' │
00:29:26 verbose #22466 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:26 verbose #22467 > >
00:29:26 verbose #22468 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:26 verbose #22469 > > inl create_temp_dir' (hash : string) =
00:29:26 verbose #22470 > > inl dir = hash |> guid.hash_guid |> create_temp_path'
00:29:26 verbose #22471 > > dir, dir |> create_dir
00:29:26 verbose #22472 > >
00:29:26 verbose #22473 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:26 verbose #22474 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:26 verbose #22475 > > │ ### link_directory │
00:29:26 verbose #22476 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:26 verbose #22477 > >
00:29:26 verbose #22478 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:26 verbose #22479 > > let link_directory target_path path =
00:29:26 verbose #22480 > > if target_path |> directory_exists |> not
00:29:26 verbose #22481 > > then target_path |> create_dir |> ignore
00:29:26 verbose #22482 > >
00:29:26 verbose #22483 > > inl lib_dir_path = path |> get_directory_name
00:29:26 verbose #22484 > > if lib_dir_path |> directory_exists |> not
00:29:26 verbose #22485 > > then lib_dir_path |> create_dir |> ignore
00:29:26 verbose #22486 > >
00:29:26 verbose #22487 > > if (path |> directory_exists)
00:29:26 verbose #22488 > > && (path |> read_link |> resultm.is_err) then
00:29:26 verbose #22489 > > path |> directory_delete true
00:29:26 verbose #22490 > >
00:29:26 verbose #22491 > > if path |> directory_exists |> not then
00:29:26 verbose #22492 > > path |> directory_create_symbolic_link target_path
00:29:27 verbose #22493 > >
00:29:27 verbose #22494 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:27 verbose #22495 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:27 verbose #22496 > > │ ## fsharp │
00:29:27 verbose #22497 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:27 verbose #22498 > >
00:29:27 verbose #22499 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:27 verbose #22500 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:27 verbose #22501 > > │ ### wait_for_file_access │
00:29:27 verbose #22502 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:27 verbose #22503 > >
00:29:27 verbose #22504 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:27 verbose #22505 > > inl wait_for_file_access access path =
00:29:27 verbose #22506 > > run_target function
00:29:27 verbose #22507 > > | Fsharp (Native) => fun () =>
00:29:27 verbose #22508 > > inl file_access, file_share =
00:29:27 verbose #22509 > > access
00:29:27 verbose #22510 > > |> optionm'.default_value (AccessReadWrite, ShareRead)
00:29:27 verbose #22511 > > let rec loop (retry : i64) : _ i64 =
00:29:27 verbose #22512 > > fun () =>
00:29:27 verbose #22513 > > try_unit
00:29:27 verbose #22514 > > fun () =>
00:29:27 verbose #22515 > > file_stream
00:29:27 verbose #22516 > > path
00:29:27 verbose #22517 > > ModeOpen
00:29:27 verbose #22518 > > file_access
00:29:27 verbose #22519 > > file_share
00:29:27 verbose #22520 > > |> use
00:29:27 verbose #22521 > > |> ignore
00:29:27 verbose #22522 > > retry |> return
00:29:27 verbose #22523 > > fun ex =>
00:29:27 verbose #22524 > > if retry > 0 && retry % 100i64 = 0 then
00:29:27 verbose #22525 > > inl ex = ex |> sm'.format_exception
00:29:27 verbose #22526 > > trace Debug
00:29:27 verbose #22527 > > fun () => "file_system.wait_for_file_access"
00:29:27 verbose #22528 > > fun () => $'$"path: {!path |>
00:29:27 verbose #22529 > > !get_file_name} / retry: {!retry} / ex: {!ex} / {!_locals ()}"'
00:29:27 verbose #22530 > > async.sleep 10i32 |> async.do
00:29:27 verbose #22531 > > loop (retry + 1) |> async.return_await
00:29:27 verbose #22532 > > |> async.new_async
00:29:27 verbose #22533 > > loop 0
00:29:27 verbose #22534 > > | _ => fun () => null ()
00:29:27 verbose #22535 > >
00:29:27 verbose #22536 > > inl wait_for_file_access_read path =
00:29:27 verbose #22537 > > path
00:29:27 verbose #22538 > > |> wait_for_file_access (Some (
00:29:27 verbose #22539 > > AccessRead,
00:29:27 verbose #22540 > > ShareRead
00:29:27 verbose #22541 > > ))
00:29:28 verbose #22542 > >
00:29:28 verbose #22543 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:28 verbose #22544 > > //// test
00:29:28 verbose #22545 > >
00:29:28 verbose #22546 > > inl lock_file path =
00:29:28 verbose #22547 > > fun () =>
00:29:28 verbose #22548 > > trace Debug (fun () => "_1") _locals
00:29:28 verbose #22549 > > inl stream : file_stream' =
00:29:28 verbose #22550 > > file_stream
00:29:28 verbose #22551 > > path
00:29:28 verbose #22552 > > ModeOpen
00:29:28 verbose #22553 > > AccessReadWrite
00:29:28 verbose #22554 > > ShareNone
00:29:28 verbose #22555 > > |> use
00:29:28 verbose #22556 > > trace Debug (fun () => "_2") _locals
00:29:28 verbose #22557 > > async.sleep 2000 |> async.do
00:29:28 verbose #22558 > > trace Debug (fun () => "_3") _locals
00:29:28 verbose #22559 > > ($'!stream.Seek (0L, System.IO.SeekOrigin.Begin)' : i64) |> ignore
00:29:28 verbose #22560 > > trace Debug (fun () => "_4") _locals
00:29:28 verbose #22561 > > $'!stream.WriteByte' 49u8
00:29:28 verbose #22562 > > trace Debug (fun () => "_5") _locals
00:29:28 verbose #22563 > > stream |> $'_.Flush()'
00:29:28 verbose #22564 > > trace Debug (fun () => "_6") _locals
00:29:28 verbose #22565 > > |> async.new_async
00:29:28 verbose #22566 > >
00:29:28 verbose #22567 > > types ()
00:29:28 verbose #22568 > >
00:29:28 verbose #22569 > > inl file_name = "test.txt"
00:29:28 verbose #22570 > > inl text = "0"
00:29:28 verbose #22571 > >
00:29:28 verbose #22572 > > inl temp_dir, disposable =
00:29:28 verbose #22573 > > (file_name, text)
00:29:28 verbose #22574 > > |> sm'.format_debug
00:29:28 verbose #22575 > > |> crypto.hash_text
00:29:28 verbose #22576 > > |> create_temp_dir'
00:29:28 verbose #22577 > > disposable |> use |> ignore
00:29:28 verbose #22578 > > inl path = temp_dir </> file_name
00:29:28 verbose #22579 > >
00:29:28 verbose #22580 > > fun () =>
00:29:28 verbose #22581 > > trace Debug (fun () => "1") _locals
00:29:28 verbose #22582 > > text |> write_all_text_async path |> async.do
00:29:28 verbose #22583 > > trace Debug (fun () => "2") _locals
00:29:28 verbose #22584 > > inl child = path |> lock_file |> async.start_child |> async.let'
00:29:28 verbose #22585 > > trace Debug (fun () => "3") _locals
00:29:28 verbose #22586 > > async.sleep 1 |> async.do
00:29:28 verbose #22587 > > trace Debug (fun () => "4") _locals
00:29:28 verbose #22588 > > inl retries = path |> wait_for_file_access None |> async.let'
00:29:28 verbose #22589 > > trace Debug (fun () => "5") _locals
00:29:28 verbose #22590 > > inl text = path |> read_all_text_async |> async.let'
00:29:28 verbose #22591 > > trace Debug (fun () => "6") _locals
00:29:28 verbose #22592 > > child |> async.do
00:29:28 verbose #22593 > > trace Debug (fun () => "7") _locals
00:29:28 verbose #22594 > > (retries, text) |> return
00:29:28 verbose #22595 > > |> async.new_async_unit
00:29:28 verbose #22596 > > |> async.run_with_timeout 3000
00:29:28 verbose #22597 > > |> function
00:29:28 verbose #22598 > > | Some ((retries : i64), text) =>
00:29:28 verbose #22599 > > retries
00:29:28 verbose #22600 > > |> _assert_between
00:29:28 verbose #22601 > > (if platform.is_windows () then 50 else 100)
00:29:28 verbose #22602 > > (if platform.is_windows () then 180 else 200)
00:29:28 verbose #22603 > >
00:29:28 verbose #22604 > > text |> _assert_eq (join "1")
00:29:28 verbose #22605 > >
00:29:28 verbose #22606 > > true
00:29:28 verbose #22607 > > | _ => false
00:29:28 verbose #22608 > > |> _assert_eq true
00:29:32 verbose #22609 > >
00:29:32 verbose #22610 > > ╭─[ 4.05s - stdout ]───────────────────────────────────────────────────────────╮
00:29:32 verbose #22611 > > │ 00:00:00 debug #1 1 │
00:29:32 verbose #22612 > > │ 00:00:00 debug #2 2 │
00:29:32 verbose #22613 > > │ 00:00:00 debug #3 3 │
00:29:32 verbose #22614 > > │ 00:00:00 debug #4 _1 │
00:29:32 verbose #22615 > > │ 00:00:00 debug #5 _2 │
00:29:32 verbose #22616 > > │ 00:00:00 debug #6 4 │
00:29:32 verbose #22617 > > │ 00:00:01 debug #7 file_system.wait_for_file_access / path: test.txt / │
00:29:32 verbose #22618 > > │ retry: 100 / ex: System.IO.IOException: The process cannot access the file │
00:29:32 verbose #22619 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-0 │
00:29:32 verbose #22620 > > │ 16e-d959-8d21-02dc1c63c252\test.txt' because it is being used by another │
00:29:32 verbose #22621 > > │ process. │
00:29:32 verbose #22622 > > │ 00:00:02 debug #8 _3 │
00:29:32 verbose #22623 > > │ 00:00:02 debug #9 _4 │
00:29:32 verbose #22624 > > │ 00:00:02 debug #10 _5 │
00:29:32 verbose #22625 > > │ 00:00:02 debug #11 _6 │
00:29:32 verbose #22626 > > │ 00:00:02 debug #12 5 │
00:29:32 verbose #22627 > > │ 00:00:02 debug #13 6 │
00:29:32 verbose #22628 > > │ 00:00:02 debug #14 7 │
00:29:32 verbose #22629 > > │ assert_between / actual: 128L / expected: struct (50L, 180L) │
00:29:32 verbose #22630 > > │ assert_eq / actual: "1" / expected: "1" │
00:29:32 verbose #22631 > > │ assert_eq / actual: true / expected: true │
00:29:32 verbose #22632 > > │ │
00:29:32 verbose #22633 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:32 verbose #22634 > >
00:29:32 verbose #22635 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:32 verbose #22636 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:32 verbose #22637 > > │ ### read_all_text_retry_async │
00:29:32 verbose #22638 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:32 verbose #22639 > >
00:29:32 verbose #22640 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:32 verbose #22641 > > inl read_all_text_retry_async full_path : async.async (optionm'.option' string)
00:29:32 verbose #22642 > > =
00:29:32 verbose #22643 > > run_target function
00:29:32 verbose #22644 > > | Fsharp (Native) => fun () =>
00:29:32 verbose #22645 > > let rec loop (retry : i64) =
00:29:32 verbose #22646 > > fun () =>
00:29:32 verbose #22647 > > try_unit
00:29:32 verbose #22648 > > fun () =>
00:29:32 verbose #22649 > > if retry > 0
00:29:32 verbose #22650 > > then
00:29:32 verbose #22651 > > full_path
00:29:32 verbose #22652 > > |> wait_for_file_access_read
00:29:32 verbose #22653 > > |> async.run_with_timeout_async 1000
00:29:32 verbose #22654 > > |> async.ignore
00:29:32 verbose #22655 > > |> async.do
00:29:32 verbose #22656 > > full_path |> read_all_text_async |> async.map (Some
00:29:32 verbose #22657 > > >> optionm'.box) |> async.return_await
00:29:32 verbose #22658 > > fun ex =>
00:29:32 verbose #22659 > > fix_condition
00:29:32 verbose #22660 > > fun () => retry <> 0
00:29:32 verbose #22661 > > fun () =>
00:29:32 verbose #22662 > > inl ex = ex |> sm'.format_exception
00:29:32 verbose #22663 > > let _locals () = $'$"retry: {!retry} / ex:
00:29:32 verbose #22664 > > {!ex} / {!_locals ()}"'
00:29:32 verbose #22665 > > trace Debug (fun () =>
00:29:32 verbose #22666 > > $'"read_all_text_retry_async"' : string) _locals
00:29:32 verbose #22667 > > (None : _ string) |> optionm'.box |> return
00:29:32 verbose #22668 > > fun () =>
00:29:32 verbose #22669 > > loop (retry + 1) |> async.return_await
00:29:32 verbose #22670 > > |> async.new_async
00:29:32 verbose #22671 > > loop 0
00:29:32 verbose #22672 > > | _ => fun () => null ()
00:29:33 verbose #22673 > >
00:29:33 verbose #22674 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:33 verbose #22675 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:33 verbose #22676 > > │ ### move_file_async │
00:29:33 verbose #22677 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:33 verbose #22678 > >
00:29:33 verbose #22679 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:33 verbose #22680 > > inl move_file_async new_path old_path : _ i64 =
00:29:33 verbose #22681 > > run_target function
00:29:33 verbose #22682 > > | Fsharp (Native) => fun () =>
00:29:33 verbose #22683 > > let rec loop (retry : i64) =
00:29:33 verbose #22684 > > fun () =>
00:29:33 verbose #22685 > > try_unit
00:29:33 verbose #22686 > > fun () =>
00:29:33 verbose #22687 > > old_path |> file_move new_path
00:29:33 verbose #22688 > > return retry
00:29:33 verbose #22689 > > fun ex =>
00:29:33 verbose #22690 > > if retry % 100 = 0 then
00:29:33 verbose #22691 > > inl _locals () =
00:29:33 verbose #22692 > > inl ex = ex |> sm'.format_exception
00:29:33 verbose #22693 > > $'$"old_path: {!old_path |> !get_file_name}
00:29:33 verbose #22694 > > / new_path: {!new_path |> !get_file_name} / ex: {!ex} / {!_locals ()}"'
00:29:33 verbose #22695 > > trace Warning (fun () => "move_file_async")
00:29:33 verbose #22696 > > _locals
00:29:33 verbose #22697 > > async.sleep 10 |> async.do
00:29:33 verbose #22698 > > loop (retry + 1) |> async.return_await
00:29:33 verbose #22699 > > |> async.new_async_unit
00:29:33 verbose #22700 > > loop 0
00:29:33 verbose #22701 > > | _ => fun () => null ()
00:29:34 verbose #22702 > >
00:29:34 verbose #22703 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:34 verbose #22704 > > //// test
00:29:34 verbose #22705 > >
00:29:34 verbose #22706 > > inl lock_file path =
00:29:34 verbose #22707 > > fun () =>
00:29:34 verbose #22708 > > trace Debug (fun () => "_1") _locals
00:29:34 verbose #22709 > > file_stream
00:29:34 verbose #22710 > > path
00:29:34 verbose #22711 > > ModeOpen
00:29:34 verbose #22712 > > AccessReadWrite
00:29:34 verbose #22713 > > ShareNone
00:29:34 verbose #22714 > > |> use
00:29:34 verbose #22715 > > |> ignore
00:29:34 verbose #22716 > > trace Debug (fun () => "_2") _locals
00:29:34 verbose #22717 > > async.sleep 2000 |> async.do
00:29:34 verbose #22718 > > trace Debug (fun () => "_3") _locals
00:29:34 verbose #22719 > > |> async.new_async
00:29:34 verbose #22720 > >
00:29:34 verbose #22721 > > types ()
00:29:34 verbose #22722 > > fun () =>
00:29:34 verbose #22723 > > inl file_name = "test.txt"
00:29:34 verbose #22724 > > inl text = "0"
00:29:34 verbose #22725 > >
00:29:34 verbose #22726 > > inl temp_dir, disposable =
00:29:34 verbose #22727 > > (file_name, text)
00:29:34 verbose #22728 > > |> sm'.format_debug
00:29:34 verbose #22729 > > |> crypto.hash_text
00:29:34 verbose #22730 > > |> create_temp_dir'
00:29:34 verbose #22731 > > disposable |> use |> ignore
00:29:34 verbose #22732 > > let path = temp_dir </> file_name
00:29:34 verbose #22733 > > let new_path = temp_dir </> "test2.txt"
00:29:34 verbose #22734 > >
00:29:34 verbose #22735 > > trace Debug (fun () => "1") _locals
00:29:34 verbose #22736 > > text |> write_all_text_async path |> async.do
00:29:34 verbose #22737 > > trace Debug (fun () => "2") _locals
00:29:34 verbose #22738 > > inl child = lock_file path |> async.start_child |> async.let'
00:29:34 verbose #22739 > > trace Debug (fun () => "3") _locals
00:29:34 verbose #22740 > > async.sleep 1 |> async.do
00:29:34 verbose #22741 > > trace Debug (fun () => "4") _locals
00:29:34 verbose #22742 > > inl retries1 = path |> move_file_async new_path |> async.let'
00:29:34 verbose #22743 > > trace Debug (fun () => "5") _locals
00:29:34 verbose #22744 > > inl retries2 = new_path |> wait_for_file_access None |> async.let'
00:29:34 verbose #22745 > > trace Debug (fun () => "6") _locals
00:29:34 verbose #22746 > > inl text = new_path |> read_all_text_async |> async.let'
00:29:34 verbose #22747 > > trace Debug (fun () => "7") _locals
00:29:34 verbose #22748 > > child |> async.do
00:29:34 verbose #22749 > > trace Debug (fun () => "8") _locals
00:29:34 verbose #22750 > > (retries1, retries2, text) |> return
00:29:34 verbose #22751 > > |> async.new_async_unit
00:29:34 verbose #22752 > > |> async.run_with_timeout 3000
00:29:34 verbose #22753 > > |> function
00:29:34 verbose #22754 > > | Some (retries1, retries2, text) =>
00:29:34 verbose #22755 > > retries1
00:29:34 verbose #22756 > > |> _assert_between
00:29:34 verbose #22757 > > (if platform.is_windows () then 50i64 else 0)
00:29:34 verbose #22758 > > (if platform.is_windows () then 200 else 0)
00:29:34 verbose #22759 > >
00:29:34 verbose #22760 > > retries2
00:29:34 verbose #22761 > > |> _assert_between
00:29:34 verbose #22762 > > (if platform.is_windows () then 0i64 else 100)
00:29:34 verbose #22763 > > (if platform.is_windows () then 0 else 200)
00:29:34 verbose #22764 > >
00:29:34 verbose #22765 > > text |> _assert_eq (join "0")
00:29:34 verbose #22766 > >
00:29:34 verbose #22767 > > true
00:29:34 verbose #22768 > > | _ => false
00:29:34 verbose #22769 > > |> _assert_eq true
00:29:38 verbose #22770 > >
00:29:38 verbose #22771 > > ╭─[ 3.96s - stdout ]───────────────────────────────────────────────────────────╮
00:29:38 verbose #22772 > > │ 00:00:00 debug #1 1 │
00:29:38 verbose #22773 > > │ 00:00:00 debug #2 2 │
00:29:38 verbose #22774 > > │ 00:00:00 debug #3 3 │
00:29:38 verbose #22775 > > │ 00:00:00 debug #4 _1 │
00:29:38 verbose #22776 > > │ 00:00:00 debug #5 _2 │
00:29:38 verbose #22777 > > │ 00:00:00 debug #6 4 │
00:29:38 verbose #22778 > > │ 00:00:00 warning #7 move_file_async / old_path: test.txt / new_path: │
00:29:38 verbose #22779 > > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:29:38 verbose #22780 > > │ because it is being used by another process. │
00:29:38 verbose #22781 > > │ 00:00:01 warning #8 move_file_async / old_path: test.txt / new_path: │
00:29:38 verbose #22782 > > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:29:38 verbose #22783 > > │ because it is being used by another process. │
00:29:38 verbose #22784 > > │ 00:00:02 debug #9 _3 │
00:29:38 verbose #22785 > > │ 00:00:02 debug #10 5 │
00:29:38 verbose #22786 > > │ 00:00:02 debug #11 6 │
00:29:38 verbose #22787 > > │ 00:00:02 debug #12 7 │
00:29:38 verbose #22788 > > │ 00:00:02 debug #13 8 │
00:29:38 verbose #22789 > > │ assert_between / actual: 121L / expected: struct (50L, 200L) │
00:29:38 verbose #22790 > > │ assert_between / actual: 0L / expected: struct (0L, 0L) │
00:29:38 verbose #22791 > > │ assert_eq / actual: "0" / expected: "0" │
00:29:38 verbose #22792 > > │ assert_eq / actual: true / expected: true │
00:29:38 verbose #22793 > > │ │
00:29:38 verbose #22794 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:38 verbose #22795 > >
00:29:38 verbose #22796 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:38 verbose #22797 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:38 verbose #22798 > > │ ### delete_file_async │
00:29:38 verbose #22799 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:38 verbose #22800 > >
00:29:38 verbose #22801 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:38 verbose #22802 > > inl delete_file_async path : _ i64 =
00:29:38 verbose #22803 > > run_target function
00:29:38 verbose #22804 > > | Fsharp (Native) => fun () =>
00:29:38 verbose #22805 > > let rec loop (retry : i64) =
00:29:38 verbose #22806 > > fun () =>
00:29:38 verbose #22807 > > try_unit
00:29:38 verbose #22808 > > fun () =>
00:29:38 verbose #22809 > > path |> file_delete
00:29:38 verbose #22810 > > return retry
00:29:38 verbose #22811 > > fun ex =>
00:29:38 verbose #22812 > > if retry % 100 = 0 then
00:29:38 verbose #22813 > > trace Warning
00:29:38 verbose #22814 > > fun () => "delete_file_async"
00:29:38 verbose #22815 > > fun () =>
00:29:38 verbose #22816 > > inl ex = ex |> sm'.format_exception
00:29:38 verbose #22817 > > $'$"path: {!path |> !get_file_name}
00:29:38 verbose #22818 > > ex: {!ex} / {!_locals ()}"'
00:29:38 verbose #22819 > > async.sleep 10 |> async.do
00:29:38 verbose #22820 > > loop (retry + 1) |> async.return_await
00:29:38 verbose #22821 > > |> async.new_async
00:29:38 verbose #22822 > > loop 0
00:29:38 verbose #22823 > > | _ => fun () => null ()
00:29:38 verbose #22824 > >
00:29:38 verbose #22825 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:38 verbose #22826 > > //// test
00:29:38 verbose #22827 > >
00:29:38 verbose #22828 > > inl lock_file path =
00:29:38 verbose #22829 > > fun () =>
00:29:38 verbose #22830 > > trace Debug (fun () => "_1") _locals
00:29:38 verbose #22831 > > file_stream
00:29:38 verbose #22832 > > path
00:29:38 verbose #22833 > > ModeOpen
00:29:38 verbose #22834 > > AccessReadWrite
00:29:38 verbose #22835 > > ShareNone
00:29:38 verbose #22836 > > |> use
00:29:38 verbose #22837 > > |> ignore
00:29:38 verbose #22838 > > trace Debug (fun () => "_2") _locals
00:29:38 verbose #22839 > > async.sleep 2000 |> async.do
00:29:38 verbose #22840 > > trace Debug (fun () => "_3") _locals
00:29:38 verbose #22841 > > |> async.new_async
00:29:38 verbose #22842 > >
00:29:38 verbose #22843 > > types ()
00:29:38 verbose #22844 > > fun () =>
00:29:38 verbose #22845 > > inl file_name = "test.txt"
00:29:38 verbose #22846 > > inl text = "0"
00:29:38 verbose #22847 > >
00:29:38 verbose #22848 > > inl temp_dir, disposable =
00:29:38 verbose #22849 > > (file_name, text)
00:29:38 verbose #22850 > > |> sm'.format_debug
00:29:38 verbose #22851 > > |> crypto.hash_text
00:29:38 verbose #22852 > > |> create_temp_dir'
00:29:38 verbose #22853 > > disposable |> use |> ignore
00:29:38 verbose #22854 > > inl path = temp_dir </> file_name
00:29:38 verbose #22855 > >
00:29:38 verbose #22856 > > trace Debug (fun () => "1") _locals
00:29:38 verbose #22857 > > text |> write_all_text_async path |> async.do
00:29:38 verbose #22858 > > trace Debug (fun () => "2") _locals
00:29:38 verbose #22859 > > inl child = lock_file path |> async.start_child |> async.let'
00:29:38 verbose #22860 > > trace Debug (fun () => "3") _locals
00:29:38 verbose #22861 > > async.sleep 1 |> async.do
00:29:38 verbose #22862 > > trace Debug (fun () => "4") _locals
00:29:38 verbose #22863 > > inl retries = delete_file_async path |> async.let'
00:29:38 verbose #22864 > > trace Debug (fun () => "5") _locals
00:29:38 verbose #22865 > > child |> async.do
00:29:38 verbose #22866 > > trace Debug (fun () => "6") _locals
00:29:38 verbose #22867 > > return retries
00:29:38 verbose #22868 > > |> async.new_async_unit
00:29:38 verbose #22869 > > |> async.run_with_timeout 3000
00:29:38 verbose #22870 > > |> function
00:29:38 verbose #22871 > > | Some (retries : i64) =>
00:29:38 verbose #22872 > > retries
00:29:38 verbose #22873 > > |> _assert_between
00:29:38 verbose #22874 > > (if platform.is_windows () then 50 else 0)
00:29:38 verbose #22875 > > (if platform.is_windows () then 180 else 0)
00:29:38 verbose #22876 > >
00:29:38 verbose #22877 > > true
00:29:38 verbose #22878 > > | _ => false
00:29:38 verbose #22879 > > |> _assert_eq true
00:29:43 verbose #22880 > >
00:29:43 verbose #22881 > > ╭─[ 4.53s - stdout ]───────────────────────────────────────────────────────────╮
00:29:43 verbose #22882 > > │ 00:00:00 debug #1 1 │
00:29:43 verbose #22883 > > │ 00:00:00 debug #2 2 │
00:29:43 verbose #22884 > > │ 00:00:00 debug #3 3 │
00:29:43 verbose #22885 > > │ 00:00:00 debug #4 _1 │
00:29:43 verbose #22886 > > │ 00:00:00 debug #5 4 │
00:29:43 verbose #22887 > > │ 00:00:00 debug #6 _2 │
00:29:43 verbose #22888 > > │ 00:00:00 warning #7 delete_file_async / path: test.txt / ex: │
00:29:43 verbose #22889 > > │ System.IO.IOException: The process cannot access the file │
00:29:43 verbose #22890 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-0 │
00:29:43 verbose #22891 > > │ 16e-d959-8d21-02dc1c63c252\test.txt' because it is being used by another │
00:29:43 verbose #22892 > > │ process. │
00:29:43 verbose #22893 > > │ 00:00:01 warning #8 delete_file_async / path: test.txt / ex: │
00:29:43 verbose #22894 > > │ System.IO.IOException: The process cannot access the file │
00:29:43 verbose #22895 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-0 │
00:29:43 verbose #22896 > > │ 16e-d959-8d21-02dc1c63c252\test.txt' because it is being used by another │
00:29:43 verbose #22897 > > │ process. │
00:29:43 verbose #22898 > > │ 00:00:02 debug #9 _3 │
00:29:43 verbose #22899 > > │ 00:00:02 debug #10 5 │
00:29:43 verbose #22900 > > │ 00:00:02 debug #11 6 │
00:29:43 verbose #22901 > > │ assert_between / actual: 125L / expected: struct (50L, 180L) │
00:29:43 verbose #22902 > > │ assert_eq / actual: true / expected: true │
00:29:43 verbose #22903 > > │ │
00:29:43 verbose #22904 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:43 verbose #22905 > >
00:29:43 verbose #22906 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:43 verbose #22907 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:43 verbose #22908 > > │ ## main │
00:29:43 verbose #22909 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:43 verbose #22910 > >
00:29:43 verbose #22911 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:43 verbose #22912 > > inl main () =
00:29:43 verbose #22913 > > types ()
00:29:43 verbose #22914 > > init_trace_state None
00:29:43 verbose #22915 > > $'let delete_directory_async x = !delete_directory_async x' : ()
00:29:43 verbose #22916 > > $'let wait_for_file_access x = !wait_for_file_access x' : ()
00:29:43 verbose #22917 > > $'let wait_for_file_access_read x = !wait_for_file_access_read x' : ()
00:29:43 verbose #22918 > > $'let read_all_text_async x = !read_all_text_async x' : ()
00:29:43 verbose #22919 > > $'let file_exists_content x = !file_exists_content x' : ()
00:29:43 verbose #22920 > > $'let write_all_text_async x = !write_all_text_async x' : ()
00:29:43 verbose #22921 > > $'let write_all_text_exists x = !write_all_text_exists_async x' : ()
00:29:43 verbose #22922 > > $'let delete_file_async x = !delete_file_async x' : ()
00:29:43 verbose #22923 > > $'let move_file_async x = !move_file_async x' : ()
00:29:43 verbose #22924 > > $'let read_all_text_retry_async x = !read_all_text_retry_async x' : ()
00:29:43 verbose #22925 > > $'let create_temp_path () = !create_temp_path ()' : ()
00:29:43 verbose #22926 > > $'let create_temp_dir () = !create_temp_dir ()' : ()
00:29:43 verbose #22927 > > $'let create_temp_dir\' x = !create_temp_dir' x' : ()
00:29:43 verbose #22928 > > $'let get_source_directory () = !get_source_directory ()' : ()
00:29:43 verbose #22929 > > $'let normalize_path x = !normalize_path x' : ()
00:29:43 verbose #22930 > > $'let new_file_uri x = !new_file_uri x' : ()
00:29:43 verbose #22931 > > $'let get_workspace_root () = !get_workspace_root ()' : ()
00:29:43 verbose #22932 > > $'let init_trace_file x = !init_trace_file x' : ()
00:29:43 verbose #22933 > > inl combine x = (</>) x
00:29:43 verbose #22934 > > $'let (</>) x = !combine x' : ()
00:29:46 verbose #22935 > 00:02:44 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 99982
00:29:46 verbose #22936 > 00:02:44 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:29:50 verbose #22937 > 00:02:48 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb to html
00:29:50 verbose #22938 > 00:02:48 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:29:50 verbose #22939 > 00:02:48 verbose #7 ! validate(nb)
00:29:54 verbose #22940 > 00:02:52 verbose #8 ! [NbConvertApp] Writing 580397 bytes to c:\home\git\polyglot\lib\spiral\file_system.dib.html
00:29:54 verbose #22941 > 00:02:52 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 653
00:29:54 verbose #22942 > 00:02:52 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 653
00:29:54 verbose #22943 > 00:02:52 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/file_system.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/file_system.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:29:55 verbose #22944 > 00:02:53 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:29:55 verbose #22945 > 00:02:53 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:29:56 verbose #22946 > 00:02:54 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 100694
00:29:56 debug #22947 runtime.execute_with_options_async / exit_code: 0 / output.Length: 107273
00:29:56 debug #30 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path file_system.dib --retries 3
00:29:56 debug #22948 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path networking.dib --retries 3",
[||], None, None, true, None)
00:29:56 verbose #22949 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "networking.dib", "--retries", "3"])
00:29:56 verbose #22950 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/networking.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/networking.dib" --output-path "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:29:59 verbose #22951 > >
00:29:59 verbose #22952 > > ── markdown ────────────────────────────────────────────────────────────────────
00:29:59 verbose #22953 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:29:59 verbose #22954 > > │ # networking │
00:29:59 verbose #22955 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:29:59 verbose #22956 > >
00:29:59 verbose #22957 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:29:59 verbose #22958 > > open rust_operators
00:29:59 verbose #22959 > >
00:29:59 verbose #22960 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:29:59 verbose #22961 > > #r
00:29:59 verbose #22962 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:29:59 verbose #22963 > > otNet.Interactive.Spiral.dll"
00:29:59 verbose #22964 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:29:59 verbose #22965 > > #r
00:29:59 verbose #22966 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:29:59 verbose #22967 > > otNet.Interactive.dll"
00:29:59 verbose #22968 > > open type Microsoft.DotNet.Interactive.Kernel
00:30:06 verbose #22969 > >
00:30:06 verbose #22970 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:06 verbose #22971 > > //// test
00:30:06 verbose #22972 > >
00:30:06 verbose #22973 > > open testing
00:30:06 verbose #22974 > >
00:30:06 verbose #22975 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:06 verbose #22976 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:06 verbose #22977 > > │ ## types │
00:30:06 verbose #22978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:06 verbose #22979 > >
00:30:06 verbose #22980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:06 verbose #22981 > > inl types () =
00:30:06 verbose #22982 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:30:06 verbose #22983 > > Fable.Core.Emit(\"reqwest_wasm::Error\")>]]\n#endif\ntype reqwest_Error = class
00:30:06 verbose #22984 > > end"
00:30:06 verbose #22985 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:30:06 verbose #22986 > > Fable.Core.Emit(\"reqwest_wasm::RequestBuilder\")>]]\n#endif\ntype
00:30:06 verbose #22987 > > reqwest_RequestBuilder = class end"
00:30:06 verbose #22988 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:30:06 verbose #22989 > > Fable.Core.Emit(\"reqwest_wasm::Response\")>]]\n#endif\ntype reqwest_Response =
00:30:06 verbose #22990 > > class end"
00:30:07 verbose #22991 > >
00:30:07 verbose #22992 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:07 verbose #22993 > > inl types () =
00:30:07 verbose #22994 > > types ()
00:30:07 verbose #22995 > > env.types ()
00:30:07 verbose #22996 > > rust.types ()
00:30:07 verbose #22997 > > sm'.types ()
00:30:08 verbose #22998 > >
00:30:08 verbose #22999 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:08 verbose #23000 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:08 verbose #23001 > > │ ## rust │
00:30:08 verbose #23002 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:08 verbose #23003 > >
00:30:08 verbose #23004 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:08 verbose #23005 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:08 verbose #23006 > > │ ### reqwest_response │
00:30:08 verbose #23007 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:08 verbose #23008 > >
00:30:08 verbose #23009 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:08 verbose #23010 > > nominal reqwest_response = $'reqwest_Response'
00:30:08 verbose #23011 > >
00:30:08 verbose #23012 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:08 verbose #23013 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:08 verbose #23014 > > │ ### reqwest_error │
00:30:08 verbose #23015 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:08 verbose #23016 > >
00:30:08 verbose #23017 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:08 verbose #23018 > > nominal reqwest_error = $'reqwest_Error'
00:30:09 verbose #23019 > >
00:30:09 verbose #23020 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:09 verbose #23021 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:09 verbose #23022 > > │ ### request_builder │
00:30:09 verbose #23023 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:09 verbose #23024 > >
00:30:09 verbose #23025 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:09 verbose #23026 > > nominal request_builder = $'reqwest_RequestBuilder'
00:30:10 verbose #23027 > >
00:30:10 verbose #23028 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:10 verbose #23029 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:10 verbose #23030 > > │ ### request_type │
00:30:10 verbose #23031 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:10 verbose #23032 > >
00:30:10 verbose #23033 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:10 verbose #23034 > > union request_type =
00:30:10 verbose #23035 > > | Get
00:30:10 verbose #23036 > > | Post
00:30:10 verbose #23037 > >
00:30:10 verbose #23038 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:10 verbose #23039 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:10 verbose #23040 > > │ ### request │
00:30:10 verbose #23041 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:10 verbose #23042 > >
00:30:10 verbose #23043 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:10 verbose #23044 > > type request =
00:30:10 verbose #23045 > > {
00:30:10 verbose #23046 > > url : string
00:30:10 verbose #23047 > > request_type : request_type
00:30:10 verbose #23048 > > body : string
00:30:10 verbose #23049 > > json : bool
00:30:10 verbose #23050 > > auto_refresh : bool
00:30:10 verbose #23051 > > }
00:30:11 verbose #23052 > >
00:30:11 verbose #23053 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:11 verbose #23054 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:11 verbose #23055 > > │ ### new_request_get │
00:30:11 verbose #23056 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:11 verbose #23057 > >
00:30:11 verbose #23058 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:11 verbose #23059 > > inl new_request_get (url : string) : request_builder =
00:30:11 verbose #23060 > > inl url = join url
00:30:11 verbose #23061 > > inl url = url |> sm'.to_std_string
00:30:11 verbose #23062 > > inl url = join url
00:30:11 verbose #23063 > > !\($'"reqwest_wasm::Client::builder().build().map_err(|err|
00:30:11 verbose #23064 > > err.to_string())?.get(!url)"')
00:30:12 verbose #23065 > >
00:30:12 verbose #23066 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:12 verbose #23067 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:12 verbose #23068 > > │ ### new_request_post │
00:30:12 verbose #23069 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:12 verbose #23070 > >
00:30:12 verbose #23071 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:12 verbose #23072 > > inl new_request_post (url : string) : request_builder =
00:30:12 verbose #23073 > > inl url = join url
00:30:12 verbose #23074 > > inl url = url |> sm'.to_std_string
00:30:12 verbose #23075 > > inl url = join url
00:30:12 verbose #23076 > > !\($'"reqwest_wasm::Client::builder().build().map_err(|err|
00:30:12 verbose #23077 > > err.to_string())?.post(!url)"')
00:30:12 verbose #23078 > >
00:30:12 verbose #23079 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:12 verbose #23080 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:12 verbose #23081 > > │ ### request_send │
00:30:12 verbose #23082 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:12 verbose #23083 > >
00:30:12 verbose #23084 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:12 verbose #23085 > > inl request_send (request : request_builder) : async.future_pin (resultm.result'
00:30:12 verbose #23086 > > reqwest_response reqwest_error) =
00:30:12 verbose #23087 > > inl request = join request
00:30:12 verbose #23088 > > !\($'"Box::pin(reqwest_wasm::RequestBuilder::send(!request))"')
00:30:13 verbose #23089 > >
00:30:13 verbose #23090 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:13 verbose #23091 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:13 verbose #23092 > > │ ### request_body │
00:30:13 verbose #23093 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:13 verbose #23094 > >
00:30:13 verbose #23095 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:13 verbose #23096 > > inl request_body (body : string) (request : request_builder) : request_builder =
00:30:13 verbose #23097 > > inl body = body |> sm'.to_std_string
00:30:13 verbose #23098 > > !\($'"reqwest_wasm::RequestBuilder::body(!request, !body)"')
00:30:14 verbose #23099 > >
00:30:14 verbose #23100 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:14 verbose #23101 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:14 verbose #23102 > > │ ### request_header │
00:30:14 verbose #23103 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:14 verbose #23104 > >
00:30:14 verbose #23105 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:14 verbose #23106 > > inl request_header (key : string) (value : string) (request : request_builder) :
00:30:14 verbose #23107 > > request_builder =
00:30:14 verbose #23108 > > inl request = join request
00:30:14 verbose #23109 > > inl key = key |> sm'.to_std_string
00:30:14 verbose #23110 > > inl value = value |> sm'.to_std_string
00:30:14 verbose #23111 > > !\($'"reqwest_wasm::RequestBuilder::header(!request, !key, !value)"')
00:30:14 verbose #23112 > >
00:30:14 verbose #23113 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:14 verbose #23114 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:14 verbose #23115 > > │ ### request_json │
00:30:14 verbose #23116 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:14 verbose #23117 > >
00:30:14 verbose #23118 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:14 verbose #23119 > > inl request_json forall t. (obj : t) (request : request_builder) :
00:30:14 verbose #23120 > > request_builder =
00:30:14 verbose #23121 > > !\($'"reqwest_wasm::RequestBuilder::json(!request, &!obj)"')
00:30:15 verbose #23122 > >
00:30:15 verbose #23123 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:15 verbose #23124 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:15 verbose #23125 > > │ ### response_text │
00:30:15 verbose #23126 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:15 verbose #23127 > >
00:30:15 verbose #23128 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:15 verbose #23129 > > inl response_text (response : reqwest_response) : async.future_pin
00:30:15 verbose #23130 > > (resultm.result' sm'.std_string reqwest_error) =
00:30:15 verbose #23131 > > !\($'"Box::pin(reqwest_wasm::Response::text(!response))"')
00:30:16 verbose #23132 > >
00:30:16 verbose #23133 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:16 verbose #23134 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:16 verbose #23135 > > │ ## fsharp │
00:30:16 verbose #23136 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:16 verbose #23137 > >
00:30:16 verbose #23138 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:16 verbose #23139 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:16 verbose #23140 > > │ ### tcp_client │
00:30:16 verbose #23141 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:16 verbose #23142 > >
00:30:16 verbose #23143 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:16 verbose #23144 > > nominal tcp_client = $'System.Net.Sockets.TcpClient'
00:30:16 verbose #23145 > >
00:30:16 verbose #23146 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:16 verbose #23147 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:16 verbose #23148 > > │ ### new_tcp_client │
00:30:16 verbose #23149 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:16 verbose #23150 > >
00:30:16 verbose #23151 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:16 verbose #23152 > > inl new_tcp_client () : tcp_client =
00:30:16 verbose #23153 > > $'new `tcp_client ()'
00:30:17 verbose #23154 > >
00:30:17 verbose #23155 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:17 verbose #23156 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:17 verbose #23157 > > │ ### ip_address │
00:30:17 verbose #23158 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:17 verbose #23159 > >
00:30:17 verbose #23160 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:17 verbose #23161 > > nominal ip_address = $'System.Net.IPAddress'
00:30:18 verbose #23162 > >
00:30:18 verbose #23163 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:18 verbose #23164 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:18 verbose #23165 > > │ ### ip_address_parse │
00:30:18 verbose #23166 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:18 verbose #23167 > >
00:30:18 verbose #23168 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:18 verbose #23169 > > inl ip_address_parse (s : string) : ip_address =
00:30:18 verbose #23170 > > s |> $'`ip_address.Parse'
00:30:18 verbose #23171 > >
00:30:18 verbose #23172 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:18 verbose #23173 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:18 verbose #23174 > > │ ### tcp_listener │
00:30:18 verbose #23175 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:18 verbose #23176 > >
00:30:18 verbose #23177 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:18 verbose #23178 > > nominal tcp_listener = $'System.Net.Sockets.TcpListener'
00:30:19 verbose #23179 > >
00:30:19 verbose #23180 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:19 verbose #23181 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:19 verbose #23182 > > │ ### new_tcp_listener │
00:30:19 verbose #23183 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:19 verbose #23184 > >
00:30:19 verbose #23185 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:19 verbose #23186 > > inl new_tcp_listener (ip_address : ip_address) (port : i32) : tcp_listener =
00:30:19 verbose #23187 > > $'new `tcp_listener (!ip_address, !port)'
00:30:20 verbose #23188 > >
00:30:20 verbose #23189 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:20 verbose #23190 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:20 verbose #23191 > > │ ### listener_start │
00:30:20 verbose #23192 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:20 verbose #23193 > >
00:30:20 verbose #23194 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:20 verbose #23195 > > inl listener_start (listener : tcp_listener) : () =
00:30:20 verbose #23196 > > $'!listener.Start' ()
00:30:20 verbose #23197 > >
00:30:20 verbose #23198 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:20 verbose #23199 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:20 verbose #23200 > > │ ### listener_stop │
00:30:20 verbose #23201 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:20 verbose #23202 > >
00:30:20 verbose #23203 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:20 verbose #23204 > > inl listener_stop (listener : tcp_listener) : () =
00:30:20 verbose #23205 > > $'!listener.Stop' ()
00:30:21 verbose #23206 > >
00:30:21 verbose #23207 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:21 verbose #23208 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:21 verbose #23209 > > │ ### client_connect_async │
00:30:21 verbose #23210 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:21 verbose #23211 > >
00:30:21 verbose #23212 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:21 verbose #23213 > > inl client_connect_async
00:30:21 verbose #23214 > > (host : string)
00:30:21 verbose #23215 > > (port : i32)
00:30:21 verbose #23216 > > (ct : threading.cancellation_token)
00:30:21 verbose #23217 > > (client : tcp_client)
00:30:21 verbose #23218 > > : async.value_task
00:30:21 verbose #23219 > > =
00:30:21 verbose #23220 > > $'!client.ConnectAsync (!host, !port, !ct)'
00:30:22 verbose #23221 > >
00:30:22 verbose #23222 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:22 verbose #23223 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:22 verbose #23224 > > │ ### test_port_open │
00:30:22 verbose #23225 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:22 verbose #23226 > >
00:30:22 verbose #23227 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:22 verbose #23228 > > inl test_port_open host port : _ bool = async.new_async fun () =>
00:30:22 verbose #23229 > > inl ct = async.cancellation_token () |> async.let'
00:30:22 verbose #23230 > > inl client = new_tcp_client () |> use
00:30:22 verbose #23231 > > try_unit
00:30:22 verbose #23232 > > fun () =>
00:30:22 verbose #23233 > > client |> client_connect_async host port ct |>
00:30:22 verbose #23234 > > async.await_value_task_unit |> async.do
00:30:22 verbose #23235 > > return true
00:30:22 verbose #23236 > > fun ex =>
00:30:22 verbose #23237 > > inl ex = ex |> sm'.format_exception
00:30:22 verbose #23238 > > trace Verbose (fun () => $'$"networking.test_port_open / port:
00:30:22 verbose #23239 > > {!port} / ex: {!ex}"') _locals
00:30:22 verbose #23240 > > return false
00:30:22 verbose #23241 > >
00:30:22 verbose #23242 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:22 verbose #23243 > > //// test
00:30:22 verbose #23244 > >
00:30:22 verbose #23245 > > test_port_open "127.0.0.1" 65536
00:30:22 verbose #23246 > > |> async.run_with_timeout 120
00:30:22 verbose #23247 > > |> _assert_eq (Some false)
00:30:25 verbose #23248 > >
00:30:25 verbose #23249 > > ╭─[ 2.48s - stdout ]───────────────────────────────────────────────────────────╮
00:30:25 verbose #23250 > > │ 00:00:00 verbose #1 networking.test_port_open / port: 65536 / ex: │
00:30:25 verbose #23251 > > │ System.ArgumentOutOfRangeException: Specified argument was out of the range │
00:30:25 verbose #23252 > > │ of valid values. (Parameter 'port') │
00:30:25 verbose #23253 > > │ assert_eq / actual: US4_0 false / expected: US4_0 false │
00:30:25 verbose #23254 > > │ │
00:30:25 verbose #23255 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:25 verbose #23256 > >
00:30:25 verbose #23257 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:25 verbose #23258 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:25 verbose #23259 > > │ ### test_port_open_timeout │
00:30:25 verbose #23260 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:25 verbose #23261 > >
00:30:25 verbose #23262 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:25 verbose #23263 > > inl test_port_open_timeout timeout host port : _ bool = async.new_async_unit fun
00:30:25 verbose #23264 > > () =>
00:30:25 verbose #23265 > > test_port_open host port
00:30:25 verbose #23266 > > |> async.run_with_timeout_async timeout
00:30:25 verbose #23267 > > |> async.let'
00:30:25 verbose #23268 > > |> function
00:30:25 verbose #23269 > > | None => false
00:30:25 verbose #23270 > > | Some result => result
00:30:25 verbose #23271 > > |> return
00:30:25 verbose #23272 > >
00:30:25 verbose #23273 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:25 verbose #23274 > > //// test
00:30:25 verbose #23275 > >
00:30:25 verbose #23276 > > test_port_open_timeout 120 "127.0.0.1" 65535
00:30:25 verbose #23277 > > |> async.run_synchronously
00:30:25 verbose #23278 > > |> _assert_eq false
00:30:27 verbose #23279 > >
00:30:27 verbose #23280 > > ╭─[ 1.22s - stdout ]───────────────────────────────────────────────────────────╮
00:30:27 verbose #23281 > > │ 00:00:00 debug #1 async.run_with_timeout_async / timeout: 120 │
00:30:27 verbose #23282 > > │ assert_eq / actual: false / expected: false │
00:30:27 verbose #23283 > > │ │
00:30:27 verbose #23284 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:27 verbose #23285 > >
00:30:27 verbose #23286 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:27 verbose #23287 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:27 verbose #23288 > > │ ### wait_for_port_access │
00:30:27 verbose #23289 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:27 verbose #23290 > >
00:30:27 verbose #23291 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:27 verbose #23292 > > inl wait_for_port_access timeout status host port : _ i64 =
00:30:27 verbose #23293 > > let rec loop retry : _ i64 = async.new_async_unit fun () =>
00:30:27 verbose #23294 > > inl isPortOpen =
00:30:27 verbose #23295 > > match timeout |> optionm'.unbox with
00:30:27 verbose #23296 > > | None => test_port_open host port
00:30:27 verbose #23297 > > | Some timeout => test_port_open_timeout timeout host port
00:30:27 verbose #23298 > > |> async.let'
00:30:27 verbose #23299 > >
00:30:27 verbose #23300 > > fix_condition
00:30:27 verbose #23301 > > fun () => isPortOpen = status
00:30:27 verbose #23302 > > fun () => retry |> return
00:30:27 verbose #23303 > > fun () =>
00:30:27 verbose #23304 > > if retry % 100 = 0 then
00:30:27 verbose #23305 > > inl _locals () = $'$"port: {!port} / retry: {!retry}
00:30:27 verbose #23306 > > timeout: %A{!timeout} / status: {!status} / {!_locals ()}"'
00:30:27 verbose #23307 > > trace Verbose (fun () => "networking.wait_for_port_access")
00:30:27 verbose #23308 > > _locals
00:30:27 verbose #23309 > > async.sleep 10 |> async.do
00:30:27 verbose #23310 > > loop (retry + 1) |> async.return_await
00:30:27 verbose #23311 > > loop 0i64
00:30:27 verbose #23312 > >
00:30:27 verbose #23313 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:27 verbose #23314 > > //// test
00:30:27 verbose #23315 > >
00:30:27 verbose #23316 > > inl lock_port host port = async.new_async fun () =>
00:30:27 verbose #23317 > > trace Debug (fun () => "_1") _locals
00:30:27 verbose #23318 > > async.sleep 5000 |> async.do
00:30:27 verbose #23319 > > inl listener = new_tcp_listener (host |> ip_address_parse) port |> use
00:30:27 verbose #23320 > > trace Debug (fun () => "_2") _locals
00:30:27 verbose #23321 > > listener |> listener_start
00:30:27 verbose #23322 > > trace Debug (fun () => "_3") _locals
00:30:27 verbose #23323 > > async.sleep 2000 |> async.do
00:30:27 verbose #23324 > > trace Debug (fun () => "_4") _locals
00:30:27 verbose #23325 > > $'!listener.Stop' ()
00:30:27 verbose #23326 > > trace Debug (fun () => "_5") _locals
00:30:27 verbose #23327 > >
00:30:27 verbose #23328 > > inl host = "127.0.0.1"
00:30:27 verbose #23329 > > inl port = 5555i32
00:30:27 verbose #23330 > >
00:30:27 verbose #23331 > > fun () =>
00:30:27 verbose #23332 > > trace Debug (fun () => "1") _locals
00:30:27 verbose #23333 > > inl child = lock_port host port |> async.start_child |> async.let'
00:30:27 verbose #23334 > > trace Debug (fun () => "2") _locals
00:30:27 verbose #23335 > > async.sleep 1 |> async.do
00:30:27 verbose #23336 > > trace Debug (fun () => "3") _locals
00:30:27 verbose #23337 > > inl retries1 = wait_for_port_access (None |> optionm'.box) true host port |>
00:30:27 verbose #23338 > > async.let'
00:30:27 verbose #23339 > > trace Debug (fun () => "4") _locals
00:30:27 verbose #23340 > > inl retries2 = wait_for_port_access (None |> optionm'.box) false host port
00:30:27 verbose #23341 > > |> async.let'
00:30:27 verbose #23342 > > trace Debug (fun () => "5") _locals
00:30:27 verbose #23343 > > child |> async.do
00:30:27 verbose #23344 > > trace Debug (fun () => "6") _locals
00:30:27 verbose #23345 > > (retries1, retries2) |> return
00:30:27 verbose #23346 > > |> async.new_async_unit
00:30:27 verbose #23347 > > |> async.run_with_timeout 20000
00:30:27 verbose #23348 > > |> function
00:30:27 verbose #23349 > > | Some (retries1, retries2) =>
00:30:27 verbose #23350 > > retries1
00:30:27 verbose #23351 > > |> _assert_between
00:30:27 verbose #23352 > > if platform.is_windows () then 2i64 else 2
00:30:27 verbose #23353 > > if platform.is_windows () then 5 else 1500
00:30:27 verbose #23354 > >
00:30:27 verbose #23355 > > retries2
00:30:27 verbose #23356 > > |> _assert_between
00:30:27 verbose #23357 > > if platform.is_windows () then 80i64 else 80
00:30:27 verbose #23358 > > if platform.is_windows () then 200 else 600
00:30:27 verbose #23359 > >
00:30:27 verbose #23360 > > true
00:30:27 verbose #23361 > > | _ => false
00:30:27 verbose #23362 > > |> _assert_eq true
00:30:38 verbose #23363 > >
00:30:38 verbose #23364 > > ╭─[ 10.89s - stdout ]──────────────────────────────────────────────────────────╮
00:30:38 verbose #23365 > > │ 00:00:00 debug #1 1 │
00:30:38 verbose #23366 > > │ 00:00:00 debug #2 _1 │
00:30:38 verbose #23367 > > │ 00:00:00 debug #3 2 │
00:30:38 verbose #23368 > > │ 00:00:00 debug #4 3 │
00:30:38 verbose #23369 > > │ 00:00:02 verbose #5 networking.test_port_open / port: 5555 / ex: │
00:30:38 verbose #23370 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:30:38 verbose #23371 > > │ be made because the target machine actively refused it.) │
00:30:38 verbose #23372 > > │ 00:00:02 verbose #6 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:30:38 verbose #23373 > > │ / timeout: None / status: True │
00:30:38 verbose #23374 > > │ 00:00:04 verbose #7 networking.test_port_open / port: 5555 / ex: │
00:30:38 verbose #23375 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:30:38 verbose #23376 > > │ be made because the target machine actively refused it.) │
00:30:38 verbose #23377 > > │ 00:00:05 debug #8 _2 │
00:30:38 verbose #23378 > > │ 00:00:05 debug #9 _3 │
00:30:38 verbose #23379 > > │ 00:00:05 debug #10 4 │
00:30:38 verbose #23380 > > │ 00:00:05 verbose #11 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:30:38 verbose #23381 > > │ / timeout: None / status: False │
00:30:38 verbose #23382 > > │ 00:00:06 verbose #12 networking.wait_for_port_access / port: 5555 / retry: │
00:30:38 verbose #23383 > > │ 100 / timeout: None / status: False │
00:30:38 verbose #23384 > > │ 00:00:07 debug #13 _4 │
00:30:38 verbose #23385 > > │ 00:00:07 debug #14 _5 │
00:30:38 verbose #23386 > > │ 00:00:09 verbose #15 networking.test_port_open / port: 5555 / ex: │
00:30:38 verbose #23387 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:30:38 verbose #23388 > > │ be made because the target machine actively refused it.) │
00:30:38 verbose #23389 > > │ 00:00:09 debug #16 5 │
00:30:38 verbose #23390 > > │ 00:00:09 debug #17 6 │
00:30:38 verbose #23391 > > │ assert_between / actual: 2L / expected: struct (2L, 5L) │
00:30:38 verbose #23392 > > │ assert_between / actual: 114L / expected: struct (80L, 200L) │
00:30:38 verbose #23393 > > │ assert_eq / actual: true / expected: true │
00:30:38 verbose #23394 > > │ │
00:30:38 verbose #23395 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:38 verbose #23396 > >
00:30:38 verbose #23397 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:38 verbose #23398 > > //// test
00:30:38 verbose #23399 > >
00:30:38 verbose #23400 > > inl lock_port host port = async.new_async_unit fun () =>
00:30:38 verbose #23401 > > trace Debug (fun () => "_1") _locals
00:30:38 verbose #23402 > > async.sleep 500 |> async.do
00:30:38 verbose #23403 > > inl listener = new_tcp_listener (ip_address_parse host) port |> use
00:30:38 verbose #23404 > > trace Debug (fun () => "_2") _locals
00:30:38 verbose #23405 > > listener |> listener_start
00:30:38 verbose #23406 > > trace Debug (fun () => "_3") _locals
00:30:38 verbose #23407 > > async.sleep 200 |> async.do
00:30:38 verbose #23408 > > trace Debug (fun () => "_4") _locals
00:30:38 verbose #23409 > > listener |> listener_stop
00:30:38 verbose #23410 > > trace Debug (fun () => "_5") _locals
00:30:38 verbose #23411 > >
00:30:38 verbose #23412 > > inl host = "127.0.0.1"
00:30:38 verbose #23413 > > inl port = 5555
00:30:38 verbose #23414 > >
00:30:38 verbose #23415 > > fun () =>
00:30:38 verbose #23416 > > trace Debug (fun () => "1") _locals
00:30:38 verbose #23417 > > inl child = lock_port host port |> async.start_child |> async.let'
00:30:38 verbose #23418 > > trace Debug (fun () => "2") _locals
00:30:38 verbose #23419 > > async.sleep 1 |> async.do
00:30:38 verbose #23420 > > trace Debug (fun () => "3") _locals
00:30:38 verbose #23421 > > inl retries1 = wait_for_port_access (Some 60 |> optionm'.box) true host port
00:30:38 verbose #23422 > > |> async.let'
00:30:38 verbose #23423 > > trace Debug (fun () => "4") _locals
00:30:38 verbose #23424 > > inl retries2 = wait_for_port_access (Some 60 |> optionm'.box) false host
00:30:38 verbose #23425 > > port |> async.let'
00:30:38 verbose #23426 > > trace Debug (fun () => "5") _locals
00:30:38 verbose #23427 > > child |> async.do
00:30:38 verbose #23428 > > trace Debug (fun () => "6") _locals
00:30:38 verbose #23429 > > (retries1, retries2) |> return
00:30:38 verbose #23430 > > |> async.new_async_unit
00:30:38 verbose #23431 > > |> async.run_with_timeout 2000
00:30:38 verbose #23432 > > |> function
00:30:38 verbose #23433 > > | Some (retries1, retries2) =>
00:30:38 verbose #23434 > > retries1
00:30:38 verbose #23435 > > |> _assert_between
00:30:38 verbose #23436 > > if platform.is_windows () then 4i64 else 2
00:30:38 verbose #23437 > > if platform.is_windows () then 15 else 150
00:30:38 verbose #23438 > >
00:30:38 verbose #23439 > > retries2
00:30:38 verbose #23440 > > |> _assert_between
00:30:38 verbose #23441 > > if platform.is_windows () then 5i64 else 0
00:30:38 verbose #23442 > > if platform.is_windows () then 20 else 60
00:30:38 verbose #23443 > >
00:30:38 verbose #23444 > > true
00:30:38 verbose #23445 > > | _ => false
00:30:38 verbose #23446 > > |> _assert_eq true
00:30:41 verbose #23447 > >
00:30:41 verbose #23448 > > ╭─[ 2.55s - stdout ]───────────────────────────────────────────────────────────╮
00:30:41 verbose #23449 > > │ 00:00:00 debug #1 1 │
00:30:41 verbose #23450 > > │ 00:00:00 debug #2 2 │
00:30:41 verbose #23451 > > │ 00:00:00 debug #3 _1 │
00:30:41 verbose #23452 > > │ 00:00:00 debug #4 3 │
00:30:41 verbose #23453 > > │ 00:00:00 debug #5 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23454 > > │ 00:00:00 verbose #6 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:30:41 verbose #23455 > > │ / timeout: Some 60 / status: True │
00:30:41 verbose #23456 > > │ 00:00:00 debug #7 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23457 > > │ 00:00:00 debug #8 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23458 > > │ 00:00:00 debug #9 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23459 > > │ 00:00:00 debug #10 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23460 > > │ 00:00:00 debug #11 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23461 > > │ 00:00:00 debug #12 _2 │
00:30:41 verbose #23462 > > │ 00:00:00 debug #13 _3 │
00:30:41 verbose #23463 > > │ 00:00:00 debug #14 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23464 > > │ 00:00:00 debug #15 4 │
00:30:41 verbose #23465 > > │ 00:00:00 verbose #16 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:30:41 verbose #23466 > > │ / timeout: Some 60 / status: False │
00:30:41 verbose #23467 > > │ 00:00:00 debug #17 _4 │
00:30:41 verbose #23468 > > │ 00:00:00 debug #18 _5 │
00:30:41 verbose #23469 > > │ 00:00:00 debug #19 async.run_with_timeout_async / timeout: 60 │
00:30:41 verbose #23470 > > │ 00:00:00 debug #20 5 │
00:30:41 verbose #23471 > > │ 00:00:00 debug #21 6 │
00:30:41 verbose #23472 > > │ assert_between / actual: 7L / expected: struct (4L, 15L) │
00:30:41 verbose #23473 > > │ assert_between / actual: 9L / expected: struct (5L, 20L) │
00:30:41 verbose #23474 > > │ assert_eq / actual: true / expected: true │
00:30:41 verbose #23475 > > │ │
00:30:41 verbose #23476 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:41 verbose #23477 > >
00:30:41 verbose #23478 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:41 verbose #23479 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:41 verbose #23480 > > │ ### get_available_port │
00:30:41 verbose #23481 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:41 verbose #23482 > >
00:30:41 verbose #23483 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:41 verbose #23484 > > inl get_available_port timeout host initial_port : _ i32 =
00:30:41 verbose #23485 > > let rec loop port = async.new_async_unit fun () =>
00:30:41 verbose #23486 > > inl is_port_open =
00:30:41 verbose #23487 > > match timeout |> optionm'.unbox with
00:30:41 verbose #23488 > > | None => test_port_open host port
00:30:41 verbose #23489 > > | Some timeout => test_port_open_timeout timeout host port
00:30:41 verbose #23490 > > |> async.let'
00:30:41 verbose #23491 > > fix_condition
00:30:41 verbose #23492 > > fun () => is_port_open |> not
00:30:41 verbose #23493 > > fun () => port |> return
00:30:41 verbose #23494 > > fun () => loop (port + 1) |> async.return_await
00:30:41 verbose #23495 > > loop initial_port
00:30:41 verbose #23496 > >
00:30:41 verbose #23497 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:41 verbose #23498 > > //// test
00:30:41 verbose #23499 > >
00:30:41 verbose #23500 > > inl lock_ports host port = async.new_async_unit fun () =>
00:30:41 verbose #23501 > > trace Debug (fun () => "_1") _locals
00:30:41 verbose #23502 > > inl listener1 = new_tcp_listener (ip_address_parse host) port |> use
00:30:41 verbose #23503 > > inl listener2 = new_tcp_listener (ip_address_parse host) (port + 1) |> use
00:30:41 verbose #23504 > > trace Debug (fun () => "_2") _locals
00:30:41 verbose #23505 > > listener1 |> listener_start
00:30:41 verbose #23506 > > listener2 |> listener_start
00:30:41 verbose #23507 > > trace Debug (fun () => "_3") _locals
00:30:41 verbose #23508 > > async.sleep 4000 |> async.do
00:30:41 verbose #23509 > > trace Debug (fun () => "_4") _locals
00:30:41 verbose #23510 > > listener1 |> listener_stop
00:30:41 verbose #23511 > > listener2 |> listener_stop
00:30:41 verbose #23512 > > trace Debug (fun () => "_5") _locals
00:30:41 verbose #23513 > >
00:30:41 verbose #23514 > > inl host = "127.0.0.1"
00:30:41 verbose #23515 > > inl port = 5555
00:30:41 verbose #23516 > >
00:30:41 verbose #23517 > > fun () =>
00:30:41 verbose #23518 > > trace Debug (fun () => "1") _locals
00:30:41 verbose #23519 > > inl child = lock_ports host port |> async.start_child |> async.let'
00:30:41 verbose #23520 > > trace Debug (fun () => "2") _locals
00:30:41 verbose #23521 > > async.sleep 240 |> async.do
00:30:41 verbose #23522 > > trace Debug (fun () => "3") _locals
00:30:41 verbose #23523 > > inl available_port = get_available_port (None |> optionm'.box) host port |>
00:30:41 verbose #23524 > > async.let'
00:30:41 verbose #23525 > > trace Debug (fun () => "4") _locals
00:30:41 verbose #23526 > > inl retries = wait_for_port_access (None |> optionm'.box) false host port |>
00:30:41 verbose #23527 > > async.let'
00:30:41 verbose #23528 > > trace Debug (fun () => "5") _locals
00:30:41 verbose #23529 > > child |> async.do
00:30:41 verbose #23530 > > trace Debug (fun () => "6") _locals
00:30:41 verbose #23531 > > (available_port, retries) |> return
00:30:41 verbose #23532 > > |> async.new_async_unit
00:30:41 verbose #23533 > > |> async.run_with_timeout 15000
00:30:41 verbose #23534 > > |> function
00:30:41 verbose #23535 > > | Some (available_port, retries) =>
00:30:41 verbose #23536 > > available_port |> _assert_eq (port + 2)
00:30:41 verbose #23537 > >
00:30:41 verbose #23538 > > retries
00:30:41 verbose #23539 > > |> _assert_between
00:30:41 verbose #23540 > > if platform.is_windows () then 50i64 else 50
00:30:41 verbose #23541 > > if platform.is_windows () then 150 else 1200
00:30:41 verbose #23542 > >
00:30:41 verbose #23543 > > true
00:30:41 verbose #23544 > > | _ => false
00:30:41 verbose #23545 > > |> _assert_eq true
00:30:49 verbose #23546 > >
00:30:49 verbose #23547 > > ╭─[ 7.85s - stdout ]───────────────────────────────────────────────────────────╮
00:30:49 verbose #23548 > > │ 00:00:00 debug #1 1 │
00:30:49 verbose #23549 > > │ 00:00:00 debug #2 _1 │
00:30:49 verbose #23550 > > │ 00:00:00 debug #3 2 │
00:30:49 verbose #23551 > > │ 00:00:00 debug #4 _2 │
00:30:49 verbose #23552 > > │ 00:00:00 debug #5 _3 │
00:30:49 verbose #23553 > > │ 00:00:00 debug #6 3 │
00:30:49 verbose #23554 > > │ 00:00:02 verbose #7 networking.test_port_open / port: 5557 / ex: │
00:30:49 verbose #23555 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:30:49 verbose #23556 > > │ be made because the target machine actively refused it.) │
00:30:49 verbose #23557 > > │ 00:00:02 debug #8 4 │
00:30:49 verbose #23558 > > │ 00:00:02 verbose #9 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:30:49 verbose #23559 > > │ / timeout: None / status: False │
00:30:49 verbose #23560 > > │ 00:00:03 verbose #10 networking.wait_for_port_access / port: 5555 / retry: │
00:30:49 verbose #23561 > > │ 100 / timeout: None / status: False │
00:30:49 verbose #23562 > > │ 00:00:04 debug #11 _4 │
00:30:49 verbose #23563 > > │ 00:00:04 debug #12 _5 │
00:30:49 verbose #23564 > > │ 00:00:06 verbose #13 networking.test_port_open / port: 5555 / ex: │
00:30:49 verbose #23565 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:30:49 verbose #23566 > > │ be made because the target machine actively refused it.) │
00:30:49 verbose #23567 > > │ 00:00:06 debug #14 5 │
00:30:49 verbose #23568 > > │ 00:00:06 debug #15 6 │
00:30:49 verbose #23569 > > │ assert_eq / actual: 5557 / expected: 5557 │
00:30:49 verbose #23570 > > │ assert_between / actual: 105L / expected: struct (50L, 150L) │
00:30:49 verbose #23571 > > │ assert_eq / actual: true / expected: true │
00:30:49 verbose #23572 > > │ │
00:30:49 verbose #23573 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:49 verbose #23574 > >
00:30:49 verbose #23575 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:49 verbose #23576 > > //// test
00:30:49 verbose #23577 > >
00:30:49 verbose #23578 > > inl lock_ports host port = async.new_async_unit fun () =>
00:30:49 verbose #23579 > > trace Debug (fun () => "_1") _locals
00:30:49 verbose #23580 > > inl listener1 = new_tcp_listener (ip_address_parse host) port |> use
00:30:49 verbose #23581 > > inl listener2 = new_tcp_listener (ip_address_parse host) (port + 1) |> use
00:30:49 verbose #23582 > > trace Debug (fun () => "_2") _locals
00:30:49 verbose #23583 > > listener1 |> listener_start
00:30:49 verbose #23584 > > listener2 |> listener_start
00:30:49 verbose #23585 > > trace Debug (fun () => "_3") _locals
00:30:49 verbose #23586 > > async.sleep 400 |> async.do
00:30:49 verbose #23587 > > trace Debug (fun () => "_4") _locals
00:30:49 verbose #23588 > > listener1 |> listener_stop
00:30:49 verbose #23589 > > listener2 |> listener_stop
00:30:49 verbose #23590 > > trace Debug (fun () => "_5") _locals
00:30:49 verbose #23591 > >
00:30:49 verbose #23592 > > inl host = "127.0.0.1"
00:30:49 verbose #23593 > > inl port = 5555
00:30:49 verbose #23594 > >
00:30:49 verbose #23595 > > fun () =>
00:30:49 verbose #23596 > > trace Debug (fun () => "1") _locals
00:30:49 verbose #23597 > > inl child = lock_ports host port |> async.start_child |> async.let'
00:30:49 verbose #23598 > > trace Debug (fun () => "2") _locals
00:30:49 verbose #23599 > > async.sleep 240 |> async.do
00:30:49 verbose #23600 > > trace Debug (fun () => "3") _locals
00:30:49 verbose #23601 > > inl available_port = get_available_port (Some 60 |> optionm'.box) host port
00:30:49 verbose #23602 > > |> async.let'
00:30:49 verbose #23603 > > trace Debug (fun () => "4") _locals
00:30:49 verbose #23604 > > inl retries = wait_for_port_access (Some 60 |> optionm'.box) false host port
00:30:49 verbose #23605 > > |> async.let'
00:30:49 verbose #23606 > > trace Debug (fun () => "5") _locals
00:30:49 verbose #23607 > > child |> async.do
00:30:49 verbose #23608 > > trace Debug (fun () => "6") _locals
00:30:49 verbose #23609 > > (available_port, retries) |> return
00:30:49 verbose #23610 > > |> async.new_async_unit
00:30:49 verbose #23611 > > |> async.run_with_timeout 1500
00:30:49 verbose #23612 > > |> function
00:30:49 verbose #23613 > > | Some (available_port, retries) =>
00:30:49 verbose #23614 > > available_port |> _assert_eq (port + 2)
00:30:49 verbose #23615 > >
00:30:49 verbose #23616 > > retries
00:30:49 verbose #23617 > > |> _assert_between
00:30:49 verbose #23618 > > (if platform.is_windows () then 2i64 else 1)
00:30:49 verbose #23619 > > (if platform.is_windows () then 10 else 120)
00:30:49 verbose #23620 > >
00:30:49 verbose #23621 > > true
00:30:49 verbose #23622 > > | _ => false
00:30:49 verbose #23623 > > |> _assert_eq true
00:30:52 verbose #23624 > >
00:30:52 verbose #23625 > > ╭─[ 2.66s - stdout ]───────────────────────────────────────────────────────────╮
00:30:52 verbose #23626 > > │ 00:00:00 debug #1 1 │
00:30:52 verbose #23627 > > │ 00:00:00 debug #2 2 │
00:30:52 verbose #23628 > > │ 00:00:00 debug #3 _1 │
00:30:52 verbose #23629 > > │ 00:00:00 debug #4 _2 │
00:30:52 verbose #23630 > > │ 00:00:00 debug #5 _3 │
00:30:52 verbose #23631 > > │ 00:00:00 debug #6 3 │
00:30:52 verbose #23632 > > │ 00:00:00 debug #7 async.run_with_timeout_async / timeout: 60 │
00:30:52 verbose #23633 > > │ 00:00:00 debug #8 4 │
00:30:52 verbose #23634 > > │ 00:00:00 verbose #9 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:30:52 verbose #23635 > > │ / timeout: Some 60 / status: False │
00:30:52 verbose #23636 > > │ 00:00:00 debug #10 _4 │
00:30:52 verbose #23637 > > │ 00:00:00 debug #11 _5 │
00:30:52 verbose #23638 > > │ 00:00:00 debug #12 async.run_with_timeout_async / timeout: 60 │
00:30:52 verbose #23639 > > │ 00:00:00 debug #13 5 │
00:30:52 verbose #23640 > > │ 00:00:00 debug #14 6 │
00:30:52 verbose #23641 > > │ assert_eq / actual: 5557 / expected: 5557 │
00:30:52 verbose #23642 > > │ assert_between / actual: 3L / expected: struct (2L, 10L) │
00:30:52 verbose #23643 > > │ assert_eq / actual: true / expected: true │
00:30:52 verbose #23644 > > │ │
00:30:52 verbose #23645 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:52 verbose #23646 > >
00:30:52 verbose #23647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:30:52 verbose #23648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:30:52 verbose #23649 > > │ ## main │
00:30:52 verbose #23650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:30:52 verbose #23651 > >
00:30:52 verbose #23652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:30:52 verbose #23653 > > inl main () =
00:30:52 verbose #23654 > > types ()
00:30:52 verbose #23655 > > init_trace_state None
00:30:52 verbose #23656 > > $'let test_port_open x = !test_port_open x' : ()
00:30:52 verbose #23657 > > $'let test_port_open_timeout x = !test_port_open_timeout x' : ()
00:30:52 verbose #23658 > > $'let wait_for_port_access x = !wait_for_port_access x' : ()
00:30:52 verbose #23659 > > $'let get_available_port x = !get_available_port x' : ()
00:30:54 verbose #23660 > 00:00:58 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 35079
00:30:54 verbose #23661 > 00:00:58 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:30:57 verbose #23662 > 00:01:01 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/networking.dib.ipynb to html
00:30:57 verbose #23663 > 00:01:01 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:30:57 verbose #23664 > 00:01:01 verbose #7 ! validate(nb)
00:30:59 verbose #23665 > 00:01:02 verbose #8 ! [NbConvertApp] Writing 368516 bytes to c:\home\git\polyglot\lib\spiral\networking.dib.html
00:30:59 verbose #23666 > 00:01:03 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651
00:30:59 verbose #23667 > 00:01:03 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651
00:30:59 verbose #23668 > 00:01:03 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/networking.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/networking.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:31:00 verbose #23669 > 00:01:03 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:31:00 verbose #23670 > 00:01:03 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:31:00 verbose #23671 > 00:01:04 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 35789
00:31:00 debug #23672 runtime.execute_with_options_async / exit_code: 0 / output.Length: 39500
00:31:00 debug #31 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path networking.dib --retries 3
00:00:00 debug #7 writeDibCode / output: Spi / path: common.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: threading.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: crypto.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: testing.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: runtime.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: async.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: trace.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: networking.dib
00:00:00 debug #9 parseDibCode / output: Spi / file: networking.dib
00:00:00 debug #12 parseDibCode / output: Spi / file: testing.dib
00:00:00 debug #14 parseDibCode / output: Spi / file: async.dib
00:00:00 debug #9 parseDibCode / output: Spi / file: runtime.dib
00:00:00 debug #15 parseDibCode / output: Spi / file: trace.dib
00:00:00 debug #14 parseDibCode / output: Spi / file: crypto.dib
00:00:00 debug #10 parseDibCode / output: Spi / file: common.dib
00:00:00 debug #12 parseDibCode / output: Spi / file: threading.dib
00:00:00 debug #17 writeDibCode / output: Spi / path: resultm.dib
00:00:00 debug #20 writeDibCode / output: Spi / path: env.dib
00:00:00 debug #20 writeDibCode / output: Spi / path: parsing.dib
00:00:00 debug #17 writeDibCode / output: Spi / path: base.dib
00:00:00 debug #18 writeDibCode / output: Spi / path: iter.dib
00:00:00 debug #22 parseDibCode / output: Spi / file: env.dib
00:00:00 debug #24 parseDibCode / output: Spi / file: base.dib
00:00:00 debug #22 parseDibCode / output: Spi / file: resultm.dib
00:00:00 debug #23 parseDibCode / output: Spi / file: parsing.dib
00:00:00 debug #25 parseDibCode / output: Spi / file: iter.dib
00:00:00 debug #26 writeDibCode / output: Spi / path: console.dib
00:00:00 debug #27 writeDibCode / output: Spi / path: date_time.dib
00:00:00 debug #28 writeDibCode / output: Spi / path: file_system.dib
00:00:00 debug #29 parseDibCode / output: Spi / file: console.dib
00:00:00 debug #31 parseDibCode / output: Spi / file: file_system.dib
00:00:00 debug #30 parseDibCode / output: Spi / file: date_time.dib
00:00:00 debug #33 writeDibCode / output: Spi / path: math.dib
00:00:00 debug #33 writeDibCode / output: Spi / path: guid.dib
00:00:00 debug #34 writeDibCode / output: Spi / path: mapm.dib
00:00:00 debug #35 parseDibCode / output: Spi / file: math.dib
00:00:00 debug #37 parseDibCode / output: Spi / file: mapm.dib
00:00:00 debug #36 parseDibCode / output: Spi / file: guid.dib
00:00:00 debug #38 writeDibCode / output: Spi / path: optionm'.dib
00:00:00 debug #39 writeDibCode / output: Spi / path: am'.dib
00:00:00 debug #41 parseDibCode / output: Spi / file: am'.dib
00:00:00 debug #40 parseDibCode / output: Spi / file: optionm'.dib
00:00:00 debug #42 writeDibCode / output: Spi / path: sm'.dib
00:00:00 debug #43 writeDibCode / output: Spi / path: listm'.dib
00:00:00 debug #45 parseDibCode / output: Spi / file: listm'.dib
00:00:00 debug #44 parseDibCode / output: Spi / file: sm'.dib
00:00:00 debug #46 writeDibCode / output: Spi / path: reflection.dib
00:00:00 debug #47 parseDibCode / output: Spi / file: reflection.dib
00:00:00 debug #48 writeDibCode / output: Spi / path: python.dib
00:00:00 debug #49 parseDibCode / output: Spi / file: python.dib
00:00:00 debug #50 writeDibCode / output: Spi / path: typescript.dib
00:00:00 debug #51 writeDibCode / output: Spi / path: benchmark.dib
00:00:00 debug #53 parseDibCode / output: Spi / file: benchmark.dib
00:00:00 debug #52 parseDibCode / output: Spi / file: typescript.dib
00:00:00 debug #54 writeDibCode / output: Spi / path: stream.dib
00:00:00 debug #55 parseDibCode / output: Spi / file: stream.dib
00:00:00 debug #56 writeDibCode / output: Spi / path: seq.dib
00:00:00 debug #57 writeDibCode / output: Spi / path: util.dib
00:00:00 debug #58 parseDibCode / output: Spi / file: seq.dib
00:00:00 debug #59 parseDibCode / output: Spi / file: util.dib
00:00:00 debug #60 writeDibCode / output: Spi / path: platform.dib
00:00:00 debug #61 writeDibCode / output: Spi / path: rust.dib
00:00:00 debug #62 parseDibCode / output: Spi / file: platform.dib
00:00:00 debug #63 parseDibCode / output: Spi / file: rust.dib
00:00:00 debug #64 writeDibCode / output: Spi / path: physics.dib
00:00:00 debug #65 parseDibCode / output: Spi / file: physics.dib
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #4 async.run_with_timeout_async / timeout: 500
00:00:01 debug #3 async.run_with_timeout_async / timeout: 500
00:00:01 debug #3 async.run_with_timeout_async / timeout: 500
00:00:01 debug #6 async.run_with_timeout_async / timeout: 500
00:00:01 debug #6 async.run_with_timeout_async / timeout: 500
00:00:01 debug #3 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #3 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #3 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #3 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #3 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #6 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #6 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #6 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #8 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:01 debug #8 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:02 verbose #9 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # trace\n\n/// ## types\ninl types () =\n rust.types ()\n sm\u0027...0027let trace x = !trace x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result:
00:00:02 verbose #10 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # networking\nopen rust_operators\n\n/// ## types\ninl types () =\n g...!get_available_port x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/networking.spi"}} / result:
00:00:02 verbose #11 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # async\nopen rust_operators\n\n/// ## types\ninl types () =\n global...token_with_default_async x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result:
00:00:02 verbose #12 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # runtime\nopen rust_operators\nopen sm\u0027_operators\n\n/// ## types\...t_args x = !split_args x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result:
00:00:02 verbose #13 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # threading\nopen rust_operators\n\n/// ## types\ninl types () =\n gl...new_disposable_token x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/threading.spi"}} / result:
00:00:02 verbose #14 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result:
00:00:02 verbose #15 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/networking.spi"}} / result:
00:00:02 verbose #16 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result:
00:00:02 verbose #17 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result:
00:00:02 verbose #18 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/threading.spi"}} / result:
00:00:02 debug #19 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]
#endif
type futures_future_JoinAll<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("futu...base.run_target / _v1=None"
v23
let v0 : (System.Threading.CancellationToken -> Async<System.Threading.CancellationToken>) = closure0()
let merge_cancellation_token_with_default_async x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:02 debug #20 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...osure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
let trace x = v2 x
()
/ errors: [] / typeErrorCount: 0
00:00:02 debug #21 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]
#endif
type std_thread_JoinHandle<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::s...=None"
struct (v39, v40)
let v0 : (System.Threading.CancellationToken option -> struct (System.Threading.CancellationToken * System.IDisposable)) = closure0()
let new_disposable_token x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:02 debug #23 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #23 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #24 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]
#endif
type clap_Arg = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]
#endif
type clap_ArgA...td_process_ChildStdin>> -> unit) option * bool * string option)) = closure20()
let execution_options x = v5 x
let v6 : (string -> Result<(string []), string>) = closure21()
let split_args x = v6 x
()
/ errors: [] / typeErrorCount: 0
00:00:03 debug #25 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]
#endif
type reqwest_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuild...> (string -> (int32 -> Async<int64>)))) = closure15()
let wait_for_port_access x = v4 x
let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
let get_available_port x = v5 x
()
/ errors: [] / typeErrorCount: 0
00:00:03 debug #27 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:03 debug #27 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:03 debug #28 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:03 debug #29 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:03 debug #30 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:03 debug #8 async.run_with_timeout_async / timeout: 500
00:00:03 debug #8 async.run_with_timeout_async / timeout: 500
00:00:03 debug #9 async.run_with_timeout_async / timeout: 500
00:00:03 debug #10 async.run_with_timeout_async / timeout: 500
00:00:03 debug #11 async.run_with_timeout_async / timeout: 500
00:00:03 debug #31 Supervisor.buildFile / takeWhileInclusive / path: common.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #32 Supervisor.buildFile / takeWhileInclusive / path: file_system.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #33 Supervisor.buildFile / takeWhileInclusive / path: date_time.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #35 Supervisor.buildFile / takeWhileInclusive / path: file_system.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #35 Supervisor.buildFile / takeWhileInclusive / path: common.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #36 Supervisor.buildFile / takeWhileInclusive / path: date_time.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #37 Supervisor.buildFile / takeWhileInclusive / path: platform.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #38 Supervisor.buildFile / takeWhileInclusive / path: platform.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #39 Supervisor.buildFile / takeWhileInclusive / path: crypto.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #40 Supervisor.buildFile / takeWhileInclusive / path: crypto.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 verbose #41 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # common\n\n/// ## types\ninl types () =\n env.types ()\n rust.typ...et memoize x = !memoize x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result:
00:00:03 verbose #42 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # date_time\nopen rust_operators\nopen sm\u0027_operators\n\n/// ## type... x = !format_iso8601 x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result:
00:00:03 verbose #43 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # file_system\nopen sm\u0027_operators\nopen rust_operators\n\n/// ## ty...003E) x = !combine x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result:
00:00:03 verbose #45 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # crypto\nopen rust_operators\n\n/// ## types\ninl types () =\n globa..._port x = !hash_to_port x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result:
00:00:03 verbose #44 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # platform\nopen rust_operators\n\ninl types () =\n ()\n\n/// ## fsha...et_executable_suffix ()\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/platform.spi"}} / result:
00:00:03 verbose #47 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result:
00:00:03 verbose #47 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result:
00:00:03 verbose #48 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result:
00:00:03 verbose #49 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result:
00:00:03 verbose #50 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/platform.spi"}} / result:
00:00:03 debug #51 Supervisor.buildFile / takeWhileInclusive / path: date_time.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...t new_guid_from_timestamp x = v5 x
let v6 : (string -> (System.DateTime -> string)) = closure11()
let format x = v6 x
let v7 : (System.DateTime -> string) = closure13()
let format_iso8601 x = v7 x
()
/ errors: [] / typeErrorCount: 0
00:00:03 debug #52 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:03 debug #53 Supervisor.buildFile / takeWhileInclusive / path: common.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endi...()
let new_disposable x = v2 x
let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
let retry_fn x = v3 x
let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
let memoize x = v4 x
()
/ errors: [] / typeErrorCount: 0
00:00:03 debug #54 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #55 Supervisor.buildFile / takeWhileInclusive / path: platform.spi / outputContent: type [<Struct>] US0 =
| US0_0
| US0_1
| US0_2
and [<Struct>] US1 =
| US1_0 of f0_0 : US0
| US1_1 of f1_0 : US0
| US1_2 of f2_0 : US0
| US1_3 of f3_0 : US0
| US1_4 of f4... v19
else
let v20 : string = ""
v20
let v0 : (unit -> bool) = closure0()
let is_windows () = v0 ()
let v1 : (unit -> string) = closure1()
let get_executable_suffix () = v1 ()
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #56 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #57 Supervisor.buildFile / takeWhileInclusive / path: crypto.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...uint16 = v8 % 48128us
let v13 : uint16 = v12 + 1024us
v13
let v0 : (string -> string) = closure0()
let hash_text x = v0 x
let v1 : (string -> uint16) = closure1()
let hash_to_port x = v1 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #58 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #59 Supervisor.buildFile / takeWhileInclusive / path: file_system.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]
#endif
type std_fs_File = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]
#endif
type ...ng) = closure52()
let get_workspace_root () = v18 ()
let v19 : (bool -> unit) = closure56()
let init_trace_file x = v19 x
let v20 : (string -> (string -> string)) = closure58()
let (</>) x = v20 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #60 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 debug #12 async.run_with_timeout_async / timeout: 500
00:00:04 debug #61 Supervisor.buildFile / takeWhileInclusive / path: guid.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #62 Supervisor.buildFile / takeWhileInclusive / path: guid.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 verbose #63 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # guid\n\n/// ## guid\n\n/// ### guid\nnominal guid = $\u0027System.Guid...aw_guid x = !new_raw_guid x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result:
00:00:04 verbose #64 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result:
00:00:04 debug #13 async.run_with_timeout_async / timeout: 500
00:00:04 debug #65 Supervisor.buildFile / takeWhileInclusive / path: sm'.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #66 Supervisor.buildFile / takeWhileInclusive / path: sm'.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #67 Supervisor.buildFile / takeWhileInclusive / path: guid.spi / outputContent: let rec closure0 () (v0 : string) : System.Guid =
let v1 : System.Guid = v0 |> System.Guid
v1
and method0 (v0 : string) : System.Guid =
let v1 : bool = true
let mutable _v1 : System.G...string -> System.Guid) = closure0()
let new_guid x = v0 x
let v1 : (string -> System.Guid) = closure1()
let hash_guid x = v1 x
let v2 : (unit -> System.Guid) = closure2()
let new_raw_guid x = v2 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 verbose #68 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # sm\u0027\nopen rust_operators\n\n/// ## types\ninl types () =\n glo...tring std_string = from_std_string\n","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result:
00:00:04 debug #69 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:04 verbose #70 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result:
00:00:04 debug #71 Supervisor.buildFile / takeWhileInclusive / path: sm'.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...tring)) = closure42()
let concat x = v20 x
let v21 : (string -> ((string []) -> string)) = closure44()
let join' x = v21 x
let v22 : (string -> (char [])) = closure46()
let to_char_array x = v22 x
()
/ errors: [] / typeErrorCount: 0
00:00:04 debug #72 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
In [ ]:
{ pwsh ../apps/scheduler/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Tasks.dib --retries 3",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Tasks.dib", "--retries", "3"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/scheduler/Tasks.dib", "--output-path", "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/scheduler/Tasks.dib" --output-path "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #4 > >
00:00:04 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #7 > > │ ## Tasks (Polyglot) │
00:00:04 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #9 > >
00:00:04 verbose #10 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #11 > > //// test
00:00:04 verbose #12 > >
00:00:04 verbose #13 > > open testing
00:00:04 verbose #14 > >
00:00:04 verbose #15 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #16 > > #r
00:00:04 verbose #17 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #18 > > otNet.Interactive.Spiral.dll"
00:00:04 verbose #19 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:04 verbose #20 > > #r
00:00:04 verbose #21 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #22 > > otNet.Interactive.dll"
00:00:04 verbose #23 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:09 verbose #24 > >
00:00:09 verbose #25 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #26 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #27 > > │ ## types │
00:00:09 verbose #28 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #29 > >
00:00:09 verbose #30 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #31 > > inl types () =
00:00:09 verbose #32 > > rust.types ()
00:00:09 verbose #33 > > sm'.types ()
00:00:10 verbose #34 > >
00:00:10 verbose #35 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #36 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #37 > > │ ## task_name │
00:00:10 verbose #38 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #39 > >
00:00:10 verbose #40 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #41 > > nominal task_name = string
00:00:11 verbose #42 > >
00:00:11 verbose #43 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #44 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #45 > > │ ## manual_scheduling │
00:00:11 verbose #46 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #47 > >
00:00:11 verbose #48 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #49 > > union manual_scheduling =
00:00:11 verbose #50 > > | WithSuggestion
00:00:11 verbose #51 > > | WithoutSuggestion
00:00:11 verbose #52 > >
00:00:11 verbose #53 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #54 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #55 > > │ ## recurrency_offset │
00:00:11 verbose #56 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #57 > >
00:00:11 verbose #58 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #59 > > union recurrency_offset =
00:00:11 verbose #60 > > | Days : i32
00:00:11 verbose #61 > > | Weeks : i32
00:00:11 verbose #62 > > | Months : i32
00:00:12 verbose #63 > >
00:00:12 verbose #64 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #65 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #66 > > │ ## day_of_week │
00:00:12 verbose #67 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #68 > >
00:00:12 verbose #69 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #70 > > union day_of_week =
00:00:12 verbose #71 > > | Sunday
00:00:12 verbose #72 > > | Monday
00:00:12 verbose #73 > > | Tuesday
00:00:12 verbose #74 > > | Wednesday
00:00:12 verbose #75 > > | Thursday
00:00:12 verbose #76 > > | Friday
00:00:12 verbose #77 > > | Saturday
00:00:13 verbose #78 > >
00:00:13 verbose #79 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #80 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #81 > > │ ## month │
00:00:13 verbose #82 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #83 > >
00:00:13 verbose #84 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #85 > > union month =
00:00:13 verbose #86 > > | January
00:00:13 verbose #87 > > | February
00:00:13 verbose #88 > > | March
00:00:13 verbose #89 > > | April
00:00:13 verbose #90 > > | May
00:00:13 verbose #91 > > | June
00:00:13 verbose #92 > > | July
00:00:13 verbose #93 > > | August
00:00:13 verbose #94 > > | September
00:00:13 verbose #95 > > | October
00:00:13 verbose #96 > > | November
00:00:13 verbose #97 > > | December
00:00:14 verbose #98 > >
00:00:14 verbose #99 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 verbose #100 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 verbose #101 > > │ ## day │
00:00:14 verbose #102 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #103 > >
00:00:14 verbose #104 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #105 > > nominal day = i32
00:00:14 verbose #106 > >
00:00:14 verbose #107 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 verbose #108 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 verbose #109 > > │ ## year │
00:00:14 verbose #110 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 verbose #111 > >
00:00:14 verbose #112 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 verbose #113 > > nominal year = i32
00:00:15 verbose #114 > >
00:00:15 verbose #115 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:15 verbose #116 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:15 verbose #117 > > │ ## fixed_recurrency │
00:00:15 verbose #118 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:15 verbose #119 > >
00:00:15 verbose #120 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:15 verbose #121 > > union fixed_recurrency =
00:00:15 verbose #122 > > | Weekly : day_of_week
00:00:15 verbose #123 > > | Monthly : day
00:00:15 verbose #124 > > | Yearly : day * month
00:00:16 verbose #125 > >
00:00:16 verbose #126 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 verbose #127 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 verbose #128 > > │ ## recurrency │
00:00:16 verbose #129 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #130 > >
00:00:16 verbose #131 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #132 > > union recurrency =
00:00:16 verbose #133 > > | Offset : recurrency_offset
00:00:16 verbose #134 > > | Fixed : list fixed_recurrency
00:00:16 verbose #135 > >
00:00:16 verbose #136 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 verbose #137 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 verbose #138 > > │ ## scheduling │
00:00:16 verbose #139 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #140 > >
00:00:16 verbose #141 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #142 > > union scheduling =
00:00:16 verbose #143 > > | Manual : manual_scheduling
00:00:16 verbose #144 > > | Recurrent : recurrency
00:00:17 verbose #145 > >
00:00:17 verbose #146 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 verbose #147 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 verbose #148 > > │ ## task │
00:00:17 verbose #149 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 verbose #150 > >
00:00:17 verbose #151 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 verbose #152 > > type task =
00:00:17 verbose #153 > > {
00:00:17 verbose #154 > > name : task_name
00:00:17 verbose #155 > > scheduling : scheduling
00:00:17 verbose #156 > > }
00:00:18 verbose #157 > >
00:00:18 verbose #158 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 verbose #159 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 verbose #160 > > │ ## date │
00:00:18 verbose #161 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #162 > >
00:00:18 verbose #163 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #164 > > type date =
00:00:18 verbose #165 > > {
00:00:18 verbose #166 > > year : year
00:00:18 verbose #167 > > month : month
00:00:18 verbose #168 > > day : day
00:00:18 verbose #169 > > }
00:00:18 verbose #170 > >
00:00:18 verbose #171 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 verbose #172 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 verbose #173 > > │ ## status │
00:00:18 verbose #174 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #175 > >
00:00:18 verbose #176 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #177 > > union status =
00:00:18 verbose #178 > > | Postponed : option ()
00:00:19 verbose #179 > >
00:00:19 verbose #180 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:19 verbose #181 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:19 verbose #182 > > │ ## event │
00:00:19 verbose #183 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:19 verbose #184 > >
00:00:19 verbose #185 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:19 verbose #186 > > type event =
00:00:19 verbose #187 > > {
00:00:19 verbose #188 > > date : date
00:00:19 verbose #189 > > status : status
00:00:19 verbose #190 > > }
00:00:20 verbose #191 > >
00:00:20 verbose #192 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 verbose #193 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 verbose #194 > > │ ## task_template │
00:00:20 verbose #195 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #196 > >
00:00:20 verbose #197 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #198 > > type task_template =
00:00:20 verbose #199 > > {
00:00:20 verbose #200 > > task : task
00:00:20 verbose #201 > > events : list event
00:00:20 verbose #202 > > }
00:00:20 verbose #203 > >
00:00:20 verbose #204 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 verbose #205 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 verbose #206 > > │ ## get_tasks (test) │
00:00:20 verbose #207 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 verbose #208 > >
00:00:20 verbose #209 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #210 > > //// test
00:00:20 verbose #211 > >
00:00:20 verbose #212 > > inl get_tasks () : list task_template =
00:00:20 verbose #213 > > [[
00:00:20 verbose #214 > > {
00:00:20 verbose #215 > > task =
00:00:20 verbose #216 > > {
00:00:20 verbose #217 > > name = task_name "01"
00:00:20 verbose #218 > > scheduling = Manual WithSuggestion
00:00:20 verbose #219 > > }
00:00:20 verbose #220 > > events = [[]]
00:00:20 verbose #221 > > }
00:00:20 verbose #222 > > {
00:00:20 verbose #223 > > task =
00:00:20 verbose #224 > > {
00:00:20 verbose #225 > > name = task_name "02"
00:00:20 verbose #226 > > scheduling = Manual WithSuggestion
00:00:20 verbose #227 > > }
00:00:20 verbose #228 > > events = [[]]
00:00:20 verbose #229 > > }
00:00:20 verbose #230 > > {
00:00:20 verbose #231 > > task =
00:00:20 verbose #232 > > {
00:00:20 verbose #233 > > name = task_name "03"
00:00:20 verbose #234 > > scheduling = Manual WithSuggestion
00:00:20 verbose #235 > > }
00:00:20 verbose #236 > > events = [[]]
00:00:20 verbose #237 > > }
00:00:20 verbose #238 > > ]]
00:00:22 verbose #239 > >
00:00:22 verbose #240 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #241 > > //// test
00:00:22 verbose #242 > > ///! fsharp
00:00:22 verbose #243 > > ///! cuda
00:00:22 verbose #244 > > ///! rust
00:00:22 verbose #245 > > ///! typescript
00:00:22 verbose #246 > > ///! python
00:00:22 verbose #247 > >
00:00:22 verbose #248 > > types ()
00:00:22 verbose #249 > > get_tasks ()
00:00:22 verbose #250 > > |> sm'.format_debug
00:00:22 verbose #251 > > |> _assert_string_contains "01"
00:00:33 verbose #252 > >
00:00:33 verbose #253 > > ╭─[ 11.63s - return value ]────────────────────────────────────────────────────╮
00:00:33 verbose #254 > > │ .py output (Cuda): │
00:00:33 verbose #255 > > │ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\cupy\_environ │
00:00:33 verbose #256 > > │ ment.py:216: UserWarning: CUDA path could not be detected. Set CUDA_PATH │
00:00:33 verbose #257 > > │ environment variable if CuPy fails to load. │
00:00:33 verbose #258 > > │ warnings.warn( │
00:00:33 verbose #259 > > │ assert_string_contains / actual: 01 / expected: UH2_1(v0=UH0_0(), v1='01', │
00:00:33 verbose #260 > > │ v2=US4_0(v0=US3_0()), v3=UH2_1(v0=UH0_0(), v1='02', v2=US4_0(v0=US3_0()), │
00:00:33 verbose #261 > > │ v3=UH2_1(v0=UH0_0(), v1='03', v2=US4_0(v0=US3_0()), v3=UH2_0()))) │
00:00:33 verbose #262 > > │ │
00:00:33 verbose #263 > > │ .rs output: │
00:00:33 verbose #264 > > │ assert_string_contains / actual: "01" / expected: "UH2_1(UH0_0, "01", │
00:00:33 verbose #265 > > │ US4_0(US3_0), UH2_1(UH0_0, "02", US4_0(US3_0), UH2_1(UH0_0, "03", │
00:00:33 verbose #266 > > │ US4_0(US3_0), UH2_0)))" │
00:00:33 verbose #267 > > │ │
00:00:33 verbose #268 > > │ .ts output: │
00:00:33 verbose #269 > > │ assert_string_contains / actual: 01 / expected: UH2_1 (UH0_0, 01, US4_0 │
00:00:33 verbose #270 > > │ US3_0, UH2_1 (UH0_0, 02, US4_0 US3_0, UH2_1 (UH0_0, 03, US4_0 US3_0, │
00:00:33 verbose #271 > > │ UH2_0))) │
00:00:33 verbose #272 > > │ │
00:00:33 verbose #273 > > │ .py output: │
00:00:33 verbose #274 > > │ assert_string_contains / actual: 01 / expected: UH2_1 (UH0_0, 01, US4_0 │
00:00:33 verbose #275 > > │ US3_0, UH2_1 (UH0_0, 02, US4_0 US3_0, UH2_1 (UH0_0, 03, US4_0 US3_0, │
00:00:33 verbose #276 > > │ UH2_0))) │
00:00:33 verbose #277 > > │ │
00:00:33 verbose #278 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #279 > >
00:00:33 verbose #280 > > ╭─[ 11.64s - stdout ]──────────────────────────────────────────────────────────╮
00:00:33 verbose #281 > > │ .fsx output: │
00:00:33 verbose #282 > > │ assert_string_contains / actual: "01" / expected: "UH2_1 │
00:00:33 verbose #283 > > │ (UH0_0, "01", US4_0 US3_0, │
00:00:33 verbose #284 > > │ UH2_1 (UH0_0, "02", US4_0 US3_0, UH2_1 (UH0_0, "03", US4_0 US3_0, │
00:00:33 verbose #285 > > │ UH2_0)))" │
00:00:33 verbose #286 > > │ │
00:00:33 verbose #287 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 verbose #288 > >
00:00:33 verbose #289 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 verbose #290 > > //// test
00:00:33 verbose #291 > > ///! fsharp
00:00:33 verbose #292 > > ///! cuda
00:00:33 verbose #293 > > ///! rust
00:00:33 verbose #294 > > ///! typescript
00:00:33 verbose #295 > > ///! python
00:00:33 verbose #296 > >
00:00:33 verbose #297 > > get_tasks ()
00:00:33 verbose #298 > > |> listm'.try_item 0i32
00:00:33 verbose #299 > > |> fun (Some task) => task.task.name
00:00:33 verbose #300 > > |> _assert_eq (task_name "01")
00:00:39 verbose #301 > >
00:00:39 verbose #302 > > ╭─[ 6.23s - return value ]─────────────────────────────────────────────────────╮
00:00:39 verbose #303 > > │ .py output (Cuda): │
00:00:39 verbose #304 > > │ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\cupy\_environ │
00:00:39 verbose #305 > > │ ment.py:216: UserWarning: CUDA path could not be detected. Set CUDA_PATH │
00:00:39 verbose #306 > > │ environment variable if CuPy fails to load. │
00:00:39 verbose #307 > > │ warnings.warn( │
00:00:39 verbose #308 > > │ assert_eq / actual: 01 / expected: 01 │
00:00:39 verbose #309 > > │ │
00:00:39 verbose #310 > > │ .rs output: │
00:00:39 verbose #311 > > │ assert_eq / actual: "01" / expected: "01" │
00:00:39 verbose #312 > > │ │
00:00:39 verbose #313 > > │ .ts output: │
00:00:39 verbose #314 > > │ assert_eq / actual: 01 / expected: 01 │
00:00:39 verbose #315 > > │ │
00:00:39 verbose #316 > > │ .py output: │
00:00:39 verbose #317 > > │ assert_eq / actual: 01 / expected: 01 │
00:00:39 verbose #318 > > │ │
00:00:39 verbose #319 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #320 > >
00:00:39 verbose #321 > > ╭─[ 6.23s - stdout ]───────────────────────────────────────────────────────────╮
00:00:39 verbose #322 > > │ .fsx output: │
00:00:39 verbose #323 > > │ assert_eq / actual: "01" / expected: "01" │
00:00:39 verbose #324 > > │ │
00:00:39 verbose #325 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:40 verbose #326 > 00:00:38 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 14724
00:00:40 verbose #327 > 00:00:38 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:42 verbose #328 > 00:00:40 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb to html
00:00:42 verbose #329 > 00:00:40 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:42 verbose #330 > 00:00:40 verbose #7 ! validate(nb)
00:00:43 verbose #331 > 00:00:42 verbose #8 ! [NbConvertApp] Writing 302326 bytes to c:\home\git\polyglot\apps\scheduler\Tasks.dib.html
00:00:43 verbose #332 > 00:00:42 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:00:43 verbose #333 > 00:00:42 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:00:43 verbose #334 > 00:00:42 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/scheduler/Tasks.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/scheduler/Tasks.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:44 verbose #335 > 00:00:43 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:44 verbose #336 > 00:00:43 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:45 verbose #337 > 00:00:44 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 15432
00:00:45 debug #338 runtime.execute_with_options_async / exit_code: 0 / output.Length: 18356
00:00:45 debug #1 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Tasks.dib --retries 3
00:00:00 debug #1 writeDibCode / output: Spi / path: Tasks.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: Tasks.dib
In [ ]:
{ pwsh ../apps/chat/build.ps1 } | Invoke-Block
Finished `release` profile [optimized] target(s) in 3.07s Updating crates.io index Downloading crates ... Downloaded clap_lex v0.7.1 Downloaded utf8parse v0.2.2 Downloaded clap v4.5.6 Downloaded cc v1.0.99 Downloaded actix v0.13.4 Downloaded clap_derive v4.5.5 Downloaded clap_builder v4.5.6 Compiling cc v1.0.99 Compiling utf8parse v0.2.2 Compiling anstyle-parse v0.2.4 Compiling anstream v0.6.14 Compiling clap_lex v0.7.1 Compiling clap_derive v4.5.5 Compiling opentelemetry-otlp v0.10.0 Compiling actix v0.13.4 Compiling clap_builder v4.5.6 Compiling zstd-sys v2.0.10+zstd.1.5.6 Compiling ring v0.17.8 Compiling bzip2-sys v0.1.11+1.0.8 Compiling secp256k1-sys v0.8.1 Compiling openssl-sys v0.9.102 Compiling secp256k1 v0.27.0 Compiling near-crypto v0.20.1 Compiling bzip2 v0.4.4 Compiling openssl v0.10.64 Compiling native-tls v0.2.12 Compiling near-vm-runner v0.20.1 Compiling rustls v0.22.4 Compiling clap v4.5.6 Compiling near-o11y v0.20.1 Compiling rustls-webpki v0.102.4 Compiling zstd-safe v5.0.2+zstd.1.5.2 Compiling zstd v0.11.2+zstd.1.5.2 Compiling ureq v2.9.7 Compiling zip v0.6.6 Compiling binary-install v0.2.0 Compiling near-primitives v0.20.1 Compiling tokio-native-tls v0.3.1 Compiling near-sandbox-utils v0.7.0 Compiling cargo-near v0.3.1 Compiling hyper-tls v0.5.0 Compiling near-workspaces v0.10.0 Compiling reqwest v0.11.27 Compiling near-chain-configs v0.20.1 Compiling near-jsonrpc-primitives v0.20.1 Compiling near-jsonrpc-client v0.8.0 Compiling chat_contract_tests v0.0.1 (/mnt/c/home/git/polyglot/apps/chat/contract/tests) Finished `release` profile [optimized] target(s) in 9m 41s Running `/mnt/c/home/git/polyglot/workspace/target/release/chat_contract_tests` Updated the logging layer according to `log_config.json` new: ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5282857043580, }, transaction: ExecutionOutcome { transaction_hash: 6QRXn8tgftXhVNL421oxCbqhBk3bcgU9kuhZ9TLnTQZ1, block_hash: 2aBGpkPrsW63TYMGLrLj9v3MhpbDXL1CnxRGrpfTa9Qc, logs: [], receipt_ids: [ DUA6cErp2zpDLKNuKUuUv3Fd7P53MuFTNHnqcdmTcqcA, ], gas_burnt: NearGas { inner: 2427927707802, }, tokens_burnt: NearToken { inner: 242792770780200000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessReceiptId(DUA6cErp2zpDLKNuKUuUv3Fd7P53MuFTNHnqcdmTcqcA), }, receipts: [ ExecutionOutcome { transaction_hash: DUA6cErp2zpDLKNuKUuUv3Fd7P53MuFTNHnqcdmTcqcA, block_hash: 2aBGpkPrsW63TYMGLrLj9v3MhpbDXL1CnxRGrpfTa9Qc, logs: [], receipt_ids: [ 33X2c3YiD9a1ygKQdqqVBkKxushyXxjW7G9yQpGpe8Nv, ], gas_burnt: NearGas { inner: 2631746773278, }, tokens_burnt: NearToken { inner: 263174677327800000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 33X2c3YiD9a1ygKQdqqVBkKxushyXxjW7G9yQpGpe8Nv, block_hash: 2jVn7DyuXs4doNcr2G6FnKvqSr3G4nux96S1rmAUTCNV, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0035289485051114397 outcome (success: true): outcome_gas_burnt_usd: 0.001621855708811736 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.001758006844549704 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(contract, ''): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5279558492014, }, transaction: ExecutionOutcome { transaction_hash: H8w8dAbXJxaUuAXSD8a6S2coYq8JVmc5EteQJkT38Acs, block_hash: 7VJatVVFWL2kjQ2KpC4K6ju6UmSeUqqdQ91ea4NXP8Mt, logs: [], receipt_ids: [ 7UXJrre8fhG93j5SoF9EZiL6pTUbkX69bGQZ9aEJa1bt, ], gas_burnt: NearGas { inner: 2427972426482, }, tokens_burnt: NearToken { inner: 242797242648200000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessReceiptId(7UXJrre8fhG93j5SoF9EZiL6pTUbkX69bGQZ9aEJa1bt), }, receipts: [ ExecutionOutcome { transaction_hash: 7UXJrre8fhG93j5SoF9EZiL6pTUbkX69bGQZ9aEJa1bt, block_hash: 7VJatVVFWL2kjQ2KpC4K6ju6UmSeUqqdQ91ea4NXP8Mt, logs: [ "claim_alias / alias: \"\" / account_id: AccountId(\n \"dev-20240609040715-99225534797163\",\n) / timestamp: 1717906037476110702", ], receipt_ids: [ 6zgJRGi6NRThoddvc5bCaP6AW2XHocAvUofxR2AxTWHP, ], gas_burnt: NearGas { inner: 2628403503032, }, tokens_burnt: NearToken { inner: 262840350303200000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), }, ExecutionOutcome { transaction_hash: 6zgJRGi6NRThoddvc5bCaP6AW2XHocAvUofxR2AxTWHP, block_hash: 84duotyXmwz2iWwzyy8Bk46VrekTcPuMHiyVvJ4rfQuQ, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ], status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), } total_gas_burnt_usd: 0.003526745072665352 outcome (success: true): outcome_gas_burnt_usd: 0.001621885580889976 outcome_tokens_burnt_usd: 0.0 outcome (success: false): outcome_gas_burnt_usd: 0.001755773540025376 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 dev_create_account(account1): Account { id: AccountId( "dev-20240609040718-47291669150221", ), } generate_cid_borsh(account1): ViewResultDetails { result: [ 59, 0, 0, 0, 98, 97, 102, 107, 114, 101, 105, 104, 100, 119, 100, 99, 101, 102, 103, 104, 52, 100, 113, 107, 106, 118, 54, 55, 117, 122, 99, 109, 119, 55, 111, 106, 101, 101, 54, 120, 101, 100, 122, 100, 101, 116, 111, 106, 117, 122, 106, 101, 118, 116, 101, 110, 120, 113, 117, 118, 121, 107, 117, ], logs: [], } claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5700176060779, }, transaction: ExecutionOutcome { transaction_hash: EV6xAhpqR4oGZo6bUtuL6ZEXV2HXUtytyvXdoZy8L83Q, block_hash: 8g1CKHgE2jp2LPMspXnHz3uSWRA96M2eC9qZxXkBma7s, logs: [], receipt_ids: [ B5fsW3NCemCmU4RBpDDxL3Cv9pzkSKe9UMjJ6E3u9MRf, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessReceiptId(B5fsW3NCemCmU4RBpDDxL3Cv9pzkSKe9UMjJ6E3u9MRf), }, receipts: [ ExecutionOutcome { transaction_hash: B5fsW3NCemCmU4RBpDDxL3Cv9pzkSKe9UMjJ6E3u9MRf, block_hash: GQpvCkj8LVWSwhkC3s7xMWtLC2na7i1F6MLWNLnkUhfA, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240609040718-47291669150221\",\n) / timestamp: 1717906039700705505", ], receipt_ids: [ ATxgJkDxGSCH5CHkBgc3a4UYud4WVDJ42BAe2jttkQCy, ], gas_burnt: NearGas { inner: 3049007656193, }, tokens_burnt: NearToken { inner: 304900765619300000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: ATxgJkDxGSCH5CHkBgc3a4UYud4WVDJ42BAe2jttkQCy, block_hash: B4kDhe6Vqj15WVyGQN5oceoSpVEARssQ4saLau4dFSoK, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003807717608600372 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002036737114336924 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5524492428016, }, transaction: ExecutionOutcome { transaction_hash: 7iEi1N32UXH7MXvWE9ZqndYXArU6vENAEbsTSY85tAzi, block_hash: 5h8duADv1oaLTMBe3TK3yKV793Bh4dVpf3NToa8dyHj4, logs: [], receipt_ids: [ 5PuYTkp31zz45eiWzS5wABURSqNPTXTa3Npp1uCC4cUB, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessReceiptId(5PuYTkp31zz45eiWzS5wABURSqNPTXTa3Npp1uCC4cUB), }, receipts: [ ExecutionOutcome { transaction_hash: 5PuYTkp31zz45eiWzS5wABURSqNPTXTa3Npp1uCC4cUB, block_hash: mVsE2GYgAbWXDt1EdaNRJdVBqs1iimSqh5LJXgMWDNa, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240609040718-47291669150221\",\n) / timestamp: 1717906040711034196", "Alias already claimed", ], receipt_ids: [ 3Qqkcsdty3D3tEnwCu3fMnRfazuAm6k8fMHmHcMuFd8r, ], gas_burnt: NearGas { inner: 2873324023430, }, tokens_burnt: NearToken { inner: 287332402343000000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 3Qqkcsdty3D3tEnwCu3fMnRfazuAm6k8fMHmHcMuFd8r, block_hash: Bzr4PYbNiS5w23ZQRyr1TUf273wnFScTMo8837AdfXGg, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003690360941914688 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0019193804476512401 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1717906039700705505, 0, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240609040718-47291669150221", ): ( 1717906039700705505, 0, ), }, ) dev_create_account(account2): Account { id: AccountId( "dev-20240609040721-46157567954589", ), } claim_alias(alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5787525840409, }, transaction: ExecutionOutcome { transaction_hash: Fc29sZaYQS99h3yrLjpdLcKA4NLP8ZHqVpTH1LaQW6Uf, block_hash: C2uECLNq1FQcWwGnzyNTBaLTzd3mMzpXWW6trFtaXNTG, logs: [], receipt_ids: [ D2cZDgSadDRzw6M2CZErxmYkRZxb54jArDS3STXiMGkn, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240609040721-46157567954589", ), status: SuccessReceiptId(D2cZDgSadDRzw6M2CZErxmYkRZxb54jArDS3STXiMGkn), }, receipts: [ ExecutionOutcome { transaction_hash: D2cZDgSadDRzw6M2CZErxmYkRZxb54jArDS3STXiMGkn, block_hash: 68Gs4R7WQaHM1tv12GATQkX4LHcUULe92PkrwdqSBYDW, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240609040721-46157567954589\",\n) / timestamp: 1717906042732677480", ], receipt_ids: [ 3MgLgqX3MnjFeLsEVMB7va1sGoRacgVw9C1w6q9ZvQ9T, ], gas_burnt: NearGas { inner: 3136357435823, }, tokens_burnt: NearToken { inner: 313635743582300000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 3MgLgqX3MnjFeLsEVMB7va1sGoRacgVw9C1w6q9ZvQ9T, block_hash: 2g4fdfSexJkEe9zC66sMAzZ2fBjFoENUArurpCCQEduQ, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040721-46157567954589", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003866067261393212 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0020950867671297637 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias2", ( 1717906042732677480, 0, ), ), ) get_alias_map_borsh(alias2): Some( { AccountId( "dev-20240609040721-46157567954589", ): ( 1717906042732677480, 0, ), }, ) claim_alias(account2, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6091971954688, }, transaction: ExecutionOutcome { transaction_hash: 6GqTkXFK4VYPmS9LmHm249LrwZgcyYsdHBEBcdYw8oKm, block_hash: Fp85thgQJzCy6oFADirgAG1Q7SeW6xMpBYQAijsNfaGM, logs: [], receipt_ids: [ 2no4ss6TTfVJLud8btJpdJt1bR4e5EFs441K3oPXSJ3c, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240609040721-46157567954589", ), status: SuccessReceiptId(2no4ss6TTfVJLud8btJpdJt1bR4e5EFs441K3oPXSJ3c), }, receipts: [ ExecutionOutcome { transaction_hash: 2no4ss6TTfVJLud8btJpdJt1bR4e5EFs441K3oPXSJ3c, block_hash: 6bCeVtRvCbKaNL88gY8kn7bLbdZrD5q6bsh2Bf4m3Xs6, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240609040721-46157567954589\",\n) / timestamp: 1717906043743282772", ], receipt_ids: [ C4zGBwAB78oFYoc3aH1ReeKa73161T7nQyGAAiLf5VKU, ], gas_burnt: NearGas { inner: 3440803550102, }, tokens_burnt: NearToken { inner: 344080355010200000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: C4zGBwAB78oFYoc3aH1ReeKa73161T7nQyGAAiLf5VKU, block_hash: DV682ug7DRXMiNz9qNEnUnvi42W6gz6NEFcLWYv1Fify, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040721-46157567954589", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004069437265731584 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002298456771468136 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias1", ( 1717906043743282772, 1, ), ), ) get_alias_map(account2, alias1): Some( { AccountId( "dev-20240609040721-46157567954589", ): ( 1717906043743282772, 1, ), AccountId( "dev-20240609040718-47291669150221", ): ( 1717906039700705505, 0, ), }, ) get_alias_map(account2, alias2): Some( {}, ) claim_alias(account1, alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6086666001244, }, transaction: ExecutionOutcome { transaction_hash: CXQLW1myBry3sxynKuwiGTyc7gwLC6znTcjN7eeCcj2C, block_hash: DEjiLnUP8R9kMsd2SMzaHNVtgXKzGBFnxkYKLNCpxrjr, logs: [], receipt_ids: [ 48QsrVD8TowtXEgU6mzBwo8t9QUX5Ygzui1kDrkmbho4, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessReceiptId(48QsrVD8TowtXEgU6mzBwo8t9QUX5Ygzui1kDrkmbho4), }, receipts: [ ExecutionOutcome { transaction_hash: 48QsrVD8TowtXEgU6mzBwo8t9QUX5Ygzui1kDrkmbho4, block_hash: 4k5i3bQytvdWwoR3Yn2jQU8Pzu94qvGgx824yQdBCDEA, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240609040718-47291669150221\",\n) / timestamp: 1717906044753932441", ], receipt_ids: [ 5g7GCSg8YWVtLBW3QyA4NuXJMEXkcLFzagT3MsbuycAQ, ], gas_burnt: NearGas { inner: 3435497596658, }, tokens_burnt: NearToken { inner: 343549759665800000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 5g7GCSg8YWVtLBW3QyA4NuXJMEXkcLFzagT3MsbuycAQ, block_hash: U2w2KdkvESFkKgmvwF4Lsfm44Bx99d6THH9yJCCxU4A, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004065892888830992 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002294912394567544 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias2", ( 1717906044753932441, 0, ), ), ) get_alias_map(account1, alias2): Some( { AccountId( "dev-20240609040718-47291669150221", ): ( 1717906044753932441, 0, ), }, ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240609040721-46157567954589", ): ( 1717906043743282772, 1, ), }, ) claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6091994991856, }, transaction: ExecutionOutcome { transaction_hash: HAQyvQSNJoLVQEAnQarmeWKTUvL96vwznV3tX94SF8pw, block_hash: EjC6WTg6C7YQ1nmyoWGzL9QSJ6bCTLQ1qEQ5VcsWGEJS, logs: [], receipt_ids: [ 9iAnGAfFx1HtF6Bt8D5dWzABzCFjny2eRXkorc6xTDcH, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessReceiptId(9iAnGAfFx1HtF6Bt8D5dWzABzCFjny2eRXkorc6xTDcH), }, receipts: [ ExecutionOutcome { transaction_hash: 9iAnGAfFx1HtF6Bt8D5dWzABzCFjny2eRXkorc6xTDcH, block_hash: 2EF8BkCo3kH1gq8UtF9ijRRoEBZFhyfqCr9ceF7Tgnod, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240609040718-47291669150221\",\n) / timestamp: 1717906045766772228", ], receipt_ids: [ 4883sW8StFn9GXaGafdgE6cV1XB6ydxuzk6jMZok3sgx, ], gas_burnt: NearGas { inner: 3440826587270, }, tokens_burnt: NearToken { inner: 344082658727000000000, }, executor_id: AccountId( "dev-20240609040715-99225534797163", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 4883sW8StFn9GXaGafdgE6cV1XB6ydxuzk6jMZok3sgx, block_hash: Emz3ZPw5izfjjeGNp8rh2XMAoYL1KTgqv9KaytanhwM3, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240609040718-47291669150221", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004069452654559808 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0022984721602963597 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1717906045766772228, 1, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240609040721-46157567954589", ): ( 1717906043743282772, 0, ), AccountId( "dev-20240609040718-47291669150221", ): ( 1717906045766772228, 1, ), }, ) get_alias_map(account1, alias2): Some( {}, )
In [ ]:
{ pwsh ../apps/spiral/temp/extension/build.ps1 } | Invoke-Block
bun install v1.1.7 (b0b7db5c) Checked 11 installs across 13 packages (no changes) [248.00ms] [INFO]: 🎯 Checking for the Wasm target... [INFO]: 🌀 Compiling to Wasm... Compiling winnow v0.6.13 Compiling toml_edit v0.22.14 Compiling toml v0.8.14 Compiling config v0.14.0 Compiling leptos_config v0.6.12 Compiling leptos v0.6.12 Compiling leptos_meta v0.6.12 Compiling leptos_router v0.6.12 Compiling spiral_temp_extension v0.0.1 (C:\home\git\polyglot\apps\spiral\temp\extension) Finished `dev` profile [unoptimized + debuginfo] target(s) in 47.28s [INFO]: ⬇️ Installing wasm-bindgen... [INFO]: Optional field missing from Cargo.toml: 'description'. This is not necessary, but recommended [INFO]: origin crate has no LICENSE [INFO]: ✨ Done in 49.39s [INFO]: 📦 Your wasm pkg is ready to publish at C:\home\git\polyglot\apps\spiral\temp\extension\pkg. ▲ [WARNING] "import.meta" is not available with the "iife" output format and will be empty [empty-import-meta] pkg/spiral_temp_extension.js:1494:57: 1494 │ ...put = new URL('spiral_temp_extension_bg.wasm', import.meta.url); ╵ ~~~~~~~~~~~ You need to set the output format to "esm" for "import.meta" to work correctly. 1 warning dist\spiral_temp_extension_bg-EHDJ4WYG.wasm 4.5mb ⚠️ dist\devtools.js 29.0kb dist\content_script.js 27.1kb dist\service_worker.js 2.2kb ⚡ Done in 214ms $ playwright test Running 3 tests using 3 workers [1/3] [Desktop Chrome] › extension.spec.ts:8:5 › popup extension [2/3] [Desktop Chrome] › extension.spec.ts:3:5 › popup localhost [3/3] [Desktop Chrome] › extension.spec.ts:13:5 › libgen 3 passed (23.8s) To open last HTML report run: npx playwright show-report
In [ ]:
{ pwsh ../apps/spiral/temp/test/build.ps1 } | Invoke-Block
00:00:01 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../../../workspace/target/release/spiral_builder.exe dib --path build.dib",
[||], None, None, true, None)
00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "build.dib"])
00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/temp/test/build.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/temp/test/build.dib" --output-path "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:06 verbose #4 > >
00:00:06 verbose #5 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:06 verbose #6 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:06 verbose #7 > > │ # test │
00:00:06 verbose #8 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:06 verbose #9 > >
00:00:06 verbose #10 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:06 verbose #11 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:06 verbose #12 > > │ ## include scripts │
00:00:06 verbose #13 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:06 verbose #14 > >
00:00:06 verbose #15 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:06 verbose #16 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:06 verbose #17 > > │ ### include notebook core │
00:00:06 verbose #18 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:06 verbose #19 > >
00:00:06 verbose #20 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:06 verbose #21 > > . ../../../../scripts/nbs_header.ps1
00:00:06 verbose #22 > >
00:00:06 verbose #23 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:06 verbose #24 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:06 verbose #25 > > │ ### Include core functions script │
00:00:06 verbose #26 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:06 verbose #27 > >
00:00:06 verbose #28 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:06 verbose #29 > > . ../../../../scripts/core.ps1
00:00:07 verbose #30 > >
00:00:07 verbose #31 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:07 verbose #32 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:07 verbose #33 > > │ ### Include spiral library │
00:00:07 verbose #34 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:07 verbose #35 > >
00:00:07 verbose #36 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:07 verbose #37 > > . ../../../../lib/spiral/lib.ps1
00:00:07 verbose #38 > >
00:00:07 verbose #39 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:07 verbose #40 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:07 verbose #41 > > │ ## execute project commands │
00:00:07 verbose #42 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:07 verbose #43 > >
00:00:07 verbose #44 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:07 verbose #45 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:07 verbose #46 > > │ ### run notebook with retries using spiral supervisor │
00:00:07 verbose #47 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:07 verbose #48 > >
00:00:07 verbose #49 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:07 verbose #50 > > { . ../../../../apps/spiral/dist/Supervisor$(_exe) --execute-command
00:00:07 verbose #51 > > "../../../../workspace/target/release/spiral_builder$(_exe) dib --path test.dib
00:00:07 verbose #52 > > --retries 3" } | Invoke-Block
00:00:37 verbose #53 > >
00:00:37 verbose #54 > > ╭─[ 30.05s - stdout ]──────────────────────────────────────────────────────────╮
00:00:37 verbose #55 > > │ 00:00:01 debug #1 async.run_with_timeout_async / timeout: 500 │
00:00:37 verbose #56 > > │ 00:00:01 debug #1 runtime.execute_with_options_async / options: struct │
00:00:37 verbose #57 > > │ (Some System.Threading.CancellationToken, │
00:00:37 verbose #58 > > │ "../../../../workspace/target/release/spiral_builder.exe dib --path │
00:00:37 verbose #59 > > │ test.dib --retries 3", │
00:00:37 verbose #60 > > │ [||], None, None, true, None) │
00:00:37 verbose #61 > > │ 00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: │
00:00:37 verbose #62 > > │ MutCell(["dib", "--path", "test.dib", "--retries", "3"]) │
00:00:37 verbose #63 > > │ 00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options │
00:00:37 verbose #64 > > │ / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", │
00:00:37 verbose #65 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib", "--output-path", │
00:00:37 verbose #66 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb"] / options: │
00:00:37 verbose #67 > > │ (None, "dotnet repl --exit-after-run --run │
00:00:37 verbose #68 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib" --output-path │
00:00:37 verbose #69 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb"", Array(MutCell( │
00:00:37 verbose #70 > > │ [("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, │
00:00:37 verbose #71 > > │ None) │
00:00:37 verbose #72 > > │ 00:00:04 verbose #4 > > │
00:00:37 verbose #73 > > │ 00:00:04 verbose #5 > > ── markdown │
00:00:37 verbose #74 > > │ ──────────────────────────────────────────────────────────────────── │
00:00:37 verbose #75 > > │ 00:00:04 verbose #6 > > │
00:00:37 verbose #76 > > │ ╭─────────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #77 > > │ ───╮ │
00:00:37 verbose #78 > > │ 00:00:04 verbose #7 > > │ # test (Polyglot) │
00:00:37 verbose #79 > > │ │ │
00:00:37 verbose #80 > > │ 00:00:04 verbose #8 > > │
00:00:37 verbose #81 > > │ ╰─────────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #82 > > │ ───╯ │
00:00:37 verbose #83 > > │ 00:00:04 verbose #9 > > │
00:00:37 verbose #84 > > │ 00:00:04 verbose #10 > > ── spiral │
00:00:37 verbose #85 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #86 > > │ 00:00:04 verbose #11 > > //// test │
00:00:37 verbose #87 > > │ 00:00:04 verbose #12 > > │
00:00:37 verbose #88 > > │ 00:00:04 verbose #13 > > open testing │
00:00:37 verbose #89 > > │ 00:00:04 verbose #14 > > │
00:00:37 verbose #90 > > │ 00:00:04 verbose #15 > > ── spiral - import │
00:00:37 verbose #91 > > │ ───────────────────────────────────────────────────────────── │
00:00:37 verbose #92 > > │ 00:00:04 verbose #16 > > #r │
00:00:37 verbose #93 > > │ 00:00:04 verbose #17 > > │
00:00:37 verbose #94 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #95 > > │ ft.D │
00:00:37 verbose #96 > > │ 00:00:04 verbose #18 > > otNet.Interactive.Spiral.dll" │
00:00:37 verbose #97 > > │ 00:00:04 verbose #19 > > open │
00:00:37 verbose #98 > > │ Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers │
00:00:37 verbose #99 > > │ 00:00:04 verbose #20 > > #r │
00:00:37 verbose #100 > > │ 00:00:04 verbose #21 > > │
00:00:37 verbose #101 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #102 > > │ ft.D │
00:00:37 verbose #103 > > │ 00:00:04 verbose #22 > > otNet.Interactive.dll" │
00:00:37 verbose #104 > > │ 00:00:04 verbose #23 > > open type Microsoft.DotNet.Interactive.Kernel │
00:00:37 verbose #105 > > │ 00:00:12 verbose #24 > > │
00:00:37 verbose #106 > > │ 00:00:12 verbose #25 > > ── spiral │
00:00:37 verbose #107 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #108 > > │ 00:00:12 verbose #26 > > nominal i = () │
00:00:37 verbose #109 > > │ 00:00:12 verbose #27 > > nominal e = () │
00:00:37 verbose #110 > > │ 00:00:12 verbose #28 > > nominal s = () │
00:00:37 verbose #111 > > │ 00:00:12 verbose #29 > > nominal n = () │
00:00:37 verbose #112 > > │ 00:00:12 verbose #30 > > nominal t = () │
00:00:37 verbose #113 > > │ 00:00:12 verbose #31 > > nominal f = () │
00:00:37 verbose #114 > > │ 00:00:12 verbose #32 > > nominal j = () │
00:00:37 verbose #115 > > │ 00:00:12 verbose #33 > > nominal p = () │
00:00:37 verbose #116 > > │ 00:00:12 verbose #34 > > │
00:00:37 verbose #117 > > │ 00:00:12 verbose #35 > > union sensing = │
00:00:37 verbose #118 > > │ 00:00:12 verbose #36 > > | Si : s * i │
00:00:37 verbose #119 > > │ 00:00:12 verbose #37 > > | Se : s * e │
00:00:37 verbose #120 > > │ 00:00:12 verbose #38 > > │
00:00:37 verbose #121 > > │ 00:00:12 verbose #39 > > union intuition = │
00:00:37 verbose #122 > > │ 00:00:12 verbose #40 > > | Ni : n * i │
00:00:37 verbose #123 > > │ 00:00:12 verbose #41 > > | Ne : n * e │
00:00:37 verbose #124 > > │ 00:00:12 verbose #42 > > │
00:00:37 verbose #125 > > │ 00:00:12 verbose #43 > > union thinking = │
00:00:37 verbose #126 > > │ 00:00:12 verbose #44 > > | Ti : t * i │
00:00:37 verbose #127 > > │ 00:00:12 verbose #45 > > | Te : t * e │
00:00:37 verbose #128 > > │ 00:00:12 verbose #46 > > │
00:00:37 verbose #129 > > │ 00:00:12 verbose #47 > > union feeling = │
00:00:37 verbose #130 > > │ 00:00:12 verbose #48 > > | Fi : f * i │
00:00:37 verbose #131 > > │ 00:00:12 verbose #49 > > | Fe : f * e │
00:00:37 verbose #132 > > │ 00:00:12 verbose #50 > > │
00:00:37 verbose #133 > > │ 00:00:12 verbose #51 > > union function_stack = │
00:00:37 verbose #134 > > │ 00:00:12 verbose #52 > > | FS : sensing * intuition * thinking * feeling │
00:00:37 verbose #135 > > │ 00:00:12 verbose #53 > > │
00:00:37 verbose #136 > > │ 00:00:12 verbose #54 > > union personality_type = │
00:00:37 verbose #137 > > │ 00:00:12 verbose #55 > > | ISTJ : i * s * t * j * function_stack │
00:00:37 verbose #138 > > │ 00:00:12 verbose #56 > > | ISFJ : i * s * f * j * function_stack │
00:00:37 verbose #139 > > │ 00:00:12 verbose #57 > > | INFJ : i * n * f * j * function_stack │
00:00:37 verbose #140 > > │ 00:00:12 verbose #58 > > | INTJ : i * n * t * j * function_stack │
00:00:37 verbose #141 > > │ 00:00:12 verbose #59 > > | ISTP : i * s * t * p * function_stack │
00:00:37 verbose #142 > > │ 00:00:12 verbose #60 > > | ISFP : i * s * f * p * function_stack │
00:00:37 verbose #143 > > │ 00:00:12 verbose #61 > > | INFP : i * n * f * p * function_stack │
00:00:37 verbose #144 > > │ 00:00:12 verbose #62 > > | INTP : i * n * t * p * function_stack │
00:00:37 verbose #145 > > │ 00:00:12 verbose #63 > > | ESTP : e * s * t * p * function_stack │
00:00:37 verbose #146 > > │ 00:00:12 verbose #64 > > | ESFP : e * s * f * p * function_stack │
00:00:37 verbose #147 > > │ 00:00:12 verbose #65 > > | ENFP : e * n * f * p * function_stack │
00:00:37 verbose #148 > > │ 00:00:12 verbose #66 > > | ENTP : e * n * t * p * function_stack │
00:00:37 verbose #149 > > │ 00:00:12 verbose #67 > > | ESTJ : e * s * t * j * function_stack │
00:00:37 verbose #150 > > │ 00:00:12 verbose #68 > > | ESFJ : e * s * f * j * function_stack │
00:00:37 verbose #151 > > │ 00:00:12 verbose #69 > > | ENFJ : e * n * f * j * function_stack │
00:00:37 verbose #152 > > │ 00:00:12 verbose #70 > > | ENTJ : e * n * t * j * function_stack │
00:00:37 verbose #153 > > │ 00:00:12 verbose #71 > > │
00:00:37 verbose #154 > > │ 00:00:12 verbose #72 > > │
00:00:37 verbose #155 > > │ 00:00:12 verbose #73 > > inl main () = │
00:00:37 verbose #156 > > │ 00:00:12 verbose #74 > > inl istj_stack = FS ((Si (s, i)), Ne (n, e), │
00:00:37 verbose #157 > > │ (Te (t, e)), (Fi (f, i))) │
00:00:37 verbose #158 > > │ 00:00:12 verbose #75 > > inl istj_personality = ISTJ (i, s, t, j, │
00:00:37 verbose #159 > > │ istj_stack) │
00:00:37 verbose #160 > > │ 00:00:12 verbose #76 > > // inl isfj_stack = FS ((Si (s, i)), Ne (n, e), │
00:00:37 verbose #161 > > │ (Fe (f, e)), (Ti (t, i))) │
00:00:37 verbose #162 > > │ 00:00:12 verbose #77 > > // inl isfj_personality = ISFJ (i, s, f, j, │
00:00:37 verbose #163 > > │ isfj_stack) │
00:00:37 verbose #164 > > │ 00:00:12 verbose #78 > > │
00:00:37 verbose #165 > > │ 00:00:12 verbose #79 > > ;[[ │
00:00:37 verbose #166 > > │ 00:00:12 verbose #80 > > istj_personality │
00:00:37 verbose #167 > > │ 00:00:12 verbose #81 > > ]] │
00:00:37 verbose #168 > > │ 00:00:12 verbose #82 > > |> fun x => $'$"%A{!x}"' : string │
00:00:37 verbose #169 > > │ 00:00:12 verbose #83 > > |> console.write_line │
00:00:37 verbose #170 > > │ 00:00:12 verbose #84 > > │
00:00:37 verbose #171 > > │ 00:00:12 verbose #85 > > inl main () = │
00:00:37 verbose #172 > > │ 00:00:12 verbose #86 > > $'!main ()' : () │
00:00:37 verbose #173 > > │ 00:00:15 verbose #87 > > │
00:00:37 verbose #174 > > │ 00:00:15 verbose #88 > > ╭─[ 2.66s - stdout │
00:00:37 verbose #175 > > │ ]───────────────────────────────────────────────────────────╮ │
00:00:37 verbose #176 > > │ 00:00:15 verbose #89 > > │ [|US5_0 (US4_0 (US0_0, US1_1, US2_1, US3_0))|] │
00:00:37 verbose #177 > > │ │ │
00:00:37 verbose #178 > > │ 00:00:15 verbose #90 > > │ │
00:00:37 verbose #179 > > │ │
00:00:37 verbose #180 > > │ │ │
00:00:37 verbose #181 > > │ 00:00:15 verbose #91 > > │
00:00:37 verbose #182 > > │ ╰─────────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #183 > > │ ───╯ │
00:00:37 verbose #184 > > │ 00:00:15 verbose #92 > > │
00:00:37 verbose #185 > > │ 00:00:15 verbose #93 > > ── fsharp │
00:00:37 verbose #186 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #187 > > │ 00:00:15 verbose #94 > > type PhonologicalFeature = │
00:00:37 verbose #188 > > │ 00:00:15 verbose #95 > > | VowelFeature of │
00:00:37 verbose #189 > > │ 00:00:15 verbose #96 > > height: Height │
00:00:37 verbose #190 > > │ 00:00:15 verbose #97 > > * backness: Backness │
00:00:37 verbose #191 > > │ 00:00:15 verbose #98 > > * roundedness: Roundedness │
00:00:37 verbose #192 > > │ 00:00:15 verbose #99 > > * tone: Option<Tone> │
00:00:37 verbose #193 > > │ 00:00:15 verbose #100 > > * stress: Option<Stress> │
00:00:37 verbose #194 > > │ 00:00:15 verbose #101 > > * length: Option<Length> │
00:00:37 verbose #195 > > │ 00:00:15 verbose #102 > > | ConsonantFeature of │
00:00:37 verbose #196 > > │ 00:00:15 verbose #103 > > place: PlaceOfArticulation │
00:00:37 verbose #197 > > │ 00:00:15 verbose #104 > > * manner: MannerOfArticulation │
00:00:37 verbose #198 > > │ 00:00:15 verbose #105 > > * voicing: Voicing │
00:00:37 verbose #199 > > │ 00:00:15 verbose #106 > > * length: Option<Length> │
00:00:37 verbose #200 > > │ 00:00:15 verbose #107 > > | VowelHarmonyFeature │
00:00:37 verbose #201 > > │ 00:00:15 verbose #108 > > | PitchAccentFeature │
00:00:37 verbose #202 > > │ 00:00:15 verbose #109 > > │
00:00:37 verbose #203 > > │ 00:00:15 verbose #110 > > and Stress = Primary | Secondary │
00:00:37 verbose #204 > > │ 00:00:15 verbose #111 > > and Length = Long | Short | HalfLong │
00:00:37 verbose #205 > > │ 00:00:15 verbose #112 > > │
00:00:37 verbose #206 > > │ 00:00:15 verbose #113 > > and Height = │
00:00:37 verbose #207 > > │ 00:00:15 verbose #114 > > | High | NearHigh | HighMid │
00:00:37 verbose #208 > > │ 00:00:15 verbose #115 > > | Mid | LowMid | NearLow │
00:00:37 verbose #209 > > │ 00:00:15 verbose #116 > > | Low │
00:00:37 verbose #210 > > │ 00:00:15 verbose #117 > > │
00:00:37 verbose #211 > > │ 00:00:15 verbose #118 > > and Backness = Front | Central | Back │
00:00:37 verbose #212 > > │ 00:00:15 verbose #119 > > │
00:00:37 verbose #213 > > │ 00:00:15 verbose #120 > > and Roundedness = Rounded | Unrounded │
00:00:37 verbose #214 > > │ 00:00:15 verbose #121 > > │
00:00:37 verbose #215 > > │ 00:00:15 verbose #122 > > and PlaceOfArticulation = │
00:00:37 verbose #216 > > │ 00:00:15 verbose #123 > > | Bilabial | Labiodental | Dental │
00:00:37 verbose #217 > > │ 00:00:15 verbose #124 > > | Alveolar | Postalveolar | Retroflex │
00:00:37 verbose #218 > > │ 00:00:15 verbose #125 > > | Palatal | Velar | Uvular │
00:00:37 verbose #219 > > │ 00:00:15 verbose #126 > > | Pharyngeal | Epiglottal | Glottal │
00:00:37 verbose #220 > > │ 00:00:15 verbose #127 > > │
00:00:37 verbose #221 > > │ 00:00:15 verbose #128 > > and MannerOfArticulation = │
00:00:37 verbose #222 > > │ 00:00:15 verbose #129 > > | Plosive | Nasal | Trill │
00:00:37 verbose #223 > > │ 00:00:15 verbose #130 > > | TapOrFlap | Fricative | LateralFricative │
00:00:37 verbose #224 > > │ 00:00:15 verbose #131 > > | Approximant | LateralApproximant │
00:00:37 verbose #225 > > │ 00:00:15 verbose #132 > > │
00:00:37 verbose #226 > > │ 00:00:15 verbose #133 > > and Voicing = Voiced | Voiceless │
00:00:37 verbose #227 > > │ 00:00:15 verbose #134 > > │
00:00:37 verbose #228 > > │ 00:00:15 verbose #135 > > and SecondaryArticulation = │
00:00:37 verbose #229 > > │ 00:00:15 verbose #136 > > | Labialization | Palatalization | │
00:00:37 verbose #230 > > │ Velarization │
00:00:37 verbose #231 > > │ 00:00:15 verbose #137 > > | Pharyngealization | Aspiration │
00:00:37 verbose #232 > > │ 00:00:15 verbose #138 > > │
00:00:37 verbose #233 > > │ 00:00:15 verbose #139 > > and Tone = │
00:00:37 verbose #234 > > │ 00:00:15 verbose #140 > > | LevelTone of int │
00:00:37 verbose #235 > > │ 00:00:15 verbose #141 > > | ContourTone of int list │
00:00:37 verbose #236 > > │ 00:00:15 verbose #142 > > │
00:00:37 verbose #237 > > │ 00:00:15 verbose #143 > > and MorphologicalFeature = │
00:00:37 verbose #238 > > │ 00:00:15 verbose #144 > > | RootFeature of string │
00:00:37 verbose #239 > > │ 00:00:15 verbose #145 > > | AffixFeature of AffixType * string │
00:00:37 verbose #240 > > │ 00:00:15 verbose #146 > > | IncorporationFeature of string * │
00:00:37 verbose #241 > > │ MorphologicalFeature │
00:00:37 verbose #242 > > │ 00:00:15 verbose #147 > > | NonConcatenativePattern of string * string │
00:00:37 verbose #243 > > │ 00:00:15 verbose #148 > > | AgglutinativeAffixFeature of │
00:00:37 verbose #244 > > │ AgglutinativeAffixType * string │
00:00:37 verbose #245 > > │ 00:00:15 verbose #149 > > | HonorificFeature of HonorificType * string │
00:00:37 verbose #246 > > │ 00:00:15 verbose #150 > > │
00:00:37 verbose #247 > > │ 00:00:15 verbose #151 > > and AgglutinativeAffixType = Suffix | Prefix │
00:00:37 verbose #248 > > │ 00:00:15 verbose #152 > > │
00:00:37 verbose #249 > > │ 00:00:15 verbose #153 > > and HonorificType = VerbHonorific | NounHonorific │
00:00:37 verbose #250 > > │ 00:00:15 verbose #154 > > │
00:00:37 verbose #251 > > │ 00:00:15 verbose #155 > > and AffixType = │
00:00:37 verbose #252 > > │ 00:00:15 verbose #156 > > | Prefix | Suffix | Infix │
00:00:37 verbose #253 > > │ 00:00:15 verbose #157 > > | Circumfix │
00:00:37 verbose #254 > > │ 00:00:15 verbose #158 > > │
00:00:37 verbose #255 > > │ 00:00:15 verbose #159 > > type SyntacticFeature = │
00:00:37 verbose #256 > > │ 00:00:15 verbose #160 > > | WordFeature of MorphologicalFeature list * │
00:00:37 verbose #257 > > │ LexicalCategory │
00:00:37 verbose #258 > > │ 00:00:15 verbose #161 > > | PhraseFeature of PhraseType * │
00:00:37 verbose #259 > > │ SyntacticFeature list │
00:00:37 verbose #260 > > │ 00:00:15 verbose #162 > > | GrammaticalRelation of │
00:00:37 verbose #261 > > │ GrammaticalRelationType * SyntacticFeature list │
00:00:37 verbose #262 > > │ 00:00:15 verbose #163 > > | SOVOrderFeature │
00:00:37 verbose #263 > > │ 00:00:15 verbose #164 > > | TopicCommentFeature │
00:00:37 verbose #264 > > │ 00:00:15 verbose #165 > > │
00:00:37 verbose #265 > > │ 00:00:15 verbose #166 > > and GrammaticalRelationType = │
00:00:37 verbose #266 > > │ 00:00:15 verbose #167 > > | Ergative | Absolutive | Nominative │
00:00:37 verbose #267 > > │ 00:00:15 verbose #168 > > | Accusative │
00:00:37 verbose #268 > > │ 00:00:15 verbose #169 > > │
00:00:37 verbose #269 > > │ 00:00:15 verbose #170 > > and LexicalCategory = │
00:00:37 verbose #270 > > │ 00:00:15 verbose #171 > > | Noun | Verb | Adjective │
00:00:37 verbose #271 > > │ 00:00:15 verbose #172 > > | Adverb | Pronoun | Preposition │
00:00:37 verbose #272 > > │ 00:00:15 verbose #173 > > | Conjunction | Determiner | Interjection │
00:00:37 verbose #273 > > │ 00:00:15 verbose #174 > > │
00:00:37 verbose #274 > > │ 00:00:15 verbose #175 > > and PhraseType = │
00:00:37 verbose #275 > > │ 00:00:15 verbose #176 > > | NP | VP | AP │
00:00:37 verbose #276 > > │ 00:00:15 verbose #177 > > | PP | CP │
00:00:37 verbose #277 > > │ 00:00:15 verbose #178 > > │
00:00:37 verbose #278 > > │ 00:00:15 verbose #179 > > and SemanticFeature = │
00:00:37 verbose #279 > > │ 00:00:15 verbose #180 > > | Meaning of string │
00:00:37 verbose #280 > > │ 00:00:15 verbose #181 > > | SemanticRole of SemanticRoleType * │
00:00:37 verbose #281 > > │ SemanticFeature │
00:00:37 verbose #282 > > │ 00:00:15 verbose #182 > > │
00:00:37 verbose #283 > > │ 00:00:15 verbose #183 > > and SemanticRoleType = │
00:00:37 verbose #284 > > │ 00:00:15 verbose #184 > > | Agent | Patient | Instrument │
00:00:37 verbose #285 > > │ 00:00:15 verbose #185 > > | Location | Time | Cause │
00:00:37 verbose #286 > > │ 00:00:15 verbose #186 > > │
00:00:37 verbose #287 > > │ 00:00:15 verbose #187 > > and PragmaticFeature = │
00:00:37 verbose #288 > > │ 00:00:15 verbose #188 > > | UseContext of string │
00:00:37 verbose #289 > > │ 00:00:15 verbose #189 > > | PolitenessLevel of Politeness │
00:00:37 verbose #290 > > │ 00:00:15 verbose #190 > > | SpeechAct of SpeechActType │
00:00:37 verbose #291 > > │ 00:00:15 verbose #191 > > | SpeechLevel of SpeechLevelType │
00:00:37 verbose #292 > > │ 00:00:15 verbose #192 > > │
00:00:37 verbose #293 > > │ 00:00:15 verbose #193 > > and Politeness = Formal | Informal | Neutral │
00:00:37 verbose #294 > > │ 00:00:15 verbose #194 > > │
00:00:37 verbose #295 > > │ 00:00:15 verbose #195 > > and SpeechActType = │
00:00:37 verbose #296 > > │ 00:00:15 verbose #196 > > | Assertive | Directive | Commissive │
00:00:37 verbose #297 > > │ 00:00:15 verbose #197 > > | Expressive | Declarative │
00:00:37 verbose #298 > > │ 00:00:15 verbose #198 > > │
00:00:37 verbose #299 > > │ 00:00:15 verbose #199 > > and SpeechLevelType = │
00:00:37 verbose #300 > > │ 00:00:15 verbose #200 > > | FormalHigh | FormalLow | InformalHigh │
00:00:37 verbose #301 > > │ 00:00:15 verbose #201 > > | InformalLow | Neutral │
00:00:37 verbose #302 > > │ 00:00:15 verbose #202 > > │
00:00:37 verbose #303 > > │ 00:00:15 verbose #203 > > type LinguisticFeature = │
00:00:37 verbose #304 > > │ 00:00:15 verbose #204 > > | Phonological of PhonologicalFeature │
00:00:37 verbose #305 > > │ 00:00:15 verbose #205 > > | Morphological of MorphologicalFeature │
00:00:37 verbose #306 > > │ 00:00:15 verbose #206 > > | Syntactic of SyntacticFeature │
00:00:37 verbose #307 > > │ 00:00:15 verbose #207 > > | Semantic of SemanticFeature │
00:00:37 verbose #308 > > │ 00:00:15 verbose #208 > > | Pragmatic of PragmaticFeature │
00:00:37 verbose #309 > > │ 00:00:15 verbose #209 > > │
00:00:37 verbose #310 > > │ 00:00:15 verbose #210 > > type LanguageConstruct = │
00:00:37 verbose #311 > > │ 00:00:15 verbose #211 > > | LanguageElement of LinguisticFeature │
00:00:37 verbose #312 > > │ 00:00:15 verbose #212 > > | LanguageStructure of LanguageConstruct list │
00:00:37 verbose #313 > > │ 00:00:15 verbose #213 > > | TranslationElement of TranslationFeature │
00:00:37 verbose #314 > > │ 00:00:15 verbose #214 > > │
00:00:37 verbose #315 > > │ 00:00:15 verbose #215 > > and TranslationFeature = │
00:00:37 verbose #316 > > │ 00:00:15 verbose #216 > > | LinkedPhonological of PhonologicalFeature * │
00:00:37 verbose #317 > > │ PhonologicalFeature │
00:00:37 verbose #318 > > │ 00:00:15 verbose #217 > > | LinkedMorphological of MorphologicalFeature │
00:00:37 verbose #319 > > │ * MorphologicalFeature │
00:00:37 verbose #320 > > │ 00:00:15 verbose #218 > > | LinkedSyntactic of SyntacticFeature * │
00:00:37 verbose #321 > > │ SyntacticFeature │
00:00:37 verbose #322 > > │ 00:00:15 verbose #219 > > | LinkedSemantic of SemanticFeature * │
00:00:37 verbose #323 > > │ SemanticFeature │
00:00:37 verbose #324 > > │ 00:00:15 verbose #220 > > │
00:00:37 verbose #325 > > │ 00:00:15 verbose #221 > > type Discourse = DiscourseUnit of │
00:00:37 verbose #326 > > │ LanguageConstruct list │
00:00:37 verbose #327 > > │ 00:00:15 verbose #222 > > │
00:00:37 verbose #328 > > │ 00:00:15 verbose #223 > > type LanguageModel = │
00:00:37 verbose #329 > > │ 00:00:15 verbose #224 > > | Model of discourse: Discourse │
00:00:37 verbose #330 > > │ 00:00:15 verbose #225 > > │
00:00:37 verbose #331 > > │ 00:00:15 verbose #226 > > ── fsharp - import │
00:00:37 verbose #332 > > │ ───────────────────────────────────────────────────────────── │
00:00:37 verbose #333 > > │ 00:00:15 verbose #227 > > #r │
00:00:37 verbose #334 > > │ 00:00:15 verbose #228 > > │
00:00:37 verbose #335 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #336 > > │ ft.A │
00:00:37 verbose #337 > > │ 00:00:15 verbose #229 > > spNetCore.Html.Abstractions.dll" │
00:00:37 verbose #338 > > │ 00:00:15 verbose #230 > > #r │
00:00:37 verbose #339 > > │ 00:00:15 verbose #231 > > │
00:00:37 verbose #340 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #341 > > │ ft.D │
00:00:37 verbose #342 > > │ 00:00:15 verbose #232 > > otNet.Interactive.dll" │
00:00:37 verbose #343 > > │ 00:00:15 verbose #233 > > #r │
00:00:37 verbose #344 > > │ 00:00:15 verbose #234 > > │
00:00:37 verbose #345 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #346 > > │ ft.D │
00:00:37 verbose #347 > > │ 00:00:15 verbose #235 > > otNet.Interactive.FSharp.dll" │
00:00:37 verbose #348 > > │ 00:00:15 verbose #236 > > #r │
00:00:37 verbose #349 > > │ 00:00:15 verbose #237 > > │
00:00:37 verbose #350 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #351 > > │ ft.D │
00:00:37 verbose #352 > > │ 00:00:15 verbose #238 > > otNet.Interactive.Formatting.dll" │
00:00:37 verbose #353 > > │ 00:00:15 verbose #239 > > open System │
00:00:37 verbose #354 > > │ 00:00:15 verbose #240 > > open System.IO │
00:00:37 verbose #355 > > │ 00:00:15 verbose #241 > > open System.Text │
00:00:37 verbose #356 > > │ 00:00:15 verbose #242 > > open Microsoft.DotNet.Interactive.Formatting │
00:00:37 verbose #357 > > │ 00:00:16 verbose #243 > > │
00:00:37 verbose #358 > > │ 00:00:16 verbose #244 > > ── fsharp - import │
00:00:37 verbose #359 > > │ ───────────────────────────────────────────────────────────── │
00:00:37 verbose #360 > > │ 00:00:16 verbose #245 > > #r │
00:00:37 verbose #361 > > │ 00:00:16 verbose #246 > > │
00:00:37 verbose #362 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #363 > > │ ft.D │
00:00:37 verbose #364 > > │ 00:00:16 verbose #247 > > otNet.Interactive.FSharp.dll" │
00:00:37 verbose #365 > > │ 00:00:16 verbose #248 > > open │
00:00:37 verbose #366 > > │ Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers │
00:00:37 verbose #367 > > │ 00:00:16 verbose #249 > > #r │
00:00:37 verbose #368 > > │ 00:00:16 verbose #250 > > │
00:00:37 verbose #369 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:37 verbose #370 > > │ ft.D │
00:00:37 verbose #371 > > │ 00:00:16 verbose #251 > > otNet.Interactive.dll" │
00:00:37 verbose #372 > > │ 00:00:16 verbose #252 > > open type Microsoft.DotNet.Interactive.Kernel │
00:00:37 verbose #373 > > │ 00:00:16 verbose #253 > > │
00:00:37 verbose #374 > > │ 00:00:16 verbose #254 > > ── fsharp - import │
00:00:37 verbose #375 > > │ ───────────────────────────────────────────────────────────── │
00:00:37 verbose #376 > > │ 00:00:16 verbose #255 > > Formatter.Register(fun(x: obj)(writer: │
00:00:37 verbose #377 > > │ TextWriter)->fprintfn writer "%120A" x) │
00:00:37 verbose #378 > > │ 00:00:16 verbose #256 > > │
00:00:37 verbose #379 > > │ 00:00:16 verbose #257 > > ── fsharp - import │
00:00:37 verbose #380 > > │ ───────────────────────────────────────────────────────────── │
00:00:37 verbose #381 > > │ 00:00:16 verbose #258 > > Formatter.Register(fun(x: │
00:00:37 verbose #382 > > │ System.Collections.IEnumerable)(writer: │
00:00:37 verbose #383 > > │ 00:00:16 verbose #259 > > TextWriter)->fprintfn writer "%120A" x) │
00:00:37 verbose #384 > > │ 00:00:16 verbose #260 > > │
00:00:37 verbose #385 > > │ 00:00:16 verbose #261 > > ── fsharp - import │
00:00:37 verbose #386 > > │ ───────────────────────────────────────────────────────────── │
00:00:37 verbose #387 > > │ 00:00:16 verbose #262 > > type PhonologicalFeature = │
00:00:37 verbose #388 > > │ 00:00:16 verbose #263 > > | VowelFeature of │
00:00:37 verbose #389 > > │ 00:00:16 verbose #264 > > height: Height │
00:00:37 verbose #390 > > │ 00:00:16 verbose #265 > > * backness: Backness │
00:00:37 verbose #391 > > │ 00:00:16 verbose #266 > > * roundedness: Roundedness │
00:00:37 verbose #392 > > │ 00:00:16 verbose #267 > > * tone: Option<Tone> │
00:00:37 verbose #393 > > │ 00:00:16 verbose #268 > > * stress: Option<Stress> │
00:00:37 verbose #394 > > │ 00:00:16 verbose #269 > > * length: Option<Length> │
00:00:37 verbose #395 > > │ 00:00:16 verbose #270 > > | ConsonantFeature of │
00:00:37 verbose #396 > > │ 00:00:16 verbose #271 > > place: PlaceOfArticulation │
00:00:37 verbose #397 > > │ 00:00:16 verbose #272 > > * manner: MannerOfArticulation │
00:00:37 verbose #398 > > │ 00:00:16 verbose #273 > > * voicing: Voicing │
00:00:37 verbose #399 > > │ 00:00:16 verbose #274 > > * length: Option<Length> │
00:00:37 verbose #400 > > │ 00:00:16 verbose #275 > > | VowelHarmonyFeature │
00:00:37 verbose #401 > > │ 00:00:16 verbose #276 > > | PitchAccentFeature │
00:00:37 verbose #402 > > │ 00:00:16 verbose #277 > > │
00:00:37 verbose #403 > > │ 00:00:16 verbose #278 > > and Stress = Primary | Secondary │
00:00:37 verbose #404 > > │ 00:00:16 verbose #279 > > and Length = Long | Short | HalfLong │
00:00:37 verbose #405 > > │ 00:00:16 verbose #280 > > │
00:00:37 verbose #406 > > │ 00:00:16 verbose #281 > > and Height = │
00:00:37 verbose #407 > > │ 00:00:16 verbose #282 > > | High | NearHigh | HighMid │
00:00:37 verbose #408 > > │ 00:00:16 verbose #283 > > | Mid | LowMid | NearLow │
00:00:37 verbose #409 > > │ 00:00:16 verbose #284 > > | Low │
00:00:37 verbose #410 > > │ 00:00:16 verbose #285 > > │
00:00:37 verbose #411 > > │ 00:00:16 verbose #286 > > and Backness = Front | Central | Back │
00:00:37 verbose #412 > > │ 00:00:16 verbose #287 > > │
00:00:37 verbose #413 > > │ 00:00:16 verbose #288 > > and Roundedness = Rounded | Unrounded │
00:00:37 verbose #414 > > │ 00:00:16 verbose #289 > > │
00:00:37 verbose #415 > > │ 00:00:16 verbose #290 > > and PlaceOfArticulation = │
00:00:37 verbose #416 > > │ 00:00:16 verbose #291 > > | Bilabial | Labiodental | Dental │
00:00:37 verbose #417 > > │ 00:00:16 verbose #292 > > | Alveolar | Postalveolar | Retroflex │
00:00:37 verbose #418 > > │ 00:00:16 verbose #293 > > | Palatal | Velar | Uvular │
00:00:37 verbose #419 > > │ 00:00:16 verbose #294 > > | Pharyngeal | Epiglottal | Glottal │
00:00:37 verbose #420 > > │ 00:00:16 verbose #295 > > │
00:00:37 verbose #421 > > │ 00:00:16 verbose #296 > > and MannerOfArticulation = │
00:00:37 verbose #422 > > │ 00:00:16 verbose #297 > > | Plosive | Nasal | Trill │
00:00:37 verbose #423 > > │ 00:00:16 verbose #298 > > | TapOrFlap | Fricative | LateralFricative │
00:00:37 verbose #424 > > │ 00:00:16 verbose #299 > > | Approximant | LateralApproximant │
00:00:37 verbose #425 > > │ 00:00:16 verbose #300 > > │
00:00:37 verbose #426 > > │ 00:00:16 verbose #301 > > and Voicing = Voiced | Voiceless │
00:00:37 verbose #427 > > │ 00:00:16 verbose #302 > > │
00:00:37 verbose #428 > > │ 00:00:16 verbose #303 > > and SecondaryArticulation = │
00:00:37 verbose #429 > > │ 00:00:16 verbose #304 > > | Labialization | Palatalization | │
00:00:37 verbose #430 > > │ Velarization │
00:00:37 verbose #431 > > │ 00:00:16 verbose #305 > > | Pharyngealization | Aspiration │
00:00:37 verbose #432 > > │ 00:00:16 verbose #306 > > │
00:00:37 verbose #433 > > │ 00:00:16 verbose #307 > > and Tone = │
00:00:37 verbose #434 > > │ 00:00:16 verbose #308 > > | LevelTone of int │
00:00:37 verbose #435 > > │ 00:00:16 verbose #309 > > | ContourTone of int list │
00:00:37 verbose #436 > > │ 00:00:16 verbose #310 > > │
00:00:37 verbose #437 > > │ 00:00:16 verbose #311 > > and MorphologicalFeature = │
00:00:37 verbose #438 > > │ 00:00:16 verbose #312 > > | RootFeature of string │
00:00:37 verbose #439 > > │ 00:00:16 verbose #313 > > | AffixFeature of AffixType * string │
00:00:37 verbose #440 > > │ 00:00:16 verbose #314 > > | IncorporationFeature of string * │
00:00:37 verbose #441 > > │ MorphologicalFeature │
00:00:37 verbose #442 > > │ 00:00:16 verbose #315 > > | NonConcatenativePattern of string * string │
00:00:37 verbose #443 > > │ 00:00:16 verbose #316 > > | AgglutinativeAffixFeature of │
00:00:37 verbose #444 > > │ AgglutinativeAffixType * string │
00:00:37 verbose #445 > > │ 00:00:16 verbose #317 > > | Honor... Adverb | Pronoun | Preposition │
00:00:37 verbose #446 > > │ 00:00:16 verbose #318 > > | Conjunction | Determiner | Interjection │
00:00:37 verbose #447 > > │ 00:00:16 verbose #319 > > │
00:00:37 verbose #448 > > │ 00:00:16 verbose #320 > > and PhraseType = │
00:00:37 verbose #449 > > │ 00:00:16 verbose #321 > > | NP | VP | AP │
00:00:37 verbose #450 > > │ 00:00:16 verbose #322 > > | PP | CP │
00:00:37 verbose #451 > > │ 00:00:16 verbose #323 > > │
00:00:37 verbose #452 > > │ 00:00:16 verbose #324 > > and SemanticFeature = │
00:00:37 verbose #453 > > │ 00:00:16 verbose #325 > > | Meaning of string │
00:00:37 verbose #454 > > │ 00:00:16 verbose #326 > > | SemanticRole of SemanticRoleType * │
00:00:37 verbose #455 > > │ SemanticFeature │
00:00:37 verbose #456 > > │ 00:00:16 verbose #327 > > │
00:00:37 verbose #457 > > │ 00:00:16 verbose #328 > > and SemanticRoleType = │
00:00:37 verbose #458 > > │ 00:00:16 verbose #329 > > | Agent | Patient | Instrument │
00:00:37 verbose #459 > > │ 00:00:16 verbose #330 > > | Location | Time | Cause │
00:00:37 verbose #460 > > │ 00:00:16 verbose #331 > > │
00:00:37 verbose #461 > > │ 00:00:16 verbose #332 > > and PragmaticFeature = │
00:00:37 verbose #462 > > │ 00:00:16 verbose #333 > > | UseContext of string │
00:00:37 verbose #463 > > │ 00:00:16 verbose #334 > > | PolitenessLevel of Politeness │
00:00:37 verbose #464 > > │ 00:00:16 verbose #335 > > | SpeechAct of SpeechActType │
00:00:37 verbose #465 > > │ 00:00:16 verbose #336 > > | SpeechLevel of SpeechLevelType │
00:00:37 verbose #466 > > │ 00:00:16 verbose #337 > > │
00:00:37 verbose #467 > > │ 00:00:16 verbose #338 > > and Politeness = Formal | Informal | Neutral │
00:00:37 verbose #468 > > │ 00:00:16 verbose #339 > > │
00:00:37 verbose #469 > > │ 00:00:16 verbose #340 > > and SpeechActType = │
00:00:37 verbose #470 > > │ 00:00:16 verbose #341 > > | Assertive | Directive | Commissive │
00:00:37 verbose #471 > > │ 00:00:16 verbose #342 > > | Expressive | Declarative │
00:00:37 verbose #472 > > │ 00:00:16 verbose #343 > > │
00:00:37 verbose #473 > > │ 00:00:16 verbose #344 > > and SpeechLevelType = │
00:00:37 verbose #474 > > │ 00:00:16 verbose #345 > > | FormalHigh | FormalLow | InformalHigh │
00:00:37 verbose #475 > > │ 00:00:16 verbose #346 > > | InformalLow | Neutral │
00:00:37 verbose #476 > > │ 00:00:16 verbose #347 > > │
00:00:37 verbose #477 > > │ 00:00:16 verbose #348 > > type LinguisticFeature = │
00:00:37 verbose #478 > > │ 00:00:16 verbose #349 > > | Phonological of PhonologicalFeature │
00:00:37 verbose #479 > > │ 00:00:16 verbose #350 > > | Morphological of MorphologicalFeature │
00:00:37 verbose #480 > > │ 00:00:16 verbose #351 > > | Syntactic of SyntacticFeature │
00:00:37 verbose #481 > > │ 00:00:16 verbose #352 > > | Semantic of SemanticFeature │
00:00:37 verbose #482 > > │ 00:00:16 verbose #353 > > | Pragmatic of PragmaticFeature │
00:00:37 verbose #483 > > │ 00:00:16 verbose #354 > > │
00:00:37 verbose #484 > > │ 00:00:16 verbose #355 > > type LanguageConstruct = │
00:00:37 verbose #485 > > │ 00:00:16 verbose #356 > > | LanguageElement of LinguisticFeature │
00:00:37 verbose #486 > > │ 00:00:16 verbose #357 > > | LanguageStructure of LanguageConstruct list │
00:00:37 verbose #487 > > │ 00:00:16 verbose #358 > > | TranslationElement of TranslationFeature │
00:00:37 verbose #488 > > │ 00:00:16 verbose #359 > > │
00:00:37 verbose #489 > > │ 00:00:16 verbose #360 > > and TranslationFeature = │
00:00:37 verbose #490 > > │ 00:00:16 verbose #361 > > | LinkedPhonological of PhonologicalFeature * │
00:00:37 verbose #491 > > │ PhonologicalFeature │
00:00:37 verbose #492 > > │ 00:00:16 verbose #362 > > | LinkedMorphological of MorphologicalFeature │
00:00:37 verbose #493 > > │ * MorphologicalFeature │
00:00:37 verbose #494 > > │ 00:00:16 verbose #363 > > | LinkedSyntactic of SyntacticFeature * │
00:00:37 verbose #495 > > │ SyntacticFeature │
00:00:37 verbose #496 > > │ 00:00:16 verbose #364 > > | LinkedSemantic of SemanticFeature * │
00:00:37 verbose #497 > > │ SemanticFeature │
00:00:37 verbose #498 > > │ 00:00:16 verbose #365 > > │
00:00:37 verbose #499 > > │ 00:00:16 verbose #366 > > type Discourse = DiscourseUnit of │
00:00:37 verbose #500 > > │ LanguageConstruct list │
00:00:37 verbose #501 > > │ 00:00:16 verbose #367 > > │
00:00:37 verbose #502 > > │ 00:00:16 verbose #368 > > type LanguageModel = │
00:00:37 verbose #503 > > │ 00:00:16 verbose #369 > > | Model of discourse: Discourse │
00:00:37 verbose #504 > > │ 00:00:18 verbose #370 > > │
00:00:37 verbose #505 > > │ 00:00:18 verbose #371 > > ── fsharp │
00:00:37 verbose #506 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #507 > > │ 00:00:18 verbose #372 > > let testEnglish = │
00:00:37 verbose #508 > > │ 00:00:18 verbose #373 > > Model( │
00:00:37 verbose #509 > > │ 00:00:18 verbose #374 > > DiscourseUnit [[ │
00:00:37 verbose #510 > > │ 00:00:18 verbose #375 > > LanguageElement (Phonological │
00:00:37 verbose #511 > > │ (ConsonantFeature (Alveolar, Nasal, │
00:00:37 verbose #512 > > │ 00:00:18 verbose #376 > > Voiced, Some(HalfLong)))); │
00:00:37 verbose #513 > > │ 00:00:18 verbose #377 > > LanguageElement (Phonological │
00:00:37 verbose #514 > > │ (VowelFeature (High, Front, Unrounded, │
00:00:37 verbose #515 > > │ 00:00:18 verbose #378 > > Some(LevelTone 1), Some(Primary), Some(Short)))); │
00:00:37 verbose #516 > > │ 00:00:18 verbose #379 > > LanguageElement (Phonological │
00:00:37 verbose #517 > > │ (VowelFeature (Low, Front, Unrounded, │
00:00:37 verbose #518 > > │ 00:00:18 verbose #380 > > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
00:00:37 verbose #519 > > │ 00:00:18 verbose #381 > > LanguageElement (Phonological │
00:00:37 verbose #520 > > │ (ConsonantFeature (Velar, Plosive, │
00:00:37 verbose #521 > > │ 00:00:18 verbose #382 > > Voiceless, Some(HalfLong)))); │
00:00:37 verbose #522 > > │ 00:00:18 verbose #383 > > LanguageElement (Morphological │
00:00:37 verbose #523 > > │ (RootFeature "I")); │
00:00:37 verbose #524 > > │ 00:00:18 verbose #384 > > LanguageElement (Morphological │
00:00:37 verbose #525 > > │ (RootFeature "see")); │
00:00:37 verbose #526 > > │ 00:00:18 verbose #385 > > LanguageElement (Morphological │
00:00:37 verbose #527 > > │ (RootFeature "a")); │
00:00:37 verbose #528 > > │ 00:00:18 verbose #386 > > LanguageElement (Morphological │
00:00:37 verbose #529 > > │ (RootFeature "cat")); │
00:00:37 verbose #530 > > │ 00:00:18 verbose #387 > > LanguageElement (Syntactic │
00:00:37 verbose #531 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:37 verbose #532 > > │ 00:00:18 verbose #388 > > ([[RootFeature "I"]], Pronoun)]]))); │
00:00:37 verbose #533 > > │ 00:00:18 verbose #389 > > LanguageElement (Syntactic │
00:00:37 verbose #534 > > │ (PhraseFeature (VP, [[WordFeature │
00:00:37 verbose #535 > > │ 00:00:18 verbose #390 > > ([[RootFeature "see"]], Verb)]]))); │
00:00:37 verbose #536 > > │ 00:00:18 verbose #391 > > LanguageElement (Syntactic │
00:00:37 verbose #537 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:37 verbose #538 > > │ 00:00:18 verbose #392 > > ([[RootFeature "a"; RootFeature "cat"]], │
00:00:37 verbose #539 > > │ Noun)]]))); │
00:00:37 verbose #540 > > │ 00:00:18 verbose #393 > > LanguageElement (Semantic (Meaning │
00:00:37 verbose #541 > > │ "Perception act of a feline by │
00:00:37 verbose #542 > > │ 00:00:18 verbose #394 > > the speaker")); │
00:00:37 verbose #543 > > │ 00:00:18 verbose #395 > > LanguageElement (Pragmatic (UseContext │
00:00:37 verbose #544 > > │ "Statement of an action being │
00:00:37 verbose #545 > > │ 00:00:18 verbose #396 > > observed")) │
00:00:37 verbose #546 > > │ 00:00:18 verbose #397 > > ]] │
00:00:37 verbose #547 > > │ 00:00:18 verbose #398 > > ) │
00:00:37 verbose #548 > > │ 00:00:18 verbose #399 > > │
00:00:37 verbose #549 > > │ 00:00:18 verbose #400 > > let testPortuguese = │
00:00:37 verbose #550 > > │ 00:00:18 verbose #401 > > Model( │
00:00:37 verbose #551 > > │ 00:00:18 verbose #402 > > DiscourseUnit [[ │
00:00:37 verbose #552 > > │ 00:00:18 verbose #403 > > LanguageElement (Phonological │
00:00:37 verbose #553 > > │ (VowelFeature (High, Front, Unrounded, │
00:00:37 verbose #554 > > │ 00:00:18 verbose #404 > > Some(LevelTone 1), Some(Primary), Some(Short)))); │
00:00:37 verbose #555 > > │ 00:00:18 verbose #405 > > LanguageElement (Phonological │
00:00:37 verbose #556 > > │ (VowelFeature (Low, Front, Unrounded, │
00:00:37 verbose #557 > > │ 00:00:18 verbose #406 > > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
00:00:37 verbose #558 > > │ 00:00:18 verbose #407 > > LanguageElement (Phonological │
00:00:37 verbose #559 > > │ (VowelFeature (Mid, Back, Rounded, │
00:00:37 verbose #560 > > │ 00:00:18 verbose #408 > > Some(LevelTone 3), Some(Primary), Some(Short)))); │
00:00:37 verbose #561 > > │ 00:00:18 verbose #409 > > LanguageElement (Phonological │
00:00:37 verbose #562 > > │ (ConsonantFeature (Velar, Plosive, │
00:00:37 verbose #563 > > │ 00:00:18 verbose #410 > > Voiceless, Some(HalfLong)))); │
00:00:37 verbose #564 > > │ 00:00:18 verbose #411 > > LanguageElement (Morphological │
00:00:37 verbose #565 > > │ (RootFeature "Eu")); │
00:00:37 verbose #566 > > │ 00:00:18 verbose #412 > > LanguageElement (Morphological │
00:00:37 verbose #567 > > │ (RootFeature "ver" |> ignore; │
00:00:37 verbose #568 > > │ 00:00:18 verbose #413 > > AffixFeature (Suffix, "o"))); │
00:00:37 verbose #569 > > │ 00:00:18 verbose #414 > > LanguageElement (Morphological │
00:00:37 verbose #570 > > │ (RootFeature "um")); │
00:00:37 verbose #571 > > │ 00:00:18 verbose #415 > > LanguageElement (Morphological │
00:00:37 verbose #572 > > │ (RootFeature "gato")); │
00:00:37 verbose #573 > > │ 00:00:18 verbose #416 > > LanguageElement (Syntactic │
00:00:37 verbose #574 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:37 verbose #575 > > │ 00:00:18 verbose #417 > > ([[RootFeature "Eu"]], Pronoun)]]))); │
00:00:37 verbose #576 > > │ 00:00:18 verbose #418 > > LanguageElement (Syntactic │
00:00:37 verbose #577 > > │ (PhraseFeature (VP, [[WordFeature │
00:00:37 verbose #578 > > │ 00:00:18 verbose #419 > > ([[RootFeature "vejo"]], Verb)]]))); │
00:00:37 verbose #579 > > │ 00:00:18 verbose #420 > > LanguageElement (Syntactic │
00:00:37 verbose #580 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:37 verbose #581 > > │ 00:00:18 verbose #421 > > ([[RootFeature "um"; RootFeature "gato"]], │
00:00:37 verbose #582 > > │ Noun)]]))); │
00:00:37 verbose #583 > > │ 00:00:18 verbose #422 > > LanguageElement (Semantic (Meaning │
00:00:37 verbose #584 > > │ "Ação de percepção de um felino │
00:00:37 verbose #585 > > │ 00:00:18 verbose #423 > > pelo falante")); │
00:00:37 verbose #586 > > │ 00:00:18 verbose #424 > > LanguageElement (Pragmatic (UseContext │
00:00:37 verbose #587 > > │ "Declaração de uma ação sendo │
00:00:37 verbose #588 > > │ 00:00:18 verbose #425 > > observada")) │
00:00:37 verbose #589 > > │ 00:00:18 verbose #426 > > ]] │
00:00:37 verbose #590 > > │ 00:00:18 verbose #427 > > ) │
00:00:37 verbose #591 > > │ 00:00:18 verbose #428 > > │
00:00:37 verbose #592 > > │ 00:00:18 verbose #429 > > let testKorean = │
00:00:37 verbose #593 > > │ 00:00:18 verbose #430 > > Model( │
00:00:37 verbose #594 > > │ 00:00:18 verbose #431 > > DiscourseUnit [[ │
00:00:37 verbose #595 > > │ 00:00:18 verbose #432 > > LanguageElement (Phonological │
00:00:37 verbose #596 > > │ (ConsonantFeature (Alveolar, Nasal, │
00:00:37 verbose #597 > > │ 00:00:18 verbose #433 > > Voiced, Some(Short)))); │
00:00:37 verbose #598 > > │ 00:00:18 verbose #434 > > LanguageElement (Phonological │
00:00:37 verbose #599 > > │ (VowelFeature (High, Back, Rounded, │
00:00:37 verbose #600 > > │ 00:00:18 verbose #435 > > None, None, Some(Short)))); │
00:00:37 verbose #601 > > │ 00:00:18 verbose #436 > > LanguageElement (Phonological │
00:00:37 verbose #602 > > │ (VowelFeature (Mid, Front, Unrounded, │
00:00:37 verbose #603 > > │ 00:00:18 verbose #437 > > None, None, Some(Long)))); │
00:00:37 verbose #604 > > │ 00:00:18 verbose #438 > > LanguageElement (Phonological │
00:00:37 verbose #605 > > │ (ConsonantFeature (Bilabial, Plosive, │
00:00:37 verbose #606 > > │ 00:00:18 verbose #439 > > Voiceless, Some(Short)))); │
00:00:37 verbose #607 > > │ 00:00:18 verbose #440 > > LanguageElement (Morphological │
00:00:37 verbose #608 > > │ (RootFeature "나")); │
00:00:37 verbose #609 > > │ 00:00:18 verbose #441 > > LanguageElement (Morphological │
00:00:37 verbose #610 > > │ (RootFeature "보다")); │
00:00:37 verbose #611 > > │ 00:00:18 verbose #442 > > LanguageElement (Morphological │
00:00:37 verbose #612 > > │ (AffixFeature (Suffix, "아"))); │
00:00:37 verbose #613 > > │ 00:00:18 verbose #443 > > LanguageElement (Morphological │
00:00:37 verbose #614 > > │ (RootFeature "고양이")); │
00:00:37 verbose #615 > > │ 00:00:18 verbose #444 > > LanguageElement (Syntactic │
00:00:37 verbose #616 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:37 verbose #617 > > │ 00:00:18 verbose #445 > > ([[RootFeature "나"]], Pronoun)]]))); │
00:00:37 verbose #618 > > │ 00:00:18 verbose #446 > > LanguageElement (Syntactic │
00:00:37 verbose #619 > > │ (PhraseFeature (VP, [[WordFeature │
00:00:37 verbose #620 > > │ 00:00:18 verbose #447 > > ([[RootFeature "보다"; AffixFeature (Suffix, │
00:00:37 verbose #621 > > │ "아")]], Verb)]]))); │
00:00:37 verbose #622 > > │ 00:00:18 verbose #448 > > LanguageElement (Syntactic │
00:00:37 verbose #623 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:37 verbose #624 > > │ 00:00:18 verbose #449 > > ([[RootFeature "고양이"]], Noun)]]))); │
00:00:37 verbose #625 > > │ 00:00:18 verbose #450 > > LanguageElement (Semantic (Meaning │
00:00:37 verbose #626 > > │ "화자에 의한 고양이의 관찰 │
00:00:37 verbose #627 > > │ 00:00:18 verbose #451 > > 행위")); │
00:00:37 verbose #628 > > │ 00:00:18 verbose #452 > > LanguageElement (Pragmatic (UseContext │
00:00:37 verbose #629 > > │ "관찰되고 있는 행동의 진술")) │
00:00:37 verbose #630 > > │ 00:00:18 verbose #453 > > ]] │
00:00:37 verbose #631 > > │ 00:00:18 verbose #454 > > ) │
00:00:37 verbose #632 > > │ 00:00:18 verbose #455 > > │
00:00:37 verbose #633 > > │ 00:00:18 verbose #456 > > ── markdown │
00:00:37 verbose #634 > > │ ──────────────────────────────────────────────────────────────────── │
00:00:37 verbose #635 > > │ 00:00:18 verbose #457 > > │
00:00:37 verbose #636 > > │ ╭─────────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #637 > > │ ───╮ │
00:00:37 verbose #638 > > │ 00:00:18 verbose #458 > > │ ## main │
00:00:37 verbose #639 > > │ │ │
00:00:37 verbose #640 > > │ 00:00:18 verbose #459 > > │
00:00:37 verbose #641 > > │ ╰─────────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #642 > > │ ───╯ │
00:00:37 verbose #643 > > │ 00:00:18 verbose #460 > > │
00:00:37 verbose #644 > > │ 00:00:18 verbose #461 > > ── spiral │
00:00:37 verbose #645 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #646 > > │ 00:00:18 verbose #462 > > inl main (_args : array_base string) = │
00:00:37 verbose #647 > > │ 00:00:18 verbose #463 > > 0i32 │
00:00:37 verbose #648 > > │ 00:00:18 verbose #464 > > │
00:00:37 verbose #649 > > │ 00:00:18 verbose #465 > > inl main () = │
00:00:37 verbose #650 > > │ 00:00:18 verbose #466 > > $'let main args = !main args' : () │
00:00:37 verbose #651 > > │ 00:00:19 verbose #467 > > │
00:00:37 verbose #652 > > │ 00:00:19 verbose #468 > > ── spiral │
00:00:37 verbose #653 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:37 verbose #654 > > │ 00:00:19 verbose #469 > > inl app () = │
00:00:37 verbose #655 > > │ 00:00:19 verbose #470 > > "test" |> console.write_line │
00:00:37 verbose #656 > > │ 00:00:19 verbose #471 > > 0i32 │
00:00:37 verbose #657 > > │ 00:00:19 verbose #472 > > │
00:00:37 verbose #658 > > │ 00:00:19 verbose #473 > > inl main () = │
00:00:37 verbose #659 > > │ 00:00:19 verbose #474 > > print_static "<test>" │
00:00:37 verbose #660 > > │ 00:00:19 verbose #475 > > │
00:00:37 verbose #661 > > │ 00:00:19 verbose #476 > > app │
00:00:37 verbose #662 > > │ 00:00:19 verbose #477 > > |> dyn │
00:00:37 verbose #663 > > │ 00:00:19 verbose #478 > > |> ignore │
00:00:37 verbose #664 > > │ 00:00:19 verbose #479 > > │
00:00:37 verbose #665 > > │ 00:00:19 verbose #480 > > print_static "</test>" │
00:00:37 verbose #666 > > │ 00:00:20 verbose #481 > 00:00:19 verbose #3 │
00:00:37 verbose #667 > > │ runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: │
00:00:37 verbose #668 > > │ 15835 │
00:00:37 verbose #669 > > │ 00:00:20 verbose #482 > 00:00:19 debug #4 │
00:00:37 verbose #670 > > │ runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", │
00:00:37 verbose #671 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb", "--to", "html", │
00:00:37 verbose #672 > > │ "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert │
00:00:37 verbose #673 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb" --to html │
00:00:37 verbose #674 > > │ --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) │
00:00:37 verbose #675 > > │ 00:00:24 verbose #483 > 00:00:23 verbose #5 ! [NbConvertApp] │
00:00:37 verbose #676 > > │ Converting notebook │
00:00:37 verbose #677 > > │ c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb to html │
00:00:37 verbose #678 > > │ 00:00:24 verbose #484 > 00:00:23 verbose #6 ! │
00:00:37 verbose #679 > > │ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__ │
00:00:37 verbose #680 > > │ .py:93: MissingIDFieldWarning: Code cell is missing an id field, this will │
00:00:37 verbose #681 > > │ become a hard error in future nbformat versions. You may want to use │
00:00:37 verbose #682 > > │ `normalize()` on your notebooks before validations (available since nbformat │
00:00:37 verbose #683 > > │ 5.1.4). Previous versions of nbformat are fixing this issue transparently, │
00:00:37 verbose #684 > > │ and will stop doing so in the future. │
00:00:37 verbose #685 > > │ 00:00:24 verbose #485 > 00:00:23 verbose #7 ! validate(nb) │
00:00:37 verbose #686 > > │ 00:00:27 verbose #486 > 00:00:25 verbose #8 ! [NbConvertApp] Writing │
00:00:37 verbose #687 > > │ 318992 bytes to c:\home\git\polyglot\apps\spiral\temp\test\test.dib.html │
00:00:37 verbose #688 > > │ 00:00:27 verbose #487 > 00:00:25 verbose #9 │
00:00:37 verbose #689 > > │ runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 661 │
00:00:37 verbose #690 > > │ 00:00:27 verbose #488 > 00:00:25 debug #10 spiral_builder.run / dib │
00:00:37 verbose #691 > > │ / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 661 │
00:00:37 verbose #692 > > │ 00:00:27 verbose #489 > 00:00:25 debug #11 │
00:00:37 verbose #693 > > │ runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter │
00:00:37 verbose #694 > > │ = 1; $path = 'c:/home/git/polyglot/apps/spiral/temp/test/test.dib.html'; │
00:00:37 verbose #695 > > │ (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { │
00:00:37 verbose #696 > > │ $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, │
00:00:37 verbose #697 > > │ "pwsh -c "$counter = 1; $path = │
00:00:37 verbose #698 > > │ 'c:/home/git/polyglot/apps/spiral/temp/test/test.dib.html'; (Get-Content │
00:00:37 verbose #699 > > │ $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + │
00:00:37 verbose #700 > > │ $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, │
00:00:37 verbose #701 > > │ None) │
00:00:37 verbose #702 > > │ 00:00:28 verbose #490 > 00:00:27 verbose #12 │
00:00:37 verbose #703 > > │ runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 │
00:00:37 verbose #704 > > │ 00:00:28 verbose #491 > 00:00:27 debug #13 spiral_builder.run / dib │
00:00:37 verbose #705 > > │ / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 │
00:00:37 verbose #706 > > │ 00:00:29 verbose #492 > 00:00:28 debug #14 spiral_builder.run / dib │
00:00:37 verbose #707 > > │ / exit_code: 0 / result.Length: 16555 │
00:00:37 verbose #708 > > │ 00:00:29 debug #493 runtime.execute_with_options_async / exit_code: 0 / │
00:00:37 verbose #709 > > │ output.Length: 19836 │
00:00:37 verbose #710 > > │ 00:00:29 debug #1 main / executeCommand / exitCode: 0 / command: │
00:00:37 verbose #711 > > │ ../../../../workspace/target/release/spiral_builder.exe dib --path test.dib │
00:00:37 verbose #712 > > │ --retries 3 │
00:00:37 verbose #713 > > │ │
00:00:37 verbose #714 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #715 > >
00:00:37 verbose #716 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 verbose #717 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 verbose #718 > > │ ### parse the .dib file into .spi format with dibparser │
00:00:37 verbose #719 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 verbose #720 > >
00:00:37 verbose #721 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:37 verbose #722 > > { . ../../../../apps/parser/dist/DibParser$(_exe) test.dib spi } | Invoke-Block
00:00:41 verbose #723 > >
00:00:41 verbose #724 > > ╭─[ 4.53s - stdout ]───────────────────────────────────────────────────────────╮
00:00:41 verbose #725 > > │ 00:00:00 debug #1 writeDibCode / output: Spi / path: test.dib │
00:00:41 verbose #726 > > │ 00:00:00 debug #2 parseDibCode / output: Spi / file: test.dib │
00:00:41 verbose #727 > > │ │
00:00:41 verbose #728 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #729 > >
00:00:41 verbose #730 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #731 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #732 > > │ ### build .fsx file from .spi using supervisor │
00:00:41 verbose #733 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #734 > >
00:00:41 verbose #735 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:41 verbose #736 > > { . ../../../../apps/spiral/dist/Supervisor$(_exe) --build-file test.spi
00:00:41 verbose #737 > > test.fsx } | Invoke-Block
00:00:45 verbose #738 > >
00:00:45 verbose #739 > > ╭─[ 3.34s - stdout ]───────────────────────────────────────────────────────────╮
00:00:45 verbose #740 > > │ 00:00:01 debug #1 async.run_with_timeout_async / timeout: 500 │
00:00:45 verbose #741 > > │ 00:00:02 debug #2 async.run_with_timeout_async / timeout: 500 │
00:00:45 verbose #742 > > │ 00:00:02 debug #1 Supervisor.buildFile / takeWhileInclusive / path: │
00:00:45 verbose #743 > > │ test.spi / outputContent: / errors: [] / typeErrorCount: 0 │
00:00:45 verbose #744 > > │ 00:00:02 debug #2 Supervisor.buildFile / takeWhileInclusive / path: │
00:00:45 verbose #745 > > │ test.spi / outputContent: / errors: [] / typeErrorCount: 0 │
00:00:45 verbose #746 > > │ 00:00:02 verbose #3 Supervisor.sendJson / port: 13805 / json: │
00:00:45 verbose #747 > > │ {"FileOpen":{"spiText":"/// # test (Polyglot)\nnominal i = ()\nnominal e = │
00:00:45 verbose #748 > > │ ()\nnominal s = │
00:00:45 verbose #749 > > │ ()\nnomin...0022\u003C/test\u003E\u0022\n","uri":"file:///c:/home/git/polygl │
00:00:45 verbose #750 > > │ ot/apps/spiral/temp/test/test.spi"}} / result: │
00:00:45 verbose #751 > > │ 00:00:02 verbose #4 Supervisor.sendJson / port: 13805 / json: │
00:00:45 verbose #752 > > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/sp │
00:00:45 verbose #753 > > │ iral/temp/test/test.spi"}} / result: │
00:00:45 verbose #754 > > │ 00:00:03 debug #5 Supervisor.buildFile / takeWhileInclusive / path: │
00:00:45 verbose #755 > > │ test.spi / outputContent: let rec closure0 () () : int32 = │
00:00:45 verbose #756 > > │ let v0 : (string -> unit) = System.Console.WriteLine │
00:00:45 verbose #757 > > │ let v1 : string = "test" │
00:00:45 verbose #758 > > │ v0 v1 │
00:00:45 verbose #759 > > │ 0 │
00:00:45 verbose #760 > > │ let v0 : (unit -> int32) = closure0() │
00:00:45 verbose #761 > > │ () │
00:00:45 verbose #762 > > │ / errors: [] / typeErrorCount: 0 │
00:00:45 verbose #763 > > │ 00:00:03 debug #6 FileSystem.watchWithFilter / Disposing watch stream / │
00:00:45 verbose #764 > > │ filter: FileName, LastWrite │
00:00:45 verbose #765 > > │ │
00:00:45 verbose #766 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #767 > >
00:00:45 verbose #768 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #769 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #770 > > │ ## compile and format the project │
00:00:45 verbose #771 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #772 > >
00:00:45 verbose #773 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 verbose #774 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 verbose #775 > > │ ### compile project with fable targeting optimized rust │
00:00:45 verbose #776 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 verbose #777 > >
00:00:45 verbose #778 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:45 verbose #779 > > dotnet fable --optimize --lang rs --extension .rs
00:01:08 verbose #780 > >
00:01:08 verbose #781 > > ╭─[ 23.50s - stdout ]──────────────────────────────────────────────────────────╮
00:01:08 verbose #782 > > │ Fable 4.17.0: F# to Rust compiler (status: alpha) │
00:01:08 verbose #783 > > │ │
00:01:08 verbose #784 > > │ Thanks to the contributor! @ritcoder │
00:01:08 verbose #785 > > │ Stand with Ukraine! https://standwithukraine.com.ua/ │
00:01:08 verbose #786 > > │ │
00:01:08 verbose #787 > > │ Parsing test.fsproj... │
00:01:08 verbose #788 > > │ .> cmd /C dotnet restore test.fable-temp.csproj -p:FABLE_COMPILER=true │
00:01:08 verbose #789 > > │ -p:FABLE_COMPILER_4=true -p:FABLE_COMPILER_RUST=true │
00:01:08 verbose #790 > > │ Determining projects to restore... │
00:01:08 verbose #791 > > │ Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2 │
00:01:08 verbose #792 > > │ The last full restore is still up to date. Nothing left to do. │
00:01:08 verbose #793 > > │ Total time taken: 0 milliseconds │
00:01:08 verbose #794 > > │ Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2 │
00:01:08 verbose #795 > > │ Restoring │
00:01:08 verbose #796 > > │ C:\home\git\polyglot\apps\spiral\temp\test\test.fable-temp.csproj │
00:01:08 verbose #797 > > │ Starting restore process. │
00:01:08 verbose #798 > > │ Total time taken: 0 milliseconds │
00:01:08 verbose #799 > > │ Restored C:\home\git\polyglot\apps\spiral\temp\test\test.fable-temp.csproj │
00:01:08 verbose #800 > > │ (in 1.58 sec). │
00:01:08 verbose #801 > > │ .> cmd /C dotnet restore │
00:01:08 verbose #802 > > │ C:/home/git/polyglot/apps/spiral/temp/test/test.fsproj │
00:01:08 verbose #803 > > │ Determining projects to restore... │
00:01:08 verbose #804 > > │ Restored C:\home\git\polyglot\apps\spiral\temp\test\test.fsproj (in 494 │
00:01:08 verbose #805 > > │ ms). │
00:01:08 verbose #806 > > │ Project and references (1 source files) parsed in 16820ms │
00:01:08 verbose #807 > > │ │
00:01:08 verbose #808 > > │ Started Fable compilation... │
00:01:08 verbose #809 > > │ │
00:01:08 verbose #810 > > │ Fable compilation finished in 3044ms │
00:01:08 verbose #811 > > │ │
00:01:08 verbose #812 > > │ .\test.fsx(7,0): (7,2) warning FABLE: For Rust, support for F# static and │
00:01:08 verbose #813 > > │ module do bindings is disabled by default. It can be enabled with the │
00:01:08 verbose #814 > > │ 'static_do_bindings' feature. Use at your own risk! │
00:01:08 verbose #815 > > │ │
00:01:08 verbose #816 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 verbose #817 > >
00:01:08 verbose #818 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:08 verbose #819 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:08 verbose #820 > > │ ### fix formatting issues in the .rs file using regex and set-content │
00:01:08 verbose #821 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 verbose #822 > >
00:01:08 verbose #823 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:01:08 verbose #824 > > (Get-Content test.rs) `
00:01:08 verbose #825 > > -replace [[regex]]::Escape("),);"), "));" `
00:01:08 verbose #826 > > | FixRust `
00:01:08 verbose #827 > > | Set-Content test.rs
00:01:08 verbose #828 > >
00:01:08 verbose #829 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:08 verbose #830 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:08 verbose #831 > > │ ### format the rust code using cargo fmt │
00:01:08 verbose #832 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:08 verbose #833 > >
00:01:08 verbose #834 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:01:08 verbose #835 > > cargo fmt --
00:01:09 verbose #836 > >
00:01:09 verbose #837 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:09 verbose #838 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:09 verbose #839 > > │ ## build and test the project │
00:01:09 verbose #840 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:09 verbose #841 > >
00:01:09 verbose #842 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:09 verbose #843 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:09 verbose #844 > > │ ### build the project in release mode using nightly rust compiler │
00:01:09 verbose #845 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:09 verbose #846 > >
00:01:09 verbose #847 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:01:09 verbose #848 > > cargo +nightly build --release
00:01:27 verbose #849 > >
00:01:27 verbose #850 > > ╭─[ 18.07s - stdout ]──────────────────────────────────────────────────────────╮
00:01:27 verbose #851 > > │ Compiling fable_library_rust v0.1.0 │
00:01:27 verbose #852 > > │ (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) │
00:01:27 verbose #853 > > │ Compiling spiral_temp_test v0.0.1 │
00:01:27 verbose #854 > > │ (C:\home\git\polyglot\apps\spiral\temp\test) │
00:01:27 verbose #855 > > │ warning: struct `Cart` is never constructed │
00:01:27 verbose #856 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:41:8 │
00:01:27 verbose #857 > > │ | │
00:01:27 verbose #858 > > │ 41 | struct Cart { │
00:01:27 verbose #859 > > │ | ^^^^ │
00:01:27 verbose #860 > > │ | │
00:01:27 verbose #861 > > │ = note: `#[warn(dead_code)]` on by default │
00:01:27 verbose #862 > > │ │
00:01:27 verbose #863 > > │ warning: associated items `new`, `add_item`, and `remove_item` are │
00:01:27 verbose #864 > > │ never used │
00:01:27 verbose #865 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:46:8 │
00:01:27 verbose #866 > > │ | │
00:01:27 verbose #867 > > │ 45 | impl Cart { │
00:01:27 verbose #868 > > │ | --------- associated items in this implementation │
00:01:27 verbose #869 > > │ 46 | fn new() -> Cart { │
00:01:27 verbose #870 > > │ | ^^^ │
00:01:27 verbose #871 > > │ ... │
00:01:27 verbose #872 > > │ 50 | fn add_item(&mut self, item: Item) { │
00:01:27 verbose #873 > > │ | ^^^^^^^^ │
00:01:27 verbose #874 > > │ ... │
00:01:27 verbose #875 > > │ 56 | fn remove_item(&mut self, item: &Item) { │
00:01:27 verbose #876 > > │ | ^^^^^^^^^^^ │
00:01:27 verbose #877 > > │ │
00:01:27 verbose #878 > > │ warning: function `parse_comment` is never used │
00:01:27 verbose #879 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:124:4 │
00:01:27 verbose #880 > > │ | │
00:01:27 verbose #881 > > │ 124 | fn parse_comment(input: &str) -> IResult<&str, SpiralToken> { │
00:01:27 verbose #882 > > │ | ^^^^^^^^^^^^^ │
00:01:27 verbose #883 > > │ │
00:01:27 verbose #884 > > │ warning: function `parse_string` is never used │
00:01:27 verbose #885 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:130:4 │
00:01:27 verbose #886 > > │ | │
00:01:27 verbose #887 > > │ 130 | fn parse_string(input: &str) -> IResult<&str, SpiralToken> { │
00:01:27 verbose #888 > > │ | ^^^^^^^^^^^^ │
00:01:27 verbose #889 > > │ │
00:01:27 verbose #890 > > │ warning: function `parse_identifier` is never used │
00:01:27 verbose #891 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:145:4 │
00:01:27 verbose #892 > > │ | │
00:01:27 verbose #893 > > │ 145 | fn parse_identifier(input: &str) -> IResult<&str, SpiralToken> {[ │
00:01:27 verbose #894 > > │ 0m │
00:01:27 verbose #895 > > │ | ^^^^^^^^^^^^^^^^ │
00:01:27 verbose #896 > > │ │
00:01:27 verbose #897 > > │ warning: function `parse_integer` is never used │
00:01:27 verbose #898 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:157:4 │
00:01:27 verbose #899 > > │ | │
00:01:27 verbose #900 > > │ 157 | fn parse_integer(input: &str) -> IResult<&str, SpiralToken> { │
00:01:27 verbose #901 > > │ | ^^^^^^^^^^^^^ │
00:01:27 verbose #902 > > │ │
00:01:27 verbose #903 > > │ warning: function `parse_operator` is never used │
00:01:27 verbose #904 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:165:4 │
00:01:27 verbose #905 > > │ | │
00:01:27 verbose #906 > > │ 165 | fn parse_operator(input: &str) -> IResult<&str, SpiralToken> { │
00:01:27 verbose #907 > > │ | ^^^^^^^^^^^^^^ │
00:01:27 verbose #908 > > │ │
00:01:27 verbose #909 > > │ warning: function `parse_token` is never used │
00:01:27 verbose #910 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:170:4 │
00:01:27 verbose #911 > > │ | │
00:01:27 verbose #912 > > │ 170 | fn parse_token(input: &str) -> IResult<&str, SpiralToken> { │
00:01:27 verbose #913 > > │ | ^^^^^^^^^^^ │
00:01:27 verbose #914 > > │ │
00:01:27 verbose #915 > > │ warning: function `format_token` is never used │
00:01:27 verbose #916 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:180:4 │
00:01:27 verbose #917 > > │ | │
00:01:27 verbose #918 > > │ 180 | fn format_token(token: &SpiralToken) -> String { │
00:01:27 verbose #919 > > │ | ^^^^^^^^^^^^ │
00:01:27 verbose #920 > > │ │
00:01:27 verbose #921 > > │ warning: function `parse_expression` is never used │
00:01:27 verbose #922 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:201:4 │
00:01:27 verbose #923 > > │ | │
00:01:27 verbose #924 > > │ 201 | fn parse_expression(input: &str) -> IResult<&str, SpiralToken> {[ │
00:01:27 verbose #925 > > │ 0m │
00:01:27 verbose #926 > > │ | ^^^^^^^^^^^^^^^^ │
00:01:27 verbose #927 > > │ │
00:01:27 verbose #928 > > │ warning: `spiral_temp_test` (bin "spiral_temp_test") generated 10 │
00:01:27 verbose #929 > > │ warnings │
00:01:27 verbose #930 > > │ Finished `release` profile [optimized] target(s) in 17.88s │
00:01:27 verbose #931 > > │ │
00:01:27 verbose #932 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:27 verbose #933 > >
00:01:27 verbose #934 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:27 verbose #935 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:27 verbose #936 > > │ ### run release tests with output enabled │
00:01:27 verbose #937 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:27 verbose #938 > >
00:01:27 verbose #939 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:01:27 verbose #940 > > { cargo +nightly test --release -- --show-output } | Invoke-Block
00:02:22 verbose #941 > >
00:02:22 verbose #942 > > ╭─[ 54.86s - stdout ]──────────────────────────────────────────────────────────╮
00:02:22 verbose #943 > > │ Compiling fable_library_rust v0.1.0 │
00:02:22 verbose #944 > > │ (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) │
00:02:22 verbose #945 > > │ Compiling spiral_temp_test v0.0.1 │
00:02:22 verbose #946 > > │ (C:\home\git\polyglot\apps\spiral\temp\test) │
00:02:22 verbose #947 > > │ Finished `release` profile [optimized] target(s) in 53.36s │
00:02:22 verbose #948 > > │ Running unittests main.rs │
00:02:22 verbose #949 > > │ (C:\home\git\polyglot\workspace\target\release\deps\spiral_temp_test-bbc2193 │
00:02:22 verbose #950 > > │ 7fd53675c.exe) │
00:02:22 verbose #951 > > │ │
00:02:22 verbose #952 > > │ running 3 tests │
00:02:22 verbose #953 > > │ test test_parse_number ... ok │
00:02:22 verbose #954 > > │ test prop_parse_format_idempotent ... ok │
00:02:22 verbose #955 > > │ test │
00:02:22 verbose #956 > > │ adding_and_then_removing_an_item_from_the_cart_leaves_the_cart_unchanged ... │
00:02:22 verbose #957 > > │ ok │
00:02:22 verbose #958 > > │ │
00:02:22 verbose #959 > > │ successes: │
00:02:22 verbose #960 > > │ │
00:02:22 verbose #961 > > │ ---- prop_parse_format_idempotent stdout ---- │
00:02:22 verbose #962 > > │ input=Integer(-2510607911845030600) │
00:02:22 verbose #963 > > │ input=Integer(-2131048471381222366) │
00:02:22 verbose #964 > > │ input=Operator("*") │
00:02:22 verbose #965 > > │ input=Comment("f3<jS<Hs|'d/E,|8mv.$=GFF") │
00:02:22 verbose #966 > > │ input=Integer(-5898641686675795104) │
00:02:22 verbose #967 > > │ input=Operator("=") │
00:02:22 verbose #968 > > │ input=Identifier("l4") │
00:02:22 verbose #969 > > │ input=Identifier("m81fUsquy1d4") │
00:02:22 verbose #970 > > │ input=StringLiteral("U```{w/?|") │
00:02:22 verbose #971 > > │ input=Integer(-640720498158704999) │
00:02:22 verbose #972 > > │ input=StringLiteral(",/$G") │
00:02:22 verbose #973 > > │ input=Comment("l8yPX.$@X.:mhz") │
00:02:22 verbose #974 > > │ input=Identifier("EMb13RbPDSF8vGzq2") │
00:02:22 verbose #975 > > │ input=Comment("H${?f${:zR7'/oN->j$\\'p&9At=") │
00:02:22 verbose #976 > > │ input=Integer(-8347822381308587931) │
00:02:22 verbose #977 > > │ input=StringLiteral("2 IP[W)$w B0{rS53 &{p|^^{") │
00:02:22 verbose #978 > > │ input=Comment("8") │
00:02:22 verbose #979 > > │ input=Identifier("Ud6qeHxJg0E0eR1qcuyp9av6") │
00:02:22 verbose #980 > > │ input=Comment("n]w#lTN\"c") │
00:02:22 verbose #981 > > │ input=Comment("5JY|;|4x\\SJ:/sqe>/N3.$Q\\L") │
00:02:22 verbose #982 > > │ input=Operator("(") │
00:02:22 verbose #983 > > │ input=Identifier("tIKzfkDq4mOALBTwFMFbw8e0") │
00:02:22 verbose #984 > > │ input=Integer(-4926405825328324329) │
00:02:22 verbose #985 > > │ input=Comment("~{&gwb8v%y1\"") │
00:02:22 verbose #986 > > │ input=StringLiteral("/=( I*:0>6'Q9Q)$") │
00:02:22 verbose #987 > > │ input=Comment("*=?s)m?Dh`0tB]&=}V1poSAmm:.te%T") │
00:02:22 verbose #988 > > │ input=Identifier("gEN69CyolA3xK3Y") │
00:02:22 verbose #989 > > │ input=Integer(-7475135108963250853) │
00:02:22 verbose #990 > > │ input=StringLiteral("'1S`Iy!yT7[?}?6*C.") │
00:02:22 verbose #991 > > │ input=Operator("*") │
00:02:22 verbose #992 > > │ input=Identifier("Uf6pIk0e8Qemee1") │
00:02:22 verbose #993 > > │ input=StringLiteral("(,Y?E?[") │
00:02:22 verbose #994 > > │ input=Operator("=") │
00:02:22 verbose #995 > > │ input=Operator("=") │
00:02:22 verbose #996 > > │ input=Comment("#.a&dm`7L$$F$Y(TX[q$hS``q`Utw") │
00:02:22 verbose #997 > > │ input=Identifier("LK") │
00:02:22 verbose #998 > > │ input=StringLiteral("`}`.%e[*6bGGW%") │
00:02:22 verbose #999 > > │ input=Integer(-3284607208108872717) │
00:02:22 verbose #1000 > > │ input=Operator("(") │
00:02:22 verbose #1001 > > │ input=Integer(8258093063688029377) │
00:02:22 verbose #1002 > > │ input=Integer(46145853216558019) │
00:02:22 verbose #1003 > > │ input=Operator(")") │
00:02:22 verbose #1004 > > │ input=Integer(-521764561199048369) │
00:02:22 verbose #1005 > > │ input=Identifier("Lm1a") │
00:02:22 verbose #1006 > > │ input=Identifier("dHutf0th467C4749BrI4U0K") │
00:02:22 verbose #1007 > > │ input=Operator("=") │
00:02:22 verbose #1008 > > │ input=StringLiteral("]%") │
00:02:22 verbose #1009 > > │ input=StringLiteral("tC:`zli{`*'5'&.A{.;x3<&_n$") │
00:02:22 verbose #1010 > > │ input=Comment("`%J;\\m8'.}") │
00:02:22 verbose #1011 > > │ input=Comment("}Bs}$p") │
00:02:22 verbose #1012 > > │ input=StringLiteral("O?'SCgr$_<") │
00:02:22 verbose #1013 > > │ input=Comment("Q$<") │
00:02:22 verbose #1014 > > │ input=Comment("b\"[Oz`p0xj\"{f") │
00:02:22 verbose #1015 > > │ input=Comment("Jhs?O$r<JWK1h.{@s{'/j") │
00:02:22 verbose #1016 > > │ input=Integer(-1757578702784391665) │
00:02:22 verbose #1017 > > │ input=Integer(536839977986486414) │
00:02:22 verbose #1018 > > │ input=Integer(-8993432121840031095) │
00:02:22 verbose #1019 > > │ input=Operator("*") │
00:02:22 verbose #1020 > > │ input=Identifier("BnJ8QcsujkrZd4iOxpuKVPt2AVO") │
00:02:22 verbose #1021 > > │ input=Comment("|mf.4%|\" &\"C($=:$") │
00:02:22 verbose #1022 > > │ input=Comment("=}#Ip}?j/~L7A$ZmD:$7'{") │
00:02:22 verbose #1023 > > │ input=Comment("y#i{['`y_G\"k-JyCl?'.\"s") │
00:02:22 verbose #1024 > > │ input=Integer(-3209020037688114935) │
00:02:22 verbose #1025 > > │ input=Integer(4570361103016928410) │
00:02:22 verbose #1026 > > │ input=Operator("+") │
00:02:22 verbose #1027 > > │ input=Operator("+") │
00:02:22 verbose #1028 > > │ input=Comment("{YZqz.L%lmm\\ZRe`Rn") │
00:02:22 verbose #1029 > > │ input=Comment("zdb'\\su.c\"VdK&X'SQG)%L!") │
00:02:22 verbose #1030 > > │ input=StringLiteral("W/>kha%!/rH/&maH'zdd|7|zh/U{ac") │
00:02:22 verbose #1031 > > │ input=Identifier("rO") │
00:02:22 verbose #1032 > > │ input=Comment("Hh&wDo.=") │
00:02:22 verbose #1033 > > │ input=StringLiteral("Lg`J6'H?[rbwAb}") │
00:02:22 verbose #1034 > > │ input=Identifier("ECSu5CJr23yCiRT46IbuI20MHCkp2M3") │
00:02:22 verbose #1035 > > │ input=Operator(")") │
00:02:22 verbose #1036 > > │ input=Integer(-1698509808697980294) │
00:02:22 verbose #1037 > > │ input=StringLiteral("u7M~&C8qbxG'rkwW<q:gj`<#E") │
00:02:22 verbose #1038 > > │ input=Operator("=") │
00:02:22 verbose #1039 > > │ input=Comment("I~b}]@R)';H{;*.gH&'") │
00:02:22 verbose #1040 > > │ input=StringLiteral("") │
00:02:22 verbose #1041 > > │ input=Comment("o") │
00:02:22 verbose #1042 > > │ input=StringLiteral("~?JR$R") │
00:02:22 verbose #1043 > > │ input=Identifier("mp0wrRGoNZBD6Lf13hPO4a1drcUg4s") │
00:02:22 verbose #1044 > > │ input=Integer(8748883350963362342) │
00:02:22 verbose #1045 > > │ input=StringLiteral("&x6lxm`5#.`eC:'dX=+3&ye_A*>") │
00:02:22 verbose #1046 > > │ input=Comment("!``8$'yfW") │
00:02:22 verbose #1047 > > │ input=StringLiteral("&{*SO)KZgXt8}3'.*'K") │
00:02:22 verbose #1048 > > │ input=Comment("//r,s@ e") │
00:02:22 verbose #1049 > > │ input=StringLiteral("= RVa0/") │
00:02:22 verbose #1050 > > │ input=Operator("(") │
00:02:22 verbose #1051 > > │ input=Identifier("ZX90PG8zJ3ZnOyJ66OEoqadEKL") │
00:02:22 verbose #1052 > > │ input=StringLiteral("T-X=Jr6+?~A<|</ul|J4{aH=T%") │
00:02:22 verbose #1053 > > │ input=StringLiteral("1o{$W{c:") │
00:02:22 verbose #1054 > > │ input=Operator("(") │
00:02:22 verbose #1055 > > │ input=StringLiteral("'Q.d8hfy@%MA:2(S$U%I/YGpt?;") │
00:02:22 verbose #1056 > > │ input=StringLiteral("<$o|$h(;o%*}q0Dy{T+(pH1=a&<") │
00:02:22 verbose #1057 > > │ input=Operator("(") │
00:02:22 verbose #1058 > > │ input=Comment("03}P!QSo*d?]ApYr`SF&0?@~$wr\\$b") │
00:02:22 verbose #1059 > > │ input=Identifier("kd8VWp6") │
00:02:22 verbose #1060 > > │ input=Comment("Y]?LwW4^=z*\"?") │
00:02:22 verbose #1061 > > │ input=Operator("+") │
00:02:22 verbose #1062 > > │ input=StringLiteral(",h") │
00:02:22 verbose #1063 > > │ input=Integer(-8311693613053623003) │
00:02:22 verbose #1064 > > │ input=StringLiteral(".~)|`{k0 u0e") │
00:02:22 verbose #1065 > > │ input=Operator("-") │
00:02:22 verbose #1066 > > │ input=Integer(7712131725422657841) │
00:02:22 verbose #1067 > > │ input=Identifier("V6P") │
00:02:22 verbose #1068 > > │ input=StringLiteral("%?'U&=_<v4") │
00:02:22 verbose #1069 > > │ input=StringLiteral("8`.") │
00:02:22 verbose #1070 > > │ input=Comment("\"<") │
00:02:22 verbose #1071 > > │ input=Operator("+") │
00:02:22 verbose #1072 > > │ input=Integer(8468574276873039131) │
00:02:22 verbose #1073 > > │ input=StringLiteral(".}m~0{i{&|{hJ<=s'@<.") │
00:02:22 verbose #1074 > > │ input=StringLiteral("<i-d&V`.{.$`'/*wZ[|#crQO>Of") │
00:02:22 verbose #1075 > > │ input=Comment("\"{?{>E%CcRXda\"nW \\\\7.\\tJ[=,[USB") │
00:02:22 verbose #1076 > > │ input=Comment("s*G:/{Qy?sN") │
00:02:22 verbose #1077 > > │ input=Integer(5786814581272423506) │
00:02:22 verbose #1078 > > │ input=Integer(-9031840126866120551) │
00:02:22 verbose #1079 > > │ input=Identifier("j") │
00:02:22 verbose #1080 > > │ input=Operator("=") │
00:02:22 verbose #1081 > > │ input=Comment("\\T/#+H`Yw=!?\"H$Jo|`*`MV'") │
00:02:22 verbose #1082 > > │ input=Identifier("AcsCK1vp180YgBCwBTYKB1z82NIoTJ") │
00:02:22 verbose #1083 > > │ input=StringLiteral("UOx=yp~iP'") │
00:02:22 verbose #1084 > > │ input=StringLiteral("&$}`rvkE4@(v{IDh<`h&'=s+d%") │
00:02:22 verbose #1085 > > │ input=Operator("+") │
00:02:22 verbose #1086 > > │ input=StringLiteral("v|?97{j/$F`") │
00:02:22 verbose #1087 > > │ input=Identifier("AgFj3EetlrOHkZag0zs2Kq66s") │
00:02:22 verbose #1088 > > │ input=Identifier("voX4qn") │
00:02:22 verbose #1089 > > │ input=Identifier("a4LoOPf0XXItZCW1Ow3EDMOkPOMM7FP6W") │
00:02:22 verbose #1090 > > │ input=Operator("=") │
00:02:22 verbose #1091 > > │ input=Identifier("eRpvcsUg3jJKqEpGf0iNRnqCfmnipX") │
00:02:22 verbose #1092 > > │ input=Comment("+\"=_c<'Iui+.{N ?") │
00:02:22 verbose #1093 > > │ input=Identifier("HoB7z1m5vCyuH") │
00:02:22 verbose #1094 > > │ input=Identifier("Ks286dB3cypfW956zb7iCaD") │
00:02:22 verbose #1095 > > │ input=Comment("6%\\o<P") │
00:02:22 verbose #1096 > > │ input=StringLiteral("A7=%f`'<50f3C") │
00:02:22 verbose #1097 > > │ input=StringLiteral("r])vm$xJPv^Mw#$$$l<<C<*7?EN3") │
00:02:22 verbose #1098 > > │ input=Comment("(l.DF{AX") │
00:02:22 verbose #1099 > > │ input=Integer(-1354228904789579829) │
00:02:22 verbose #1100 > > │ input=StringLiteral("-<.*7l/pcX=*f?A'^UC?s'<&YN%C`V") │
00:02:22 verbose #1101 > > │ input=Identifier("dowXTchq5x4fmozV") │
00:02:22 verbose #1102 > > │ input=Identifier("Tm0h6DcJVKd9A7Fh4X241guWJ7VbIV") │
00:02:22 verbose #1103 > > │ input=Comment(".=!\"3:$ M.%%:<y<W=SHuM9{$$:<") │
00:02:22 verbose #1104 > > │ input=Integer(-4792055590309291318) │
00:02:22 verbose #1105 > > │ input=Comment("\"%,('2:Q}%-TSU.&") │
00:02:22 verbose #1106 > > │ input=Identifier("k5E6eI39R") │
00:02:22 verbose #1107 > > │ input=Operator("+") │
00:02:22 verbose #1108 > > │ input=Comment("]ba9&%)&CNi:") │
00:02:22 verbose #1109 > > │ input=Integer(6735330061410591804) │
00:02:22 verbose #1110 > > │ input=Comment("d&k:$_=`-AAC<yb=<c'\\PZvJM.'") │
00:02:22 verbose #1111 > > │ input=Identifier("ub2o658mcnhCt5gv7GZn3U9EfUAKX1fT") │
00:02:22 verbose #1112 > > │ input=Operator("*") │
00:02:22 verbose #1113 > > │ input=Integer(-6653242063926837925) │
00:02:22 verbose #1114 > > │ input=Comment("$[wk/<") │
00:02:22 verbose #1115 > > │ input=Integer(-5778984331081619395) │
00:02:22 verbose #1116 > > │ input=StringLiteral("V${B2Vn/..`('(j&<cS_") │
00:02:22 verbose #1117 > > │ input=Operator(")") │
00:02:22 verbose #1118 > > │ input=Operator("-") │
00:02:22 verbose #1119 > > │ input=Integer(1620884618880252784) │
00:02:22 verbose #1120 > > │ input=Operator("=") │
00:02:22 verbose #1121 > > │ input=Operator("(") │
00:02:22 verbose #1122 > > │ input=Operator("-") │
00:02:22 verbose #1123 > > │ input=Identifier("rtv9OO0rAjUbzyAboGF4IyjfYMp") │
00:02:22 verbose #1124 > > │ input=Integer(4382128802967363086) │
00:02:22 verbose #1125 > > │ input=Identifier("bbN26358JqI50WpOHwWRF") │
00:02:22 verbose #1126 > > │ input=StringLiteral("tHuiBf`0/!9cr&x1-s") │
00:02:22 verbose #1127 > > │ input=Integer(6236933343890658423) │
00:02:22 verbose #1128 > > │ input=Comment("H'FhLDo<;t`s0/P:?5v:%") │
00:02:22 verbose #1129 > > │ input=Comment("4SP'CI'J+<*o=\"?`a\"6a.p`EFmB/`") │
00:02:22 verbose #1130 > > │ input=StringLiteral("R=`*<fVS{5YOo") │
00:02:22 verbose #1131 > > │ input=Integer(6231274283645368058) │
00:02:22 verbose #1132 > > │ input=Comment("X") │
00:02:22 verbose #1133 > > │ input=Comment("<`$$\"0m&0-a{P`l:&{`e*D\"?n6") │
00:02:22 verbose #1134 > > │ input=Operator("*") │
00:02:22 verbose #1135 > > │ input=Operator("*") │
00:02:22 verbose #1136 > > │ input=Comment("mh\"*.*.hnuRVA{j$-%q`h:\\\\ ^2)") │
00:02:22 verbose #1137 > > │ input=StringLiteral("JI{/") │
00:02:22 verbose #1138 > > │ input=StringLiteral("mCvCO:`Z.HC/O@=Z/-[TK~ll`N-") │
00:02:22 verbose #1139 > > │ input=Operator("(") │
00:02:22 verbose #1140 > > │ input=Integer(-5299338406587481185) │
00:02:22 verbose #1141 > > │ input=Operator(")") │
00:02:22 verbose #1142 > > │ input=Integer(3148031311485449553) │
00:02:22 verbose #1143 > > │ input=Operator("/") │
00:02:22 verbose #1144 > > │ input=StringLiteral("g%s%rnJn#dXc#") │
00:02:22 verbose #1145 > > │ input=StringLiteral("6fh<G<?|~,`ZE8<cGhBH,*r!c$'m") │
00:02:22 verbose #1146 > > │ input=Operator("(") │
00:02:22 verbose #1147 > > │ input=Comment("c$*#Ot[v'*=") │
00:02:22 verbose #1148 > > │ input=Integer(-1856293981222973720) │
00:02:22 verbose #1149 > > │ input=StringLiteral("$f{K :A:.8QS)|XPG*") │
00:02:22 verbose #1150 > > │ input=Identifier("Z7tkS26704I41Yb2frwn5EXAh2") │
00:02:22 verbose #1151 > > │ input=StringLiteral("{G8&`*`?0/<:p=aKfFt$'-.1") │
00:02:22 verbose #1152 > > │ input=Integer(4891465010741003460) │
00:02:22 verbose #1153 > > │ input=Comment("0OdZ<jP?H?<F*L\\BRnf\"px") │
00:02:22 verbose #1154 > > │ input=Identifier("x70fpy6VyknTe71Aol0uH") │
00:02:22 verbose #1155 > > │ input=Comment("/l*<x3qPj") │
00:02:22 verbose #1156 > > │ input=Operator("+") │
00:02:22 verbose #1157 > > │ input=Operator("*") │
00:02:22 verbose #1158 > > │ input=Comment("\\") │
00:02:22 verbose #1159 > > │ input=Identifier("nHuO1GouO9uhki") │
00:02:22 verbose #1160 > > │ input=Integer(7118569691889068056) │
00:02:22 verbose #1161 > > │ input=Identifier("GwYVRFfNRmfuq6lgk9mYn") │
00:02:22 verbose #1162 > > │ input=StringLiteral("}zF=") │
00:02:22 verbose #1163 > > │ input=Integer(-1514015761352856216) │
00:02:22 verbose #1164 > > │ input=Integer(-2696401644020770777) │
00:02:22 verbose #1165 > > │ input=Identifier("lYPGPwYK74O64U3YOKTfYgB") │
00:02:22 verbose #1166 > > │ input=Integer(1024198808125655303) │
00:02:22 verbose #1167 > > │ input=Operator("/") │
00:02:22 verbose #1168 > > │ input=StringLiteral("sqL7I2KoG:G:Mi") │
00:02:22 verbose #1169 > > │ input=StringLiteral("UN/^0") │
00:02:22 verbose #1170 > > │ input=Operator("*") │
00:02:22 verbose #1171 > > │ input=Comment("}\\\"U.M") │
00:02:22 verbose #1172 > > │ input=Identifier("jnx37Y0Udwz3GWwLkcdA10Q") │
00:02:22 verbose #1173 > > │ input=Identifier("Mo5DqxQAhXPujao86nj7My7OX") │
00:02:22 verbose #1174 > > │ input=Identifier("Myj9QrsrsPkHU3C48cp6jiwYR") │
00:02:22 verbose #1175 > > │ input=Operator("+") │
00:02:22 verbose #1176 > > │ input=Identifier("I11q8g9435f12f9U") │
00:02:22 verbose #1177 > > │ input=Integer(-7781127015893741320) │
00:02:22 verbose #1178 > > │ input=Operator(")") │
00:02:22 verbose #1179 > > │ input=StringLiteral("I/") │
00:02:22 verbose #1180 > > │ input=Integer(-2713153566980183185) │
00:02:22 verbose #1181 > > │ input=Identifier("L621Bl7t8dq") │
00:02:22 verbose #1182 > > │ input=Integer(-1304679951739473580) │
00:02:22 verbose #1183 > > │ input=StringLiteral("!*{wwFpyF{I1+:{.@DvHN4yJ9") │
00:02:22 verbose #1184 > > │ input=Operator("*") │
00:02:22 verbose #1185 > > │ input=Operator("+") │
00:02:22 verbose #1186 > > │ input=Identifier("KI905mv0DnTBc6FbmUnofs") │
00:02:22 verbose #1187 > > │ input=Identifier("JAV4DQ33qZd6O") │
00:02:22 verbose #1188 > > │ input=StringLiteral("-O$(u7h_%OF/ XH',u") │
00:02:22 verbose #1189 > > │ input=Identifier("oAO4WnfNdo4ZDtGb05YVYoYA1FS2332F1") │
00:02:22 verbose #1190 > > │ input=Comment("IR'=W.RQu&`=<D:Yb@:5{5@L/aO\"<\\/e") │
00:02:22 verbose #1191 > > │ input=Identifier("JCgFHUt") │
00:02:22 verbose #1192 > > │ input=Operator("*") │
00:02:22 verbose #1193 > > │ input=Comment(")<)H*:)") │
00:02:22 verbose #1194 > > │ input=Comment("E9/.?H\"&{%r,*\"\"=") │
00:02:22 verbose #1195 > > │ input=Comment("N*'*~") │
00:02:22 verbose #1196 > > │ input=Integer(-5884514679501211379) │
00:02:22 verbose #1197 > > │ input=StringLiteral("*+`/^$j9&nU+<}ql|Z&") │
00:02:22 verbose #1198 > > │ input=Integer(-9067685167798200186) │
00:02:22 verbose #1199 > > │ input=Integer(6950133881037390598) │
00:02:22 verbose #1200 > > │ input=Integer(-7051881848142126005) │
00:02:22 verbose #1201 > > │ input=Identifier("bF11Y9H57x7CCUH0") │
00:02:22 verbose #1202 > > │ input=Identifier("albskRZEBq2Ztzcip3R") │
00:02:22 verbose #1203 > > │ input=Comment("9ByaG") │
00:02:22 verbose #1204 > > │ input=Integer(-5261979094230308048) │
00:02:22 verbose #1205 > > │ input=Integer(7767056996801174974) │
00:02:22 verbose #1206 > > │ input=Comment(".u`u}\\hNl\\") │
00:02:22 verbose #1207 > > │ input=Integer(-5110106104842600949) │
00:02:22 verbose #1208 > > │ input=StringLiteral("[O'b:/0/0X({F~*") │
00:02:22 verbose #1209 > > │ input=Integer(3355553628524465080) │
00:02:22 verbose #1210 > > │ input=Integer(-770985996474378172) │
00:02:22 verbose #1211 > > │ input=StringLiteral("]%I{F&^{< {MAi0L6@=e&`~|%(@S=$sE") │
00:02:22 verbose #1212 > > │ input=StringLiteral("Y0'*WQ1``=9B]y8jg%|m<3`{sa<:?!") │
00:02:22 verbose #1213 > > │ input=Identifier("XdpSE9") │
00:02:22 verbose #1214 > > │ input=Comment("<{B6q>Y[Ji*Zk") │
00:02:22 verbose #1215 > > │ input=Identifier("EkgjUiFZMSLIK") │
00:02:22 verbose #1216 > > │ input=StringLiteral("V^./") │
00:02:22 verbose #1217 > > │ input=Operator(")") │
00:02:22 verbose #1218 > > │ │
00:02:22 verbose #1219 > > │ │
00:02:22 verbose #1220 > > │ successes: │
00:02:22 verbose #1221 > > │ adding_and_then_removing_an_item_from_the_cart_leaves_the_cart_unchanged │
00:02:22 verbose #1222 > > │ prop_parse_format_idempotent │
00:02:22 verbose #1223 > > │ test_parse_number │
00:02:22 verbose #1224 > > │ │
00:02:22 verbose #1225 > > │ test result: ok. 3 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; │
00:02:22 verbose #1226 > > │ finished in 0.61s │
00:02:22 verbose #1227 > > │ │
00:02:22 verbose #1228 > > │ │
00:02:22 verbose #1229 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:22 verbose #1230 > >
00:02:22 verbose #1231 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:22 verbose #1232 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:22 verbose #1233 > > │ ### execute the binary in release mode │
00:02:22 verbose #1234 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:22 verbose #1235 > >
00:02:22 verbose #1236 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:02:22 verbose #1237 > > { . $ScriptDir/../../../../workspace/target/release/spiral_temp_test$(_exe) } |
00:02:22 verbose #1238 > > Invoke-Block
00:02:22 verbose #1239 > >
00:02:22 verbose #1240 > > ╭─[ 362.83ms - stdout ]────────────────────────────────────────────────────────╮
00:02:22 verbose #1241 > > │ app=test │
00:02:22 verbose #1242 > > │ │
00:02:22 verbose #1243 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:23 verbose #1244 > 00:02:21 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 97176
00:02:23 verbose #1245 > 00:02:21 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:02:27 verbose #1246 > 00:02:25 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb to html
00:02:27 verbose #1247 > 00:02:25 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:27 verbose #1248 > 00:02:25 verbose #7 ! validate(nb)
00:02:30 verbose #1249 > 00:02:28 verbose #8 ! [NbConvertApp] Writing 349374 bytes to c:\home\git\polyglot\apps\spiral\temp\test\build.dib.html
00:02:30 verbose #1250 > 00:02:28 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 663
00:02:30 verbose #1251 > 00:02:28 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 663
00:02:30 verbose #1252 > 00:02:28 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/temp/test/build.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/temp/test/build.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:32 verbose #1253 > 00:02:30 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:32 verbose #1254 > 00:02:30 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:32 verbose #1255 > 00:02:30 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 97898
00:02:32 debug #1256 runtime.execute_with_options_async / exit_code: 0 / output.Length: 102696
00:02:32 debug #1 main / executeCommand / exitCode: 0 / command: ../../../../workspace/target/release/spiral_builder.exe dib --path build.dib
In [ ]:
{ pwsh ../apps/spiral/vscode/build.ps1 } | Invoke-Block
bun install v1.1.7 (b0b7db5c) Checked 203 installs across 191 packages (no changes) [2.31s] Symlink already exists: C:\home\git\polyglot\apps\spiral\vscode\LICENSE -> C:\home\git\polyglot\LICENSE out\src\extension.js 2.4kb out\media\cellOutputScrollButtons.js 1.9kb ⚡ Done in 27ms DONE Packaged: out\spiral-vscode-0.0.1.vsix (26 files, 98.15KB)
In [ ]:
{ pwsh ../apps/ipfs/build.ps1 } | Invoke-Block
bun install v1.1.7 (b0b7db5c)
Done! Checked 220 packages (no changes) [3.55s]
In [ ]:
{ pwsh ./outdated.ps1 } | Invoke-Block
Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2
Resolving dependency graph...
Outdated packages found:
Group: Main
* Expecto.FsCheck 10.2.1-fscheck3 -> 10.2.1
* FsCheck 3.0.0-rc3 -> 2.16.6
* FSharp.Core 8.0.300-beta.24080.5 -> 8.0.400-beta.24229.4
* Microsoft.AspNetCore.Connections.Abstractions 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.Http.Connections.Client 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.Http.Connections.Common 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Client 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Client.Core 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Common 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Protocols.Json 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.Extensions.DependencyInjection 8.0 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.DependencyInjection.Abstractions 8.0.1 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Features 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.Extensions.Logging 8.0 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Logging.Abstractions 8.0.1 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Options 8.0.2 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Primitives 8.0 -> 9.0.0-preview.4.24266.19
* System.CodeDom 8.0 -> 9.0.0-preview.4.24266.19
* System.IO.Pipelines 8.0 -> 9.0.0-preview.4.24266.19
* System.Management 7.0 -> 9.0.0-preview.4.24266.19
* System.Threading.Channels 8.0 -> 9.0.0-preview.4.24266.19
Total time taken: 1 minute, 1 second
CheckToml / toml: C:\home\git\polyglot\workspace\Cargo.toml
chat_contract_tests
================
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
equivalent 1.0.1 Removed Removed Normal ---
hashbrown 0.14.5 0.12.3 0.12.3 Normal ---
indexmap 2.2.6 1.9.3 1.9.3 Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\Cargo.toml
All dependencies are up to date, yay!
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\tests\Cargo.toml
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
indexmap->autocfg 1.3.0 Removed --- Build ---
indexmap->equivalent 1.0.1 --- Removed Normal ---
indexmap->hashbrown 0.12.3 0.14.5 --- Normal ---
indexmap->hashbrown 0.14.5 --- 0.12.3 Normal ---
serde_with->indexmap 1.9.3 2.2.6 --- Normal ---
serde_with->indexmap 2.2.6 --- 1.9.3 Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\plot\Cargo.toml
All dependencies are up to date, yay!
CheckJson / json: C:/home/git/polyglot
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\package.json
@types/node ~20.12 → ~20.14
Run ncu --target greatest -u to upgrade package.json
CheckJson / json: C:/home/git/polyglot/apps/ipfs
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\ipfs\package.json
@types/node ~20.12 → ~20.14
Run ncu --target greatest -u to upgrade package.json
CheckJson / json: C:/home/git/polyglot/apps/spiral/temp/extension
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\spiral\temp\extension\package.json
@playwright/test 1.44.0 → 1.45.0-alpha-2024-06-09
Run ncu --target greatest -u to upgrade package.json
CheckJson / json: C:/home/git/polyglot/apps/spiral/vscode
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\spiral\vscode\package.json
@types/node ~20.12 → ~20.14
@types/vscode ~1.89 → ~1.90
@vscode/vsce ~2.26 → ~2.27-0
Run ncu --target greatest -u to upgrade package.json